diff --git a/Makefile b/Makefile
index d0b61a147..1edd6adaa 100644
--- a/Makefile
+++ b/Makefile
@@ -73,7 +73,7 @@ network: prelude
 contrib: prelude
 	${MAKE} -C libs/contrib IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
 
-libs : prelude base network contrib
+libs : prelude base contrib network
 
 testbin:
 	@${MAKE} -C tests testbin
@@ -90,8 +90,8 @@ support-clean:
 clean-libs:
 	${MAKE} -C libs/prelude clean
 	${MAKE} -C libs/base clean
-	${MAKE} -C libs/network clean
 	${MAKE} -C libs/contrib clean
+	${MAKE} -C libs/network clean
 
 clean: clean-libs support-clean
 	-${IDRIS2_BOOT} --clean ${IDRIS2_IPKG}
@@ -127,8 +127,8 @@ install-support: support
 install-libs: libs
 	${MAKE} -C libs/prelude install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
 	${MAKE} -C libs/base install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
-	${MAKE} -C libs/network install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
 	${MAKE} -C libs/contrib install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
+	${MAKE} -C libs/network install IDRIS2=../../${TARGET} IDRIS2_PATH=${IDRIS2_BOOT_PATH}
 
 
 .PHONY: bootstrap bootstrap-build bootstrap-racket bootstrap-racket-build bootstrap-test bootstrap-clean
diff --git a/bootstrap/idris2_app/idris2.rkt b/bootstrap/idris2_app/idris2.rkt
index c3d09aa1a..decdfd626 100755
--- a/bootstrap/idris2_app/idris2.rkt
+++ b/bootstrap/idris2_app/idris2.rkt
@@ -11,9 +11,9 @@
 (define-libc exit (_fun _int -> _void))
 (define-ffi-definer define-libidris2_support (ffi-lib "libidris2_support" ))
 (define-libidris2_support idris2_putStr (_fun _string/utf-8 -> _void))
-(define-libidris2_support idris2_isNull (_fun _pointer -> _int))
 (define-libidris2_support idris2_getString (_fun _pointer -> _string/utf-8))
 (define-libidris2_support idris2_getStr (_fun  -> _string/utf-8))
+(define-libidris2_support idris2_isNull (_fun _pointer -> _int))
 (define-libidris2_support idris2_fileErrno (_fun  -> _int))
 (define-libidris2_support idris2_fileError (_fun _pointer -> _int))
 (define-libidris2_support idris2_writeLine (_fun _pointer _string/utf-8 -> _int))
@@ -21,7 +21,7 @@
 (define-libidris2_support idris2_stdin (_fun  -> _pointer))
 (define-libidris2_support idris2_removeFile (_fun _string/utf-8 -> _int))
 (define-libidris2_support idris2_readLine (_fun _pointer -> _pointer))
-(define-libidris2_support fgetc (_fun _pointer -> _int))
+(define-libc fgetc (_fun _pointer -> _int))
 (define-libidris2_support idris2_openFile (_fun _string/utf-8 _string/utf-8 _int -> _pointer))
 (define-libc fflush (_fun _pointer -> _int))
 (define-libidris2_support idris2_fileSize (_fun _pointer -> _int))
@@ -38,10 +38,9 @@
 (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))
-(define-libc fprintf (_fun _pointer _string/utf-8 _int -> _void))
 (define-libc fdopen (_fun _int _string/utf-8 -> _pointer))
 (define-libidris2_support idrnet_errno (_fun  -> _int))
-(define-libidris2_support listen (_fun _int _int -> _int))
+(define-libc listen (_fun _int _int -> _int))
 (define-libidris2_support idrnet_socket (_fun _int _int _int -> _int))
 (define-libidris2_support idrnet_sockaddr_ipv4 (_fun _pointer -> _string/utf-8))
 (define-libidris2_support idrnet_sockaddr_family (_fun _pointer -> _int))
@@ -232,7 +231,7 @@
   (blodwen-lock m))
 (define (blodwen-condition-wait-timeout c m t)
   (blodwen-unlock m) ;; consistency with interface for posix condition variables
-  (sync/timeout t c)
+  (sync/timeout (/ t 1000000) c)
   (blodwen-lock m))
 (define (blodwen-condition-signal c)
   (channel-put c 'ready))
@@ -288,10 +287,10 @@
 (define System-prim_getEnv (lambda (farg-0 farg-1) (getenv farg-0)))
 (define System-prim_exit (lambda (farg-0 farg-1) (exit farg-0) (vector 0 )))
 (define System-prim__getArgs (lambda (farg-0) (blodwen-args )))
-(define PrimIO-prim__putStr (lambda (farg-0 farg-1) (idris2_putStr farg-0) (vector 0 )))
+(define Prelude-prim__putStr (lambda (farg-0 farg-1) (idris2_putStr farg-0) (vector 0 )))
+(define Prelude-prim__getString (lambda (farg-0) (idris2_getString farg-0)))
+(define Prelude-prim__getStr (lambda (farg-0) (idris2_getStr )))
 (define PrimIO-prim__nullAnyPtr (lambda (farg-0) (idris2_isNull farg-0)))
-(define PrimIO-prim__getString (lambda (farg-0) (idris2_getString farg-0)))
-(define PrimIO-prim__getStr (lambda (farg-0) (idris2_getStr )))
 (define File-System-prim_fileErrno (lambda (farg-0) (idris2_fileErrno )))
 (define File-System-prim_error (lambda (farg-0 farg-1) (idris2_fileError farg-0)))
 (define File-System-prim__writeLine (lambda (farg-0 farg-1 farg-2) (idris2_writeLine farg-0 farg-1)))
@@ -328,7 +327,6 @@
 (define Buffer-Data-prim__getByte (lambda (farg-0 farg-1 farg-2) (blodwen-buffer-getbyte farg-0 farg-1)))
 (define Buffer-Data-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 Buffer-Data-prim__bufferSize (lambda (farg-0) (blodwen-buffer-size farg-0)))
-(define Commands-IDEMode-Idris-prim__printfHex (lambda (farg-0 farg-1 farg-2 farg-3) (fprintf farg-0 farg-1 farg-2) (vector 0 )))
 (define REPL-IDEMode-Idris-prim__fdopen (lambda (farg-0 farg-1 farg-2) (fdopen farg-0 farg-1)))
 (define Data-Socket-Network-idrnet_errno (lambda (farg-0) (idrnet_errno )))
 (define FFI-Network-socket_listen (lambda (farg-0 farg-1 farg-2) (listen farg-0 farg-1)))
@@ -425,69 +423,73 @@
 (define prim__cast_IntDouble (lambda (arg-0) (exact->inexact arg-0)))
 (define prim__cast_IntegerDouble (lambda (arg-0) (exact->inexact arg-0)))
 (define prim__cast_IntChar (lambda (arg-0) (cast-int-char arg-0)))
-(define Main-case--13577-9572 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
-(define Main-case--13567-9560 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0)))))))))
-(define Main-case--12227-9325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 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))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0))))))))
-(define Main-case--12451-9192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Main-case--12764-8921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn e-2 eta-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 ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))
-(define Main-case--12616-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 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) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (PrimIO-putStrLn e-4 eta-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 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))))))))))
-(define Main-case--12532-8729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--12616-8852 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (CommandLine-Idris-ideSocketModeHostPort arg-0)))))))
-(define Main-case--12451-8671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Main-case--12532-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-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 (Context-Core-showTimeRecord arg-4 eta-0)))))))))))
-(define Main-case--12227-8616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((doRepl 0)) (Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord 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 ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0))))))))))))))))))
-(define Main-case--12227-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (vector 1 arg-13)))))))
-(define Main-case--12135-8425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (Main-updateREPLOpts arg-14 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 (Context-Core-getSession arg-4 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 ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 0)) ((Main-case--12227-8516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) 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 (REPLOpts-Idris-setMainFile arg-14 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 e-10)) (case (vector-ref sc8 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc9 (Prelude-not (let ((sc10 e-8)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc8 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-31 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 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))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-12) eta-1))))))) 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 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 0)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-33 (let ((act-33 (unbox arg-14))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Context-Core-showTimeRecord arg-4 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 ((e-15 (vector-ref sc12 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 doRepl e-14 e-15 (let ((sc13 e-14)) (let ((e-17 (vector-ref sc13 6))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--12011-8348 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 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 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-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 ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (vector 1 (vector 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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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))) (let ((act-28 (Main-updateREPLOpts arg-14 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-9 (vector-ref sc7 1))) (let ((act-29 (Context-Core-getSession arg-4 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-10 (vector-ref sc8 1))) (let ((act-30 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (vector 1 (vector 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-11 (vector-ref sc9 1))) (let ((act-31 (let ((_-0 0)) ((Main-case--12227-8516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) 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 ((e-12 (vector-ref sc10 1))) (let ((act-32 (REPLOpts-Idris-setMainFile arg-14 e-12 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-13 (vector-ref sc11 1))) (let ((act-33 (let ((sc12 e-12)) (case (vector-ref sc12 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc13 (Prelude-not (let ((sc14 e-10)) (let ((e-0 (vector-ref sc14 1))) e-0))))) (cond ((equal? sc13 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc12 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc13 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-14) eta-1))))))) eta-0))))))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-0 0)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-35 (let ((act-35 (unbox arg-14))) (vector 1 act-35)))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 doRepl e-16 e-17 (let ((sc17 e-16)) (let ((e-19 (vector-ref sc17 6))) e-19))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Main-case--12011-8279 (lambda (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)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1))))))
-(define Main-case--12002-8230 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((InitPrimitives-Core-addPrimitives 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 ((act-29 (Context-Core-setWorkingDir e-6 "." 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 (Main-updateEnv e-6 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) 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 ((Main-showInfo e-6 e-12 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Main-updateREPLOpts e-12 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 ((act-38 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((_-1 0)) ((Main-case--12227-8516 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (REPLOpts-Idris-setMainFile e-12 e-21 eta-0))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (let ((sc22 e-21)) (case (vector-ref sc22 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc23 (Prelude-not (let ((sc24 e-19)) (let ((e-0 (vector-ref sc24 1))) e-0))))) (cond ((equal? sc23 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc22 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-42 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-3 (vector-ref sc23 1))) (vector 0 e-3))) (else (let ((e-23 (vector-ref sc23 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-23) eta-1))))))) eta-0))))))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((_-1 0)) (let ((sc24 e-24)) (cond ((equal? sc24 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-44 (let ((act-44 (unbox e-12))) (vector 1 act-44)))) (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 (Context-Core-showTimeRecord e-6 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 ((e-26 (vector-ref sc26 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc27 e-25)) (let ((e-28 (vector-ref sc27 6))) e-28))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11996-8222 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Main-tryTTM 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 ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs 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 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-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 ((act-30 (Context-Core-setWorkingDir e-7 "." 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))) (let ((act-31 (Main-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-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 ((act-33 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Context-Core-getSession e-7 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 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (vector 1 (vector 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 (let ((_-2 0)) ((Main-case--12227-8516 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) 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 ((e-22 (vector-ref sc22 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-13 e-22 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 e-22)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-20)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc25 act-43)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-24) eta-1))))))) eta-0))))))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) 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 ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-13))) (vector 1 act-45)))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-46 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11850-8107 (lambda (arg-0 arg-1 arg-2 arg-3) (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-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6))))))))))
-(define Main-case--11833-8084 (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 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-8057 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0)))))))
-(define Main-case--11377-8022 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7979 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7928 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11552-7846 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-9))) eta-0)))))))
-(define Main-case--11377-7822 (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))) (let ((cg (vector 1 e-1))) (Main-case--11552-7846 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 cg (Options-Core-getCG e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Main-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 (System-getEnv "EDITOR" 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-9 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-8 e-7))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Main-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (System-getEnv "IDRIS2_PREFIX" 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 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) 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 (System-getEnv "IDRIS2_PATH" 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 ((act-27 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (System-getEnv "IDRIS2_DATA" 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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (let ((act-30 (System-getEnv "IDRIS2_LIBS" ext-0))) (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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (let ((act-32 (System-getEnv "IDRIS2_CG" ext-0))) (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 (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((cg (vector 1 e-1))) ((Main-case--11552-7846 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-1 cg (Options-Core-getCG e-1)) ext-0)))) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (SetOptions-Idris-addPkgDir arg-0 "prelude" 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 (SetOptions-Idris-addPkgDir arg-0 "base" 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 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc13 (let ((sc14 (let ((sc15 e-15)) (let ((e-4 (vector-ref sc15 5))) e-4)))) (let ((e-0 (vector-ref sc14 1))) e-0)))) (let ((e-4 (vector-ref sc13 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) 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 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-15)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) 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 (let ((act-39 (Directory-System-currentDir ext-0))) (vector 1 act-39)))) (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 ((sc16 e-20)) (case (vector-ref sc16 0) ((1) (let ((e-1 (vector-ref sc16 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Main-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 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 (vector 1 0))))))))(else (Main-tryYaffle e-3)))))))))))
-(define Main-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-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 (Main-tryTTM e-3)))))))))))
-(define Main-stMain (lambda (arg-0 ext-0) (let ((act-24 ((Main-tryYaffle 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 1) (let ((act-25 ((Main-tryTTM 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 ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-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 ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-30 ((InitPrimitives-Core-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-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 ((e-12 (vector-ref sc9 1))) (let ((act-32 (Main-updateEnv 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) 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 ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Main-showInfo e-8 e-14 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 ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Main-updateREPLOpts e-14 ext-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 (Context-Core-getSession e-8 ext-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 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Main-case--12227-8516 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-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 (REPLOpts-Idris-setMainFile e-14 e-23 ext-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-44 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-25) eta-0))))))) ext-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 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-46 (let ((act-46 (unbox e-14))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-30 (vector-ref sc30 6))) e-30))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))
-(define Main-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((27) (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 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (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 (vector 1 0))))))))))))(else (Main-showInfo arg-0 arg-1 e-3)))))))))))
-(define Main-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (CommandLine-Idris-versionMsg) eta-0))) 1))) ((7) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))) 1))) ((5) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (IdrisPaths-yprefix) eta-0))) 1)))(else (Main-quitOpts e-3)))))))))))
-(define Main-main (lambda (ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Main-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Main-stMain e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (PrimIO-putStrLn e-5 ext-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) ext-0)))))))))
-(define Main-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((14) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Main-findInput e-3)))))))))))
-(define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3)))))))))))
-(define Main-banner (lambda () (Strings-Prelude-C-43C-43 "     ____    __     _         ___                                           \u000a" (Strings-Prelude-C-43C-43 "    /  _/___/ /____(_)____   |__ \\                                          \u000a" (Strings-Prelude-C-43C-43 "    / // __  / ___/ / ___/   __/ /     Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "  _/ // /_/ / /  / (__  )   / __/      https://www.idris-lang.org           \u000a" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/  /_/____/   /____/      Type :? for help                     \u000a" (Strings-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2.  Enjoy yourself!"))))))))))
-(define Main-Yaffle-case--9983-7486 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTC" eta-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 ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 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 ((act-26 (PrimIO-putStrLn "Read TTC" eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTImp" 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 ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-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 ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-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 ((act-27 (Directory-Core-makeBuildDirectory arg-3 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 (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((act-29 (PrimIO-putStrLn "Written TTC" eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTImp" 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 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 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) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-3 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 ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 (PrimIO-putStrLn "Written TTC" eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))
+(define Main-Idris-main (lambda (ext-0) (Driver-Idris-mainWithCodegens (vector 0 ) ext-0)))
+(define Driver-Idris-case--15257-10523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
+(define Driver-Idris-case--15246-10509 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0)))))))))
+(define Driver-Idris-case--13293-10407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 arg-5 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)))))))))))))))))))))))))))))
+(define Driver-Idris-case--13590-10201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 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))) ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))))))) eta-0))))))))
+(define Driver-Idris-case--13955-10054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Driver-Idris-case--14302-9749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))))))))
+(define Driver-Idris-case--14138-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 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) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-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 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))))))))))))))))
+(define Driver-Idris-case--14045-9537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--14138-9673 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (CommandLine-Idris-ideSocketModeAddress arg-0)))))))
+(define Driver-Idris-case--13955-9473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Driver-Idris-case--14045-9537 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 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 (Context-Core-showTimeRecord arg-6 eta-0)))))))))))
+(define Driver-Idris-case--13590-9412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (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 (Context-Core-showTimeRecord 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 ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 6))) e-10))) eta-0))))))))))))))))))
+(define Driver-Idris-case--13590-9300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15)))))))
+(define Driver-Idris-case--13590-9240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 e-2 " ")))))
+(define Driver-Idris-case--13486-9110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 (Driver-Idris-updateREPLOpts arg-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-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 ((act-29 (let ((sc6 (Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-2 (vector-ref sc9 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 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 ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) 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 (REPLOpts-Idris-setMainFile arg-16 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc10 (Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 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 ((e-13 (vector-ref sc10 1))) ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))))))) 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 arg-0) 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 ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (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 (Context-Core-showTimeRecord arg-6 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 ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-20 (vector-ref sc14 6))) e-20))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13293-9023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-6 arg-7 arg-16 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 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-6 arg-16 arg-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 ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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-9 (vector-ref sc7 1))) (let ((act-29 (Driver-Idris-updateREPLOpts arg-16 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-10 (vector-ref sc8 1))) (let ((act-30 (Context-Core-getSession arg-6 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-11 (vector-ref sc9 1))) (let ((act-31 (let ((sc10 (Prelude-not (let ((sc11 e-11)) (let ((e-1 (vector-ref sc11 2))) e-1))))) (cond ((equal? sc10 0) (let ((act-31 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((sc12 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc12 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc13 lamc-0)) (let ((e-2 (vector-ref sc13 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (let ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc11 e-11)) (let ((e-2 (vector-ref sc11 3))) e-2))) 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-13 (vector-ref sc11 1))) (let ((act-33 (REPLOpts-Idris-setMainFile arg-16 e-13 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (let ((sc13 e-13)) (case (vector-ref sc13 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc14 (Prelude-not (let ((sc15 e-11)) (let ((e-0 (vector-ref sc15 1))) e-0))))) (cond ((equal? sc14 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-8 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc13 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-34 (REPL-Idris-loadMainFile arg-6 e-8 arg-7 e-9 arg-16 e-2 eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc14 1))) ((REPL-Idris-displayErrors arg-6 e-8 arg-7 e-9 arg-16 e-15) eta-1))))))) eta-0))))))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((SetOptions-Idris-postOptions arg-6 e-8 arg-7 e-9 arg-16 arg-0) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((_-0 0)) (let ((sc15 e-16)) (cond ((equal? sc15 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-36 (let ((act-36 (unbox arg-16))) (vector 1 act-36)))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Context-Core-showTimeRecord arg-6 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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl e-17 e-18 (let ((sc18 e-17)) (let ((e-22 (vector-ref sc18 6))) e-22))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Driver-Idris-case--13293-8945 (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1))))))
+(define Driver-Idris-case--13293-8866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) arg-5)))))
+(define Driver-Idris-case--13280-8844 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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 (Context-Core-setCG e-6 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased 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 ((InitPrimitives-Core-addPrimitives 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 ((act-29 (Context-Core-setWorkingDir e-6 "." 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 (Driver-Idris-updateEnv e-6 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) 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 ((Driver-Idris-showInfo e-6 e-12 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Driver-Idris-banner) 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 ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc23 lamc-0)) (let ((e-2 (vector-ref sc23 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-31 (vector-ref sc28 6))) e-31))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13272-8833 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM 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 ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs 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 ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (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-27 (vector-ref sc4 6))) (let ((e-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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))) (let ((act-28 (Context-Core-setCG e-7 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) 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 ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-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 ((act-30 (Context-Core-setWorkingDir e-7 "." 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))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-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 ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 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 (Context-Core-getSession e-7 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 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Driver-Idris-banner) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc25 lamc-0)) (let ((e-2 (vector-ref sc25 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) 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 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))))))) 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 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 arg-0) 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 ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-32 (vector-ref sc30 6))) e-32))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13120-8712 (lambda (arg-0 arg-1 arg-2 arg-3) (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-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 arg-2 e-5 e-6 e-7 e-8))))))))))))
+(define Driver-Idris-case--13098-8687 (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 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (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))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-5 e-6 e-7 e-8))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8651 (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) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0)))))))
+(define Driver-Idris-case--12561-8611 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8563 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8507 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12783-8419 (lambda (arg-0 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) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-10))) eta-0)))))))
+(define Driver-Idris-case--12561-8392 (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-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--12783-8419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Driver-Idris-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 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "EDITOR") 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-11 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 6))) (let ((e-9 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-11 e-2 e-3 e-1 e-10 e-9 e-7 e-8))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 )))))))))))))))))
+(define Driver-Idris-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 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PREFIX") 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))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PATH") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_DATA") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_LIBS") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_CG") 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))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--12783-8419 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) 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 (unbox arg-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 (SetOptions-Idris-addPkgDir arg-0 "prelude" 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 (SetOptions-Idris-addPkgDir arg-0 "base" 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 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) 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 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) 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 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-40 (arg-3664 eta-0))) ((arg-3665 act-40) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-40)))) (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 ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Driver-Idris-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((20) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 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 (vector 1 0))))))))(else (Driver-Idris-tryYaffle e-3)))))))))))
+(define Driver-Idris-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((21) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-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 (Driver-Idris-tryTTM e-3)))))))))))
+(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-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 ((Driver-Idris-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 (Context-Core-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 ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (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-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-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 (Context-Core-setCG e-8 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 3 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased 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 ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-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 ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv 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 ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) 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 ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) 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 ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-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 (Driver-Idris-updateREPLOpts e-14 ext-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 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Driver-Idris-banner) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc26 lamc-0)) (let ((e-2 (vector-ref sc26 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 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 ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-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 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc27 (Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 arg-1) ext-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 ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-33 (vector-ref sc31 6))) e-33))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))
+(define Driver-Idris-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((30) (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 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (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 (vector 1 0))))))))))))(else (Driver-Idris-showInfo arg-0 arg-1 e-3)))))))))))
+(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((10) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0))) 1))) ((8) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3)))))))))))
+(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) ext-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) ext-0)))))))))
+(define Driver-Idris-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Driver-Idris-findInput e-3)))))))))))
+(define Driver-Idris-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((13) 0)(else (Driver-Idris-checkVerbose e-3)))))))))))
+(define Driver-Idris-banner (lambda () (Strings-Prelude-C-43C-43 "     ____    __     _         ___                                           \u000a" (Strings-Prelude-C-43C-43 "    /  _/___/ /____(_)____   |__ \\                                          \u000a" (Strings-Prelude-C-43C-43 "    / // __  / ___/ / ___/   __/ /     Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "  _/ // /_/ / /  / (__  )   / __/      https://www.idris-lang.org           \u000a" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/  /_/____/   /____/      Type :? for help                     \u000a" (Strings-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2.  Enjoy yourself!"))))))))))
+(define Main-Yaffle-case--10406-7980 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTC") eta-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 ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 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 ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") 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 ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-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 ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-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 ((act-27 (Directory-Core-makeBuildDirectory arg-3 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 (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") 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 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 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) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-3 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 ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))
 (define Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 ))))
 (define Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 ))))
-(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-0)))))))
-(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (Core-Core-newRef 'erased 'erased (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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-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 (Context-Core-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 ((Main-Yaffle-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 (Context-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-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 ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--9983-7486 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-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 (REPL-Yaffle-repl e-6 e-7 e-8 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-0)))))))
+(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (Core-Core-newRef 'erased 'erased (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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-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 (Context-Core-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 ((Main-Yaffle-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 (Context-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-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 ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--10406-7980 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-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 (REPL-Yaffle-repl e-6 e-7 e-8 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))
 (define Main-Yaffle-usage (lambda () "Usage: yaffle <input file> [--timing]"))
-(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24))))))))
-(define System-case--1782-7109 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector 1 (PrimIO-prim__getString arg-1))))))))
-(define System-system (lambda (arg-0 ext-0) (System-prim_system arg-0 ext-0)))
-(define System-getEnv (lambda (arg-0 ext-0) (let ((act-24 (System-prim_getEnv arg-0 ext-0))) ((System-case--1782-7109 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define System-getArgs (lambda (ext-0) (System-prim__getArgs ext-0)))
-(define System-exitWith (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0)))) (else (let ((e-0 (vector-ref sc0 1))) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0)))))))))
-(define Strings-Data-with--2010-6280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2012-6310 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2012-6310 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9)))))))))))))))
-(define Strings-Data-case--2012-6310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 ))))))
-(define Strings-Data-case--1953-6245 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 ))))))
-(define Strings-Data-case--1866-6140 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3)))))))
-(define Strings-Data-case--1824-6095 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1822-6085-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define Strings-Data-case--1755-6033 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3)))))))
-(define Strings-Data-case--1747-6019 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4)))))))))))
-(define Strings-Data-case--1686-5959 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3)))))))
-(define Strings-Data-case--1681-5946 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1686-5959 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
-(define Strings-Data-n--1668-5930-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1668-5930-toFArgs arg-0 e-3)))))))))
-(define Strings-Data-n--2003-6278-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2010-6280 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
-(define Strings-Data-n--1822-6085-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1824-6095 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
-(define Strings-Data-n--1721-5981-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\  arg-2))))
-(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1681-5946 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0))))
+(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24))))))))
+(define System-case--1881-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-3))))))))))
+(define System-system (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim_system arg-2 eta-0)))))))
+(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim_getEnv arg-2 eta-0)))))) (lambda (env) (System-case--1881-7409 'erased arg-1 arg-2 env (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0))))))))
+(define System-getArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim__getArgs eta-0)))))))
+(define System-exitWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0))))))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0))))))))))))
+(define Strings-Data-with--2055-6529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9)))))))))))))))
+(define Strings-Data-case--2057-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 ))))))
+(define Strings-Data-case--1998-6494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 ))))))
+(define Strings-Data-case--1911-6389 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3)))))))
+(define Strings-Data-case--1869-6344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1867-6334-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define Strings-Data-case--1800-6282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3)))))))
+(define Strings-Data-case--1792-6268 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4)))))))))))
+(define Strings-Data-case--1731-6208 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3)))))))
+(define Strings-Data-case--1726-6195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1731-6208 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
+(define Strings-Data-n--1713-6179-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1713-6179-toFArgs arg-0 e-3)))))))))
+(define Strings-Data-n--2048-6527-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2055-6529 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
+(define Strings-Data-n--1867-6334-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1869-6344 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
+(define Strings-Data-n--1766-6230-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\  arg-2))))
+(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1726-6195 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0))))
 (define Strings-Data-words (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-wordsC-39 (Prelude-unpack arg-0)))))
-(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1721-5981-addSpace arg-0 eta-0 eta-1))) arg-0))))))
+(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1766-6230-addSpace arg-0 eta-0 eta-1))) arg-0))))))
 (define Strings-Data-unwords (lambda (ext-0) (Prelude-pack (Strings-Data-unwordsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0)))))
 (define Strings-Data-unlinesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased e-2 (vector 1 (integer->char 10) (Strings-Data-unlinesC-39 e-3))))))))))
 (define Strings-Data-unlines (lambda (ext-0) (Prelude-pack (Strings-Data-unlinesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0)))))
@@ -497,110 +499,112 @@
 (define Strings-Data-strM (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Builtin-believe_me 'erased 'erased (vector 1 (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0)))))))))
 (define Strings-Data-strIndex (lambda (ext-0 ext-1) (string-ref ext-0 ext-1)))
 (define Strings-Data-split (lambda (arg-0 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (List-Data-split 'erased arg-0 (Prelude-unpack arg-1)))))
-(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1866-6140 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1)))))
+(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1911-6389 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1)))))
 (define Strings-Data-singleton (lambda (arg-0) (Prelude-strCons arg-0 "")))
-(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2003-6278-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2))))
-(define Strings-Data-parseNumWithoutSign (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))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1953-6245 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9)))))))))))
-(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1822-6085-ltrimChars arg-0 (Prelude-unpack arg-0)))))
-(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1747-6019 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0)))))))
+(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2048-6527-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2))))
+(define Strings-Data-parseNumWithoutSign (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))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1998-6494 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9)))))))))))
+(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1867-6334-ltrimChars arg-0 (Prelude-unpack arg-0)))))
+(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1792-6268 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0)))))))
 (define Strings-Data-lines (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-linesC-39 (Prelude-unpack arg-0)))))
-(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
-(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
+(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
+(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
 (define Strings-Data-foldr1 (lambda (arg-0 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1)(else ((arg-1 e-1) (Strings-Data-foldr1 'erased arg-1 e-2))))))))(else (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.foldr1 at Data/Strings.idr:11:1--12:1"))))))
-(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1668-5930-toFArgs arg-0 arg-0)))))))
+(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1713-6179-toFArgs arg-0 arg-0)))))))
 (define Strings-Data-break (lambda (arg-0 ext-0) (Strings-Data-span (lambda (eta-0) (Prelude-not (arg-0 eta-0))) ext-0)))
-(define List-Data-with--4384-5817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq)))))))))
-(define List-Data-with--4384-5759 (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 (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq)))))))))
-(define List-Data-with--4310-5736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4384-5759 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4384-5817 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3)))))))
-(define List-Data-case--3770-5150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1)))))
-(define List-Data-case--3661-5083 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3)))))))
-(define List-Data-case--3558-4936 (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 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4)))))))
-(define List-Data-case--3299-4672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3))))))))
-(define List-Data-case--2657-4076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5)))))
-(define List-Data-case--2359-3792 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7)))))))))))
-(define List-Data-case--2276-3718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3))))))
-(define List-Data-case--2250-3698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2276-3718 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2)))))))
-(define List-Data-case--2142-3579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3)))))))
-(define List-Data-case--2077-3496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2073-3478-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2073-3478-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
-(define List-Data-case--2007-3433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3))))))
-(define List-Data-case--1901-3332 (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-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2))))))
-(define List-Data-case--1870-3308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--1901-3332 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
-(define List-Data-case--1815-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2))))))
-(define List-Data-case--1759-3188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2))))))
-(define List-Data-case--1704-3134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define List-Data-n--3897-5259-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--3897-5259-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--3897-5259-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
-(define List-Data-n--3661-5033-splitRec (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3661-5033-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))
-(define List-Data-n--3661-5034-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3661-5033-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
-(define List-Data-n--2073-3478-nubByC-39 (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2077-3496 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1)))))))))
-(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 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) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4310-5736 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11)))))))))))))
+(define List-Data-with--4578-6063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq)))))))))
+(define List-Data-with--4578-6004 (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 (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq)))))))))
+(define List-Data-with--4503-5981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4578-6004 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4578-6063 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3)))))))
+(define List-Data-case--3961-5390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1)))))
+(define List-Data-case--3852-5323 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3)))))))
+(define List-Data-case--3749-5176 (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 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4)))))))
+(define List-Data-case--3490-4912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3))))))))
+(define List-Data-case--2848-4306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5)))))
+(define List-Data-case--2549-4021 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7)))))))))))
+(define List-Data-case--2466-3947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3))))))
+(define List-Data-case--2440-3927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2466-3947 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2)))))))
+(define List-Data-case--2332-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3)))))))
+(define List-Data-case--2267-3725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2263-3707-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2263-3707-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
+(define List-Data-case--2197-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3))))))
+(define List-Data-case--2091-3561 (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-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2))))))
+(define List-Data-case--2060-3537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--2091-3561 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
+(define List-Data-case--2005-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2))))))
+(define List-Data-case--1949-3417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2))))))
+(define List-Data-case--1894-3363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define List-Data-n--4088-5499-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
+(define List-Data-n--3852-5273-splitRec (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))
+(define List-Data-n--3852-5274-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
+(define List-Data-n--2263-3707-nubByC-39 (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2267-3725 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1)))))))))
+(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 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) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4503-5981 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11)))))))))))))
 (define List-Data-__Impl_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1)))
 (define List-Data-zipWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 ((arg-3 e-1) e-4) (List-Data-zipWith 'erased 'erased 'erased arg-3 e-2 e-5))))))))))))))))
 (define List-Data-zip (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-zipWith 'erased 'erased 'erased (lambda (x) (lambda (y) (vector 0 x y))) ext-0 ext-1)))
-(define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2))))
+(define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2))))
 (define List-Data-union (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-unionBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
-(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--3897-5259-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3)))))))))
+(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--4088-5499-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3)))))))))
 (define List-Data-toList (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (vector 0 )) arg-3))))))
 (define List-Data-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 e-3 (List-Data-take 'erased e-0 e-4)))))))))))))
 (define List-Data-tailC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 e-3)))))))
-(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2359-3792 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2))))
-(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2250-3698 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-sortBy (lambda (arg-0 arg-1 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3661-5083 'erased arg-2 arg-1 (List-Data-n--3661-5034-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3661-5083 'erased arg-2 arg-1 (List-Data-n--3661-5034-split 'erased arg-2 arg-1 arg-2)))))))
+(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2549-4021 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2))))
+(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2440-3927 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-sortBy (lambda (arg-0 arg-1 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2)))))))
 (define List-Data-sort (lambda (arg-0 arg-1 ext-0) (List-Data-sortBy 'erased (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))) ext-0)))
 (define List-Data-reverseOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-reverseOnto 'erased (vector 1 e-2 arg-1) e-3))))))))
 (define List-Data-reverse (lambda (arg-0 ext-0) (List-Data-reverseOnto 'erased (vector 0 ) ext-0)))
 (define List-Data-replicate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (vector 1 arg-2 (List-Data-replicate 'erased e-0 arg-2))))))))
-(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2657-4076 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4)))
-(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2073-3478-nubByC-39 'erased (vector 0 ) ext-0 ext-1)))
+(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2848-4306 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4)))
+(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2263-3707-nubByC-39 'erased (vector 0 ) ext-0 ext-1)))
 (define List-Data-nub (lambda (arg-0 arg-1 ext-0) (List-Data-nubBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0)))
 (define List-Data-mergeReplicate (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-1 (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3))))))))))
-(define List-Data-mergeBy (lambda (arg-0 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)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3558-4936 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
-(define List-Data-mapMaybe (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3299-4672 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2)))))))))
-(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--1901-3332 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5)))))))))))))
+(define List-Data-mergeBy (lambda (arg-0 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)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3749-5176 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
+(define List-Data-mapMaybe (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3490-4912 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2)))))))))
+(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--2091-3561 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5)))))))))))))
 (define List-Data-lookup (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (List-Data-lookupBy 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) ((e-1 arg-3) arg-4))))) ext-0 ext-1)))
 (define List-Data-length (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-3 (vector-ref sc0 2))) (+ 1 (List-Data-length 'erased e-3))))))))
 (define List-Data-lemma_x_neq_xs_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (arg-5 (vector 0 )))))
 (define List-Data-lemma_x_neq_xs_eq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((sc1 arg-7)) (arg-5 (vector 0 ))))))
 (define List-Data-lemma_x_eq_xs_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((sc1 arg-7)) (arg-6 (vector 0 ))))))
 (define List-Data-lemma_val_not_nil (lambda (arg-3 arg-2 arg-1 arg-0) (blodwen-error-quit "No clauses")))
+(define List-Data-lastC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 1 (List-Data-last 'erased arg-1 (vector 0 ))))))))
 (define List-Data-last (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (List-Data-last 'erased (vector 1 e-5 e-6) (vector 0 ))))))))))))
 (define List-Data-isSuffixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-isPrefixOfBy 'erased arg-1 (List-Data-reverse 'erased arg-2) (List-Data-reverse 'erased arg-3))))
 (define List-Data-isSuffixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isSuffixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
-(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3770-5150 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
+(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3961-5390 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
 (define List-Data-isPrefixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isPrefixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
 (define List-Data-isNil (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else 1)))))
 (define List-Data-isCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0)))))
 (define List-Data-intersperse (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3)))))))))
 (define List-Data-init (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-1 (List-Data-init 'erased (vector 1 e-5 e-6) (vector 0 )))))))))))))
-(define List-Data-find (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1815-3243 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-filter (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1759-3188 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2007-3433 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
-(define List-Data-dropWhile (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1704-3134 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-headC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
+(define List-Data-find (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2005-3472 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-filter (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1949-3417 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2197-3662 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
+(define List-Data-dropWhile (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1894-3363 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
 (define List-Data-drop (lambda (arg-0 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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 2))) (List-Data-drop 'erased e-0 e-4)))))))))))
-(define List-Data-deleteBy (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2142-3579 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
+(define List-Data-deleteBy (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2332-3808 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
 (define List-Data-delete (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-deleteBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
 (define List-Data-break (lambda (arg-0 arg-1 arg-2) (List-Data-span 'erased (lambda (eta-0) (Prelude-not (arg-1 eta-0))) arg-2)))
 (define List-Data-appendNilRightNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
 (define List-Data-appendAssociative (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
-(define Equality-Decidable-with--2157-2267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq)))))))))
-(define Equality-Decidable-with--2157-2189 (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 (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq)))))))))
-(define Equality-Decidable-with--2121-2160 (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2157-2189 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2157-2267 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3)))))))
-(define Equality-Decidable-case--2893-2902 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2893-2866-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2893-2867-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2826-2839 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2826-2803-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2826-2804-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2759-2776 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2759-2740-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2759-2741-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2692-2713 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2692-2677-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2692-2678-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-n--2893-2867-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2826-2804-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2759-2741-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2692-2678-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2893-2866-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2826-2803-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2759-2740-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2692-2677-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2893-2902 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2826-2839 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2692-2713 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2759-2776 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1))))
-(define Equality-Decidable-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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2121-2160 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7)))))))))
+(define Equality-Decidable-with--2192-2340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq)))))))))
+(define Equality-Decidable-with--2192-2261 (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 (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq)))))))))
+(define Equality-Decidable-with--2155-2232 (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2192-2261 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2192-2340 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3)))))))
+(define Equality-Decidable-case--2934-2987 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2934-2951-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2934-2952-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2866-2923 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2866-2887-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2866-2888-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2798-2859 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2798-2823-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2798-2824-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2730-2795 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2730-2759-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2730-2760-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-n--2934-2952-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2866-2888-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2798-2824-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2730-2760-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2934-2951-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2866-2887-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2798-2823-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2730-2759-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2934-2987 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2866-2923 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2730-2795 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2798-2859 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1))))
+(define Equality-Decidable-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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2155-2232 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7)))))))))
 (define Equality-Decidable-__Impl_DecEq_String (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__String ext-0 ext-1)))
 (define Equality-Decidable-__Impl_DecEq_Int (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__Int ext-0 ext-1)))
 (define Equality-Decidable-__Impl_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-0 arg-1 arg-2 ext-0 ext-1) (Equality-Decidable-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 'erased 'erased arg-2 ext-0 ext-1)))
@@ -609,69 +613,65 @@
 (define Equality-Decidable-lemma_fst_neq_snd_eq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((sc1 arg-8)) (arg-6 (vector 0 ))))))
 (define Equality-Decidable-lemma_both_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (arg-6 (vector 0 )))))
 (define Equality-Decidable-decEq (lambda (arg-0 arg-1 ext-0 ext-1) ((arg-1 ext-0) ext-1)))
-(define Nat-Data-case--1459-338 (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 (Nat-Data-fromLteSucc 'erased 'erased eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 e-3))))))))
-(define Nat-Data-succNotLTEzero (lambda (arg-1 arg-0) (blodwen-error-quit "No clauses")))
 (define Nat-Data-pred (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) e-0))))))
 (define Nat-Data-plusZeroRightNeutral (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
 (define Nat-Data-plusSuccRightSucc (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
 (define Nat-Data-isSucc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0)))))
-(define Nat-Data-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) (Nat-Data-succNotLTEzero 'erased eta-0))))(else (let ((e-1 (- arg-1 1))) (Nat-Data-case--1459-338 e-0 e-1 (Nat-Data-isLTE e-0 e-1))))))))))))
-(define Nat-Data-fromLteSucc (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) e-2))))
-(define Prelude-case--8701-9384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3)))))))))))))
-(define Prelude-case--8926-9313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 ))))))
-(define Prelude-case--8861-9250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--8926-9313 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2)))))))))))
-(define Prelude-case--8699-9189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--8861-9250 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3))))))))))))
-(define Prelude-case--8733-9122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 )))))))
-(define Prelude-case--8698-9071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--8733-9122 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3)))))))))
-(define Prelude-case--8484-8858 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 )))))))
-(define Prelude-case--8464-8831 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8484-8858 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
-(define Prelude-case--8326-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2))))))))
-(define Prelude-case--8274-8629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2))))))))
-(define Prelude-case--7472-7854 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (x) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-show_Show__Int (char->integer arg-0)) x)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Prelude-case--7325-7832 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (x) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 x))))) (else (Prelude-case--7472-7854 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
-(define Prelude-case--7300-7667 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
-(define Prelude-case--6988-7432 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--6989-7418 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--6822-7242 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0)))))
-(define Prelude-case--6807-7228 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0)))))
-(define Prelude-case--6675-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6673-7105-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1)))))))
-(define Prelude-case--6613-7059 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else "")))))
-(define Prelude-case--6460-6933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4))))))
-(define Prelude-case--5780-6322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6)))))
-(define Prelude-case--5785-6213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Prelude-case--5786-6185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Prelude-case--4443-4670 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--4444-4656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--4358-4557 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
-(define Prelude-case--3242-3290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3242(3290) at Prelude.idr:485:3--491:1"))))))
-(define Prelude-case--3241-3271 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3241(3271) at Prelude.idr:482:3--485:3"))))))
-(define Prelude-case--3215-3241 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0)))))
-(define Prelude-case--3134-3176 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3134(3176) at Prelude.idr:449:3--456:1"))))))
-(define Prelude-case--3133-3157 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3133(3157) at Prelude.idr:446:3--449:3"))))))
-(define Prelude-case--3107-3127 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0)))))
-(define Prelude-case--2500-2788 (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 ((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 Prelude-case--2505-2663 (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 arg-4)))))
-(define Prelude-case--2506-2621 (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 arg-4)))))
-(define Prelude-case--2325-2387 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--2260-2370 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2325-2387 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
-(define Prelude-case--2265-2353 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--2266-2339 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1611-1745 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--1546-1728 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1611-1745 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
-(define Prelude-case--1551-1711 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1552-1697 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1492-1638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--1427-1621 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1492-1638 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
-(define Prelude-case--1432-1604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1433-1590 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1323-1503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1324-1489 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-n--6673-7105-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6675-7115 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
-(define Prelude-n--6660-7094-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6660-7094-toFArgs arg-0 e-3)))))))))
-(define Prelude-n--7730-8097-showC-39 (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7730-8097-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3)))))))))))
-(define Prelude-n--6837-7254-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 )))))))))))))))))))
-(define Prelude-n--7325-7712-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7325-7712-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
-(define Prelude-n--7325-7711-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 )))))))))))))))))))))))))))))))))))
+(define Prelude-case--8976-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3)))))))))))))
+(define Prelude-case--9211-9496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 ))))))
+(define Prelude-case--9144-9431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--9211-9496 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2)))))))))))
+(define Prelude-case--8974-9368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--9144-9431 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3))))))))))))
+(define Prelude-case--9012-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 )))))))
+(define Prelude-case--8973-9246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--9012-9299 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3)))))))))
+(define Prelude-case--8752-9023 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 )))))))
+(define Prelude-case--8728-8995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8752-9023 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
+(define Prelude-case--8590-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2))))))))
+(define Prelude-case--8538-8789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2))))))))
+(define Prelude-case--7521-7802 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-1) (Prelude-isDigit eta-1)) (Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Prelude-case--7373-7779 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 eta-0))))) (else (Prelude-case--7521-7802 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
+(define Prelude-case--7348-7613 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
+(define Prelude-case--7014-7363 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--7015-7349 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--6846-7164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0)))))
+(define Prelude-case--6831-7150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0)))))
+(define Prelude-case--6698-7036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6696-7026-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1)))))))
+(define Prelude-case--6636-6980 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else "")))))
+(define Prelude-case--6482-6857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4))))))
+(define Prelude-case--5784-6270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6)))))
+(define Prelude-case--5789-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Prelude-case--5790-6133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Prelude-case--4410-4612 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--4411-4598 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--4320-4487 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
+(define Prelude-case--3182-3200 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3182(3200) at Prelude.idr:397:3--403:1"))))))
+(define Prelude-case--3181-3181 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3181(3181) at Prelude.idr:394:3--397:3"))))))
+(define Prelude-case--3154-3149 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0)))))
+(define Prelude-case--3066-3078 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3066(3078) at Prelude.idr:361:3--368:1"))))))
+(define Prelude-case--3065-3059 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3065(3059) at Prelude.idr:358:3--361:3"))))))
+(define Prelude-case--3038-3027 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0)))))
+(define Prelude-case--2419-2682 (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 ((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 Prelude-case--2424-2557 (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 arg-4)))))
+(define Prelude-case--2425-2515 (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 arg-4)))))
+(define Prelude-case--2237-2265 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--2165-2248 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2237-2265 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
+(define Prelude-case--2170-2231 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--2171-2217 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1481-1581 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--1409-1564 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1481-1581 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
+(define Prelude-case--1414-1547 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1415-1533 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1355-1467 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--1283-1450 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1355-1467 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
+(define Prelude-case--1288-1433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1289-1419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1172-1325 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1173-1311 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-n--6696-7026-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6698-7036 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
+(define Prelude-n--6683-7015-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6683-7015-toFArgs arg-0 e-3)))))))))
+(define Prelude-n--7794-8062-showC-39 (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3)))))))))))
+(define Prelude-n--6861-7176-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 )))))))))))))))))))
+(define Prelude-n--7373-7659-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7373-7659-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
+(define Prelude-n--7373-7658-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 )))))))))))))))))))))))))))))))))))
 (define Prelude-traverse_Traversable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (vector 1 eta-0 eta-1))))))) (arg-4 e-2))))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased arg-3 arg-4 e-3)))))))))))
 (define Prelude-show_Show__String (lambda (arg-0) (Prelude-strCons #\" ((Prelude-showLitString (Prelude-unpack arg-0)) "\""))))
 (define Prelude-show_Show__Nat (lambda (arg-0) (Prelude-show_Show__Integer arg-0)))
@@ -682,7 +682,7 @@
 (define Prelude-show_Show__Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False")))))
 (define Prelude-show_Show__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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-3))) ")")))))))))
 (define Prelude-show_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 (vector 0 ) arg-2)))
-(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7730-8097-showC-39 'erased arg-1 arg-2 "" arg-2) "]"))))
+(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 "" arg-2) "]"))))
 (define Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 (vector 0 ) arg-3)))
 (define Prelude-showPrec_Show__String (lambda (arg-0 arg-1) (Prelude-show_Show__String arg-1)))
 (define Prelude-showPrec_Show__Nat (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1)))
@@ -696,10 +696,10 @@
 (define Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (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))) (Prelude-showCon arg-3 "Left" (Prelude-showArg 'erased (Builtin-fst 'erased 'erased arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Right" (Prelude-showArg 'erased (Builtin-snd 'erased 'erased arg-2) e-5))))))))
 (define Prelude-rangeFrom_Range__Nat (lambda (arg-0) (Prelude-countFrom 'erased arg-0 (lambda (eta-0) (+ 1 eta-0)))))
 (define Prelude-rangeFrom_Range__C-36a (lambda (arg-0 arg-1 arg-2) (Prelude-countFrom 'erased arg-2 (lambda (arg-3) (let ((sc0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) ((e-1 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-4 (vector-ref sc1 3))) (e-4 1)))) arg-3)))))))
-(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8464-8831 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0))))
-(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8698-9071 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
-(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8701-9384 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
-(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8699-9189 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3)))))))))
+(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8728-8995 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0))))
+(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8973-9246 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
+(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8976-9568 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
+(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8974-9368 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3)))))))))
 (define Prelude-pure_Applicative__Maybe (lambda (arg-0 ext-0) (vector 1 ext-0)))
 (define Prelude-pure_Applicative__List (lambda (arg-0 arg-1) (vector 1 arg-1 (vector 0 ))))
 (define Prelude-pure_Applicative__IO (lambda (arg-0 arg-1 ext-0) arg-1))
@@ -709,29 +709,30 @@
 (define Prelude-negate_Neg__Integer (lambda (arg-0) (- 0 arg-0)))
 (define Prelude-negate_Neg__Int (lambda (arg-0) (b- 0 arg-0 63)))
 (define Prelude-negate_Neg__Double (lambda (arg-0) (- arg-0)))
-(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3134-3176 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
-(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3242-3290 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
-(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2266-2339 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
-(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6989-7418 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1))))
-(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4444-4656 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1))))
-(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1552-1697 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
-(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1433-1590 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
-(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1324-1489 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1))))
-(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2506-2621 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
-(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5786-6185 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
-(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2265-2353 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1))))
-(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6988-7432 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1))))
-(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4443-4670 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1))))
-(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1551-1711 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1))))
-(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1432-1604 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1))))
-(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1323-1503 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1))))
-(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2505-2663 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
-(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5785-6213 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
+(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3066-3078 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
+(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3182-3200 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
+(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2171-2217 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
+(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7015-7349 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1))))
+(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4411-4598 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1))))
+(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1415-1533 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
+(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1289-1419 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
+(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1173-1311 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1))))
+(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2425-2515 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
+(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5790-6133 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
+(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2170-2231 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1))))
+(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7014-7363 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1))))
+(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4410-4612 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1))))
+(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1414-1547 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1))))
+(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1288-1433 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1))))
+(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1172-1325 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1))))
+(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2424-2557 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
+(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5789-6161 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
 (define Prelude-map_Functor__Maybe (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 (arg-2 e-1)))) (else (vector 0 ))))))
 (define Prelude-map_Functor__List (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (arg-2 e-2) (Prelude-map_Functor__List 'erased 'erased arg-2 e-3)))))))))
 (define Prelude-map_Functor__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-3 (arg-3 ext-0))) (arg-2 act-3))))
 (define Prelude-map_Functor__C-40PairC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (arg-3 e-3)))))))
 (define Prelude-map_Functor__C-40EitherC-32C-36eC-41 (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))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (arg-3 e-5))))))))
+(define Prelude-liftIO_HasIO__IO (lambda (arg-0 arg-1) arg-1))
 (define Prelude-join_Monad__Maybe (lambda (arg-0 arg-1) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-1 (lambda (eta-0) eta-0))))
 (define Prelude-join_Monad__IO (lambda (arg-0 arg-1 ext-0) (let ((act-2 (arg-1 ext-0))) (act-2 ext-0))))
 (define Prelude-join_Monad__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) eta-0))))
@@ -741,16 +742,16 @@
 (define Prelude-foldr_Foldable__List (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) ((arg-2 e-2) (Prelude-foldr_Foldable__List 'erased 'erased arg-2 arg-3 e-3)))))))))
 (define Prelude-foldl_Foldable__List (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (Prelude-foldl_Foldable__List 'erased 'erased arg-2 ((arg-2 arg-3) e-2) e-3))))))))
 (define Prelude-empty_Alternative__List (lambda (arg-0) (vector 0 )))
-(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3133-3157 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
-(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3241-3271 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
-(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2260-2370 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
+(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3065-3059 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
+(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3181-3181 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
+(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2165-2248 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
 (define Prelude-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))) (Prelude-compare_Ord__Nat e-0 e-1)))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))
 (define Prelude-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))) (Prelude-compare_Ord__Nat e-0 e-2)))))))))))
-(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1546-1728 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
-(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1427-1621 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
+(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1409-1564 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
+(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1283-1450 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
 (define Prelude-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 Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2500-2788 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6))))))))))))
-(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 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 ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5780-6322 'erased 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 Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2419-2682 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6))))))))))))
+(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 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 ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5784-6270 'erased 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 Prelude-cast_Cast__String_Integer (lambda (ext-0) (cast-string-int ext-0)))
 (define Prelude-cast_Cast__String_Int (lambda (ext-0) (cast-string-int ext-0)))
 (define Prelude-cast_Cast__String_Double (lambda (ext-0) (cast-string-double ext-0)))
@@ -764,13 +765,13 @@
 (define Prelude-cast_Cast__Double_Int (lambda (ext-0) (exact-floor ext-0)))
 (define Prelude-cast_Cast__Char_String (lambda (ext-0) (string ext-0)))
 (define Prelude-cast_Cast__Char_Int (lambda (ext-0) (char->integer ext-0)))
-(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3107-3127 arg-0 (Prelude-C-60_Ord__Integer arg-0 0))))
-(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3215-3241 arg-0 (Prelude-C-60_Ord__Int arg-0 0))))
+(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3038-3027 arg-0 (Prelude-C-60_Ord__Integer arg-0 0))))
+(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3154-3149 arg-0 (Prelude-C-60_Ord__Int arg-0 0))))
 (define Prelude-__Ord_C-40EqC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Monoid_C-40SemigroupC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Monad_C-40ApplicativeC-32mC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Integral_C-40NumC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__List 'erased 'erased func arg-3505))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4432) (lambda (arg-4434) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4432 arg-4434))))))))))
+(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4362) (lambda (arg-4364) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4362 arg-4364))))))))))
 (define Prelude-__Impl_Show_String (lambda () (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x))))))
 (define Prelude-__Impl_Show_Nat (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x))))))
 (define Prelude-__Impl_Show_Integer (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Integer x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Integer d x))))))
@@ -784,49 +785,51 @@
 (define Prelude-__Impl_Semigroup_String (lambda (ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__String ext-0 ext-1)))
 (define Prelude-__Impl_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased ext-0 ext-1)))
 (define Prelude-__Impl_Semigroup_C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased ext-0 ext-1)))
-(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8716) (lambda (arg-8717) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8716 arg-8717))) (lambda (arg-8718) (lambda (arg-8719) (lambda (arg-8720) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8718 arg-8719 arg-8720)))) (lambda (arg-8721) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8721)) (lambda (arg-8722) (lambda (arg-8723) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8722 arg-8723))))))
-(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Prec arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Prec arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Prec arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Prec arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Prec arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Prec arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Prec arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Prec arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Prec arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Nat arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Nat arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Nat arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Nat arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Nat arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Nat arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Nat arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Integer arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Integer arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Integer arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Integer arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Integer arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Integer arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Integer arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980))))))
-(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased arg-2 arg-3 arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased arg-2 arg-3 arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased arg-2 arg-3 arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased arg-2 arg-3 arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased arg-2 arg-3 arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased arg-2 arg-3 arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased arg-2 arg-3 arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-979 arg-980))))))
-(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (Prelude-C-43_Num__Nat arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-42_Num__Nat arg-2851 arg-2852))) (lambda (arg-2853) (Prelude-fromInteger_Num__Nat arg-2853)))))
-(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853))))
-(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853))))
-(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Integer arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Integer arg-2904 arg-2905))))))
-(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905))))))
-(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))))
-(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))))
-(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Prelude-join_Monad__Maybe 'erased arg-3737))))))
-(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (let ((act-17 (arg-3573 eta-0))) (let ((act-16 (arg-3575 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (let ((act-24 (arg-3734 eta-0))) ((arg-3735 act-24) eta-0))))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (let ((act-29 (arg-3737 eta-0))) (act-29 eta-0))))))))
-(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (let ((sc0 arg-3505)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3572) (vector 1 arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (let ((sc0 arg-3573)) (case (vector-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-3575)) (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)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3737))))))
-(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Integer arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Integer arg-3032 arg-3033))))))
-(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033))))))
+(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8876) (lambda (arg-8877) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8876 arg-8877))) (lambda (arg-8878) (lambda (arg-8879) (lambda (arg-8880) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8878 arg-8879 arg-8880)))) (lambda (arg-8881) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8881)) (lambda (arg-8882) (lambda (arg-8883) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8882 arg-8883))))))
+(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Prec arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Prec arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Prec arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Prec arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Prec arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Prec arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Prec arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Nat arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Nat arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Nat arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Nat arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Nat arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Nat arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Nat arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Integer arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Integer arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Integer arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Integer arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Integer arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788))))))
+(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased arg-2 arg-3 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased arg-2 arg-3 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased arg-2 arg-3 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased arg-2 arg-3 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased arg-2 arg-3 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased arg-2 arg-3 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased arg-2 arg-3 arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-787 arg-788))))))
+(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (Prelude-C-43_Num__Nat arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (Prelude-C-42_Num__Nat arg-2745 arg-2746))) (lambda (arg-2747) (Prelude-fromInteger_Num__Nat arg-2747)))))
+(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747))))
+(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747))))
+(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Integer arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Integer arg-2798 arg-2799))))))
+(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799))))))
+(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))))
+(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))))
+(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__Maybe 'erased arg-3667))))))
+(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-29 (arg-3667 eta-0))) (act-29 eta-0))))))))
+(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-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-3505)) (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)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3667))))))
+(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Integer arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Integer arg-2926 arg-2927))))))
+(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927))))))
+(define Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))))
 (define Prelude-__Impl_Functor_Maybe (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__Maybe 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_List (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__List 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_IO (lambda (ext-4 ext-1 ext-2 ext-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased ext-2 ext-3 ext-0)))
 (define Prelude-__Impl_Functor_C-40PairC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_C-40EitherC-32C-36eC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (let ((sc0 ext-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))) (vector 1 (ext-2 e-5))))))))
 (define Prelude-__Impl_Foldable_List (lambda () (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input)))))))))
-(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Prec arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Prec arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Ordering arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Ordering arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651))))))
-(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased arg-2 arg-3 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased arg-2 arg-3 arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
+(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Ordering arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Ordering arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431))))))
+(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased arg-2 arg-3 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased arg-2 arg-3 arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
 (define Prelude-__Impl_Cast_Int_Integer (lambda (ext-0) (Prelude-cast_Cast__Int_Integer ext-0)))
-(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575))))))))
-(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__List 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__List 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3573 arg-3575))))))))
-(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (let ((act-17 (arg-3573 eta-0))) (let ((act-16 (arg-3575 eta-0))) (act-17 act-16)))))))))))
-(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (let ((sc0 arg-3505)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3572) (vector 1 arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (let ((sc0 arg-3573)) (case (vector-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-3575)) (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))))))))))))))))
+(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505))))))))
+(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__List 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3503 arg-3505))))))))
+(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16)))))))))))
+(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-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-3505)) (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))))))))))))))))
+(define Prelude-__HasIO_C-40MonadC-32ioC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Applicative_C-40FunctorC-32fC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-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 Prelude-C-62_Ord__Prec (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Prec arg-0 arg-1) 2)))
@@ -839,7 +842,7 @@
 (define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-61C-61_Eq__Ordering (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5) 2)))
 (define Prelude-C-62_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 2)))
 (define Prelude-C-62C-62C-61_Monad__Maybe (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))) (arg-3 e-2)))))))
-(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2)))
+(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2)))
 (define Prelude-C-62C-62C-61_Monad__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-1 (arg-2 ext-0))) ((arg-3 act-1) ext-0))))
 (define Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 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 Prelude-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)))))
@@ -888,7 +891,7 @@
 (define Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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 Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (List-Prelude-C-43C-43 'erased ext-0 ext-1)))
 (define Prelude-C-60C-42C-62_Applicative__Maybe (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 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 Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2)))
+(define Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2)))
 (define Prelude-C-60C-42C-62_Applicative__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-6 (arg-2 ext-0))) (let ((act-5 (arg-3 ext-0))) (act-6 act-5)))))
 (define Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 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))) (let ((sc1 arg-4)) (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)))))))))))
 (define Prelude-C-47_Fractional__Double (lambda (ext-0 ext-1) (/ ext-0 ext-1)))
@@ -915,24 +918,22 @@
 (define Prelude-C-42_Num__Int (lambda (ext-0 ext-1) (b* ext-0 ext-1 63)))
 (define Prelude-C-42_Num__Double (lambda (ext-0 ext-1) (* ext-0 ext-1)))
 (define Prelude-C-124C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0) (else (arg-1))))))
-(define Prelude-unpack (lambda (arg-0) (Prelude-n--6673-7105-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0)))
-(define Prelude-uncurry (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-3 e-2) e-3))))))
+(define Prelude-unpack (lambda (arg-0) (Prelude-n--6696-7026-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0)))
 (define Prelude-traverse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-6) (lambda (arg-7) ((((((e-3 'erased) 'erased) 'erased) arg-4) arg-6) arg-7)))))))
-(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6807-7228 arg-0 (Prelude-isLower arg-0))))
-(define Prelude-toLower (lambda (arg-0) (Prelude-case--6822-7242 arg-0 (Prelude-isUpper arg-0))))
-(define Prelude-the (lambda (arg-0 arg-1) arg-1))
+(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6831-7150 arg-0 (Prelude-isLower arg-0))))
+(define Prelude-toLower (lambda (arg-0) (Prelude-case--6846-7164 arg-0 (Prelude-isUpper arg-0))))
 (define Prelude-tan (lambda (arg-0) (tan arg-0)))
-(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8274-8629 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
-(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8326-8680 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
+(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8538-8789 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
+(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8590-8840 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
 (define Prelude-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Prelude-take 'erased e-0 (e-3))))))))))))
-(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6613-7059 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2)))))
+(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6636-6980 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2)))))
 (define Prelude-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1)))
 (define Prelude-sqrt (lambda (arg-0) (sqrt arg-0)))
 (define Prelude-sin (lambda (arg-0) (sin arg-0)))
 (define Prelude-showPrec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 ")")))))))
-(define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (x) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) x))))(else (lambda (x) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) x)))))))))))))
-(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7325-7832 arg-0 (Prelude-n--7325-7712-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7325-7711-asciiTab arg-0))))))))
+(define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) eta-0))))(else (lambda (eta-0) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) eta-0)))))))))))))
+(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7373-7779 arg-0 (Prelude-n--7373-7659-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7373-7658-asciiTab arg-0))))))))
 (define Prelude-showCon (lambda (arg-0 arg-1 arg-2) (Prelude-showParens (Prelude-C-62C-61_Ord__Prec arg-0 (vector 6 )) (Strings-Prelude-C-43C-43 arg-1 arg-2))))
 (define Prelude-showArg (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 " " (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 (vector 6 )) arg-2))))))
 (define Prelude-show (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
@@ -941,10 +942,13 @@
 (define Prelude-reverse (lambda (ext-0) (string-reverse ext-0)))
 (define Prelude-rangeFromTo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Prelude-rangeFrom (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2))))))
+(define Prelude-putStrLn (lambda (arg-0 arg-1 arg-2) (Prelude-putStr 'erased arg-1 (string-append arg-2 "\u000a"))))
+(define Prelude-putStr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__putStr arg-2 eta-0)))))))
 (define Prelude-pure (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) ((e-2 'erased) arg-3))))))
-(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7300-7667 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2))))
-(define Prelude-printLn (lambda (arg-0 arg-1 arg-2 ext-0) (PrimIO-putStrLn (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-2))) ext-0)))
+(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7348-7613 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2))))
+(define Prelude-printLn (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-putStrLn 'erased (Builtin-fst 'erased 'erased arg-2) (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-3))))))
 (define Prelude-primNumShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((str (arg-1 arg-3))) (Prelude-showParens (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Prec arg-2 (vector 5 )) (lambda () (Prelude-firstCharIs (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 #\-)) str))) str))))
+(define Prelude-primIO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) arg-3)))))
 (define Prelude-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 Prelude-plus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (+ 1 (+ e-0 arg-1))))))))
 (define Prelude-pack (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-strCons e-2 (Prelude-pack e-3)))))))))
@@ -961,35 +965,34 @@
 (define Prelude-mapFst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (arg-3 e-2) e-3))))))
 (define Prelude-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1) ((((arg-3 'erased) 'erased) ext-0) ext-1)))
 (define Prelude-log (lambda (arg-0) (log arg-0)))
+(define Prelude-liftIO (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) ((e-2 'erased) arg-3))))))
 (define Prelude-length (lambda (arg-0) (Prelude-fromInteger_Num__Nat (string-length arg-0))))
 (define Prelude-isUpper (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\A) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\Z)))))
 (define Prelude-isSpace (lambda (arg-0) (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 #\ ) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 9)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 12)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 11)) (lambda () (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 160))))))))))))))))
 (define Prelude-isOctDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\7)))))
 (define Prelude-isNL (lambda (arg-0) (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10))))))
 (define Prelude-isLower (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\a) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\z)))))
-(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-toUpper arg-0) (Prelude-n--6837-7254-hexChars arg-0))))
+(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-toUpper arg-0) (Prelude-n--6861-7176-hexChars arg-0))))
 (define Prelude-isDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\9)))))
 (define Prelude-isAlphaNum (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isDigit arg-0) (lambda () (Prelude-isAlpha arg-0)))))
 (define Prelude-isAlpha (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isUpper arg-0) (lambda () (Prelude-isLower arg-0)))))
-(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4358-4557 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))))
+(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4320-4487 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))))
 (define Prelude-intToBool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0)))))
-(define Prelude-id (lambda (arg-0 arg-1) arg-1))
+(define Prelude-getLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__getStr eta-0)))))))
 (define Prelude-fromInteger (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2))))))
 (define Prelude-foldr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 'erased) 'erased) arg-4) arg-5) arg-6))))))))
 (define Prelude-foldl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 'erased) 'erased) arg-4) arg-5) arg-6))))))))
 (define Prelude-floor (lambda (arg-0) (floor arg-0)))
-(define Prelude-flip (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4)))
 (define Prelude-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0)))))))
-(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6660-7094-toFArgs arg-0 arg-0)))))))
+(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6683-7015-toFArgs arg-0 arg-0)))))))
 (define Prelude-exp (lambda (arg-0) (exp arg-0)))
-(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6460-6933 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2)))))))))))
+(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6482-6857 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2)))))))))))
 (define Prelude-either (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))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-4) e-5)))))))
 (define Prelude-div (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
-(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853))))
+(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747))))
 (define Prelude-countFrom (lambda (arg-0 arg-1 arg-2) (vector 0 arg-1 (lambda () (Prelude-countFrom 'erased (arg-2 arg-1) arg-2)))))
 (define Prelude-cos (lambda (arg-0) (cos arg-0)))
-(define Prelude-const (lambda (arg-0 arg-1 arg-2 ext-0) arg-2))
-(define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (x) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 x)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5))))))
+(define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 eta-0)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5))))))
 (define Prelude-concat (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (((((e-1 'erased) 'erased) (lambda (arg-4) (lambda (arg-5) (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc1 1))) ((e-4 arg-4) arg-5)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-3))))))
 (define Prelude-compare (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-chr (lambda (ext-0) (cast-int-char ext-0)))
@@ -1010,29 +1013,18 @@
 (define Prelude-C-60C-36C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((((arg-3 'erased) 'erased) arg-4) arg-5)))
 (define Prelude-C-60 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Prelude-C-47C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
-(define Prelude-C-46 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (arg-3 (arg-4 ext-0))))
 (define Prelude-C-45 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Strings-Prelude-C-43C-43 (lambda (arg-0 arg-1) (string-append arg-0 arg-1)))
 (define List-Prelude-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2)))))))))
 (define Prelude-C-43 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Prelude-C-42 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-C-38C-38 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else 1)))))
-(define PrimIO-case--433-454 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
-(define PrimIO-case--270-326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
-(define PrimIO-case--253-304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--270-326 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5))))
-(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--433-454 'erased arg-1 'erased (arg-1 w))))))
-(define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2))
-(define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f)))
-(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
-(define PrimIO-putStrLn (lambda (arg-0 ext-0) (PrimIO-putStr (string-append arg-0 "\u000a") ext-0)))
-(define PrimIO-putStr (lambda (arg-0 ext-0) (PrimIO-prim__putStr arg-0 ext-0)))
-(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
-(define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1))))
-(define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0)))
-(define PrimIO-primIO (lambda (arg-0 arg-1) arg-1))
-(define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1))
-(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--253-304 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0))))
-(define PrimIO-getLine (lambda (ext-0) (PrimIO-prim__getStr ext-0)))
+(define Basics-Prelude-uncurry (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-3 e-2) e-3))))))
+(define Basics-Prelude-the (lambda (arg-0 arg-1) arg-1))
+(define Basics-Prelude-id (lambda (arg-0 arg-1) arg-1))
+(define Basics-Prelude-flip (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4)))
+(define Basics-Prelude-const (lambda (arg-0 arg-1 arg-2 ext-0) arg-2))
+(define Basics-Prelude-C-46 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (arg-3 (arg-4 ext-0))))
 (define Builtin-sym (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 )))
 (define DPair-DPair-Builtin-snd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
 (define Builtin-snd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
@@ -1042,107 +1034,131 @@
 (define Builtin-believe_me (lambda (arg-0 arg-1 ext-0) ext-0))
 (define Builtin-assert_total (lambda (arg-0 arg-1) arg-1))
 (define Builtin-assert_smaller (lambda (arg-0 arg-1 arg-2 arg-3) arg-3))
+(define PrimIO-case--389-413 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
+(define PrimIO-case--276-337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
+(define PrimIO-case--258-315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--276-337 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5))))
+(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--389-413 'erased 'erased 'erased (arg-1 w))))))
+(define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2))
+(define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f)))
+(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
+(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
+(define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1))))
+(define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0)))
+(define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1))
+(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--258-315 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0))))
+(define PrimIO-fromPrim (lambda (arg-0 arg-1) arg-1))
+(define Maybe-Data-toMaybe (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (arg-2))) (else (vector 0 ))))))
 (define Maybe-Data-isJust (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0)))))
 (define Maybe-Data-fromMaybe (lambda (arg-0 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 REPL-Yaffle-case--12634-1531 (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) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-Yaffle-case--12613-1481 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Prelude-printLn 'erased (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x)))) e-2 eta-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 (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 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-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))
-(define REPL-Yaffle-case--11475-1344 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn 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 ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--12315-1247 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9))))))))
-(define REPL-Yaffle-case--12259-1183 (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))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0)))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered") eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11475-1132 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((bind-0 arg-5)) ((REPL-Yaffle-case--12259-1183 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--12029-975 (lambda (arg-0 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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed" eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11977-922 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9)) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11475-875 (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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (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))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9)) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-25))))))) (else (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (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) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--11475-741 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) 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-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-12 eta-1))) (vector 1 act-28))))))))) e-9) eta-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 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define REPL-Yaffle-case--11475-614 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 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-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 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-12 (vector-ref sc7 1))) (let ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-12 eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define REPL-Yaffle-case--11475-549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) 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 ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))))
-(define REPL-Yaffle-case--11475-412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) 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 ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-7 eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))
-(define REPL-Yaffle-n--11475-463-printName (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-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 ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (vector 1 act-27)))))))))))))))))))))))))
-(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a"))))))) eta-0))) (vector 1 act-24))))))))))
-(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (PrimIO-putStr "Yaffle> " 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 (let ((act-25 (PrimIO-getLine 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))) ((REPL-Yaffle-case--12613-1481 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0)))))))))))))
-(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Core-Core-show_Show__Error err) 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 (vector 1 0))))))) ext-0)))
-(define REPL-Yaffle-process (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))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 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)) (let ((e-2 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (vector 1 act-28))))))))) (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))) (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 (Context-Core-lookupTyName e-10 (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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11475-463-printName e-9 e-10 arg-2 arg-1 arg-0 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 (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 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)) (let ((e-3 (vector-ref sc2 2))) (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 ((Normalise-Core-getTerm 'erased e-3) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-9 eta-0))) (vector 1 act-29))))))))) (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))) (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 (Context-Core-lookupTyName e-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-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 ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) 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-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 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-13 eta-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))) (let ((act-30 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-14 eta-0))) (vector 1 act-30))))))))) (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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (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 (Context-Core-lookupTyName 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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) 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-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) d eta-1))) (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))) (let ((act-30 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-14 eta-1))) (vector 1 act-30))))))))) e-13) eta-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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (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-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 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-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 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (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-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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (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)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11)) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-27))))))) (else (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (vector 1 act-27)))))))))))) (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 (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (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 0)))))))))))))))))))))) ((5) (let ((e-6 (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 ((Context-Core-lookupCtxtName e-6 (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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12259-1183 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (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 ((Context-Core-lookupCtxtName e-7 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn 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 ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-9 (vector-ref sc4 1))) (let ((act-28 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (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 ((Context-Core-lookupCtxtName 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo 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 (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Bye for now!" 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 (vector 1 1)))))))))))
-(define Source-Parser-case--2587-355 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
+(define REPL-Yaffle-case--13213-1648 (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) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Yaffle-case--13184-1592 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-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 (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 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-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))
+(define REPL-Yaffle-case--11953-1432 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn 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 ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--12866-1332 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9))))))))
+(define REPL-Yaffle-case--12807-1266 (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))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--11953-1212 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((bind-0 arg-5)) ((REPL-Yaffle-case--12807-1266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--12561-1042 (lambda (arg-0 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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--12507-986 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--11953-937 (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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (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))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (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) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--11953-790 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) 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-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-12) eta-1))) (vector 1 act-28))))))))) e-9) eta-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 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define REPL-Yaffle-case--11953-652 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 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-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 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-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define REPL-Yaffle-case--11953-576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) 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 ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))))
+(define REPL-Yaffle-case--11953-423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) 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 ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))
+(define REPL-Yaffle-n--11953-482-printName (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-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 ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27)))))))))))))))))))))))))
+(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24))))))))))
+(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Yaffle> ") 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 (let ((act-25 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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))) ((REPL-Yaffle-case--13184-1592 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0)))))))))))))
+(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Core-Core-show_Show__Error err)) 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 (vector 1 0))))))) ext-0)))
+(define REPL-Yaffle-process (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))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 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)) (let ((e-2 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (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))) (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 (Context-Core-lookupTyName e-10 (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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11953-482-printName e-9 e-10 arg-2 arg-1 arg-0 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 (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 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)) (let ((e-3 (vector-ref sc2 2))) (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 ((Normalise-Core-getTerm 'erased e-3) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (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))) (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 (Context-Core-lookupTyName e-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-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 ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) 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-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 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-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))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-30 (arg-3664 eta-1))) ((arg-3665 act-30) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (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 (Context-Core-lookupTyName 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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) 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-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (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))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-14) eta-1))) (vector 1 act-30))))))))) e-13) eta-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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (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-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 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-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 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (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-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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (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)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16)) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-27 (arg-3664 eta-2))) ((arg-3665 act-27) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (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 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (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 0)))))))))))))))))))))) ((5) (let ((e-6 (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 ((Context-Core-lookupCtxtName e-6 (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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12807-1266 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (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 ((Context-Core-lookupCtxtName e-7 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn 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 ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-9 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (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 ((Context-Core-lookupCtxtName 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo 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 (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Bye for now!") 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 (vector 1 1)))))))))))
+(define Source-Parser-case--2688-370 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
 (define Source-Parser-runParserTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 3 eta-0)) (Unlit-Parser-unlit arg-2 arg-4)) (lambda (str) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Source-Lexer-Parser-lexTo arg-3 str)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-5 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))))
 (define Source-Parser-runParser (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Source-Parser-runParserTo 'erased arg-1 arg-2 (lambda (eta-0) 1) ext-0 ext-1)))
-(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
+(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
 (define Either-Utils-mapError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-either 'erased 'erased 'erased (lambda () (lambda (eta-0) (vector 0 (arg-3 eta-0)))) (lambda () (lambda (eta-0) (vector 1 eta-0))) arg-4)))
-(define File-System-case--2751-8004 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2571-7844 (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)) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-2 eta-0))) (vector 1 (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-2 eta-0))) (vector 0 e-5)))))))))
-(define File-System-case--2559-7826 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-fPutStr e-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 0 e-5)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define File-System-case--2484-7764 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (vector 1 (Strings-Data-fastAppend e-2)))))) (else (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (File-System-returnError 'erased eta-0))))))))
-(define File-System-case--2396-7745 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-n--2396-7667-read arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 (Strings-Data-fastAppend e-3))))) (else (let ((act-25 (File-System-closeFile e-2 eta-0))) (File-System-returnError 'erased eta-0))))))))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2408-7708 (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))) (lambda (eta-0) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0)))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2398-7678 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-2)))) (else (lambda (eta-0) (let ((act-24 (File-System-fGetLine arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0))) (else (File-System-returnError 'erased eta-0)))))))))))
-(define File-System-case--2346-7634 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased arg-1 eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2315-7604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2251-7544 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased arg-1 eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2099-7402 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0)))))))
-(define File-System-case--2053-7364 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (Prelude-cast_Cast__Int_Char arg-1) eta-0)))))))
-(define File-System-case--1981-7290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
-(define File-System-case--1920-7232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased arg-2 eta-0)))))))
-(define File-System-case--1793-7111 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (vector 1 )))) ((equal? sc0 1) (lambda (eta-0) (vector 0 (vector 2 )))) ((equal? sc0 2) (lambda (eta-0) (vector 0 (vector 3 )))) ((equal? sc0 3) (lambda (eta-0) (vector 0 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (vector 0 (vector 5 ))))(else (lambda (eta-0) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5)))))))))
-(define File-System-n--2396-7667-read (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-fEOF arg-2 ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 1 (List-Data-reverse 'erased arg-1))) (else (let ((act-25 (File-System-fGetLine arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-1) arg-2 ext-0))) (else (File-System-returnError 'erased ext-0)))))))))))
+(define File-System-case--3371-1833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--3147-1627 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1651) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1692) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5))))))))))))))
+(define File-System-case--3126-1599 (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 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-2 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-7 (vector-ref sc4 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1651) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1692) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-5)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5))))))))))
+(define File-System-case--3014-1493 (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 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1515) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 (Strings-Data-fastAppend e-2))))))))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1))))))))))
+(define File-System-case--2883-1469 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1515) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2904-1415 (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-2 (vector-ref sc0 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2890-1366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))))))))))
+(define File-System-case--2797-1282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2741-1225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2631-1115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2365-845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (vector 0 )))))))
+(define File-System-case--2292-782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-cast_Cast__Int_Char arg-3)))))))
+(define File-System-case--2174-654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3)))))))
+(define File-System-case--2070-547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 arg-4))))))
+(define File-System-case--1874-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5)))))))))))
+(define File-System-case--1836-322 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+")))))
+(define File-System-case--1836-316 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+")))))
+(define File-System-case--1836-310 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+")))))
+(define File-System-case--1836-304 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a")))))
+(define File-System-case--1836-298 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w")))))
+(define File-System-case--1836-292 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r")))))
+(define File-System-n--2883-1351-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1)))))))))))))))))
 (define File-System-show_Show__FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (Prelude-show_Show__Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists")))))
 (define File-System-showPrec_Show__FileError (lambda (arg-0 arg-1) (File-System-show_Show__FileError arg-1)))
 (define File-System-__Impl_Show_FileError (lambda () (vector 0 (lambda (x) (File-System-show_Show__FileError x)) (lambda (d) (lambda (x) (File-System-showPrec_Show__FileError d x))))))
-(define File-System-writeFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 1 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-fPutStr e-2 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define File-System-writeFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-4 arg-3)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-10 (vector-ref sc5 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1651) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1692) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-8)))))))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5))))))))))))))
 (define File-System-stdout (lambda () (File-System-prim__stdout)))
 (define File-System-stdin (lambda () (File-System-prim__stdin)))
-(define File-System-returnError (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim_fileErrno ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 0 (vector 1 ))) ((equal? sc0 1) (vector 0 (vector 2 ))) ((equal? sc0 2) (vector 0 (vector 3 ))) ((equal? sc0 3) (vector 0 (vector 4 ))) ((equal? sc0 4) (vector 0 (vector 5 )))(else (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-24 5)))))))))
-(define File-System-removeFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__removeFile arg-0 ext-0))) ((File-System-case--2315-7604 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define File-System-readFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-n--2396-7667-read arg-0 (vector 0 ) e-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 (Strings-Data-fastAppend e-3))))) (else (let ((act-26 (File-System-closeFile e-2 ext-0))) (File-System-returnError 'erased ext-0)))))))) (else (File-System-returnError 'erased ext-0)))))))
-(define File-System-openFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__open arg-0 (File-System-modeStr arg-1) 0 ext-0))) ((File-System-case--1920-7232 arg-1 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-24) 0)) ext-0))))
-(define File-System-ok (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "rb") ((1) "wb") ((2) "ab") ((3) "rb+") ((4) "wb+") (else "ab+")))))
-(define File-System-fileSize (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__fileSize arg-0 ext-0))) ((File-System-case--2346-7634 arg-0 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
-(define File-System-fileModifiedTime (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__fileModifiedTime arg-0 ext-0))) ((File-System-case--2251-7544 arg-0 act-24 (Prelude-C-62_Ord__Int act-24 0)) ext-0))))
-(define File-System-fileError (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim_error arg-0 ext-0))) (Prelude-C-47C-61_Eq__Int act-24 0))))
-(define File-System-fflush (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__flush arg-0 ext-0))) (vector 0 ))))
-(define File-System-fPutStr (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__writeLine arg-0 arg-1 ext-0))) ((File-System-case--2099-7402 arg-0 arg-1 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define File-System-fGetLine (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__readLine arg-0 ext-0))) ((File-System-case--1981-7290 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define File-System-fGetChar (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__readChar arg-0 ext-0))) (let ((act-25 (File-System-prim_error arg-0 ext-0))) ((File-System-case--2053-7364 arg-0 act-24 act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0)))))
-(define File-System-fEOF (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__eof arg-0 ext-0))) (Prelude-C-47C-61_Eq__Int act-24 0))))
-(define File-System-closeFile (lambda (arg-0 ext-0) (File-System-prim__close arg-0 ext-0)))
-(define File-System-chmodRaw (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__chmod arg-0 arg-1 ext-0))) ((File-System-case--2751-8004 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define Unlit-Parser-case--1675-7241 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0))))))
-(define Unlit-Parser-case--1651-7216 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1675-7241 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1675-7241 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
-(define Unlit-Parser-case--1647-7195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1651-7216 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1651-7216 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
-(define Unlit-Parser-case--1617-7179 (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 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
-(define Unlit-Parser-case--1587-7164 (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 (Unlit-Parser-case--1617-7179 arg-0 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
-(define Unlit-Parser-case--1590-7147 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define Unlit-Parser-n--1587-7136-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1590-7147 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1587-7135-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
-(define Unlit-Parser-n--1587-7135-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0)))
+(define File-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5)))))))))))))))
+(define File-System-removeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__removeFile arg-2 eta-0)))))) (lambda (res) (File-System-case--2741-1225 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1515) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1))))))))))
+(define File-System-openFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__open arg-2 (File-System-modeStr arg-3) 0 eta-0)))))) (lambda (res) (File-System-case--2070-547 'erased arg-1 arg-3 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0))))))))
+(define File-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3))))))
+(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (File-System-case--1836-292 (Info-System-isWindows))) ((1) (File-System-case--1836-298 (Info-System-isWindows))) ((2) (File-System-case--1836-304 (Info-System-isWindows))) ((3) (File-System-case--1836-310 (Info-System-isWindows))) ((4) (File-System-case--1836-316 (Info-System-isWindows))) (else (File-System-case--1836-322 (Info-System-isWindows)))))))
+(define File-System-fileSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileSize arg-2 eta-0)))))) (lambda (res) (File-System-case--2797-1282 'erased arg-1 arg-2 res (Prelude-C-62C-61_Ord__Int res 0))))))))
+(define File-System-fileModifiedTime (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileModifiedTime arg-2 eta-0)))))) (lambda (res) (File-System-case--2631-1115 'erased arg-1 arg-2 res (Prelude-C-62_Ord__Int res 0))))))))
+(define File-System-fileError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (x) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int x 0))))))))))
+(define File-System-fflush (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__flush arg-2 eta-0)))))) (lambda (_-938) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 ))))))))))
+(define File-System-fPutStr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__writeLine arg-2 arg-3 eta-0)))))) (lambda (res) (File-System-case--2365-845 'erased arg-1 arg-2 arg-3 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define File-System-fGetLine (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readLine arg-2 eta-0)))))) (lambda (res) (File-System-case--2174-654 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define File-System-fGetChar (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readChar arg-2 eta-0)))))) (lambda (c) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (ferr) (File-System-case--2292-782 'erased arg-1 arg-2 c ferr (Prelude-C-47C-61_Eq__Int ferr 0))))))))))))
+(define File-System-fEOF (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__eof arg-2 eta-0)))))) (lambda (res) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int res 0))))))))))
+(define File-System-closeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (File-System-prim__close arg-2 eta-0)))))))
+(define File-System-chmodRaw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__chmod arg-2 arg-3 eta-0)))))) (lambda (ok) (File-System-case--3371-1833 'erased arg-1 arg-3 arg-2 ok (Prelude-C-61C-61_Eq__Int ok 0))))))))
+(define Info-System-prim__os (lambda () (blodwen-os)))
+(define Info-System-os (lambda () (blodwen-os)))
+(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
+(define Unlit-Parser-case--1705-7506 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0))))))
+(define Unlit-Parser-case--1681-7481 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
+(define Unlit-Parser-case--1677-7460 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
+(define Unlit-Parser-case--1647-7444 (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 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
+(define Unlit-Parser-case--1617-7429 (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 (Unlit-Parser-case--1647-7444 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
+(define Unlit-Parser-case--1620-7412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define Unlit-Parser-n--1617-7401-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1620-7412 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1617-7400-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
+(define Unlit-Parser-n--1617-7400-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0)))
 (define Unlit-Parser-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))) (Literate-Text-unlit e-2 arg-1)))))))
 (define Unlit-Parser-styleOrg (lambda () (vector 0 (vector 1 (vector 0 "#+BEGIN_SRC idris" "#+END_SRC") (vector 1 (vector 0 "#+begin_src idris" "#+end_src") (vector 1 (vector 0 "#+COMMENT idris" "#+END_COMMENT") (vector 1 (vector 0 "#+comment idris" "#+end_comment") (vector 0 ))))) (vector 1 "#+IDRIS:" (vector 0 )) (vector 1 ".org" (vector 0 )))))
-(define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 0 )))))
+(define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 1 ".markdown" (vector 0 ))))))
 (define Unlit-Parser-styleBird (lambda () (vector 0 (vector 0 ) (vector 1 ">" (vector 1 "<" (vector 0 ))) (vector 1 ".lidr" (vector 0 )))))
 (define Unlit-Parser-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))) (Strings-Data-unwords (vector 1 e-2 (vector 1 arg-1 (vector 0 ))))))))))
-(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1647-7195 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
-(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1587-7164 arg-0 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleBird)))))
-(define Literate-Text-with--2445-7416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 2))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-11) e-12))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2)))))))))
-(define Literate-Text-with--2226-7262 (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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-6 arg-5))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Data-unlines e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Data-unlines e-2)))))))))))
-(define Literate-Text-with--2137-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2226-7262 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 e-2 arg-7 arg-6 arg-5 arg-4 arg-0))))))))
-(define Literate-Text-case--2372-7355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 "")))(else (vector 0 (vector 0 e-6 e-10 e-11))))))))))))))))
-(define Literate-Text-case--2152-7187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-2)) "\u000a"))) (else "")))))
-(define Literate-Text-case--2087-7154 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))))
-(define Literate-Text-n--2137-7181-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Literate-Text-case--2152-7187 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (integer->char 10) (Prelude-unpack arg-2)))))
-(define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-is (integer->char 10)) (Lexer-Text-any))))
+(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1677-7460 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
+(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1617-7429 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleBird)))))
+(define Literate-Text-with--2565-7737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 5))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((2) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-13) e-14))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2)))))))))
+(define Literate-Text-with--2324-7569 (lambda (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-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-8 arg-7))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-8 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-7))))))))))
+(define Literate-Text-with--2206-7546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-8 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2324-7569 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 e-2 arg-9 arg-8 arg-7 arg-6 arg-0))))))))
+(define Literate-Text-case--2490-7674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11))))))))))))))))
+(define Literate-Text-case--2206-7487 (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) (Literate-Text-reduce arg-6 (vector 1 "\u000a" arg-7))) (else (Literate-Text-reduce arg-6 (vector 1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length arg-5) (+ 1 0)) (Prelude-length arg-4) arg-4) arg-7)))))))
+(define Literate-Text-case--2156-7427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))))
+(define Literate-Text-n--2206-7460-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-4)) "\u000a"))))
+(define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-newline) (Lexer-Text-any))))
 (define Literate-Text-unlit (lambda (ext-0 ext-1) (Literate-Text-extractCode ext-0 ext-1)))
-(define Literate-Text-reduce (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))) (let ((e-3 (vector-ref sc0 2))) (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-7)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Literate-Text-n--2137-7181-blank_content e-5 e-6 e-8 e-3 arg-1))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length e-9) (+ 1 0)) (Prelude-length e-10) e-10)))))) (else (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Literate-Text-with--2137-7247 e-13 (Strings-Data-lines e-13) e-5 e-6 e-12 e-11 e-3 arg-1))))))))))))))))))
-(define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 1 eta-0))) (vector 0 ))))))
-(define Literate-Text-line (lambda (arg-0) (vector 4 (vector 4 (Lexer-Text-exact arg-0) (lambda () (Lexer-Text-space))) (lambda () (Literate-Text-untilEOL)))))
-(define Literate-Text-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))) (Literate-Text-with--2445-7416 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2)))))))
+(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Data-fastAppend (List-Data-reverse 'erased arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2206-7460-blank_content e-5 e-6 e-7 e-8 e-10 e-3 arg-1) arg-1)))) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (Literate-Text-case--2206-7487 e-5 e-6 e-7 e-8 e-12 e-11 e-3 arg-1 (Prelude-C-61C-61_Eq__String e-11 (Strings-Data-trim e-12)))))) (else (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (Literate-Text-with--2206-7546 e-15 (Strings-Data-lines e-15) e-5 e-6 e-7 e-8 e-14 e-13 e-3 arg-1))))))))))))))))))))
+(define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Literate-Text-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) (vector 0 ))))))
+(define Literate-Text-notCodeLine (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-any) (lambda () (Literate-Text-untilEOL))))))
+(define Literate-Text-line (lambda (arg-0) (vector 4 (Lexer-Text-exact arg-0) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-space) (lambda () (Literate-Text-untilEOL))))))))
+(define Literate-Text-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))) (Literate-Text-with--2565-7737 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2)))))))
 (define LiterateStyle-Literate-Text-file_extensions (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Literate-Text-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))) (Literate-Text-case--2372-7355 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1))))))))
+(define Literate-Text-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))) (Literate-Text-case--2490-7674 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1))))))))
 (define Literate-Text-block (lambda (arg-0 arg-1) (Lexer-Text-surround (vector 4 (Lexer-Text-exact arg-0) (lambda () (Literate-Text-untilEOL))) (vector 4 (Lexer-Text-exact arg-1) (lambda () (Literate-Text-untilEOL))) (Lexer-Text-any))))
 (define Views-List-Data-snocListHelp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Views-List-Data-snocListHelp 'erased (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) (vector 1 e-2 arg-1 arg-2) e-3))))))))
 (define Views-List-Data-snocList (lambda (arg-0 arg-1) (Views-List-Data-snocListHelp 'erased (vector 0 ) (vector 0 ) arg-1)))
-(define Lexer-Text-case--2211-467 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3)))))))))
-(define Lexer-Text-case--2187-446 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3)))))))))
-(define Lexer-Text-case--2058-332 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))))
-(define Lexer-Text-n--2378-586-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2378-586-lexStr e-3)))))))))
-(define Lexer-Text-n--2378-587-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2378-586-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits))))))
+(define Lexer-Text-case--2271-480 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3)))))))))
+(define Lexer-Text-case--2247-459 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3)))))))))
+(define Lexer-Text-case--2114-341 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))))
+(define Lexer-Text-n--2441-602-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2441-602-lexStr e-3)))))))))
+(define Lexer-Text-n--2441-603-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-602-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits))))))
 (define Lexer-Text-toTokenMap (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))) ext-0)))
 (define Lexer-Text-symbol (lambda () (Core-Lexer-Text-pred (lambda (x) (Prelude-not (Prelude-C-124C-124 (Prelude-isSpace x) (lambda () (Prelude-isAlphaNum x))))))))
 (define Lexer-Text-surround (lambda (arg-0 arg-1 arg-2) (vector 4 arg-0 (lambda () (Lexer-Text-manyThen 'erased arg-1 arg-2)))))
@@ -1151,7 +1167,7 @@
 (define Lexer-Text-some (lambda (arg-0) (vector 4 arg-0 (lambda () (Lexer-Text-many arg-0)))))
 (define Lexer-Text-quote (lambda (arg-0 arg-1) (Lexer-Text-surround arg-0 arg-0 arg-1)))
 (define Lexer-Text-opt (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased arg-0 (Core-Lexer-Text-empty))))
-(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) x (Prelude-unpack arg-0))))))
+(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) x (Prelude-unpack arg-0))))))
 (define Lexer-Text-octLit (lambda () (vector 4 (Lexer-Text-exact "0o") (lambda () (Lexer-Text-octDigits)))))
 (define Lexer-Text-octDigits (lambda () (Lexer-Text-some (Lexer-Text-octDigit))))
 (define Lexer-Text-octDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isOctDigit eta-0)))))
@@ -1166,14 +1182,14 @@
 (define Lexer-Text-hexLit (lambda () (vector 4 (Lexer-Text-approx "0x") (lambda () (Lexer-Text-hexDigits)))))
 (define Lexer-Text-hexDigits (lambda () (Lexer-Text-some (Lexer-Text-hexDigit))))
 (define Lexer-Text-hexDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isHexDigit eta-0)))))
-(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2187-446 arg-0 (Prelude-unpack arg-0))))
+(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2247-459 arg-0 (Prelude-unpack arg-0))))
 (define Lexer-Text-escape (lambda (arg-0 arg-1) (vector 4 (Lexer-Text-is arg-0) (lambda () arg-1))))
 (define Lexer-Text-digits (lambda () (Lexer-Text-some (Lexer-Text-digit))))
 (define Lexer-Text-digit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isDigit eta-0)))))
 (define Lexer-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (arg-4 x) acc)))) (Core-Lexer-Text-fail 'erased)) arg-5)))))
 (define Lexer-Text-choice (lambda (arg-0 arg-1 arg-2 ext-0) (Lexer-Text-choiceMap 'erased 'erased arg-1 arg-2 (lambda (eta-0) eta-0) ext-0)))
-(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2378-587-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
-(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2211-467 arg-0 (Prelude-unpack arg-0))))
+(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-603-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
+(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2271-480 arg-0 (Prelude-unpack arg-0))))
 (define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) 0))))
 (define Token-Text-tokValue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Token-Text-TokType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
@@ -1182,28 +1198,32 @@
 (define Quantity-Text-between (lambda (arg-0 arg-1) (vector 0 arg-0 (vector 1 arg-1))))
 (define Quantity-Text-atMost (lambda (arg-0) (vector 0 0 (vector 1 arg-0))))
 (define Quantity-Text-atLeast (lambda (arg-0) (vector 0 arg-0 (vector 0 ))))
-(define Core-Lexer-Text-case--3006-7934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
-(define Core-Lexer-Text-case--2950-7882 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
-(define Core-Lexer-Text-case--2801-7763 (lambda (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) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10))))))
-(define Core-Lexer-Text-case--2587-7730 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2801-7763 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1))))))))
-(define Core-Lexer-Text-case--2599-7646 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2587-7541-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63) (vector 0 (Core-Lexer-Text-n--2587-7542-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4) e-6))))))))) (else (Core-Lexer-Text-n--2587-7543-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
-(define Core-Lexer-Text-case--2598-7565 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))))))))
-(define Core-Lexer-Text-case--2208-7399 (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))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 ))))))
-(define Core-Lexer-Text-case--2208-7237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 ))))))
-(define Core-Lexer-Text-n--2587-7543-getFirstToken (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2599-7646 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8))))))))))))
-(define Core-Lexer-Text-n--2587-7542-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2598-7565 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7)))))
-(define Core-Lexer-Text-n--2587-7541-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7))))
-(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2587-7730 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2587-7543-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6))))
-(define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
-(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2208-7237 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2208-7286 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3)))))))))
+(define Core-Lexer-Text-case--3166-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
+(define Core-Lexer-Text-case--3110-8234 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
+(define Core-Lexer-Text-case--2961-8115 (lambda (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) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10))))))
+(define Core-Lexer-Text-case--2743-8082 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2961-8115 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1))))))))
+(define Core-Lexer-Text-case--2755-7996 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2743-7889-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2743-7890-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 lineC-39 colC-39 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
+(define Core-Lexer-Text-case--2754-7915 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))))))))
+(define Core-Lexer-Text-case--2267-7664 (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))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 ))))))
+(define Core-Lexer-Text-case--2267-7499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 ))))))
+(define Core-Lexer-Text-n--2743-7891-getFirstToken (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2755-7996 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8))))))))))))
+(define Core-Lexer-Text-n--2743-7890-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2754-7915 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7)))))
+(define Core-Lexer-Text-n--2743-7889-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7))))
+(define TokenData-Core-Lexer-Text-rf--line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
+(define TokenData-Core-Lexer-Text-rf--endLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
+(define TokenData-Core-Lexer-Text-rf--endCol (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
+(define TokenData-Core-Lexer-Text-rf--col (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
+(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2743-8082 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6))))
+(define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
+(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2267-7499 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2267-7548 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3)))))))))
 (define Core-Lexer-Text-reject (lambda (arg-0 ext-0) (vector 2 1 ext-0)))
 (define Core-Lexer-Text-pred (lambda (ext-0) (vector 3 ext-0)))
 (define TokenData-Core-Lexer-Text-line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3006-7934 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3)))))
-(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--2950-7882 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) 1) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2)))))
+(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3166-8286 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3)))))
+(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--3110-8234 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) 1) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2)))))
 (define Core-Lexer-Text-fail (lambda (arg-0) (vector 1 )))
 (define Core-Lexer-Text-expect (lambda (arg-0 ext-0) (vector 2 0 ext-0)))
 (define Core-Lexer-Text-empty (lambda () (vector 0 )))
@@ -1214,129 +1234,131 @@
 (define Core-Lexer-Text-C-60C-43C-62 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))))))))
 (define Extra-Bool-Data-anyTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 e-2 (lambda () (Extra-Bool-Data-anyTrue e-3))))))))))
 (define Extra-Bool-Data-allTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 e-2 (lambda () (Extra-Bool-Data-allTrue e-3))))))))))
-(define Source-Rule-Parser-case--4635-8621 (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 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps)))))))))))
-(define Source-Rule-Parser-case--4544-8457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1))))))
-(define Source-Rule-Parser-case--4220-8124 (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 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4220-8091 (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 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4220-8062 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4177-8026 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4117-7990 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4032-7900 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
-(define Source-Rule-Parser-case--4032-7876 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
-(define Source-Rule-Parser-case--3916-7801 (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 Source-Rule-Parser-case--3772-7650 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0))))))))
-(define Source-Rule-Parser-case--3772-7631 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0)))))))
-(define Source-Rule-Parser-case--3707-7556 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3677-7530 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3658-7513 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3627-7488 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1)))))))
-(define Source-Rule-Parser-case--3621-7479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3627-7488 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3579-7448 (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 Source-Rule-Parser-case--3571-7436 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3579-7448 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3529-7403 (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 Source-Rule-Parser-case--3521-7391 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3529-7403 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3479-7358 (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 Source-Rule-Parser-case--3470-7346 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3479-7358 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3428-7312 (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 Source-Rule-Parser-case--3419-7300 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3428-7312 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3400-7280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3381-7263 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3362-7246 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3334-7220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3209-7138 (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 6 e-2))))))))
-(define Source-Rule-Parser-case--3209-7105 (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 7 e-2))))))))
-(define Source-Rule-Parser-case--3203-7098 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3209-7105 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3209-7138 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Source-Rule-Parser-n--4635-8496-restOfBlock (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8519) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8552) (vector 0 (vector 0 (vector 0 ) ps))))))))))))
-(define Source-Rule-Parser-n--3770-7610-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 (Source-Rule-Parser-reservedNames))))
-(define Source-Rule-Parser-n--3770-7612-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))))
-(define Source-Rule-Parser-n--3770-7613-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-7695) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-7725) (vector 0 (vector 0 arg-0 n)))))))))))))
-(define Source-Rule-Parser-n--3770-7611-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3772-7631 e-2 (Source-Rule-Parser-n--3770-7610-reserved e-2)))(else (Source-Rule-Parser-case--3772-7650 e-2 e-3 (Source-Rule-Parser-n--3770-7610-reserved e-2))))))))))))
-(define Source-Rule-Parser-n--3183-7067-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
-(define Source-Rule-Parser-n--4216-8045-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 Source-Rule-Parser-n--4216-8046-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4220-8062 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4220-8091 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4220-8124 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 )))))))
+(define Source-Rule-Parser-case--4805-8974 (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 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps)))))))))))
+(define Source-Rule-Parser-case--4709-8802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1))))))
+(define Source-Rule-Parser-case--4372-8451 (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 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4372-8418 (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 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4372-8389 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4328-8353 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4267-8316 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4182-8225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
+(define Source-Rule-Parser-case--4182-8201 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
+(define Source-Rule-Parser-case--4061-8124 (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 Source-Rule-Parser-case--3913-7966 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0))))))))
+(define Source-Rule-Parser-case--3913-7947 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0)))))))
+(define Source-Rule-Parser-case--3847-7872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3816-7844 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3786-7816 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3766-7797 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3735-7770 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1)))))))
+(define Source-Rule-Parser-case--3728-7761 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3735-7770 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3686-7728 (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 Source-Rule-Parser-case--3677-7716 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3686-7728 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3635-7681 (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 Source-Rule-Parser-case--3626-7669 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3635-7681 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3584-7634 (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 Source-Rule-Parser-case--3574-7622 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3584-7634 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3532-7586 (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 Source-Rule-Parser-case--3522-7574 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3532-7586 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3502-7552 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3482-7533 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3462-7514 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3433-7486 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3308-7402 (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 6 e-2))))))))
+(define Source-Rule-Parser-case--3308-7369 (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 7 e-2))))))))
+(define Source-Rule-Parser-case--3301-7362 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7369 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7402 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Source-Rule-Parser-n--4805-8841-restOfBlock (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8867) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8902) (vector 0 (vector 0 (vector 0 ) ps))))))))))))
+(define Source-Rule-Parser-n--3911-7926-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Rule-Parser-reservedNames))))
+(define Source-Rule-Parser-n--3911-7928-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))))
+(define Source-Rule-Parser-n--3911-7929-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-8013) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8045) (vector 0 (vector 0 arg-0 n)))))))))))))
+(define Source-Rule-Parser-n--3911-7927-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3913-7947 e-2 (Source-Rule-Parser-n--3911-7926-reserved e-2)))(else (Source-Rule-Parser-case--3913-7966 e-2 e-3 (Source-Rule-Parser-n--3911-7926-reserved e-2))))))))))))
+(define Source-Rule-Parser-n--3281-7329-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
+(define Source-Rule-Parser-n--4368-8372-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 Source-Rule-Parser-n--4368-8373-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4372-8389 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8418 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8451 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 )))))))
 (define Source-Rule-Parser-unqualifiedName (lambda () (Source-Rule-Parser-identPart)))
-(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8200) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8189) (vector 0 (Source-Rule-Parser-n--4216-8045-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4216-8046-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 ))))))))))
-(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3419-7300 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3381-7263 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8530) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8518) (vector 0 (Source-Rule-Parser-n--4368-8372-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4368-8373-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 ))))))))))
+(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3522-7574 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3482-7533 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-reservedNames (lambda () (vector 1 "Type" (vector 1 "Int" (vector 1 "Integer" (vector 1 "Bits8" (vector 1 "Bits16" (vector 1 "Bits32" (vector 1 "Bits64" (vector 1 "String" (vector 1 "Char" (vector 1 "Double" (vector 1 "Lazy" (vector 1 "Inf" (vector 1 "Force" (vector 1 "Delay" (vector 0 )))))))))))))))))
-(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3400-7280 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3571-7436 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3621-7479 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8736) (vector 8 1 0 (vector 5 ) (lambda (_-8745) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8772) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps)))))))))))))
-(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3677-7530 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3770-7612-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3770-7613-opNS ns) (lambda () (Source-Rule-Parser-n--3770-7611-nameNS ns))))))))))
+(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3502-7552 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3677-7716 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3728-7761 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9094) (vector 8 1 0 (vector 5 ) (lambda (_-9104) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9135) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps)))))))))))))
+(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3786-7816 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3911-7928-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3911-7929-opNS ns) (lambda () (Source-Rule-Parser-n--3911-7927-nameNS ns))))))))))
 (define Source-Rule-Parser-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-continueF (vector 4 0 "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-continueF (vector 4 0 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 e-2 "'"))) arg-0)))))))
-(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3470-7346 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--3816-7844 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3574-7622 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (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)(else 1))))) ((13) (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))))) ((12) 0)(else 1)))))
-(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3362-7246 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3462-7514 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-init (lambda () 0))
-(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3658-7513 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3707-7556 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3521-7391 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3183-7067-isEOI (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda (_-7085) (vector 0 (vector 0 ))))))
-(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3334-7220 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3766-7797 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3847-7872 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3626-7669 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3281-7329-isEOI (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-7348) (vector 0 (vector 0 ))))))
+(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3433-7486 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-documentation (lambda () (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 eta-2 eta-3))))) (lambda (eta-0) (Strings-Data-unlines eta-0)) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-documentationC-39)))))
-(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7792) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7784) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--3916-7801 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))))
+(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8115) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-8106) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4061-8124 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))))
 (define Source-Rule-Parser-continue (lambda (ext-0) (Source-Rule-Parser-continueF (vector 4 1 "Unexpected end of expression") ext-0)))
-(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3203-7098 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-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))) (Source-Rule-Parser-case--4032-7876 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4032-7900 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block"))))))
-(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8589) (vector 8 1 0 (vector 5 ) (lambda (_-8598) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4635-8496-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4635-8621 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2))))))))
-(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8227) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39)))))))))))))
-(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8294) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 ))))))))
-(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8415) (vector 8 1 0 (vector 5 ) (lambda (_-8424) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8440) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4544-8457 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))
-(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8349) (vector 8 1 0 (vector 5 ) (lambda (_-8358) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8374) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1)))))))
-(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4177-8026 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))
-(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda (_-7977) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4117-7990 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))))
+(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3301-7362 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-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))) (Source-Rule-Parser-case--4182-8201 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4182-8225 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block"))))))
+(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8940) (vector 8 1 0 (vector 5 ) (lambda (_-8950) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4805-8841-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4805-8974 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2))))))))
+(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8559) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39)))))))))))))
+(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8629) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 ))))))))
+(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8757) (vector 8 1 0 (vector 5 ) (lambda (_-8767) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8786) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4709-8802 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))
+(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8686) (vector 8 1 0 (vector 5 ) (lambda (_-8696) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8715) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1)))))))
+(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4328-8353 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))
+(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-8304) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4267-8316 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))))
 (define Source-Rule-Parser-Rule (lambda (ext-0) (Common-Rule-Parser-Rule (vector "Parser.Lexer.Source.Token" ) ext-0)))
 (define Source-Rule-Parser-IndentInfo (lambda () (vector "Int" )))
-(define TT-Core-case--9948-7647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9948-7163-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
-(define TT-Core-case--9718-7019 (lambda (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) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7))))))
-(define TT-Core-case--9475-6768 (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 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4)))))))
-(define TT-Core-case--8968-6322 (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 TT-Core-case--8903-6275 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
-(define TT-Core-case--8891-6257 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0))))))))
-(define TT-Core-case--8576-5998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9)))
-(define TT-Core-case--8427-5883 (lambda (arg-0 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 (vector 0 arg-5 (vector 0 ) arg-12))))
-(define TT-Core-case--8395-5831 (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) (TT-Core-case--8427-5883 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
-(define TT-Core-case--8281-5774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
-(define TT-Core-case--8094-5565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
-(define TT-Core-case--7928-5514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10)))
-(define TT-Core-case--7928-5440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8)))
-(define TT-Core-case--7427-5158 (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 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2))))))))
-(define TT-Core-case--7149-4820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10))))
-(define TT-Core-case--7149-4739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9)))
-(define TT-Core-case--6513-4135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
-(define TT-Core-case--6409-4082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
-(define TT-Core-case--6305-3994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
-(define TT-Core-case--6239-3910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
-(define TT-Core-case--5961-3678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
-(define TT-Core-case--5616-3406 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define TT-Core-case--5617-3392 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define TT-Core-case--2791-818 (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 TT-Core-case--2791-786 (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 TT-Core-case--2791-754 (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 TT-Core-case--2791-722 (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 TT-Core-n--5915-3620-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 (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1)))))))))))
-(define TT-Core-n--9948-7163-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)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) 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-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))
-(define TT-Core-n--6935-4509-getFA (lambda (arg-0 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))) (TT-Core-n--6935-4509-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
-(define TT-Core-n--5078-2956-eqPiInfo (lambda (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) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1)))))
-(define TT-Core-n--5078-2957-eqBinder (lambda (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 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-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1)))))
-(define TT-Core-n--9718-6972-addRefsArgs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9718-6972-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3))))))))
-(define TT-Core-n--9604-6880-addMetaArgs (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9604-6880-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3))))))))
+(define TT-Core-case--10100-7772 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--10100-7252-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
+(define TT-Core-case--9870-7105 (lambda (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) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7))))))
+(define TT-Core-case--9627-6854 (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 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4)))))))
+(define TT-Core-case--9120-6408 (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 TT-Core-case--9055-6361 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
+(define TT-Core-case--9043-6342 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0))))))))
+(define TT-Core-case--8728-6083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9)))
+(define TT-Core-case--8579-5968 (lambda (arg-0 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 (vector 0 arg-5 (vector 0 ) arg-12))))
+(define TT-Core-case--8547-5916 (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) (TT-Core-case--8579-5968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
+(define TT-Core-case--8433-5859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
+(define TT-Core-case--8246-5650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
+(define TT-Core-case--8080-5599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10)))
+(define TT-Core-case--8080-5525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8)))
+(define TT-Core-case--7559-5232 (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 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2))))))))
+(define TT-Core-case--7279-4885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10))))
+(define TT-Core-case--7279-4803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9)))
+(define TT-Core-case--6639-4204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
+(define TT-Core-case--6535-4151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
+(define TT-Core-case--6431-4063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
+(define TT-Core-case--6365-3979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
+(define TT-Core-case--6087-3747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
+(define TT-Core-case--5723-3463 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define TT-Core-case--5724-3449 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define TT-Core-case--2872-840 (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 TT-Core-case--2872-808 (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 TT-Core-case--2872-776 (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 TT-Core-case--2872-744 (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 TT-Core-n--6039-3689-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 (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1)))))))))))
+(define TT-Core-n--10100-7252-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)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) 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-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((3) (let ((e-83 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-83) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))
+(define TT-Core-n--7065-4572-getFA (lambda (arg-0 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))) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
+(define TT-Core-n--5181-3002-eqPiInfo (lambda (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) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1)))))
+(define TT-Core-n--5181-3003-eqBinder (lambda (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 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-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1)))))
+(define TT-Core-n--9870-7058-addRefsArgs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9870-7058-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3))))))))
+(define TT-Core-n--9756-6966-addMetaArgs (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9756-6966-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3))))))))
 (define Totality-TT-Core-rf--isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define TT-Core-weaken_Weaken__Var (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2)))
 (define TT-Core-weaken_Weaken__Term (lambda (arg-0 arg-1 ext-0) (TT-Core-weakenNs_Weaken__Term arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define TT-Core-weakenNs_Weaken__Var (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-weaken_Weaken__Var e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TT-Core-weakenNs_Weaken__Var arg-0 e-3 arg-2)))))))))
 (define TT-Core-weakenNs_Weaken__Term (lambda (arg-0 arg-1 arg-2) (TT-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define TT-Core-show_Show__Visibility (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "private") ((1) "export") (else "public export")))))
-(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--5915-3620-showTot arg-0 t c)))))
+(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--6039-3689-showTot arg-0 t c)))))
 (define TT-Core-show_Show__TotalReq (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "total") ((1) "covering") (else "partial")))))
 (define TT-Core-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))) (TT-Core-show_Show__PartialReason e-0)))))))
 (define TT-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "possibly not terminating due to call to " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "possibly not terminating due to recursive path " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))
 (define TT-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "not covering due to call to function " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))
 (define TT-Core-show_Show__Constant (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Prelude-show_Show__String e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Prelude-show_Show__Char e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "%MkWorld") ((10) "Int") ((11) "Integer") ((12) "Bits8") ((13) "Bits16") ((14) "Bits32") ((15) "Bits64") ((16) "String") ((17) "Char") ((18) "Double") (else "%World")))))
 (define TT-Core-show_Show__C-40VarC-32C-36nsC-41 (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1)))
-(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--9948-7647 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1))))
+(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--10100-7772 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1))))
 (define TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "+" (TT-Core-show_Show__Constant e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "*" (TT-Core-show_Show__Constant e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "/" (TT-Core-show_Show__Constant e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%" (TT-Core-show_Show__Constant e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "neg " (TT-Core-show_Show__Constant e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shl " (TT-Core-show_Show__Constant e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shr " (TT-Core-show_Show__Constant e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "and " (TT-Core-show_Show__Constant e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "or " (TT-Core-show_Show__Constant e-9)))) ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "xor " (TT-Core-show_Show__Constant e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (TT-Core-show_Show__Constant e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<=" (TT-Core-show_Show__Constant e-12)))) ((13) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "==" (TT-Core-show_Show__Constant e-13)))) ((14) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">=" (TT-Core-show_Show__Constant e-14)))) ((15) (let ((e-15 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">" (TT-Core-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))) (Strings-Prelude-C-43C-43 "cast-" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-17))))))) ((36) "believe_me") (else "crash")))))
 (define TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (Strings-Prelude-C-43C-43 "DefImplicit " (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-4))))))))))
 (define TT-Core-showPrec_Show__Totality (lambda (arg-0 arg-1) (TT-Core-show_Show__Totality arg-1)))
@@ -1347,13 +1369,13 @@
 (define TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-2)))
 (define TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased arg-2)))
 (define TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-3)))
-(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5617-3392 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1))))
-(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5616-3406 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1))))
+(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5724-3449 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1))))
+(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5723-3463 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1))))
 (define TT-Core-map_Functor__PiInfo (lambda (arg-0 arg-1 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 TT-Core-map_Functor__Binder (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))) (vector 0 e-1 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-2) (arg-2 e-3)))))) ((1) (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 (arg-2 e-6) (arg-2 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 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-10) (arg-2 e-11)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 e-13 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-14) (arg-2 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 (arg-2 e-18) (arg-2 e-19)))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (vector 5 e-21 (arg-2 e-22)))))))))
 (define TT-Core-compare_Ord__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) ((1) 0) ((2) 0) (else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0) ((1) 1) (else 2)))) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 1) ((0) 2) (else 2))))))))
-(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Var n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Var vars ns arg-3225)))))))
-(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225)))))))
+(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Var n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Var vars ns arg-3271)))))))
+(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271)))))))
 (define TT-Core-__Impl_Show_Totality (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Totality x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Totality d x))))))
 (define TT-Core-__Impl_Show_TotalReq (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__TotalReq x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__TotalReq d x))))))
 (define TT-Core-__Impl_Show_Covering (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Covering x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Covering d x))))))
@@ -1362,20 +1384,20 @@
 (define TT-Core-__Impl_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x))))))
 (define TT-Core-__Impl_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 'erased d x))))))
 (define TT-Core-__Impl_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 d x))))))
-(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Visibility arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Visibility arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (TT-Core-compare_Ord__Visibility arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (TT-Core-C-60_Ord__Visibility arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (TT-Core-C-62_Ord__Visibility arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (TT-Core-C-60C-61_Ord__Visibility arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (TT-Core-C-62C-61_Ord__Visibility arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (TT-Core-max_Ord__Visibility arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (TT-Core-min_Ord__Visibility arg-979 arg-980))))))
+(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (TT-Core-compare_Ord__Visibility arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (TT-Core-C-60_Ord__Visibility arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (TT-Core-C-62_Ord__Visibility arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (TT-Core-C-60C-61_Ord__Visibility arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (TT-Core-C-62C-61_Ord__Visibility arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (TT-Core-max_Ord__Visibility arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (TT-Core-min_Ord__Visibility arg-787 arg-788))))))
 (define TT-Core-__Impl_Functor_Binder (lambda (ext-0 ext-1 ext-2 ext-3) (TT-Core-map_Functor__Binder 'erased 'erased ext-2 ext-3)))
-(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Visibility arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Visibility arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Constant arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Constant arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
+(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Constant arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Constant arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
 (define TT-Core-C-62_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 2)))
 (define TT-Core-C-62C-61_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0)))
 (define TT-Core-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 TT-Core-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 TT-Core-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 TT-Core-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-9 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-0 e-9)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Integer e-1 e-10)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-2 e-11)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-3 e-12)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-4 e-13)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Integer e-5 e-14)))(else 1))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-6 e-15)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-7 e-16)))(else 1))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Double e-8 e-17)))(else 1))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) 0)(else 1)))) ((12) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) 0)(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))))(else 1)))))
-(define TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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)))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-4) e-9)))))(else 1)))))(else 1)))))
 (define TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-2 e-25) (lambda () (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) ((e-5 e-3) e-26)))))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-6) e-29))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-7) e-30)))))))))))(else 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-3)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-10 e-33) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-11) e-34)))))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-14 e-37) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-15) e-38)))))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-18) e-41))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-19) e-42)))))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-22) e-45))))))))(else 1))))))(else 1)))))
 (define TT-Core-C-60_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0)))
@@ -1385,27 +1407,27 @@
 (define TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-not (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-1 arg-2))))
 (define TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2 arg-3))))
 (define TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
-(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6239-3910 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased)))))))))
+(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6365-3979 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased)))))))))
 (define TT-Core-weakenNs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (((e-2 arg-1) arg-3) arg-4)))))))
-(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--5961-3678 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased)))))))))
+(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6087-3747 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased)))))))))
 (define TT-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (((e-1 arg-1) arg-2) arg-4))))))
 (define TT-Core-varIdx (lambda (arg-0 arg-1) arg-1))
-(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--7928-5440 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (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 ((idx (+ 1 e-9))) (TT-Core-case--7928-5514 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased)))))))))))))
+(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--8080-5525 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (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 ((idx (+ 1 e-9))) (TT-Core-case--8080-5599 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased)))))))))))))
 (define TT-Core-unchecked (lambda () (vector 0 (vector 0 ) (vector 0 ))))
 (define SubstEnv-TT-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 0 ) arg-2 arg-3)))
-(define TT-Core-substName (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))) (TT-Core-case--9475-6768 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3)))))
+(define TT-Core-substName (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))) (TT-Core-case--9627-6854 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3)))))
 (define SubstEnv-TT-Core-substEnv (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))) (let ((e-4 (vector-ref sc0 3))) (SubstEnv-TT-Core-find 'erased arg-0 arg-1 arg-2 e-4 e-2 e-3 'erased 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 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-18) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 1 e-17 arg-2) 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-22) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-27) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-36) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 SubstEnv-TT-Core-subst (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv (vector 1 arg-1 (vector 0 )) arg-0 (vector 0 ) (vector 1 arg-2 (vector 0 )) arg-3)))
 (define TT-Core-subExtend (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-3 (vector-ref sc0 2))) (vector 2 (TT-Core-subExtend 'erased 'erased e-3 arg-3))))))))
 (define TT-Core-subElem (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-12) (lambda (_-0) (vector 1 _-0))))) (else (let ((e-16 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-16) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))))
-(define TT-Core-shrinkTerm (lambda (arg-0 arg-1 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))) (TT-Core-case--7427-5158 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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 TT-Core-shrinkTerm (lambda (arg-0 arg-1 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))) (TT-Core-case--7559-5232 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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 TT-Core-shrinkPi (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-4 arg-3) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
 (define TT-Core-shrinkBinder (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-2 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-3 arg-3) (lambda (bind-1) (vector 1 (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-6 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-7 arg-3) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-10 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-11 arg-3) (lambda (bind-1) (vector 1 (vector 2 e-9 bind-0 bind-1)))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-14 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-15 arg-3) (lambda (bind-1) (vector 1 (vector 3 e-13 bind-0 bind-1)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
-(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
+(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
 (define TT-Core-setMultiplicity (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 arg-2 e-2 e-3)))) ((1) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-2 e-6 e-7)))) ((2) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 arg-2 e-10 e-11)))) ((3) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-2 e-14 e-15)))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 arg-2 e-18 e-19)))) (else (let ((e-22 (vector-ref sc0 2))) (vector 5 arg-2 e-22)))))))
 (define TT-Core-sameVar (lambda (arg-0 arg-1 arg-2) (Prelude-C-61C-61_Eq__Nat arg-1 arg-2)))
-(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (TT-Core-case--8395-5831 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
-(define TT-Core-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) (TT-Core-case--8968-6322 e-3 e-1 arg-0 (TT-Core-isVar 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 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 (TT-Core-resolveNames arg-0 e-16) (TT-Core-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 (TT-Core-resolveNames arg-0 e-21) (TT-Core-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 (TT-Core-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 (TT-Core-resolveNames arg-0 e-30) (TT-Core-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 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1)))))
+(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (TT-Core-case--8547-5916 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
+(define TT-Core-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) (TT-Core-case--9120-6408 e-3 e-1 arg-0 (TT-Core-isVar 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 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 (TT-Core-resolveNames arg-0 e-16) (TT-Core-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 (TT-Core-resolveNames arg-0 e-21) (TT-Core-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 (TT-Core-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 (TT-Core-resolveNames arg-0 e-30) (TT-Core-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 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1)))))
 (define TT-Core-renameVars (lambda (arg-0 arg-1 arg-2 arg-3) (Builtin-believe_me 'erased 'erased arg-3)))
 (define TT-Core-renameTop (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-3)))
 (define TT-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3))))))
@@ -1414,50 +1436,50 @@
 (define TT-Core-notCovering (lambda () (vector 0 (vector 0 ) (vector 1 (vector 0 )))))
 (define TT-Core-nameAt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-1)(else (let ((e-3 (- arg-2 1))) (TT-Core-nameAt 'erased e-2 e-3 'erased))))))))))
 (define TT-Core-multiplicity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-5 (vector-ref sc0 1))) e-5)) ((2) (let ((e-9 (vector-ref sc0 1))) e-9)) ((3) (let ((e-13 (vector-ref sc0 1))) e-13)) ((4) (let ((e-17 (vector-ref sc0 1))) e-17)) (else (let ((e-21 (vector-ref sc0 1))) e-21))))))
-(define TT-Core-mkLocals (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))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8576-5998 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((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) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2))))
-(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--8891-6257 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2)))))))))
+(define TT-Core-mkLocals (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))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8728-6083 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((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) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2))))
+(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--9043-6342 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2)))))))))
 (define TT-Core-isTotal (lambda () (vector 0 (vector 0 ) (vector 0 ))))
 (define Totality-TT-Core-isTerminating (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Totality-TT-Core-isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6305-3994 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
-(define TT-Core-insertNames (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))) (TT-Core-case--6513-4135 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6409-4082 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
+(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6431-4063 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
+(define TT-Core-insertNames (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))) (TT-Core-case--6639-4204 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6535-4151 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
 (define TT-Core-getRefs (lambda (arg-0 arg-1 arg-2) (TT-Core-addRefs 'erased 1 arg-1 (NameMap-Data-empty 'erased) arg-2)))
 (define TT-Core-getMetas (lambda (arg-0 arg-1) (TT-Core-addMetas 'erased (NameMap-Data-empty 'erased) arg-1)))
 (define TT-Core-getLoc (lambda (arg-0 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 TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--6935-4509-getFA 'erased arg-1 (vector 0 ) arg-1)))
+(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 0 ) arg-1)))
 (define TT-Core-getFn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (TT-Core-getFn 'erased e-2)))(else arg-1)))))
 (define TT-Core-getArgs (lambda (arg-0 ext-0) (Builtin-snd 'erased 'erased (TT-Core-getFnArgs 'erased ext-0))))
 (define TT-Core-forgetDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (vector 0 ))))))
 (define SubstEnv-TT-Core-findDrop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 arg-4 arg-5 arg-3)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 2))) (SubstEnv-TT-Core-findDrop 'erased 'erased e-3 e-4 arg-4 arg-5 'erased e-14)))))))))))))
 (define SubstEnv-TT-Core-find (lambda (arg-0 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) (SubstEnv-TT-Core-findDrop 'erased 'erased arg-1 arg-4 arg-5 arg-6 'erased arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 arg-5 arg-6 0))(else (let ((e-4 (- arg-4 1))) (TT-Core-weaken_Weaken__Term e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2) (SubstEnv-TT-Core-find 'erased arg-1 arg-2 e-3 e-4 arg-5 arg-6 'erased arg-8)))))))))))))
-(define TT-Core-eqTerm (lambda (arg-0 arg-1 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (Prelude-C-38C-38 (TT-Core-n--5078-2957-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-embedSub (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))) (TT-Core-case--8094-5565 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (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 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 TT-Core-eqTerm (lambda (arg-0 arg-1 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (Prelude-C-38C-38 (TT-Core-n--5181-3003-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-embedSub (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))) (TT-Core-case--8246-5650 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (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 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 TT-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2)))
 (define TT-Core-dropVar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-2)(else (let ((e-3 (- arg-2 1))) (vector 1 e-1 (TT-Core-dropVar 'erased e-2 e-3 'erased)))))))))))
 (define TT-Core-dropFirst (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (TT-Core-dropFirst 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (TT-Core-dropFirst 'erased 'erased e-3)))))))))))))
-(define TT-Core-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-5 (vector-ref sc1 1))) (TT-Core-case--2791-722 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2791-754 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2791-786 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2791-818 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (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 )))))(else (vector 0 ))))))
+(define TT-Core-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-5 (vector-ref sc1 1))) (TT-Core-case--2872-744 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2872-776 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2872-808 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2872-840 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (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 )))))(else (vector 0 ))))))
 (define TT-Core-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((10) 3) ((11) 4) ((12) 5) ((13) 6) ((14) 7) ((15) 8) ((16) 9) ((17) 10) ((18) 11) ((19) 12)(else 0)))))
 (define TT-Core-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 (TT-Core-C-61C-61_Eq__LazyReason arg-0 arg-1)))))))))
 (define TT-Core-binderType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) e-3)) ((1) (let ((e-7 (vector-ref sc0 3))) e-7)) ((2) (let ((e-11 (vector-ref sc0 3))) e-11)) ((3) (let ((e-15 (vector-ref sc0 3))) e-15)) ((4) (let ((e-19 (vector-ref sc0 3))) e-19)) (else (let ((e-22 (vector-ref sc0 2))) e-22))))))
 (define TT-Core-apply (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-apply 'erased arg-1 (vector 4 arg-1 arg-2 e-2) e-3))))))))
-(define TT-Core-addVars (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) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8281-5774 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased))))))))))))))
-(define TT-Core-addRefs (lambda (arg-0 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))) (NameMap-Data-insert 'erased 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))) (TT-Core-n--9718-6972-addRefsArgs 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased 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-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9718-7019 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3)))))
-(define TT-Core-addMetas (lambda (arg-0 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))) (TT-Core-n--9604-6880-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1)))))
+(define TT-Core-addVars (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) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8433-5859 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased))))))))))))))
+(define TT-Core-addRefs (lambda (arg-0 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))) (NameMap-Data-insert 'erased 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))) (TT-Core-n--9870-7058-addRefsArgs 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased 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-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9870-7105 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3)))))
+(define TT-Core-addMetas (lambda (arg-0 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))) (TT-Core-n--9756-6966-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1)))))
 (define TT-Core-ClosedTerm (lambda () (vector "Core.TT.Term" (vector 0 ))))
 (define Algebra-RigCount (lambda () (vector "Algebra.ZeroOneOmega.ZeroOneOmega" )))
-(define Preorder-Algebra-case--1481-407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Preorder-Algebra-case--1438-368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3)))))
+(define Preorder-Algebra-case--1502-416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Preorder-Algebra-case--1459-377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3)))))
 (define Preorder-Algebra-top (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1438-368 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
-(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1481-407 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
+(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1459-377 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
+(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1502-416 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
 (define Preorder-Algebra-C-60C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Preorder-Algebra-C-60 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-38C-38 (let ((sc0 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))) (lambda () (let ((sc0 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) arg-3)))))))
-(define Semiring-Algebra-case--1649-547 (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 (arg-4))))))
-(define Semiring-Algebra-case--1591-496 (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 (arg-4))))))
-(define Semiring-Algebra-case--1456-396 (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) arg-5) (else (arg-4 arg-3))))))
-(define Semiring-Algebra-case--1434-346 (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) arg-6) (else (Semiring-Algebra-case--1456-396 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4)))))))))))
+(define Semiring-Algebra-case--1670-556 (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 (arg-4))))))
+(define Semiring-Algebra-case--1612-505 (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 (arg-4))))))
+(define Semiring-Algebra-case--1477-405 (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) arg-5) (else (arg-4 arg-3))))))
+(define Semiring-Algebra-case--1455-355 (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) arg-6) (else (Semiring-Algebra-case--1477-405 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4)))))))))))
 (define Semiring-Algebra-C-124C-42C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Semiring-Algebra-timesNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
 (define Semiring-Algebra-plusNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
@@ -1466,9 +1488,9 @@
 (define Semiring-Algebra-isLinear (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 1 0 (lambda (eta-0) 1) ext-0)))
 (define Semiring-Algebra-isErased (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 0 1 (lambda (eta-0) 1) ext-0)))
 (define Semiring-Algebra-erased (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1434-346 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5))))))))
-(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1591-496 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5))))
-(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1649-547 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5))))
+(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1455-355 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5))))))))
+(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1612-505 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5))))
+(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1670-556 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5))))
 (define ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigPlus ext-0 ext-1)))
 (define ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigMult ext-0 ext-1)))
 (define ZeroOneOmega-Algebra-top_Top__ZeroOneOmega (lambda () (vector 2 )))
@@ -1479,119 +1501,119 @@
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega (lambda () (vector 0 )))
-(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x)))))
+(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x)))))
 (define ZeroOneOmega-Algebra-__Impl_Show_ZeroOneOmega (lambda () (vector 0 (lambda (x) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x)) (lambda (d) (lambda (x) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x))))))
-(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
-(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244)))))))))
-(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))))
+(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
+(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253)))))))))
+(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))))
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (lambda (arg-0 arg-1) (Prelude-not (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 Vect-Data-n--2827-3488-go (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) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2827-3488-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4))))))))
+(define Vect-Data-n--2902-3573-go (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) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4))))))))
 (define Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-2 ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) ext-0))))
 (define Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 arg-4)))
 (define Vect-Data-map_Functor__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 (arg-3 e-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased arg-3 e-4)))))))))
 (define Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) arg-5)))
-(define Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (Prelude-flip 'erased 'erased 'erased arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4)))
+(define Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (Basics-Prelude-flip 'erased 'erased 'erased arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4)))
 (define Vect-Data-__Impl_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (x) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 x)) (lambda (d) (lambda (x) (Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 d x))))))
 (define Vect-Data-__Impl_Functor_C-40VectC-32C-36nC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased ext-2 ext-3)))
 (define Vect-Data-__Impl_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))))
-(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2827-3488-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2)))
+(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2)))
 (define Vect-Data-foldrImpl (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) (arg-5 arg-4)) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4))))))))
-(define NameMap-Data-case--4200-6572 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
-(define NameMap-Data-case--4200-6535 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
-(define NameMap-Data-case--4112-6450 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define NameMap-Data-case--3812-6261 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
-(define NameMap-Data-case--3812-6187 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
-(define NameMap-Data-case--3699-6163 (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) (NameMap-Data-case--3812-6187 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3812-6261 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
-(define NameMap-Data-case--3699-6089 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
-(define NameMap-Data-case--2958-6065 (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) (NameMap-Data-case--3699-6089 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3699-6163 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
-(define NameMap-Data-case--3586-6011 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
-(define NameMap-Data-case--3444-5969 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
-(define NameMap-Data-case--3469-5911 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
-(define NameMap-Data-case--3444-5869 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
-(define NameMap-Data-case--2958-5849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3444-5869 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3444-5969 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
-(define NameMap-Data-case--3272-5787 (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))) (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 NameMap-Data-case--3272-5719 (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))) (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 NameMap-Data-case--3169-5697 (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) (NameMap-Data-case--3272-5719 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3272-5787 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
-(define NameMap-Data-case--3169-5629 (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))) (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 NameMap-Data-case--2958-5607 (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) (NameMap-Data-case--3169-5629 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3169-5697 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2)))))))
-(define NameMap-Data-case--3030-5557 (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 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 NameMap-Data-case--3030-5503 (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 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 NameMap-Data-case--2958-5485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3030-5503 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3030-5557 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
-(define NameMap-Data-case--2958-5437 (lambda (arg-0 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 NameMap-Data-case--2878-5368 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define NameMap-Data-case--2619-5271 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define NameMap-Data-case--2619-5160 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define NameMap-Data-case--2456-5129 (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) (NameMap-Data-case--2619-5160 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2619-5271 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define NameMap-Data-case--2456-5019 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define NameMap-Data-case--2101-4988 (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) (NameMap-Data-case--2456-5019 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2456-5129 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4)))))))
-(define NameMap-Data-case--2230-4910 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define NameMap-Data-case--2230-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) ((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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define NameMap-Data-case--2101-4794 (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) (NameMap-Data-case--2230-4821 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2230-4910 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define NameMap-Data-case--2101-4692 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define NameMap-Data-case--1994-4631 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define NameMap-Data-case--1871-4584 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--1994-4631 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
-(define NameMap-Data-case--1871-4536 (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) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define NameMap-Data-case--1871-4493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define NameMap-Data-n--3985-6317-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased 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))) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
-(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
-(define NameMap-Data-treeLookup (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))) (NameMap-Data-case--1871-4493 'erased e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1871-4536 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1871-4584 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
-(define NameMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2101-4692 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2101-4794 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2101-4988 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
-(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2878-5368 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
-(define NameMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (NameMap-Data-case--2958-5437 'erased e-3 e-2 arg-2 n (Name-Core-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))) (NameMap-Data-case--2958-5485 'erased e-9 e-8 e-7 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-5607 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-5849 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-6065 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25))))))))))))))))))))
+(define NameMap-Data-case--4227-6676 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
+(define NameMap-Data-case--4227-6639 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
+(define NameMap-Data-case--4139-6554 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define NameMap-Data-case--3837-6362 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
+(define NameMap-Data-case--3837-6288 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
+(define NameMap-Data-case--3724-6264 (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) (NameMap-Data-case--3837-6288 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3837-6362 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
+(define NameMap-Data-case--3724-6190 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
+(define NameMap-Data-case--2983-6166 (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) (NameMap-Data-case--3724-6190 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3724-6264 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
+(define NameMap-Data-case--3611-6112 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
+(define NameMap-Data-case--3469-6070 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
+(define NameMap-Data-case--3494-6012 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
+(define NameMap-Data-case--3469-5970 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
+(define NameMap-Data-case--2983-5950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3469-5970 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3469-6070 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
+(define NameMap-Data-case--3297-5888 (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))) (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 NameMap-Data-case--3297-5820 (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))) (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 NameMap-Data-case--3194-5798 (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) (NameMap-Data-case--3297-5820 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3297-5888 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
+(define NameMap-Data-case--3194-5730 (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))) (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 NameMap-Data-case--2983-5708 (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) (NameMap-Data-case--3194-5730 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3194-5798 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2)))))))
+(define NameMap-Data-case--3055-5658 (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 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 NameMap-Data-case--3055-5604 (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 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 NameMap-Data-case--2983-5586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3055-5604 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3055-5658 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
+(define NameMap-Data-case--2983-5538 (lambda (arg-0 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 NameMap-Data-case--2903-5469 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define NameMap-Data-case--2644-5372 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define NameMap-Data-case--2644-5261 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define NameMap-Data-case--2481-5230 (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) (NameMap-Data-case--2644-5261 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2644-5372 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define NameMap-Data-case--2481-5120 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define NameMap-Data-case--2126-5089 (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) (NameMap-Data-case--2481-5120 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2481-5230 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4)))))))
+(define NameMap-Data-case--2255-5011 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define NameMap-Data-case--2255-4922 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define NameMap-Data-case--2126-4895 (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) (NameMap-Data-case--2255-4922 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2255-5011 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define NameMap-Data-case--2126-4793 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define NameMap-Data-case--2019-4732 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define NameMap-Data-case--1896-4685 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--2019-4732 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
+(define NameMap-Data-case--1896-4637 (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) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define NameMap-Data-case--1896-4594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define NameMap-Data-n--4010-6418-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased 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))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
+(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
+(define NameMap-Data-treeLookup (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))) (NameMap-Data-case--1896-4594 'erased e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1896-4637 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1896-4685 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
+(define NameMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2126-4793 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2126-4895 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2126-5089 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
+(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2903-5469 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define NameMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (NameMap-Data-case--2983-5538 'erased e-3 e-2 arg-2 n (Name-Core-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))) (NameMap-Data-case--2983-5586 'erased e-9 e-8 e-7 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-5708 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-5950 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-6166 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25))))))))))))))))))))
 (define NameMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeToList 'erased 'erased e-3)))))))
 (define NameMap-Data-merge3 (lambda (arg-0 arg-1 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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-merge2 (lambda (arg-0 arg-1 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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-merge1 (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-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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
 (define NameMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased ext-0))))
-(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4112-6450 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
-(define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1)))
+(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4139-6554 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1)))
 (define NameMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define NameMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4200-6535 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4200-6572 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
+(define NameMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4227-6639 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4227-6676 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
 (define NameMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 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 NameMap-Data-branch6 (lambda (arg-0 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 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 NameMap-Data-branch5 (lambda (arg-0 arg-1 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 NameMap-Data-branch4 (lambda (arg-0 arg-1 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 Name-Core-with--2575-4031 (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 Name-Core-with--2953-4004 (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 Name-Core-with--2575-3983 (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)) (Name-Core-with--2953-4004 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2898-3956 (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 Name-Core-with--2575-3935 (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)) (Name-Core-with--2898-3956 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2847-3915 (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 Name-Core-with--2575-3891 (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)) (Name-Core-with--2847-3915 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2575-3857 (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 Name-Core-with--2766-3831 (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 Name-Core-with--2575-3820 (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)) (Name-Core-with--2766-3831 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2718-3790 (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 Name-Core-with--2575-3779 (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)) (Name-Core-with--2718-3790 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2667-3750 (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 Name-Core-with--2575-3735 (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)) (Name-Core-with--2667-3750 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2575-3708 (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 Name-Core-with--2589-3682 (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 Name-Core-with--2575-3669 (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)) (Name-Core-with--2589-3682 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-case--2173-3604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2178-3337 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Name-Core-case--2179-3323 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Name-Core-with--2643-4127 (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 Name-Core-with--3021-4100 (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 Name-Core-with--2643-4079 (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)) (Name-Core-with--3021-4100 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2966-4052 (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 Name-Core-with--2643-4031 (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)) (Name-Core-with--2966-4052 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2915-4011 (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 Name-Core-with--2643-3987 (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)) (Name-Core-with--2915-4011 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2643-3953 (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 Name-Core-with--2834-3927 (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 Name-Core-with--2643-3916 (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)) (Name-Core-with--2834-3927 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2786-3886 (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 Name-Core-with--2643-3875 (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)) (Name-Core-with--2786-3886 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2735-3846 (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 Name-Core-with--2643-3831 (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)) (Name-Core-with--2735-3846 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2643-3804 (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 Name-Core-with--2657-3778 (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 Name-Core-with--2643-3765 (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)) (Name-Core-with--2657-3778 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-case--2234-3700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2239-3433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Name-Core-case--2240-3419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
 (define Name-Core-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) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) ")"))))(else (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 "." (Name-Core-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))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{P:" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-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 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-21) (Strings-Prelude-C-43C-43 ":" (Name-Core-show_Show__Name e-11))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case block in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) ")"))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "with block in " (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$resolved" (Prelude-show_Show__Int e-16))))))))
 (define Name-Core-showPrec_Show__Name (lambda (arg-0 arg-1) (Name-Core-show_Show__Name arg-1)))
-(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2179-3323 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1))))
-(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2178-3337 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1))))
-(define Name-Core-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))) (Name-Core-case--2173-3376 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3424 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3464 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3520 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3564 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3604 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))
+(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2240-3419 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1))))
+(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2239-3433 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1))))
+(define Name-Core-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))) (Name-Core-case--2234-3472 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3520 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3560 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3616 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3660 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3700 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))
 (define Name-Core-__Impl_Show_Name (lambda () (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))))
-(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Name-Core-compare_Ord__Name arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Name-Core-C-60_Ord__Name arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Name-Core-C-62_Ord__Name arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Name-Core-C-60C-61_Ord__Name arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Name-Core-C-62C-61_Ord__Name arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Name-Core-max_Ord__Name arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Name-Core-min_Ord__Name arg-979 arg-980))))))
-(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651))))))
+(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788))))))
+(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431))))))
 (define Name-Core-C-62_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2)))
 (define Name-Core-C-62C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0)))
-(define Name-Core-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-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))) (Name-Core-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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-10 e-27) (lambda () (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1)))))
+(define Name-Core-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-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))) (Name-Core-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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-10 e-27) (lambda () (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1)))))
 (define Name-Core-C-60_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0)))
 (define Name-Core-C-60C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2)))
 (define Name-Core-C-47C-61_Eq__Name (lambda (arg-0 arg-1) (Prelude-not (Name-Core-C-61C-61_Eq__Name arg-0 arg-1))))
@@ -1599,14 +1621,14 @@
 (define Name-Core-showSep (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-0 (Name-Core-showSep arg-0 e-3)))))))))))))
 (define Name-Core-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 Name-Core-nameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-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))) (Name-Core-nameRoot e-5))) ((4) (let ((e-8 (vector-ref sc0 2))) (Name-Core-nameRoot e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) e-9)) ((6) (let ((e-11 (vector-ref sc0 2))) (Name-Core-nameRoot e-11))) ((7) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-12)))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-16))))))))
-(define Name-Core-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))) (Name-Core-with--2575-3669 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) 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))) (Name-Core-with--2575-3708 e-2 e-19 (Equality-Decidable-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))) (Name-Core-with--2575-3735 e-3 e-20 (Equality-Decidable-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))) (Name-Core-with--2575-3779 e-5 e-22 (Name-Core-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))) (Name-Core-with--2575-3820 e-7 e-24 (Equality-Decidable-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))) (Name-Core-with--2575-3857 e-9 e-26 (Equality-Decidable-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))) (Name-Core-with--2575-3891 e-10 e-27 (Equality-Decidable-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 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-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))) (Name-Core-with--2575-3935 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2575-3983 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2575-4031 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Name-Core-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))) (Name-Core-with--2643-3765 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) 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))) (Name-Core-with--2643-3804 e-2 e-19 (Equality-Decidable-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))) (Name-Core-with--2643-3831 e-3 e-20 (Equality-Decidable-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))) (Name-Core-with--2643-3875 e-5 e-22 (Name-Core-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))) (Name-Core-with--2643-3916 e-7 e-24 (Equality-Decidable-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))) (Name-Core-with--2643-3953 e-9 e-26 (Equality-Decidable-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))) (Name-Core-with--2643-3987 e-10 e-27 (Equality-Decidable-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 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-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))) (Name-Core-with--2643-4031 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2643-4079 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2643-4127 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Name-Core-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))) (Name-Core-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (Name-Core-isUserName e-7)))(else 0)))))
 (define Name-Core-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 FC-Core-show_Show__FC (lambda (arg-0) (Strings-Prelude-C-43C-43 (FC-Core-file arg-0) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (FC-Core-showPos (FC-Core-startPos arg-0)) (Strings-Prelude-C-43C-43 "--" (FC-Core-showPos (FC-Core-endPos arg-0))))))))
 (define FC-Core-showPrec_Show__FC (lambda (arg-0 arg-1) (FC-Core-show_Show__FC arg-1)))
 (define FC-Core-__Impl_Show_FC (lambda () (vector 0 (lambda (x) (FC-Core-show_Show__FC x)) (lambda (d) (lambda (x) (FC-Core-showPrec_Show__FC d x))))))
-(define FC-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-1 e-4) (lambda () (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))
-(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1)))))
+(define FC-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-1 e-4) (lambda () (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))
+(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1)))))
 (define FC-Core-toplevelFC (lambda () (vector 0 "(toplevel)" (vector 0 0 0) (vector 0 0 0))))
 (define FC-Core-startPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (vector 0 0 0))))))
 (define FC-Core-showPos (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (b+ e-2 1 63)) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
@@ -1615,82 +1637,84 @@
 (define FC-Core-endPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2)) (else (vector 0 0 0))))))
 (define FC-Core-emptyFC (lambda () (vector 1 )))
 (define FC-Core-FilePos (lambda () (vector "Builtin.Pair" (vector "Int" ) (vector "Int" ))))
-(define Support-Parser-case--4481-9115 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 ))))))
-(define Support-Parser-case--4466-9093 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4481-9115 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
-(define Support-Parser-case--4220-8998 (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 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0))))))
-(define Support-Parser-case--4256-8931 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0))))))
-(define Support-Parser-case--4220-8882 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4256-8931 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 )))))))))))
-(define Support-Parser-case--3841-8850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4220-8882 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4220-8998 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0))))))))))))
-(define Support-Parser-case--3841-8800 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8759-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
-(define Support-Parser-case--3841-8711 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8670-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
-(define Support-Parser-n--3841-8759-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8759-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
-(define Support-Parser-n--3841-8670-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8670-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
+(define Support-Parser-case--4583-2986 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 ))))))
+(define Support-Parser-case--4567-2964 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4583-2986 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
+(define Support-Parser-case--4318-2865 (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 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0))))))
+(define Support-Parser-case--4354-2797 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0))))))
+(define Support-Parser-case--4318-2747 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4354-2797 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 )))))))))))
+(define Support-Parser-case--3933-2715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4318-2747 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4318-2865 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0))))))))))))
+(define Support-Parser-case--3933-2663 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
+(define Support-Parser-case--3933-2571 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
+(define Support-Parser-n--3933-2621-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
+(define Support-Parser-n--3933-2529-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
 (define Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 (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 ((e-3 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)) ")"))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 "Lex error at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-12 e-16)) (Strings-Prelude-C-43C-43 " input: " e-17))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-7)))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Strings-Prelude-C-43C-43 "Lit error(s) at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-19 e-18)) (Strings-Prelude-C-43C-43 " input: " e-20)))))))))))))
 (define Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 arg-3)))
 (define Support-Parser-__Impl_Show_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 d x))))))
-(define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) e-7)) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 2))) e-4)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-3 (vector-ref sc2 3))) e-3))) (vector 1 e-5 e-6)))))))))))))
+(define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) e-9)) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 2))) e-8)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-7 (vector-ref sc2 5))) e-7))) (vector 1 e-5 e-6)))))))))))))
 (define Support-Parser-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 Support-Parser-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 Support-Parser-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 Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4466-9093 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1)))))))
-(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3841-8711 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3841-8800 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3841-8850 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3841-8850 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0))))))))))))))
+(define Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4567-2964 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1)))))))
+(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3933-2571 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3933-2663 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0))))))))))))))
 (define Support-Parser-escape (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (Prelude-unpack arg-0)) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Prelude-fastPack bind-0))))))
-(define Parser-Text-case--2051-353 (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 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 ))))))
-(define Parser-Text-case--2035-335 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2051-353 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))
+(define Parser-Text-case--2103-364 (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 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 ))))))
+(define Parser-Text-case--2086-346 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))
 (define Parser-Text-some (lambda (arg-0 arg-1 arg-2) (vector 7 1 arg-2 (lambda () (lambda (bind-0) (vector 8 1 1 (Parser-Text-many 'erased 'erased arg-2) (lambda (bind-1) (vector 0 (vector 1 bind-0 bind-1)))))))))
 (define Parser-Text-sepBy1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 8 (Prelude-C-124C-124 1 (lambda () arg-3)) 1 (vector 8 1 arg-3 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f arg-5))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (vector 8 0 arg-3 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-4) (lambda (f-0) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f-0 arg-5)))))))))
 (define Parser-Text-sepBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Parser-Text-option 'erased 'erased arg-3 (vector 0 ) (Parser-Text-sepBy1 'erased 'erased 'erased arg-3 arg-4 arg-5))))
 (define Parser-Text-optional (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Text-option 'erased 'erased arg-2 (vector 0 ) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) (vector 1 eta-0)) arg-3))))
 (define Parser-Text-option (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (vector 9 1 1 arg-4 (lambda () (vector 0 arg-3)))) (else (vector 9 0 1 arg-4 (lambda () (vector 0 arg-3))))))))
-(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2051-353 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))))
+(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))))
 (define Parser-Text-many (lambda (arg-0 arg-1 arg-2) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-some 'erased 'erased arg-2))))
 (define Parser-Text-count1 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 (Prelude-C-124C-124 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () 1)) arg-3 (lambda () (lambda (x) (vector 8 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) 1 (Parser-Text-count 'erased 'erased arg-2 arg-3) (lambda (xs) (vector 0 (vector 1 x xs)))))))))
 (define Parser-Text-count (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (Parser-Text-many 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 0 (vector 0 )))(else (let ((e-6 (- e-5 1))) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-count1 'erased 'erased (Quantity-Text-atMost e-6) arg-3)))))))))))(else (let ((e-2 (- e-0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (Parser-Text-count1 'erased 'erased (Quantity-Text-atLeast e-2) arg-3)) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 4 1 "Quantity out of order"))(else (let ((e-10 (- e-9 1))) (Parser-Text-count1 'erased 'erased (Quantity-Text-between (+ 1 e-2) e-10) arg-3))))))))))))))))))
 (define Parser-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (vector 9 arg-4 arg-4 (arg-5 x) (lambda () acc))))) (vector 4 1 "No more options")) arg-7)))))
 (define Parser-Text-choice (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Parser-Text-choiceMap 'erased 'erased 'erased 'erased arg-4 (lambda (eta-0) eta-0) arg-3 ext-0)))
-(define Core-Parser-Text-case--3260-1785 (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))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10)))))))))
-(define Core-Parser-Text-case--3096-1697 (lambda (arg-0 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) (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 e-9 e-10)))))))))
-(define Core-Parser-Text-case--2379-1636 (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))) (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))) (Core-Parser-Text-case--3096-1697 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10))))))))))
-(define Core-Parser-Text-case--2904-1537 (lambda (arg-0 arg-1 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) (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 e-9 e-10)))))))))
-(define Core-Parser-Text-case--2379-1472 (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))) (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))) (Core-Parser-Text-case--2904-1537 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10))))))))))
-(define Core-Parser-Text-case--2739-1358 (lambda (arg-0 arg-1 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 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6))))))
-(define Core-Parser-Text-case--2379-1334 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2739-1358 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-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 Core-Parser-Text-case--2379-1263 (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 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4)))))))
-(define Core-Parser-Text-case--2379-1148 (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 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5)))))))
-(define Core-Parser-Text-case--2379-1082 (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-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 Core-Parser-Text-case--3315-1803 (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))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10)))))))))
+(define Core-Parser-Text-case--3151-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) (let ((sc0 arg-12)) (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 e-9 e-10)))))))))
+(define Core-Parser-Text-case--2434-1654 (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))) (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))) (Core-Parser-Text-case--3151-1715 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10))))))))))
+(define Core-Parser-Text-case--2959-1555 (lambda (arg-0 arg-1 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) (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 e-9 e-10)))))))))
+(define Core-Parser-Text-case--2434-1490 (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))) (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))) (Core-Parser-Text-case--2959-1555 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10))))))))))
+(define Core-Parser-Text-case--2794-1376 (lambda (arg-0 arg-1 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 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6))))))
+(define Core-Parser-Text-case--2434-1352 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2794-1376 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-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 Core-Parser-Text-case--2434-1281 (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 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4)))))))
+(define Core-Parser-Text-case--2434-1166 (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 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5)))))))
+(define Core-Parser-Text-case--2434-1100 (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-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 Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 arg-2 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-34 (vector-ref sc1 1))) (vector 0 (arg-4 e-34))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc1 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 3))) (let ((e-6 (vector-ref sc3 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc3 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 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-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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 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-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc0 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 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-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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (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))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc0 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0)))))))))))))))))))))))))))
 (define Core-Parser-Text-__Impl_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-1 ext-2 ext-3)))
 (define Core-Parser-Text-terminal (lambda (arg-0 arg-1 ext-0 ext-1) (vector 1 ext-0 ext-1)))
 (define Core-Parser-Text-seq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0 ext-1) (vector 8 arg-3 arg-4 ext-0 ext-1)))
 (define Core-Parser-Text-pure (lambda (arg-0 arg-1 ext-0) (vector 0 ext-0)))
 (define Core-Parser-Text-peek (lambda (arg-0) (vector 2 "Unrecognised token" (lambda (eta-0) 0))))
-(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3260-1785 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4))))
+(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3315-1803 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4))))
 (define Core-Parser-Text-nextIs (lambda (arg-0 ext-0 ext-1) (vector 2 ext-0 ext-1)))
 (define Core-Parser-Text-mustWork (lambda (arg-0 arg-1 arg-2 ext-0) (vector 6 ext-0)))
 (define Core-Parser-Text-fatalError (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 0 ext-0)))
 (define Core-Parser-Text-fail (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 1 ext-0)))
-(define Core-Parser-Text-doParse (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-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2379-1148 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2379-1263 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (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))) (Core-Parser-Text-case--2379-1334 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (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))) (Core-Parser-Text-case--2379-1472 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2379-1636 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5))))))))))
+(define Core-Parser-Text-doParse (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-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1166 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1281 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (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))) (Core-Parser-Text-case--2434-1352 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (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))) (Core-Parser-Text-case--2434-1490 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2434-1654 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5))))))))))
 (define Core-Parser-Text-commit (lambda (arg-0) (vector 5 )))
 (define Core-Parser-Text-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 8 1 arg-4 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 7 arg-4 eta-0 eta-1))))))))
 (define Core-Parser-Text-C-60C-124C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1) (vector 9 arg-2 arg-3 ext-0 ext-1)))
 (define Core-Parser-Text-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 arg-5 (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
 (define Core-Parser-Text-C-60C-42 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-0)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
 (define Core-Parser-Text-C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
-(define Common-Rule-Parser-case--1770-1872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))
+(define Common-Rule-Parser-case--1851-1942 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))
+(define Common-Rule-Parser-position (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2))) (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4)))))))))
 (define Common-Rule-Parser-location (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2))))))))
+(define Common-Rule-Parser-endLocation (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))
 (define Common-Rule-Parser-column (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location arg-0) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))))
 (define Common-Rule-Parser-Rule (lambda (arg-0 arg-1) (vector "Text.Parser.Core.Grammar" (vector "Text.Lexer.Core.TokenData" arg-0) 0 arg-1)))
-(define Source-Lexer-Parser-case--2806-1066 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2806-1036-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Source-Lexer-Parser-case--2809-1041 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Source-Lexer-Parser-case--2597-841 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2595-809-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
-(define Source-Lexer-Parser-case--2596-817 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0))))))
-(define Source-Lexer-Parser-case--2557-790 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
-(define Source-Lexer-Parser-case--2548-774 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2557-790 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
-(define Source-Lexer-Parser-case--2510-746 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
-(define Source-Lexer-Parser-case--2501-730 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2510-746 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
-(define Source-Lexer-Parser-n--2595-810-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2597-841 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0)))))
-(define Source-Lexer-Parser-n--2595-809-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2596-817 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 (Source-Lexer-Parser-keywords)))))
-(define Source-Lexer-Parser-n--2806-1036-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2809-1041 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define Source-Lexer-Parser-case--2869-1079 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2869-1049-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Source-Lexer-Parser-case--2872-1054 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
+(define Source-Lexer-Parser-case--2659-854 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2657-821-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
+(define Source-Lexer-Parser-case--2658-829 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0))))))
+(define Source-Lexer-Parser-case--2619-802 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
+(define Source-Lexer-Parser-case--2610-786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2619-802 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
+(define Source-Lexer-Parser-case--2572-758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
+(define Source-Lexer-Parser-case--2563-742 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2572-758 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
+(define Source-Lexer-Parser-n--2657-822-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2659-854 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0)))))
+(define Source-Lexer-Parser-n--2657-821-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2658-829 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Lexer-Parser-keywords)))))
+(define Source-Lexer-Parser-n--2869-1049-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2872-1054 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
 (define Source-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "character " (Prelude-show_Show__String e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "double " (Prelude-show_Show__Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "literal " (Prelude-show_Show__Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "string " (Prelude-show_Show__String e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "hole identifier " e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "identifier " e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "namespaced identifier " (String-Utils-dotSep (List-Data-reverse 'erased e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "record field " e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "symbol " e-8))) ((9) "comment") ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "doc comment: \"" (Strings-Prelude-C-43C-43 e-10 "\"")))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "CGDirective " e-11))) ((12) "end of input") ((13) (let ((e-12 (vector-ref sc0 1))) e-12)) ((14) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pragma " e-13))) (else (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unrecognised " e-14)))))))
 (define Source-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Source-Lexer-Parser-show_Show__Token arg-1)))
 (define Source-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x))))))
@@ -1701,181 +1725,185 @@
 (define Source-Lexer-Parser-singleBrace (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Source-Lexer-Parser-singleDash (+ 1 arg-0)))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0)))))
 (define Source-Lexer-Parser-reservedSymbols (lambda () (List-Prelude-C-43C-43 'erased (Source-Lexer-Parser-symbols) (vector 1 "%" (vector 1 "\\" (vector 1 ":" (vector 1 "=" (vector 1 "|" (vector 1 "|||" (vector 1 "<-" (vector 1 "->" (vector 1 "=>" (vector 1 "?" (vector 1 "!" (vector 1 "&" (vector 1 "**" (vector 1 ".." (vector 1 "~" (vector 0 )))))))))))))))))))
 (define Source-Lexer-Parser-recField (lambda () (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2595-810-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2595-809-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 ))))))))))))))))))
+(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2657-822-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2657-821-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 ))))))))))))))))))
 (define Source-Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (lambda () (Common-Lexer-Parser-identNormal)))))
 (define Source-Lexer-Parser-mkDirective (lambda (arg-0) (vector 11 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-0) arg-0)))))
-(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2806-1066 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1))))
+(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2869-1079 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1))))
 (define Source-Lexer-Parser-keywords (lambda () (vector 1 "data" (vector 1 "module" (vector 1 "where" (vector 1 "let" (vector 1 "in" (vector 1 "do" (vector 1 "record" (vector 1 "auto" (vector 1 "default" (vector 1 "implicit" (vector 1 "mutual" (vector 1 "namespace" (vector 1 "parameters" (vector 1 "with" (vector 1 "impossible" (vector 1 "case" (vector 1 "of" (vector 1 "if" (vector 1 "then" (vector 1 "else" (vector 1 "forall" (vector 1 "rewrite" (vector 1 "using" (vector 1 "interface" (vector 1 "implementation" (vector 1 "open" (vector 1 "import" (vector 1 "public" (vector 1 "export" (vector 1 "private" (vector 1 "infixl" (vector 1 "infixr" (vector 1 "infix" (vector 1 "prefix" (vector 1 "total" (vector 1 "partial" (vector 1 "covering" (vector 0 ))))))))))))))))))))))))))))))))))))))))
-(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~"))))
+(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~"))))
 (define Source-Lexer-Parser-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2548-774 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
-(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2501-730 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
+(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2610-786 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
+(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2563-742 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
 (define Source-Lexer-Parser-doubleLit (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits))))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits)))))))))))
 (define Source-Lexer-Parser-doubleDash (lambda (arg-0) (vector 5 (Lexer-Text-many (Lexer-Text-is #\-)) (Lexer-Text-choice 'erased 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 1 (vector 4 (Lexer-Text-is #\}) (lambda () (Source-Lexer-Parser-toEndComment arg-0))) (vector 1 (vector 5 (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))) (vector 0 )))))))
 (define Source-Lexer-Parser-docComment (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))))
 (define Source-Lexer-Parser-cgDirective (lambda () (vector 4 (Lexer-Text-exact "%cg") (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))))) (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))
 (define Source-Lexer-Parser-blockComment (lambda () (vector 4 (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Text-is #\-))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 0))))))
 (define String-Utils-stripQuotes (lambda (arg-0) (Prelude-substr (+ 1 0) (Prelude-minus (Prelude-length arg-0) (+ 1 (+ 1 0))) arg-0)))
-(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y))))))))))))))))
-(define Octal-Utils-n--1493-585-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1493-585-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
+(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y))))))))))))))))
+(define Octal-Utils-n--1514-594-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1514-594-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
 (define Octal-Utils-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 Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1493-585-fromOctCharsC-39 1 ext-0)))
+(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1514-594-fromOctCharsC-39 1 ext-0)))
 (define Octal-Utils-fromOct (lambda (ext-0) (Octal-Utils-fromOctChars (Prelude-unpack ext-0))))
-(define IntV-Views-Primitives-Data-case--1494-394 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0))))))
-(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1494-394 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 )))))))))))
-(define Hex-Utils-with--1439-542 (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))) (Hex-Utils-n--1437-533-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
-(define Hex-Utils-n--1557-649-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1557-649-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
-(define Hex-Utils-n--1437-533-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1439-542 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2))))))
+(define IntV-Views-Primitives-Data-case--1515-403 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0))))))
+(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1515-403 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 )))))))))))
+(define Hex-Utils-with--1773-551 (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))) (Hex-Utils-n--1771-542-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
+(define Hex-Utils-case--1823-598 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus arg-1 (Prelude-length arg-0)) arg-2)) arg-0)) (else arg-0)))))
+(define Hex-Utils-case--1771-580 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-pack (Hex-Utils-n--1771-542-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0")))))
+(define Hex-Utils-n--1937-701-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1937-701-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
+(define Hex-Utils-n--1771-542-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1773-551 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2))))))
+(define Hex-Utils-leftPad (lambda (arg-0 arg-1 arg-2) (Hex-Utils-case--1823-598 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Nat (Prelude-length arg-2) arg-1))))
 (define Hex-Utils-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 Hex-Utils-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 Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1557-649-fromHexCharsC-39 1 ext-0)))
+(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1937-701-fromHexCharsC-39 1 ext-0)))
 (define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Prelude-unpack ext-0))))
-(define Hex-Utils-asHex (lambda (arg-0) (Prelude-pack (Hex-Utils-n--1437-533-asHexC-39 arg-0 arg-0 (vector 0 )))))
+(define Hex-Utils-asHex (lambda (arg-0) (Hex-Utils-case--1771-580 arg-0 (Prelude-C-62_Ord__Int arg-0 0))))
 (define Extra-String-Data-join (lambda (arg-0 arg-1 arg-2 arg-3) (Extra-String-Data-drop (Prelude-length arg-1) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (((((e-2 'erased) 'erased) (lambda (acc) (lambda (x) (Strings-Prelude-C-43C-43 acc (Strings-Prelude-C-43C-43 arg-1 x))))) "") arg-3))))))
 (define Extra-String-Data-drop (lambda (arg-0 arg-1) (Prelude-substr arg-0 (Prelude-length arg-1) arg-1)))
-(define Common-Lexer-Parser-case--1612-304 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3))))))))))
+(define Common-Lexer-Parser-case--1638-313 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3))))))))))
 (define Common-Lexer-Parser-spacesOrNewlines (lambda () (Lexer-Text-some (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-space) (Lexer-Text-newline)))))
 (define Common-Lexer-Parser-namespacedIdent (lambda () (vector 4 (Common-Lexer-Parser-namespaceIdent) (lambda () (Lexer-Text-opt (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal))))))))
 (define Common-Lexer-Parser-namespaceIdent (lambda () (vector 4 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))) (lambda () (Lexer-Text-many (vector 4 (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))))) (lambda () (Core-Lexer-Text-expect 'erased (Lexer-Text-is #\.)))))))))
 (define Common-Lexer-Parser-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 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 #\') 0) ((equal? sc0 #\_) 0)(else (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160))))))))))))
 (define Common-Lexer-Parser-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) (Prelude-C-124C-124 (Prelude-isUpper arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))(else (Prelude-C-124C-124 (Prelude-isAlpha arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160))))))))))))
-(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1612-304 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
-(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1612-304 arg-1 arg-0 (Prelude-unpack arg-1))))
+(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1638-313 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
+(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1638-313 arg-1 arg-0 (Prelude-unpack arg-1))))
 (define Common-Lexer-Parser-identNormal (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 2 ) eta-0))))))))
 (define Common-Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 0 ) eta-0))))))))
 (define Common-Lexer-Parser-ident (lambda (arg-0) (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart arg-0 eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-0 eta-0))))))))
 (define Common-Lexer-Parser-comment (lambda () (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))))
-(define Unelab-TTImp-case--6697-8248 (lambda (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)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8)))))))
-(define Unelab-TTImp-case--9197-8186 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))
-(define Unelab-TTImp-case--6697-8148 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))))))))))
-(define Unelab-TTImp-case--6697-8092 (lambda (arg-0 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)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5))))))))
-(define Unelab-TTImp-case--8927-7997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 "_"))) (else (vector 0 ))))))
-(define Unelab-TTImp-case--8872-7918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-4)) (else (Unelab-TTImp-case--8927-7997 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6697-7854-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 'erased arg-2)))))))))
-(define Unelab-TTImp-case--6697-7876 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--8872-7918 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 e-2 _-0 e-5 (Unelab-TTImp-used 'erased 0 arg-7))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9)))))))))))))))
-(define Unelab-TTImp-case--8731-7801 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))
-(define Unelab-TTImp-case--6697-7763 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))))))))))
-(define Unelab-TTImp-case--6697-7699 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5))))))))))))))
-(define Unelab-TTImp-case--6694-7664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
-(define Unelab-TTImp-case--6691-7545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--6691-7496 (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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4))))))))))))
-(define Unelab-TTImp-case--6691-7447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--8172-7323 (lambda (arg-0 arg-1 arg-2 arg-3 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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
-(define Unelab-TTImp-case--8130-7292 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
-(define Unelab-TTImp-case--8090-7263 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))))))
-(define Unelab-TTImp-case--6691-7231 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4))))))))))))))))))
-(define Unelab-TTImp-case--7871-7080 (lambda (arg-0 arg-1 arg-2 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) ((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) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))
-(define Unelab-TTImp-case--7835-7039 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) 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 ((act-25 (let ((act-25 (unbox arg-6))) (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-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (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 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))
-(define Unelab-TTImp-case--6691-7011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-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 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (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-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (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 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-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))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))))))))))
-(define Unelab-TTImp-case--7707-6925 (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-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))
-(define Unelab-TTImp-case--6691-6902 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0)))))))))))))))
-(define Unelab-TTImp-case--7615-6845 (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) (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6691-6818-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8)))))
-(define Unelab-TTImp-case--7473-6757 (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-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))
-(define Unelab-TTImp-case--6691-6702 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))))))
-(define Unelab-TTImp-case--7335-6634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))
-(define Unelab-TTImp-case--6691-6582 (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 (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 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 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--7192-6485 (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 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 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))) (vector 1 (vector 0 e-6 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 Unelab-TTImp-case--6685-6467 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (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-8 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 Unelab-TTImp-case--6965-6308 (lambda (arg-0 arg-1 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) (Unelab-TTImp-n--6683-6050-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 Unelab-TTImp-case--6932-6272 (lambda (arg-0 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))) (Unelab-TTImp-case--6965-6308 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 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6911-6248 (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))) (Unelab-TTImp-case--6932-6272 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6683-6045-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6683-6233 (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 ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--6911-6248 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6710-6105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6046-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
-(define Unelab-TTImp-n--6526-5891-usedBinder (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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6)))))))
-(define Unelab-TTImp-n--6691-6819-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7615-6845 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-9 arg-8))))
-(define Unelab-TTImp-n--9428-8344-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 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 ))))))
-(define Unelab-TTImp-n--9428-8346-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9428-8345-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9428-8344-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
-(define Unelab-TTImp-n--9428-8345-showNScope (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) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-7))) "]")))))))
-(define Unelab-TTImp-n--6683-6048-nthArg (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6683-6047-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1))))))
-(define Unelab-TTImp-n--6691-6818-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 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-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 (Unelab-TTImp-n--6691-6818-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0))))))
-(define Unelab-TTImp-n--6683-6049-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6683-6048-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 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))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8))))))))))))))))))))))))))
-(define Unelab-TTImp-n--6683-6050-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) (let ((sc1 arg-7)) (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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6683-6049-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) 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-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6050-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0)))))))))))
-(define Unelab-TTImp-n--6697-7854-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-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
-(define Unelab-TTImp-n--6683-6046-idxOrDefault (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) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6046-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6))))))))))
-(define Unelab-TTImp-n--6683-6047-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6710-6105 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
-(define Unelab-TTImp-n--6685-6447-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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))) (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (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))) (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6))))))
-(define Unelab-TTImp-n--6683-6045-findArgPos (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 3))) (vector 1 e-2)))(else (vector 0 ))))))
-(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-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))) (Prelude-C-124C-124 (Unelab-TTImp-n--6526-5891-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1)))))
+(define Unelab-TTImp-case--6917-8544 (lambda (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)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8)))))))
+(define Unelab-TTImp-case--9452-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 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))
+(define Unelab-TTImp-case--6917-8442 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))))))))))
+(define Unelab-TTImp-case--6917-8385 (lambda (arg-0 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)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5))))))))
+(define Unelab-TTImp-case--9181-8290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 "_"))) (else (vector 0 ))))))
+(define Unelab-TTImp-case--9125-8211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-4)) (else (Unelab-TTImp-case--9181-8290 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6917-8139-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 'erased arg-2)))))))))
+(define Unelab-TTImp-case--6917-8168 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 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 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-10))))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9)))))))))))))))
+(define Unelab-TTImp-case--8976-8085 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))
+(define Unelab-TTImp-case--6917-8046 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))))))))))
+(define Unelab-TTImp-case--6917-7981 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5))))))))))))))
+(define Unelab-TTImp-case--6914-7945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
+(define Unelab-TTImp-case--6911-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--6911-7773 (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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4))))))))))))
+(define Unelab-TTImp-case--6911-7722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--8411-7597 (lambda (arg-0 arg-1 arg-2 arg-3 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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
+(define Unelab-TTImp-case--8369-7566 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
+(define Unelab-TTImp-case--8328-7537 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))))))
+(define Unelab-TTImp-case--6911-7504 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4))))))))))))))))))
+(define Unelab-TTImp-case--8106-7352 (lambda (arg-0 arg-1 arg-2 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) ((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) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))
+(define Unelab-TTImp-case--8069-7309 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) 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 ((act-25 (let ((act-25 (unbox arg-6))) (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-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (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 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))
+(define Unelab-TTImp-case--6911-7280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-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 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (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-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (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 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-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))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))))))))))
+(define Unelab-TTImp-case--7938-7191 (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-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))
+(define Unelab-TTImp-case--6911-7168 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0)))))))))))))))
+(define Unelab-TTImp-case--7845-7110 (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) (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8)))))
+(define Unelab-TTImp-case--7703-7022 (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-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))
+(define Unelab-TTImp-case--6911-6967 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))))))
+(define Unelab-TTImp-case--7563-6896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))
+(define Unelab-TTImp-case--6911-6843 (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 (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 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 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--7417-6741 (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 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 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))) (vector 1 (vector 0 e-6 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 Unelab-TTImp-case--6905-6723 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (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-8 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 Unelab-TTImp-case--7190-6564 (lambda (arg-0 arg-1 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) (Unelab-TTImp-n--6903-6301-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 Unelab-TTImp-case--7157-6528 (lambda (arg-0 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))) (Unelab-TTImp-case--7190-6564 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 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--7136-6504 (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))) (Unelab-TTImp-case--7157-6528 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6903-6296-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--6903-6489 (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 ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--7136-6504 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--6930-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
+(define Unelab-TTImp-n--6744-6140-usedBinder (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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6)))))))
+(define Unelab-TTImp-n--6911-7084-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7845-7110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-9 arg-8))))
+(define Unelab-TTImp-n--9688-8643-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 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 ))))))
+(define Unelab-TTImp-n--9688-8645-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9688-8644-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9688-8643-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
+(define Unelab-TTImp-n--9688-8644-showNScope (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) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-7))) "]")))))))
+(define Unelab-TTImp-n--6903-6299-nthArg (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6903-6298-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1))))))
+(define Unelab-TTImp-n--6911-7083-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 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-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 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0))))))
+(define Unelab-TTImp-n--6903-6300-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6903-6299-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 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))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8))))))))))))))))))))))))))
+(define Unelab-TTImp-n--6903-6301-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) (let ((sc1 arg-7)) (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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6903-6300-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) 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-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6301-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0)))))))))))
+(define Unelab-TTImp-n--6917-8138-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define Unelab-TTImp-n--6917-8139-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-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
+(define Unelab-TTImp-n--6903-6297-idxOrDefault (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) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6))))))))))
+(define Unelab-TTImp-n--6903-6298-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6930-6356 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
+(define Unelab-TTImp-n--6905-6703-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (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))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6))))))
+(define Unelab-TTImp-n--6903-6296-findArgPos (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 3))) (vector 1 e-2)))(else (vector 0 ))))))
+(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-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))) (Prelude-C-124C-124 (Unelab-TTImp-n--6744-6140-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1)))))
 (define Unelab-TTImp-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
-(define Unelab-TTImp-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))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-3))))))))) ((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 (Context-Core-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 ((Context-Core-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))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased 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 ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-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 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased 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 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (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 ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 (Unelab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-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 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased 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 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-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 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (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))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (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 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc))))))))))
+(define Unelab-TTImp-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))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-3))))))))) ((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 (Context-Core-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 ((Context-Core-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))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased 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 ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-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 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased 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 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (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 ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 (Unelab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-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 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased 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 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-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 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (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))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (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 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc))))))))))
 (define Unelab-TTImp-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) ((Unelab-TTImp-unelabSugar 'erased arg-1 arg-2 e-5) ext-0))))))))
-(define Unelab-TTImp-unelabSugar (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--6685-6467 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 )))))))))))
+(define Unelab-TTImp-unelabSugar (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--6905-6723 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 )))))))))))
 (define Unelab-TTImp-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 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-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2))))))))))))))))
 (define Unelab-TTImp-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
 (define Unelab-TTImp-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
-(define Unelab-TTImp-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 ((Context-Core-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))) ((Unelab-TTImp-case--6911-6248 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 Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-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))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((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) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (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 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--8872-7918 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Unelab-TTImp-used 'erased 0 arg-7))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 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 ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 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 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3))))))))))))))))
-(define Unelab-TTImp-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 ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9428-8346-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))))))
-(define Utils-TTImp-case--5701-7728 (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 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Utils-TTImp-case--5609-7693 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--5609-7631-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Utils-TTImp-case--5614-7666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
-(define Utils-TTImp-case--5613-7639 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Utils-TTImp-case--5546-7596 (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 ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0))))))
-(define Utils-TTImp-case--5541-7570 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5546-7596 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
-(define Utils-TTImp-case--5202-7323 (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 Utils-TTImp-case--5188-7306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5202-7323 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
-(define Utils-TTImp-case--4935-7174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
-(define Utils-TTImp-case--4935-7128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
-(define Utils-TTImp-case--4935-7095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 ))))))
-(define Utils-TTImp-case--4914-7073 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0)))))
-(define Utils-TTImp-n--5609-7630-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 arg-1)))(else (vector 1 0)))))))))))
-(define Utils-TTImp-n--5609-7631-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--5614-7666 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3))))
-(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--5609-7630-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) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--5609-7631-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2)))))))))))
+(define Unelab-TTImp-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 ((Context-Core-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))) ((Unelab-TTImp-case--7136-6504 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 Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-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))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((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) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (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 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 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 ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 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 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3))))))))))))))))
+(define Unelab-TTImp-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 ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9688-8645-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))))))
+(define Utils-TTImp-case--5876-7996 (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 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Utils-TTImp-case--5782-7959 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--5782-7895-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Utils-TTImp-case--5787-7931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
+(define Utils-TTImp-case--5786-7904 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Utils-TTImp-case--5719-7860 (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 ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0))))))
+(define Utils-TTImp-case--5714-7834 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5719-7860 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
+(define Utils-TTImp-case--5373-7585 (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 Utils-TTImp-case--5359-7568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5373-7585 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
+(define Utils-TTImp-case--5106-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
+(define Utils-TTImp-case--5106-7390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
+(define Utils-TTImp-case--5106-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 ))))))
+(define Utils-TTImp-case--5085-7335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0)))))
+(define Utils-TTImp-n--5782-7894-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1)))(else (vector 1 0)))))))))))
+(define Utils-TTImp-n--5782-7895-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--5787-7931 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3))))
+(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--5782-7894-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) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--5782-7895-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2)))))))))))
 (define Utils-TTImp-substNamesTy (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))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2))))))))
 (define Utils-TTImp-substNamesDecl (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTy arg-0 arg-1 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 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 (Utils-TTImp-substNamesData arg-0 arg-1 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-13))))))(else arg-2)))))
 (define Utils-TTImp-substNamesData (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTy arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-7))))))))))
 (define Utils-TTImp-substNamesClause (lambda (arg-0 arg-1 arg-2) (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 ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-1))) arg-0))) (vector 0 e-0 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-4))) arg-0))) (vector 1 e-3 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNames boundC-39 arg-1 e-5) e-6 e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Utils-TTImp-substNames arg-0 (vector 0 ) e-9)))))))))
-(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5188-7306 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((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))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (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 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (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))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2)))))
+(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5359-7568 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((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))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (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 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (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))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2)))))
 (define Utils-TTImp-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2)))))))
 (define Utils-TTImp-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 (Utils-TTImp-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-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 (Utils-TTImp-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1)))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-7)))))))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-1) (Utils-TTImp-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))) (vector 1 arg-0 (Utils-TTImp-substLoc arg-0 e-4) (Utils-TTImp-substLoc arg-0 e-5) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))))) (else (let ((e-9 (vector-ref sc0 2))) (vector 2 arg-0 (Utils-TTImp-substLoc arg-0 e-9))))))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-6) (Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-12) (Utils-TTImp-substLoc arg-0 e-13)))))))) ((3) (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))) (vector 3 arg-0 e-15 e-16 (Utils-TTImp-substLoc arg-0 e-17) (Utils-TTImp-substLoc arg-0 e-18) (Utils-TTImp-substLoc arg-0 e-19)))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 arg-0 (Utils-TTImp-substLoc arg-0 e-21) (Utils-TTImp-substLoc arg-0 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-23)))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 5 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-25) (Utils-TTImp-substLoc arg-0 e-26))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 arg-0 (Utils-TTImp-substLoc arg-0 e-28) (Utils-TTImp-substLoc arg-0 e-29))))) ((9) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 arg-0 (Utils-TTImp-substLoc arg-0 e-31) e-32 (Utils-TTImp-substLoc arg-0 e-33)))))) ((10) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 arg-0 (Utils-TTImp-substLoc arg-0 e-35) (Utils-TTImp-substLoc arg-0 e-36))))) ((12) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 arg-0 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLoc arg-0 eta-0)) e-39))))) ((14) (let ((e-41 (vector-ref sc0 2))) (vector 14 arg-0 (Utils-TTImp-substLoc arg-0 e-41)))) ((17) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 arg-0 e-43 e-44 (Utils-TTImp-substLoc arg-0 e-45)))))) ((18) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 arg-0 e-47 (Utils-TTImp-substLoc arg-0 e-48))))) ((19) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 arg-0 e-50 (Utils-TTImp-substLoc arg-0 e-51))))) ((20) (let ((e-53 (vector-ref sc0 2))) (vector 20 arg-0 (Utils-TTImp-substLoc arg-0 e-53)))) ((21) (let ((e-55 (vector-ref sc0 2))) (vector 21 arg-0 (Utils-TTImp-substLoc arg-0 e-55))))(else arg-1)))))
-(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5541-7570 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0)))))
+(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5714-7834 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0)))))
 (define Utils-TTImp-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
-(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--4914-7073 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-1 arg-0))))
-(define Utils-TTImp-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))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 ))))))
-(define Utils-TTImp-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-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--4935-7095 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(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 ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(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 ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(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 ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 )))))))))
+(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--5085-7335 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 arg-0))))
+(define Utils-TTImp-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))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 ))))))
+(define Utils-TTImp-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-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--5106-7357 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(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 ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(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 ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(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 ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 )))))))))
 (define Utils-TTImp-checkRefVisibility (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 ((Context-Core-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 ((sc3 (TT-Core-C-60C-61_Ord__Visibility (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-4))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-1 arg-3 arg-2 (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-5) ext-0)) (else (vector 1 (vector 0 ))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define TTImp-TTImp-case--12094-10956 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Visibility 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 (TTImp-TTImp-fromBuf_TTC__ImpData 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-2))))) arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0)))))))
-(define TTImp-TTImp-case--11876-10561 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0)))))))
-(define TTImp-TTImp-case--11519-10186 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-1)))) arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0)))))))
-(define TTImp-TTImp-case--11420-10048 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0)))))))
-(define TTImp-TTImp-case--11248-9921 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0)))))))
-(define TTImp-TTImp-case--11125-9740 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0)))))))
-(define TTImp-TTImp-case--11052-9667 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0)))))))
-(define TTImp-TTImp-case--10948-9582 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0)))))))
-(define TTImp-TTImp-case--9532-8835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__AltType 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__BindMode 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0)))))))
-(define TTImp-TTImp-case--8651-7608 (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 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 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))) (vector 1 (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3))))))))))))))))))))
-(define TTImp-TTImp-case--8683-7464 (lambda (arg-0 arg-1 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 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 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 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6))))))))))))))))))
-(define TTImp-TTImp-case--8683-7360 (lambda (arg-0 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 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 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 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
-(define TTImp-TTImp-case--8682-7266 (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) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--8651-7242-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39)))))))))
-(define TTImp-TTImp-case--8403-7064 (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) (let ((act-24 ((Context-Core-inCurrentNS arg-4 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 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1))))))))
-(define TTImp-TTImp-n--7235-5933-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt))))))))))))))))))
-(define TTImp-TTImp-n--8651-7242-updateNs (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--8682-7266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
-(define TTImp-TTImp-n--9142-7803-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 TTImp-TTImp-n--8647-7214-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 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-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (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) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) 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))) (vector 1 (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define TTImp-TTImp-n--8651-7244-impAs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((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) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
-(define TTImp-TTImp-n--9136-7672-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define TTImp-TTImp-n--9136-7673-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define TTImp-TTImp-n--9142-7804-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7673-getFieldName arg-0 arg-1 eta-0)) arg-6)))
-(define TTImp-TTImp-n--9142-7805-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9142-7803-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)) (TTImp-TTImp-n--9142-7804-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))
-(define TTImp-TTImp-n--9142-7802-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) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9)))
-(define TTImp-TTImp-n--8651-7243-findImps (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--8683-7360 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--8651-7242-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--8683-7464 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define TTImp-TTImp-n--9136-7674-expandNS (lambda (arg-0 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) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3))))))))
-(define TTImp-TTImp-n--9136-7675-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))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9136-7672-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7672-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-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))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) 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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9142-7806-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define TTImp-TTImp-n--9142-7806-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 (TTImp-TTImp-n--9142-7802-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)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9142-7805-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9142-7804-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))))
-(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7235-5933-wknName arg-0 arg-1 arg-2 eta-0)) arg-2)))
+(define TTImp-TTImp-case--12806-11559 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Visibility 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 (TTImp-TTImp-fromBuf_TTC__ImpData 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0)))))))
+(define TTImp-TTImp-case--12577-11129 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0)))))))
+(define TTImp-TTImp-case--12179-10717 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0)))))))
+(define TTImp-TTImp-case--12075-10567 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0)))))))
+(define TTImp-TTImp-case--11882-10427 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0)))))))
+(define TTImp-TTImp-case--11747-10226 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0)))))))
+(define TTImp-TTImp-case--11669-10148 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0)))))))
+(define TTImp-TTImp-case--11554-10055 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0)))))))
+(define TTImp-TTImp-case--9960-9213 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__AltType 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__BindMode 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0)))))))
+(define TTImp-TTImp-case--9065-7893 (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 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 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))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3))))))))))))))))))))
+(define TTImp-TTImp-case--9100-7745 (lambda (arg-0 arg-1 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 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 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 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6))))))))))))))))))
+(define TTImp-TTImp-case--9100-7638 (lambda (arg-0 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 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 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 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
+(define TTImp-TTImp-case--9099-7543 (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) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39)))))))))
+(define TTImp-TTImp-case--8813-7337 (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) (let ((act-24 ((Context-Core-inCurrentNS arg-4 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 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1))))))))
+(define TTImp-TTImp-n--7619-6179-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt))))))))))))))))))
+(define TTImp-TTImp-n--9065-7519-updateNs (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--9099-7543 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
+(define TTImp-TTImp-n--9569-8090-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 TTImp-TTImp-n--9061-7488-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 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-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (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) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) 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))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define TTImp-TTImp-n--9065-7521-impAs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((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) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
+(define TTImp-TTImp-n--9563-7959-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define TTImp-TTImp-n--9563-7960-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define TTImp-TTImp-n--9569-8091-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7960-getFieldName arg-0 arg-1 eta-0)) arg-6)))
+(define TTImp-TTImp-n--9569-8092-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9569-8090-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)) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))
+(define TTImp-TTImp-n--9569-8089-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) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9)))
+(define TTImp-TTImp-n--9065-7520-findImps (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--9100-7638 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--9100-7745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define TTImp-TTImp-n--9563-7961-expandNS (lambda (arg-0 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) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3))))))))
+(define TTImp-TTImp-n--9563-7962-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))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-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))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) 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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9569-8093-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define TTImp-TTImp-n--9569-8093-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 (TTImp-TTImp-n--9569-8089-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)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9569-8092-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))))
+(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7619-6179-wknName arg-0 arg-1 arg-2 eta-0)) arg-2)))
 (define TTImp-TTImp-weakenNs_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TTImp-TTImp-weakenNs_Weaken__NestedNames arg-0 e-3 arg-2)))))))))
-(define TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 e-23 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) 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 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0)))))))))))))))))
+(define TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-23 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) 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 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0)))))))))))))))))
 (define TTImp-TTImp-toBuf_TTC__ImpTy (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpRecord (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-1)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-5)))) arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-2 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpDecl (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 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) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 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 ((TTImp-TTImp-toBuf_TTC__ImpData 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-13 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Visibility 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 ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-20 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpData (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (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 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpClause (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-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-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 e-9 eta-0)))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0)))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__IField (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))
-(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0)))))))
+(define TTImp-TTImp-toBuf_TTC__ImpRecord (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-2 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpDecl (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 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) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 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 ((TTImp-TTImp-toBuf_TTC__ImpData 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-13 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Visibility 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 ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-20 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpData (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (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 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpClause (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-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-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-9 eta-0)))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0)))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__IField (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))
+(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0)))))))
 (define TTImp-TTImp-toBuf_TTC__BindMode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-0) eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTImp-TTImp-toBuf_TTC__AltType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-0) eta-0))))))))))))
 (define TTImp-TTImp-show_Show__RawImp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-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))) (Strings-Prelude-C-43C-43 "(%pi " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-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))) (Strings-Prelude-C-43C-43 "(%lam " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-9) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-11) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-13) ")")))))))))))))))) ((3) (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))) (Strings-Prelude-C-43C-43 "(%let " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-15) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-16) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-17) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-18) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-19) ")"))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%case (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-21) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-22) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-23) ")")))))))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%local (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-25) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-26) ")"))))))) ((6) (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))) (Strings-Prelude-C-43C-43 "(%caselocal (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-28) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-30) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-31) ")"))))))))))))) ((7) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%record " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-34) ")"))))))) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-36) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-37) ")"))))))) ((9) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-39) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-40) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-41) "])")))))))))) ((10) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-43) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-44) ")"))))))) ((11) "%search") ((12) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(|" (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__RawImp arg-1)) e-49)) "|)")))) ((13) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%rewrite (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-51) (Strings-Prelude-C-43C-43 ") (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-52) "))"))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%coerced " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-54) ")")))) ((15) (let ((e-57 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%bindhere " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-57) ")")))) ((16) (let ((e-59 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "$" e-59))) ((17) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-62) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-63) ")")))))) ((18) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-66) ")")))) ((19) (let ((e-69 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%delayed " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-69) ")")))) ((20) (let ((e-71 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%delay " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-71) ")")))) ((21) (let ((e-73 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%force " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-73) ")")))) ((22) (let ((e-75 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-75) ")")))) ((23) (let ((e-77 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotename " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotedecl " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%unquote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%runelab " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-83) ")")))) ((27) (let ((e-85 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "?" e-87))) ((30) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%logging " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-89) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-90) ")"))))))) ((28) "%type") ((31) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-95) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-96) ")")))))))))))
@@ -1893,58 +1921,58 @@
 (define TTImp-TTImp-showPrec_Show__ImpClause (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__ImpClause arg-1)))
 (define TTImp-TTImp-showPrec_Show__IFieldUpdate (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)))
 (define TTImp-TTImp-showPrec_Show__FnOpt (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__FnOpt arg-1)))
-(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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))) (let ((act-29 (TTImp-TTImp-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 (TTImp-TTImp-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 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-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 (TTImp-TTImp-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 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 21) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 22) (let ((act-25 (TTC-Core-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 (TTC-Core-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 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 26) (let ((act-25 (TTC-Core-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 (TTC-Core-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 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-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 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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))) (let ((act-29 (TTImp-TTImp-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 (TTImp-TTImp-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 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-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 (TTImp-TTImp-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 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 21) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 22) (let ((act-25 (TTC-Core-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 (TTC-Core-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 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 26) (let ((act-25 (TTC-Core-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 (TTC-Core-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 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-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 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__ImpTy (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-0)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-4)))) arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 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 TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-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 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "ImpData" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (TTC-Core-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 (TTImp-TTImp-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 TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "FnOpt" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "DataOpt" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 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 TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-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 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "ImpData" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (TTC-Core-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 (TTImp-TTImp-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 TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "FnOpt" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "DataOpt" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__BindMode (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "BindMode" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__AltType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "AltType" ext-0)))))))))))
-(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3225)))))))
-(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpData arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__BindMode arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__AltType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-8243 eta-0))))))
+(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3271)))))))
+(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpData arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__BindMode arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__AltType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-2106 eta-0))))))
 (define TTImp-TTImp-__Impl_Show_RawImp (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpTy (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpTy x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpTy d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpDecl (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpClause (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x))))))
 (define TTImp-TTImp-__Impl_Show_IFieldUpdate (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__IFieldUpdate x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__IFieldUpdate d x))))))
 (define TTImp-TTImp-__Impl_Show_FnOpt (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x))))))
-(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-650 arg-651))))))
-(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651))))))
+(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431))))))
+(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431))))))
 (define TTImp-TTImp-C-61C-61_Eq__WithFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((sc1 arg-1)) 0))))
-(define TTImp-TTImp-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))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 TTImp-TTImp-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))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 TTImp-TTImp-C-47C-61_Eq__WithFlag (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-0 arg-1))))
 (define TTImp-TTImp-C-47C-61_Eq__DataOpt (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-0 arg-1))))
 (define NestedNames-TTImp-TTImp-names (lambda (arg-0 arg-1) arg-1))
-(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 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 ((TTImp-TTImp-lhsInCurrentNS 'erased 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 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))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--8403-7064 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--8647-7214-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2)))
+(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 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 ((TTImp-TTImp-lhsInCurrentNS 'erased 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 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))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--8813-7337 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9061-7488-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2)))
 (define TTImp-TTImp-getFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-1))) ((10) (let ((e-4 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-4))) ((9) (let ((e-7 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-7))) ((17) (let ((e-13 (vector-ref sc0 4))) (TTImp-TTImp-getFn e-13))) ((18) (let ((e-16 (vector-ref sc0 3))) (TTImp-TTImp-getFn e-16)))(else arg-0)))))
 (define TTImp-TTImp-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-20 (vector-ref sc0 1))) e-20)) ((5) (let ((e-24 (vector-ref sc0 1))) e-24)) ((6) (let ((e-27 (vector-ref sc0 1))) e-27)) ((7) (let ((e-32 (vector-ref sc0 1))) e-32)) ((8) (let ((e-35 (vector-ref sc0 1))) e-35)) ((9) (let ((e-38 (vector-ref sc0 1))) e-38)) ((10) (let ((e-42 (vector-ref sc0 1))) e-42)) ((11) (let ((e-45 (vector-ref sc0 1))) e-45)) ((12) (let ((e-47 (vector-ref sc0 1))) e-47)) ((13) (let ((e-50 (vector-ref sc0 1))) e-50)) ((14) (let ((e-53 (vector-ref sc0 1))) e-53)) ((27) (let ((e-55 (vector-ref sc0 1))) e-55)) ((29) (let ((e-57 (vector-ref sc0 1))) e-57)) ((30) (let ((e-59 (vector-ref sc0 1))) e-59)) ((28) (let ((e-62 (vector-ref sc0 1))) e-62)) ((16) (let ((e-63 (vector-ref sc0 1))) e-63)) ((15) (let ((e-65 (vector-ref sc0 1))) e-65)) ((18) (let ((e-68 (vector-ref sc0 1))) e-68)) ((19) (let ((e-71 (vector-ref sc0 1))) e-71)) ((20) (let ((e-74 (vector-ref sc0 1))) e-74)) ((21) (let ((e-76 (vector-ref sc0 1))) e-76)) ((22) (let ((e-78 (vector-ref sc0 1))) e-78)) ((23) (let ((e-80 (vector-ref sc0 1))) e-80)) ((24) (let ((e-82 (vector-ref sc0 1))) e-82)) ((25) (let ((e-84 (vector-ref sc0 1))) e-84)) ((26) (let ((e-86 (vector-ref sc0 1))) e-86)) ((17) (let ((e-88 (vector-ref sc0 1))) e-88)) ((31) (let ((e-92 (vector-ref sc0 1))) e-92)) (else (let ((e-94 (vector-ref sc0 1))) e-94))))))
-(define TTImp-TTImp-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-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 ))))))
-(define TTImp-TTImp-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))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 ))))))
-(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-defName arg-1 arg-0 arg-0 eta-0))) arg-1)))
+(define TTImp-TTImp-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-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 ))))))
+(define TTImp-TTImp-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))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 ))))))
+(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-1 arg-0 arg-0 eta-0))) arg-1)))
 (define TTImp-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-apply (vector 8 (TTImp-TTImp-getFC arg-0) arg-0 e-2) e-3))))))))
-(define Value-Core-case--4849-3146 (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 Value-Core-case--4990-3154 (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 Value-Core-withHoles (lambda () (vector 0 0 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define Value-Core-withArgHoles (lambda () (vector 0 1 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define Value-Core-withAll (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 0 1 (vector 0 ) (vector 0 ))))
 (define EvalOpts-Value-Core-usedMetas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Value-Core-tcOnly (lambda () (Value-Core-case--4849-3146 (Value-Core-withArgHoles))))
+(define Value-Core-tcOnly (lambda () (Value-Core-case--4990-3154 (Value-Core-withArgHoles))))
 (define EvalOpts-Value-Core-tcInline (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define EvalOpts-Value-Core-removeAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define EvalOpts-Value-Core-reduceLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
@@ -1954,75 +1982,75 @@
 (define EvalOpts-Value-Core-evalAll (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Value-Core-defaultOpts (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define EvalOpts-Value-Core-argHolesOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define IntMap-Data-case--3912-2541 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
-(define IntMap-Data-case--3912-2504 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
-(define IntMap-Data-case--3824-2419 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define IntMap-Data-case--3573-2275 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
-(define IntMap-Data-case--3573-2201 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
-(define IntMap-Data-case--3460-2177 (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) (IntMap-Data-case--3573-2201 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3573-2275 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
-(define IntMap-Data-case--3460-2103 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
-(define IntMap-Data-case--2719-2079 (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) (IntMap-Data-case--3460-2103 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3460-2177 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
-(define IntMap-Data-case--3347-2025 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
-(define IntMap-Data-case--3205-1983 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
-(define IntMap-Data-case--3230-1925 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
-(define IntMap-Data-case--3205-1883 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
-(define IntMap-Data-case--2719-1863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3205-1883 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3205-1983 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
-(define IntMap-Data-case--3033-1801 (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))) (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 IntMap-Data-case--3033-1733 (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))) (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 IntMap-Data-case--2930-1711 (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) (IntMap-Data-case--3033-1733 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3033-1801 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
-(define IntMap-Data-case--2930-1643 (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))) (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 IntMap-Data-case--2719-1621 (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) (IntMap-Data-case--2930-1643 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2930-1711 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2)))))))
-(define IntMap-Data-case--2791-1571 (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 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 IntMap-Data-case--2791-1517 (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 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 IntMap-Data-case--2719-1499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2791-1517 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2791-1571 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
-(define IntMap-Data-case--2719-1451 (lambda (arg-0 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 IntMap-Data-case--2639-1382 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define IntMap-Data-case--2380-1285 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define IntMap-Data-case--2380-1174 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define IntMap-Data-case--2217-1143 (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) (IntMap-Data-case--2380-1174 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2380-1285 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define IntMap-Data-case--2217-1033 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define IntMap-Data-case--1862-1002 (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) (IntMap-Data-case--2217-1033 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2217-1143 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4)))))))
-(define IntMap-Data-case--1991-924 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define IntMap-Data-case--1991-835 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define IntMap-Data-case--1862-808 (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) (IntMap-Data-case--1991-835 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--1991-924 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define IntMap-Data-case--1862-706 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define IntMap-Data-case--1755-645 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define IntMap-Data-case--1632-598 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1755-645 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
-(define IntMap-Data-case--1632-550 (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) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define IntMap-Data-case--1632-507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define IntMap-Data-n--3746-2331-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased 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))) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
-(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
-(define IntMap-Data-treeLookup (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))) (IntMap-Data-case--1632-507 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1632-550 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1632-598 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
-(define IntMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1862-706 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1862-808 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1862-1002 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
-(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2639-1382 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
-(define IntMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (IntMap-Data-case--2719-1451 'erased e-3 e-2 arg-2 n (Prelude-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))) (IntMap-Data-case--2719-1499 'erased e-9 e-8 e-7 arg-2 (Prelude-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))) (IntMap-Data-case--2719-1621 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-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))) (IntMap-Data-case--2719-1863 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-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))) (IntMap-Data-case--2719-2079 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25))))))))))))))))))))
+(define IntMap-Data-case--3933-2550 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
+(define IntMap-Data-case--3933-2513 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
+(define IntMap-Data-case--3845-2428 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define IntMap-Data-case--3594-2284 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
+(define IntMap-Data-case--3594-2210 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
+(define IntMap-Data-case--3481-2186 (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) (IntMap-Data-case--3594-2210 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3594-2284 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
+(define IntMap-Data-case--3481-2112 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
+(define IntMap-Data-case--2740-2088 (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) (IntMap-Data-case--3481-2112 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3481-2186 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
+(define IntMap-Data-case--3368-2034 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
+(define IntMap-Data-case--3226-1992 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
+(define IntMap-Data-case--3251-1934 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
+(define IntMap-Data-case--3226-1892 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
+(define IntMap-Data-case--2740-1872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3226-1892 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3226-1992 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
+(define IntMap-Data-case--3054-1810 (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))) (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 IntMap-Data-case--3054-1742 (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))) (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 IntMap-Data-case--2951-1720 (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) (IntMap-Data-case--3054-1742 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3054-1810 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
+(define IntMap-Data-case--2951-1652 (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))) (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 IntMap-Data-case--2740-1630 (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) (IntMap-Data-case--2951-1652 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2951-1720 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2)))))))
+(define IntMap-Data-case--2812-1580 (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 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 IntMap-Data-case--2812-1526 (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 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 IntMap-Data-case--2740-1508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2812-1526 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2812-1580 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
+(define IntMap-Data-case--2740-1460 (lambda (arg-0 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 IntMap-Data-case--2660-1391 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define IntMap-Data-case--2401-1294 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define IntMap-Data-case--2401-1183 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define IntMap-Data-case--2238-1152 (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) (IntMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define IntMap-Data-case--2238-1042 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define IntMap-Data-case--1883-1011 (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) (IntMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4)))))))
+(define IntMap-Data-case--2012-933 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define IntMap-Data-case--2012-844 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define IntMap-Data-case--1883-817 (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) (IntMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define IntMap-Data-case--1883-715 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define IntMap-Data-case--1776-654 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define IntMap-Data-case--1653-607 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
+(define IntMap-Data-case--1653-559 (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) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define IntMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define IntMap-Data-n--3767-2340-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased 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))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
+(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
+(define IntMap-Data-treeLookup (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))) (IntMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
+(define IntMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
+(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define IntMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (IntMap-Data-case--2740-1460 'erased e-3 e-2 arg-2 n (Prelude-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))) (IntMap-Data-case--2740-1508 'erased e-9 e-8 e-7 arg-2 (Prelude-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))) (IntMap-Data-case--2740-1630 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-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))) (IntMap-Data-case--2740-1872 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-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))) (IntMap-Data-case--2740-2088 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25))))))))))))))))))))
 (define IntMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeToList 'erased 'erased e-3)))))))
 (define IntMap-Data-merge3 (lambda (arg-0 arg-1 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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-merge2 (lambda (arg-0 arg-1 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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-merge1 (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-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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
 (define IntMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (IntMap-Data-toList 'erased ext-0))))
-(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3824-2419 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3845-2428 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
 (define IntMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define IntMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3912-2504 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3912-2541 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
+(define IntMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3933-2513 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3933-2550 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
 (define IntMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 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 IntMap-Data-branch6 (lambda (arg-0 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 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 IntMap-Data-branch5 (lambda (arg-0 arg-1 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 IntMap-Data-branch4 (lambda (arg-0 arg-1 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 Env-Core-case--3713-6916 (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 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5)))))))
-(define Env-Core-case--3649-6895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3713-6916 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
-(define Env-Core-case--3649-6854 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 ))))))))
-(define Env-Core-case--3558-6779 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
-(define Env-Core-case--3357-6602 (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) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 arg-2 'erased arg-7)))))))
-(define Env-Core-case--2827-6069 (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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))
-(define Env-Core-case--2806-6045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3))))))))))
-(define Env-Core-n--3357-6657-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3357-6657-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3))))))))
-(define Env-Core-n--3357-6591-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9)))
-(define Env-Core-n--3357-6672-dropS (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3357-6672-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3357-6672-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))
+(define Env-Core-case--3787-7167 (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 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5)))))))
+(define Env-Core-case--3723-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3787-7167 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
+(define Env-Core-case--3723-7105 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 ))))))))
+(define Env-Core-case--3632-7030 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
+(define Env-Core-case--3431-6852 (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) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 arg-2 'erased arg-7)))))))
+(define Env-Core-case--2900-6319 (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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))
+(define Env-Core-case--2879-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3))))))))))
+(define Env-Core-n--3431-6907-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3431-6907-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3))))))))
+(define Env-Core-n--3431-6841-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9)))
+(define Env-Core-n--3431-6922-dropS (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))
 (define Env-Core-toVar (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (cond ((equal? sc1 0) (vector 1 0))(else (let ((e-3 (- arg-1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-toVar e-2 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))(else (vector 0 ))))))
 (define Env-Core-shrinkEnv (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Env-Core-shrinkEnv 'erased 'erased e-4 e-8))) (else (let ((e-12 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-shrinkEnv 'erased 'erased e-4 e-12) (lambda (envC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-3 e-12) (lambda (bC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 bC-39 envC-39))))))))))))))))))
 (define Env-Core-revOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
-(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3649-6854 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3649-6895 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2))))))))))
+(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3723-7105 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3723-7146 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2))))))))))
 (define Env-Core-mkShrink (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-mkShrinkSub e-2 e-3 arg-1))))))))
 (define Env-Core-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Env-Core-mkEnv arg-0 e-3))))))))
 (define Env-Core-letToLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 0 e-7 (vector 1 ) e-9) (Env-Core-letToLam 'erased e-5)))))(else (vector 1 e-4 (Env-Core-letToLam 'erased e-5))))))))))))
@@ -2032,37 +2060,37 @@
 (define Env-Core-getBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Env-Core-getBinderUnder 'erased 'erased arg-2 arg-3 arg-4 (vector 0 ) 'erased arg-6)))
 (define Env-Core-findUsedLocs (lambda (arg-0 arg-1 arg-2) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Env-Core-toVar arg-0 eta-0)) (Env-Core-findUsed arg-0 arg-1 (vector 0 ) arg-2))))
 (define Env-Core-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-2) e-3)))) ((4) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-6) e-7))))(else (Env-Core-findUsed arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3)))))))
-(define Env-Core-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))) (Env-Core-case--3357-6602 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3357-6591-eqNat arg-0 'erased e-4 'erased 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))) (Env-Core-n--3357-6657-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))) (Env-Core-n--3357-6672-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2)))))
+(define Env-Core-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))) (Env-Core-case--3431-6852 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3431-6841-eqNat arg-0 'erased e-4 'erased 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))) (Env-Core-n--3431-6907-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))) (Env-Core-n--3431-6922-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2)))))
 (define Env-Core-findSubEnv (lambda (arg-0 arg-1 arg-2) (Env-Core-mkShrink arg-0 (Env-Core-findUsedLocs arg-0 arg-1 arg-2))))
-(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--2806-6045 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2))))))))))))
+(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--2879-6294 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2))))))))))))
 (define Env-Core-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3))))))))))))
 (define Env-Core-allVarsNoLet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))(else (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9))))))))))))))))
 (define Env-Core-allVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-9 (vector-ref sc1 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9))))))))))))
 (define Env-Core-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13) arg-3))))))(else (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3)))))))))))))))
 (define Env-Core-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13) arg-3)))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-15 e-16 e-17) arg-3))))))(else (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3)))))))))))))))
-(define Core-Core-case--7454-10825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4)))))))
-(define Core-Core-case--7316-10709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2))))))
-(define Core-Core-case--7258-10651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Core-Core-case--7200-10594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2))))))
-(define Core-Core-case--6771-10145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
-(define Core-Core-case--6745-10131 (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 ((pC-39 (vector 0 e-2))) (Core-Core-case--6771-10145 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define Core-Core-case--6572-9937 (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))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5)))))))
-(define Core-Core-case--6442-9803 (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))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define Core-Core-case--5165-8566 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2))))))))
-(define Core-Core-case--4933-8541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))))))
-(define Core-Core-case--4933-8443 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5))))))))
-(define Core-Core-case--4873-8294 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
-(define Core-Core-n--4933-8618-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
-(define Core-Core-n--4933-8619-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
-(define Core-Core-n--4933-9183-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1))))
+(define Core-Core-case--7680-4711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4)))))))
+(define Core-Core-case--7535-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2))))))
+(define Core-Core-case--7476-4530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Core-Core-case--7417-4472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2))))))
+(define Core-Core-case--6981-4008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
+(define Core-Core-case--6953-3994 (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 ((pC-39 (vector 0 e-2))) (Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define Core-Core-case--6780-3805 (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))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5)))))))
+(define Core-Core-case--6650-3670 (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))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define Core-Core-case--5370-2429 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2))))))))
+(define Core-Core-case--5136-2404 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))))))
+(define Core-Core-case--5136-2306 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5))))))))
+(define Core-Core-case--5074-2155 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
+(define Core-Core-n--5136-2481-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
+(define Core-Core-n--5136-2482-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
+(define Core-Core-n--5136-3046-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1))))
 (define Core-Core-throw_Catchable__Core_Error (lambda (arg-0 ext-1 ext-0) (Core-Core-coreFail 'erased ext-1 ext-0)))
-(define Core-Core-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 ((age (Core-Core-case--4873-8294 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4)))))))
-(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-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-195 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-195)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-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))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--4933-8618-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--4933-8619-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-72 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-72))))))) ((20) (let ((e-73 (vector-ref sc0 1))) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-73) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-74) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-75))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-76)))) ((22) (let ((e-78 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-78) ":Can't infer type of record to update"))) ((23) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")))) (else (let ((e-198 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-198) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-83) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-85) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-88) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-90) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-87 e-91)))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-93) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-92 (Builtin-snd 'erased 'erased x))))) e-95)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-97) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-96 e-100)))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-102) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-101 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-106) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-105 e-110) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-107) " can't be inferred")))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-111)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-113) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-112 e-117) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) ")"))))))))))))) ((33) (let ((e-119 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-119) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) " is solved by unification")))))) ((34) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-123) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-127))))))))))))))) ((35) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-128) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-129)))))) ((36) (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-130) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-132) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-134 (vector-ref sc0 1))) (let ((e-135 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-134) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-137 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-137) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-136 e-139))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-141) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-143) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-144)))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-146 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-146) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-145 e-148) " is not a rewrite rule type"))))))) ((42) (let ((e-149 (vector-ref sc0 1))) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-150)))) ((2) (let ((e-199 (vector-ref sc1 1))) (let ((sc2 e-199)) (let ((e-203 (vector-ref sc2 1))) (let ((e-204 (vector-ref sc2 2))) (let ((sc3 e-204)) (let ((e-208 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-203 e-208) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-150)))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-200) " is not fully applied"))))))))))) ((43) (let ((e-152 (vector-ref sc0 1))) (let ((e-153 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-153) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-152 e-155) " as it is has a polymorphic type"))))))) ((44) (let ((e-156 (vector-ref sc0 1))) (let ((e-157 (vector-ref sc0 2))) (let ((e-159 (vector-ref sc0 4))) (let ((e-160 (vector-ref sc0 5))) (let ((e-161 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-157) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-160) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-159) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-161)))))))))))))) ((45) (let ((e-162 (vector-ref sc0 1))) (let ((e-163 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-162) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-163 " can't be bound here")))))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-165 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-165) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-164 e-167))))))) ((47) (let ((e-168 (vector-ref sc0 1))) (let ((e-169 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-168) (Strings-Prelude-C-43C-43 ":" e-169))))) ((48) (let ((e-170 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170)))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-172))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176) ")"))))) ((51) (let ((e-177 (vector-ref sc0 1))) (let ((e-178 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-177) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found")))))) ((52) (let ((e-179 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--4933-9183-showMod e-179 eta-0)) e-179))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180))) ((55) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-181))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-183) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-184))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-186) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-187))))))))) ((58) (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-189) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-190))))))))) (else (let ((e-191 (vector-ref sc0 1))) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-191) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-192) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-193)))))))))))))
+(define Core-Core-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 ((age (Core-Core-case--5074-2155 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4)))))))
+(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-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-196 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-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))) (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2481-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2482-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-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) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--5136-3046-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-194)))))))))))))
 (define Core-Core-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") (else "Unknown reason")))))
 (define Core-Core-showPrec_Show__Error (lambda (arg-0 arg-1) (Core-Core-show_Show__Error arg-1)))
-(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 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 ((pC-39 (vector 0 e-2))) ((Core-Core-case--6771-10145 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))))
+(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 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 ((pC-39 (vector 0 e-2))) ((Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))))
 (define Core-Core-__Impl_Show_Error (lambda () (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))))
-(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-10040) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10040 eta-0)))) (lambda (a) (lambda (arg-10041) (lambda (arg-10042) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-10041 arg-10042 eta-0))))))))
+(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-3908) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-3908 eta-0)))) (lambda (a) (lambda (arg-3909) (lambda (arg-3910) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-3909 arg-3910 eta-0))))))))
 (define Core-Core-wrapError (lambda (arg-0 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 Core-Core-when (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Core-Core-traverse_ (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased arg-2 e-3) eta-0)))))))))))))
@@ -2076,10 +2104,10 @@
 (define Core-Core-Core-runCore (lambda (arg-0 arg-1) arg-1))
 (define Core-Core-put (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (set-box! arg-3 arg-4))) (vector 1 act-24))))
 (define Core-Core-pure (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (IORef-Data-newIORef 'erased 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 Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 Core-Core-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (arg-2 e-5))))))) arg-3 ext-0)))
 (define Core-Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))))
-(define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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-73 (vector-ref sc0 1))) (vector 1 e-73))) ((21) (let ((e-76 (vector-ref sc0 1))) (let ((sc1 e-76)) (case (vector-ref sc1 0) ((1) (let ((e-195 (vector-ref sc1 1))) (let ((sc2 e-195)) (let ((e-201 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-201))))) (else (vector 0 )))))) ((22) (let ((e-78 (vector-ref sc0 2))) (vector 1 e-78))) ((23) (let ((e-80 (vector-ref sc0 1))) (vector 1 e-80))) ((24) (let ((e-83 (vector-ref sc0 1))) (vector 1 e-83))) ((25) (let ((e-85 (vector-ref sc0 1))) (vector 1 e-85))) ((26) (let ((e-88 (vector-ref sc0 2))) (vector 1 e-88))) ((27) (let ((e-93 (vector-ref sc0 2))) (vector 1 e-93))) ((28) (let ((e-97 (vector-ref sc0 2))) (vector 1 e-97))) ((29) (let ((e-102 (vector-ref sc0 2))) (vector 1 e-102))) ((30) (let ((e-106 (vector-ref sc0 2))) (vector 1 e-106))) ((31) (let ((e-111 (vector-ref sc0 1))) (let ((sc1 e-111)) (case (vector-ref sc1 0) ((1) (let ((e-203 (vector-ref sc1 1))) (let ((sc2 e-203)) (let ((e-208 (vector-ref sc2 1))) (vector 1 e-208))))) (else (vector 0 )))))) ((32) (let ((e-113 (vector-ref sc0 2))) (vector 1 e-113))) ((33) (let ((e-119 (vector-ref sc0 2))) (vector 1 e-119))) ((34) (let ((e-123 (vector-ref sc0 1))) (vector 1 e-123))) ((35) (let ((e-128 (vector-ref sc0 1))) (vector 1 e-128))) ((36) (let ((e-130 (vector-ref sc0 1))) (vector 1 e-130))) ((37) (let ((e-132 (vector-ref sc0 1))) (vector 1 e-132))) ((38) (let ((e-134 (vector-ref sc0 1))) (vector 1 e-134))) ((39) (let ((e-137 (vector-ref sc0 2))) (vector 1 e-137))) ((40) (let ((e-141 (vector-ref sc0 2))) (vector 1 e-141))) ((41) (let ((e-146 (vector-ref sc0 2))) (vector 1 e-146))) ((42) (let ((e-149 (vector-ref sc0 1))) (vector 1 e-149))) ((43) (let ((e-153 (vector-ref sc0 2))) (vector 1 e-153))) ((44) (let ((e-157 (vector-ref sc0 2))) (vector 1 e-157))) ((45) (let ((e-162 (vector-ref sc0 1))) (vector 1 e-162))) ((46) (let ((e-165 (vector-ref sc0 2))) (vector 1 e-165))) ((47) (let ((e-168 (vector-ref sc0 1))) (vector 1 e-168))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (let ((e-175 (vector-ref sc0 2))) (vector 1 e-175))) ((51) (let ((e-177 (vector-ref sc0 1))) (vector 1 e-177))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-184 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-184))) ((57) (let ((e-187 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-187))) ((58) (let ((e-190 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-190))) (else (let ((e-193 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-193)))))))
+(define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-202 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-202))))) (else (vector 0 )))))) ((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)) (case (vector-ref sc1 0) ((1) (let ((e-204 (vector-ref sc1 1))) (let ((sc2 e-204)) (let ((e-209 (vector-ref sc2 1))) (vector 1 e-209))))) (else (vector 0 )))))) ((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) (let ((e-176 (vector-ref sc0 2))) (vector 1 e-176))) ((51) (let ((e-178 (vector-ref sc0 1))) (vector 1 e-178))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-185 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-185))) ((57) (let ((e-188 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-188))) ((58) (let ((e-191 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-191))) (else (let ((e-194 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-194)))))))
 (define Core-Core-get (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (unbox arg-3))) (vector 1 act-24))))
 (define Core-Core-filterM (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 ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-filterM 'erased arg-1 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))) (vector 1 (vector 1 e-2 e-6)))))))) (else ((Core-Core-filterM 'erased arg-1 e-3) eta-0)))))))))))))))))
 (define Core-Core-coreRun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (arg-2 ext-0))) ((Prelude-either 'erased 'erased 'erased (lambda () arg-3) (lambda () arg-4) act-24) ext-0))))
@@ -2092,217 +2120,220 @@
 (define Core-Core-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 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 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-3 e-5) ext-0))))))))
 (define Core-Core-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (arg-4) (lambda (arg-5) (let ((sc0 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 ((sc1 arg-5)) (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 Core-Core-C-60C-36C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (arg-2 e-5))))))) arg-3 ext-0)))
-(define IORef-Data-writeIORef (lambda (arg-0 arg-1 arg-2 ext-0) (set-box! arg-1 arg-2)))
-(define IORef-Data-readIORef (lambda (arg-0 arg-1 ext-0) (unbox arg-1)))
+(define IORef-Data-writeIORef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (set-box! arg-3 arg-4)))))))
+(define IORef-Data-readIORef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (unbox arg-3)))))))
 (define IORef-Data-prim__writeIORef (lambda (arg-0 arg-1 arg-2 arg-3) (set-box! arg-1 arg-2)))
 (define IORef-Data-prim__readIORef (lambda (arg-0 arg-1 arg-2) (unbox arg-1)))
 (define IORef-Data-prim__newIORef (lambda (arg-0 arg-1 arg-2) (box arg-1)))
-(define IORef-Data-newIORef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (box arg-1))) act-24)))
-(define Context-Core-case--24320-25502 (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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (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 (let ((act-26 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24320-25473-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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-1)))))
-(define Context-Core-case--24168-25334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--24122-25293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0)))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--24047-25229 (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) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5)))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--23989-25201 (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))) (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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25)))))))))))))))))))))))))))))))
-(define Context-Core-case--23929-25151 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23846-25082 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23775-25012 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23704-24942 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23617-24815 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
-(define Context-Core-case--23507-24707 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
-(define Context-Core-case--23437-24681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--23384-24625 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23331-24575 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23278-24525 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23203-24467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23117-24397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 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))))))))))))))))))))))))))))))
-(define Context-Core-case--22975-24265 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 e-37 e-38 arg-0) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22908-24199 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 arg-0 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22842-24134 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 arg-0 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22776-24069 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22710-24004 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 arg-0 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22644-23939 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-35 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22559-23820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
-(define Context-Core-case--22503-23795 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--22435-23744 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22416-23674 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Context-Core-case--22320-23640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22299-23578 (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) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Context-Core-case--22231-23549 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 arg-0 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22018-23339 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21941-23263 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21864-23187 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-0 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21781-23110 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21721-23041 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21664-22957 (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))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
-(define Context-Core-case--21606-22936 (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))) (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 ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) 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))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21421-22763 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) 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))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21341-22688 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) 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)))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21191-22534 (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))) (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--21057-22458 (lambda (arg-0 arg-1 arg-2 arg-3 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-9)) (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))) (vector 0 arg-15 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)))))))))))))))))))))))))))))
-(define Context-Core-case--20908-22383 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 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))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (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))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 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)))))))))))))))))))))))))))))) (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-2))))))))))))))))
-(define Context-Core-case--20923-22302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3)))))
-(define Context-Core-case--20688-22085 (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 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3)))))
-(define Context-Core-case--20616-22060 (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))) (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))) (Context-Core-case--20688-22085 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3)))))
-(define Context-Core-case--20507-21916 (lambda (arg-0 arg-1 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 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 ))))))
-(define Context-Core-case--20363-21782 (lambda (arg-0 arg-1 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 0 )) (else arg-12)))))
-(define Context-Core-case--20285-21741 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ 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))))))))))))))))))))))))))))))
-(define Context-Core-case--20235-21658 (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 Context-Core-case--20145-21624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--20130-21565 (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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-26 (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))) (vector 0 e-0 e-1 e-26 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 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Context-Core-case--20060-21529 (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))) (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))) (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 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--19984-21460 (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-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))) (vector 0 e-0 e-1 e-2 arg-0 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)))))))))))))))))))))))))))))
-(define Context-Core-case--19932-21411 (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-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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))))
-(define Context-Core-case--19880-21360 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))
-(define Context-Core-case--19661-21269 (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)) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19661-21179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19613-21123 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Context-Core-case--19599-21079 (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) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-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 ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) arg-0 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))) ((Context-Core-case--19613-21123 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0)))))))
-(define Context-Core-case--19547-21061 (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))) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-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)))))))))))))))))))))))))))))
-(define Context-Core-case--19418-20947 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (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))))))))))))))))))))))))))))))
-(define Context-Core-case--19339-20874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19136-20780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-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))))))))))))))))))))))))))))))
-(define Context-Core-case--19136-20699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19049-20645 (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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-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))))))))))))))))))))))))))))))) (vector 1 act-24))))))))
-(define Context-Core-case--19049-20600 (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 (vector 0 ))))))
-(define Context-Core-case--18924-20499 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0)))))
-(define Context-Core-case--18903-20470 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18885-20455 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18903-20470 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18760-20368 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1)))))
-(define Context-Core-case--18739-20339 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18721-20324 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18739-20339 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18623-20242 (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))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18605-20227 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18623-20242 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18500-20137 (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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) 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))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18338-20122 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18500-20137 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18344-20001 (lambda (arg-0 arg-1 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 ((Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) 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 1 arg-12 e-5))))))))) (else (Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10))))))
-(define Context-Core-case--18280-19962 (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))) (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--18222-19907 (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))) (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))) (vector 0 e-0 (vector 1 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--18124-19799 (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-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0)))))))
-(define Context-Core-case--18106-19784 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18124-19799 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17771-19559 (lambda (arg-0 arg-1 arg-2 arg-3 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-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))
-(define Context-Core-case--17771-19490 (lambda (arg-0 arg-1 arg-2 arg-3 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))) e-1)) (else (vector 0 ))))))
-(define Context-Core-case--17747-19453 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-0 eta-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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--17771-19490 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
-(define Context-Core-case--17597-19315 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
-(define Context-Core-case--17512-19270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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-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 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--17494-19224 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17394-19135 (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 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Context-Core-case--17306-19088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
-(define Context-Core-case--17288-19040 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17200-18992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
-(define Context-Core-case--17182-18944 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16992-18804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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))) (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 arg-0))))))))))))))))))))))))
-(define Context-Core-case--16974-18758 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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))) (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 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16821-18659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16803-18606 (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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16663-18529 (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)) (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-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 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16645-18464 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (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-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (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))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define Context-Core-case--16548-18416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16530-18361 (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 ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16269-18110 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7)))))))))))
-(define Context-Core-case--16224-18059 (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 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--16157-18032 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) 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 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--16069-17924 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
-(define Context-Core-case--16026-17887 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
-(define Context-Core-case--15974-17863 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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))) (vector 0 arg-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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--15899-17797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 arg-0 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15882-17753 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (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 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15805-17712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20))))))))))))))))))))))))
-(define Context-Core-case--15788-17668 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15711-17627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15694-17583 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15619-17544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 arg-0 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))))))))))))))))))))))))
-(define Context-Core-case--15602-17500 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (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))) (vector 0 e-0 e-21 arg-0 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)))))))))))))))))))))) 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 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15502-17457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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-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 e-15 e-16 arg-6 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15483-17390 (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (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 )))))))))))))
-(define Context-Core-case--15466-17375 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15483-17390 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15346-17303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
-(define Context-Core-case--15329-17249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 (vector 1 e-2)))))))))))
-(define Context-Core-case--15177-17219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
-(define Context-Core-case--15177-17128 (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 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0)))))))
-(define Context-Core-case--15160-17097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15177-17128 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (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-2))))))))))))))))
-(define Context-Core-case--15073-17011 (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 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define Context-Core-case--15065-17000 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15073-17011 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Context-Core-case--15008-16982 (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))) (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))) (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 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--14953-16930 (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))) (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))) (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 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--14903-16881 (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))) (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))) (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))) (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 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--14833-16824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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))) (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 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--14763-16768 (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))) (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-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--14763-16706-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))
-(define Context-Core-case--14766-16720 (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-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))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
-(define Context-Core-case--14663-16647 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--11616-13849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
-(define Context-Core-case--11615-13758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
-(define Context-Core-case--11485-13586 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
-(define Context-Core-case--11484-13567 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
-(define Context-Core-case--10527-12755 (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))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
-(define Context-Core-case--10526-12655 (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))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
-(define Context-Core-case--9934-12318 (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))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6))))))))
-(define Context-Core-case--9934-12269 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1))))))))
-(define Context-Core-case--9933-12073 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1)) 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 (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1)))))))))))))
-(define Context-Core-case--9861-12024 (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 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Context-Core-case--9860-12000 (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 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
-(define Context-Core-case--9781-11923 (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 Context-Core-case--9679-11877 (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9)))))))))))))
-(define Context-Core-case--9679-11849 (lambda (arg-0 arg-1 arg-2 arg-3) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))))
-(define Context-Core-case--9651-11808 (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 ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((Context-Core-n--9651-11782-commitStaged arg-0 (IntMap-Data-toList 'erased (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-12 (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))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-10 (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))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9))))))))))))))))))))))
-(define Context-Core-case--9634-11780 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--9541-11705 (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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9518-11685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-1))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define Context-Core-case--9455-11664 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-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)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-4))))))(else (vector 1 (vector 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))) ((Context-Core-n--9360-11518-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9455-11620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9360-11606 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--9455-11664 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
-(define Context-Core-case--9364-11576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--9360-11518-getMatches arg-0 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))) (vector 1 (vector 1 arg-2 e-5))))))))) (else (Context-Core-n--9360-11518-getMatches arg-0 arg-1 arg-3))))))
-(define Context-Core-case--9252-11498 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9259-11463 (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 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9252-11424 (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 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Context-Core-case--9045-11394 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9129-11328 (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))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
-(define Context-Core-case--9052-11311 (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) (let ((act-24 ((Context-Core-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))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9129-11328 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9052-11253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
-(define Context-Core-case--9045-11239 (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 ((Context-Core-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))) ((Context-Core-case--9052-11253 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 ((Context-Core-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))) ((Context-Core-case--9129-11328 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-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 Context-Core-case--8943-11215 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--8950-11183 (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) (let ((act-24 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--8943-11147 (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 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 ((Context-Core-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 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Context-Core-case--8873-11095 (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 (vector 0 arg-1 arg-0))) (else (vector 0 ))))))
-(define Context-Core-case--8861-11079 (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))) (Context-Core-case--8873-11095 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 ))))))
-(define Context-Core-case--8807-11052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--8742-11022 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))
-(define Context-Core-case--8742-10975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased e-5 e-2 arg-1) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
-(define Context-Core-case--8731-10960 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased e-6 e-2 arg-1) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
-(define Context-Core-case--8677-10935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--8612-10905 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))
-(define Context-Core-case--8612-10858 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased e-5 e-2 (vector 1 arg-1)) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
-(define Context-Core-case--8601-10843 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased e-6 e-2 (vector 1 arg-1)) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
-(define Context-Core-case--8556-10806 (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 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0))))))
-(define Context-Core-case--8476-10775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define Context-Core-case--8406-10676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0)))))))
-(define Context-Core-case--8400-10654 (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))) (Context-Core-case--8406-10676 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
-(define Context-Core-case--5588-8182 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else "")))))
-(define Context-Core-n--21495-22781-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-0)))
-(define Context-Core-n--20343-21763-toNothing (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)) (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 ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--20363-21782 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7)))))
-(define Context-Core-n--20616-22004-shrink (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 )))))))))
-(define Context-Core-n--24788-25897-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStr (Strings-Prelude-C-43C-43 e-2 ": ") eta-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 ((nano 1000000000)) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24788-25896-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s"))) eta-0))) (vector 1 act-25)))))))))))))))
-(define Context-Core-n--10874-13105-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
-(define Context-Core-n--14763-16706-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))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
-(define Context-Core-n--20472-21891-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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-4)) (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))) (Context-Core-case--20507-21916 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Context-Core-n--9360-11517-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0)))))
-(define Context-Core-n--20774-22144-justPos (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--20774-22144-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--20774-22144-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
-(define Context-Core-n--15062-16990-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-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))) ((Context-Core-case--15073-17011 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 Context-Core-n--17747-19429-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
-(define Context-Core-n--11173-13289-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11173-13289-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
-(define Context-Core-n--11172-13258-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11172-13258-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
-(define Context-Core-n--18338-19977-getPos (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) ((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))) (Context-Core-case--18344-20001 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0))))))))))
-(define Context-Core-n--9360-11518-getMatches (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Context-Core-n--9360-11518-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--9364-11576 arg-0 arg-1 e-6 e-3 (Context-Core-n--9360-11517-matches arg-0 arg-1 'erased arg-1 e-6)))))))))))))
-(define Context-Core-n--20231-21645-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--20235-21658 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
-(define Context-Core-n--10873-12972-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
-(define Context-Core-n--17747-19430-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
-(define Context-Core-n--20472-21866-couldBeParam (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))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 ))))))
-(define Context-Core-n--20908-22268-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 Context-Core-n--9651-11782-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9651-11782-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
-(define Context-Core-n--21495-22780-allParents (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--21495-22780-allParents arg-0 arg-1 e-3)))))))))
-(define Context-Core-n--20908-22267-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) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0)))))))
-(define Context-Core-n--24788-25896-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1))))))
-(define Context-Core-n--24320-25473-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5))))))
-(define Context-Core-n--20908-22269-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--20908-22268-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 ((Context-Core-addCtxt e-5 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 (vector-ref sc3 2))) ((Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0))))))))))))))))))))))
+(define IORef-Data-newIORef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (box arg-3)))))) (lambda (m) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) m)))))))))
+(define Context-Core-case--25060-19943 (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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (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 (let ((act-26 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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-1)))))
+(define Context-Core-case--24899-19767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24851-19724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24773-19657 (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) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24713-19627 (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))) (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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25)))))))))))))))))))))))))))))))
+(define Context-Core-case--24651-19576 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24565-19504 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24492-19432 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24419-19360 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24326-19223 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
+(define Context-Core-case--24210-19106 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
+(define Context-Core-case--24138-19079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--24084-19021 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--24030-18970 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23976-18919 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23898-18860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23808-18787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23659-18646 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23590-18578 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23522-18511 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23454-18444 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23386-18377 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23318-18310 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23231-18189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
+(define Context-Core-case--23174-18162 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23104-18110 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23081-18038 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Context-Core-case--22984-18000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22954-17937 (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) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Context-Core-case--22884-17899 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22814-17830 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22744-17761 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22664-17682 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22584-17603 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22504-17524 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22418-17444 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22356-17373 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22296-17286 (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))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
+(define Context-Core-case--22237-17263 (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))) (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 ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) 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))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22047-17085 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) 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))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--21964-17006 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) 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)))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--21805-16843 (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))) (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--21669-16766 (lambda (arg-0 arg-1 arg-2 arg-3 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-9)) (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))) (vector 0 arg-15 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)))))))))))))))))))))))))))))
+(define Context-Core-case--21400-16689 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 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))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (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))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 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)))))))))))))))))))))))))))))) (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-2))))))))))))))))
+(define Context-Core-case--21452-16556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))
+(define Context-Core-case--21415-16509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))))))))))
+(define Context-Core-case--21179-16290 (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 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3)))))
+(define Context-Core-case--21107-16265 (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))) (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))) (Context-Core-case--21179-16290 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3)))))
+(define Context-Core-case--20998-16121 (lambda (arg-0 arg-1 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 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 ))))))
+(define Context-Core-case--20854-15987 (lambda (arg-0 arg-1 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 0 )) (else arg-12)))))
+(define Context-Core-case--20773-15945 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20722-15858 (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 Context-Core-case--20629-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--20613-15762 (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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-26 (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))) (vector 0 e-0 e-1 e-26 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 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Context-Core-case--20540-15722 (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))) (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))) (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 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--20461-15648 (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-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))) (vector 0 e-0 e-1 e-2 arg-0 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)))))))))))))))))))))))))))))
+(define Context-Core-case--20408-15598 (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-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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))))
+(define Context-Core-case--20355-15546 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))
+(define Context-Core-case--20134-15453 (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)) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20134-15362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20082-15306 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Context-Core-case--20067-15258 (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) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-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 ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) arg-0 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))) ((Context-Core-case--20082-15306 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0)))))))
+(define Context-Core-case--20014-15239 (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))) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-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)))))))))))))))))))))))))))))
+(define Context-Core-case--19881-15122 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (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))))))))))))))))))))))))))))))
+(define Context-Core-case--19799-15046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--19595-14949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-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))))))))))))))))))))))))))))))
+(define Context-Core-case--19595-14868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--19505-14814 (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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-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))))))))))))))))))))))))))))))) (vector 1 act-24))))))))
+(define Context-Core-case--19505-14769 (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 (vector 0 ))))))
+(define Context-Core-case--19380-14665 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0)))))
+(define Context-Core-case--19359-14636 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19339-14621 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19359-14636 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--19214-14532 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1)))))
+(define Context-Core-case--19193-14503 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19173-14488 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19193-14503 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--19075-14404 (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))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19055-14389 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19075-14404 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18949-14296 (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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) 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))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18783-14281 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18949-14296 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18789-14156 (lambda (arg-0 arg-1 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 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) 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 1 arg-12 e-5))))))))) (else (Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10))))))
+(define Context-Core-case--18723-14116 (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))) (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--18663-14059 (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))) (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))) (vector 0 e-0 (vector 1 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--18565-13950 (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-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0)))))))
+(define Context-Core-case--18545-13935 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18565-13950 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18209-13708 (lambda (arg-0 arg-1 arg-2 arg-3 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-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))
+(define Context-Core-case--18209-13639 (lambda (arg-0 arg-1 arg-2 arg-3 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))) e-1)) (else (vector 0 ))))))
+(define Context-Core-case--18183-13601 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-0 eta-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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
+(define Context-Core-case--18029-13459 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
+(define Context-Core-case--17944-13412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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-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 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17924-13366 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17820-13272 (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 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Context-Core-case--17732-13223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
+(define Context-Core-case--17712-13175 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17624-13125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
+(define Context-Core-case--17604-13077 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17412-12933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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))) (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 arg-0))))))))))))))))))))))))
+(define Context-Core-case--17392-12887 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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))) (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 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17236-12784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17216-12730 (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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17075-12651 (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)) (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-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 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17055-12585 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (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-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (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))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define Context-Core-case--16957-12535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16937-12479 (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 ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--16663-12211 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7)))))))))))
+(define Context-Core-case--16617-12160 (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 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16548-12132 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) 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 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--16451-12015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
+(define Context-Core-case--16405-11975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
+(define Context-Core-case--16352-11949 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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))) (vector 0 arg-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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--16277-11882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 arg-0 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16258-11838 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (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 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16181-11795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20))))))))))))))))))))))))
+(define Context-Core-case--16162-11751 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16085-11708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16066-11664 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15991-11623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 arg-0 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))))))))))))))))))))))))
+(define Context-Core-case--15972-11579 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (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))) (vector 0 e-0 e-21 arg-0 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)))))))))))))))))))))) 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 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15872-11534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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-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 e-15 e-16 arg-6 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--15853-11467 (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (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 )))))))))))))
+(define Context-Core-case--15834-11452 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15853-11467 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15713-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
+(define Context-Core-case--15694-11323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 (vector 1 e-2)))))))))))
+(define Context-Core-case--15540-11291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
+(define Context-Core-case--15540-11200 (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 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0)))))))
+(define Context-Core-case--15521-11167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (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-2))))))))))))))))
+(define Context-Core-case--15433-11078 (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 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
+(define Context-Core-case--15424-11067 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15433-11078 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Context-Core-case--15366-11048 (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))) (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))) (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 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--15310-10995 (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))) (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))) (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 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--15259-10945 (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))) (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))) (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))) (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 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--15188-10887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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))) (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 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--15115-10830 (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))) (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-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))
+(define Context-Core-case--15118-10780 (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-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 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Context-Core-case--15014-10705 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--11945-7897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
+(define Context-Core-case--11944-7801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
+(define Context-Core-case--11810-7618 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
+(define Context-Core-case--11809-7599 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
+(define Context-Core-case--10793-6732 (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))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
+(define Context-Core-case--10792-6628 (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))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
+(define Context-Core-case--10167-6267 (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))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6))))))))
+(define Context-Core-case--10167-6217 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1))))))))
+(define Context-Core-case--10166-6008 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1))) 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 (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1)))))))))))))
+(define Context-Core-case--10091-5956 (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 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Context-Core-case--10090-5932 (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 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
+(define Context-Core-case--10011-5852 (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 Context-Core-case--9908-5806 (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9)))))))))))))
+(define Context-Core-case--9908-5778 (lambda (arg-0 arg-1 arg-2 arg-3) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))))
+(define Context-Core-case--9878-5735 (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 ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((Context-Core-n--9878-5707-commitStaged arg-0 (IntMap-Data-toList 'erased (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-12 (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))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-10 (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))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9))))))))))))))))))))))
+(define Context-Core-case--9861-5705 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--9767-5630 (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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9742-5609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-1))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define Context-Core-case--9678-5585 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-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)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-4))))))(else (vector 1 (vector 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))) ((Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9678-5541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9582-5526 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--9678-5585 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
+(define Context-Core-case--9586-5495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--9582-5437-getMatches arg-0 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))) (vector 1 (vector 1 arg-2 e-5))))))))) (else (Context-Core-n--9582-5437-getMatches arg-0 arg-1 arg-3))))))
+(define Context-Core-case--9470-5417 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9477-5382 (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 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9470-5338 (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 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Context-Core-case--9256-5308 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9345-5241 (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))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
+(define Context-Core-case--9263-5223 (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) (let ((act-24 ((Context-Core-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))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9345-5241 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9263-5160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
+(define Context-Core-case--9256-5145 (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 ((Context-Core-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))) ((Context-Core-case--9263-5160 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 ((Context-Core-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))) ((Context-Core-case--9345-5241 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-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 Context-Core-case--9148-5121 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9155-5087 (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) (let ((act-24 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9148-5044 (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 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 ((Context-Core-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 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Context-Core-case--9078-4992 (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 (vector 0 arg-1 arg-0))) (else (vector 0 ))))))
+(define Context-Core-case--9066-4976 (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))) (Context-Core-case--9078-4992 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 ))))))
+(define Context-Core-case--9012-4949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--8942-4919 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))
+(define Context-Core-case--8942-4867 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 arg-1) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
+(define Context-Core-case--8931-4851 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 arg-1) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
+(define Context-Core-case--8877-4826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--8807-4796 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))
+(define Context-Core-case--8807-4744 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 (vector 1 arg-1)) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
+(define Context-Core-case--8796-4728 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 (vector 1 arg-1)) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
+(define Context-Core-case--8751-4691 (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 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0))))))
+(define Context-Core-case--8666-4658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define Context-Core-case--8596-4554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0)))))))
+(define Context-Core-case--8590-4532 (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))) (Context-Core-case--8596-4554 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
+(define Context-Core-case--5756-2041 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else "")))))
+(define Context-Core-n--22123-17104-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-0)))
+(define Context-Core-n--20834-15968-toNothing (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)) (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 ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--20854-15987 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7)))))
+(define Context-Core-n--21107-16209-shrink (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 )))))))))
+(define Context-Core-n--25540-20350-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-2 ": ")) eta-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 ((nano 1000000000)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25540-20349-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25)))))))))))))))
+(define Context-Core-n--11155-7101-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
+(define Context-Core-n--15115-10765-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 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Context-Core-n--20963-16096-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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-4)) (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))) (Context-Core-case--20998-16121 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Context-Core-n--9582-5436-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0)))))
+(define Context-Core-n--21265-16349-justPos (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
+(define Context-Core-n--15421-11056-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-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))) ((Context-Core-case--15433-11078 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 Context-Core-n--18183-13575-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
+(define Context-Core-n--11472-7296-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11472-7296-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
+(define Context-Core-n--11471-7264-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11471-7264-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
+(define Context-Core-n--18783-14132-getPos (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) ((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))) (Context-Core-case--18789-14156 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0))))))))))
+(define Context-Core-n--9582-5437-getMatches (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--9586-5495 arg-0 arg-1 e-6 e-3 (Context-Core-n--9582-5436-matches arg-0 arg-1 'erased arg-1 e-6)))))))))))))
+(define Context-Core-n--20718-15845-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--20722-15858 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
+(define Context-Core-n--11154-6960-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
+(define Context-Core-n--18183-13576-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
+(define Context-Core-n--20963-16071-couldBeParam (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))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 ))))))
+(define Context-Core-n--21400-16474-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 Context-Core-n--9878-5707-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9878-5707-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
+(define Context-Core-n--22123-17103-allParents (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--22123-17103-allParents arg-0 arg-1 e-3)))))))))
+(define Context-Core-n--21400-16473-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) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0)))))))
+(define Context-Core-n--25540-20349-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1))))))
+(define Context-Core-n--25060-19914-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5))))))
+(define Context-Core-n--21400-16475-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--21400-16474-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 ((Context-Core-addCtxt e-5 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 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-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) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0))))))))))))))))))))))))))))))
 (define GlobalDef-Context-Core-rf--totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Context-Core-show_Show__SizeChange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Smaller") ((1) "Same") (else "Unknown")))))
 (define Context-Core-show_Show__SCCall (lambda (arg-0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
@@ -2317,15 +2348,15 @@
 (define Context-Core-resolved_HasNames__Terminating (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) (let ((act-24 ((Context-Core-resolved_HasNames__PartialReason arg-0 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))) (vector 1 (vector 2 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-resolved_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__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 ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))))))))))
 (define Context-Core-resolved_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-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 (Context-Core-case--9861-12024 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0)))))))
-(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10874-13105-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Context-Core-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 (Context-Core-case--10091-5956 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0)))))))
+(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11155-7101-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-resolved_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) 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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Context-Core-case--9934-12269 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) ((Context-Core-case--9934-12318 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11173-13289-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
+(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Context-Core-case--10167-6217 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) ((Context-Core-case--10167-6267 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11472-7296-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
 (define Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) (((e-3 arg-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))) (vector 1 (vector 1 e-5))))))))))))))
 (define Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) ((Context-Core-case--10527-12755 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
+(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) ((Context-Core-case--10793-6732 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
 (define Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))
 (define Context-Core-full_HasNames__Transform (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-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))) (let ((act-25 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 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))) (let ((act-27 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-4) 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 (vector 0 e-0 e-5 e-6 e-7 e-8)))))))))))))))))))))))))))))))
 (define Context-Core-full_HasNames__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Terminating arg-0 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 ((act-25 ((Context-Core-full_HasNames__Covering arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
@@ -2333,11 +2364,11 @@
 (define Context-Core-full_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__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 ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))))))))))
 (define Context-Core-full_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
 (define Context-Core-full_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) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-0) 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))) (vector 1 (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))))) (else (vector 1 (vector 9 e-0)))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10873-12972-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11154-6960-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-full_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) 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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) 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)) (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 (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36)) eta-0))) (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 (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11172-13258-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
+(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) 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)) (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 (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36))) eta-0))) (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 (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11471-7264-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
 (define Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-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))) (vector 1 (vector 1 e-5))))))))))))))
 (define Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
 (define Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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 ((act-25 ((Context-Core-lookupCtxtExact e-1 arg-1) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
@@ -2346,38 +2377,38 @@
 (define Context-Core-__Impl_Show_SCCall (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x))))))
 (define Context-Core-__Impl_Show_DefFlag (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x))))))
 (define Context-Core-__Impl_Show_Def (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))))
-(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-11959 arg-11960 eta-0)))))))
-(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SizeChange arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SizeChange arg-650 arg-651))))))
-(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SCCall arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SCCall arg-650 arg-651))))))
-(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651))))))
+(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-0)))))))
+(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SizeChange arg-430 arg-431))))))
+(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431))))))
+(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431))))))
 (define Context-Core-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 Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (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))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Nat arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SizeChange arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Context-Core-C-47C-61_Eq__SizeChange arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
-(define Context-Core-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-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(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-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Nat arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) arg-650 arg-651)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1)))))
+(define Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (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))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Nat arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Context-Core-C-47C-61_Eq__SizeChange arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
+(define Context-Core-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-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(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-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Nat arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) arg-430 arg-431)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1)))))
 (define Context-Core-C-47C-61_Eq__SizeChange (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SizeChange arg-0 arg-1))))
 (define Context-Core-C-47C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SCCall arg-0 arg-1))))
 (define Context-Core-C-47C-61_Eq__DefFlag (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__DefFlag arg-0 arg-1))))
 (define Defs-Context-Core-warnings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-25 (vector-ref sc0 26))) e-25))))
 (define Context-Context-Core-visibleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Context-Core-visibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-visibleIn ns arg-1 arg-2))) arg-0)))
-(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0)))))(else 0)))))
+(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))))(else 0)))))
 (define GlobalDef-Context-Core-visibility (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define GlobalDef-Context-Core-vars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define Defs-Context-Core-userHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22))))
 (define Context-Core-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 ((Context-Core-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))) (let ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20472-21866-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--20472-21891-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--15483-17390 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 Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20963-16071-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--20963-16096-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--15853-11467 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 Context-Core-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 ((Context-Core-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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define TypeFlags-Context-Core-uniqueAuto (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Defs-Context-Core-typeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
@@ -2387,7 +2418,7 @@
 (define GlobalDef-Context-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Defs-Context-Core-toSave (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Context-Core-toResolvedNames (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 ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) (((e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0))))))))))
-(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--20774-22144-justPos 'erased e-2 0 e-2)))))))
+(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--21265-16349-justPos 'erased e-2 0 e-2)))))))
 (define Defs-Context-Core-toIR (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
 (define Context-Core-toFullNames (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 ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0))))))))))
 (define Defs-Context-Core-toCompileCase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
@@ -2396,52 +2427,54 @@
 (define GlobalDef-Context-Core-specArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))))
 (define GlobalDef-Context-Core-sizeChange (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
-(define Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--24788-25897-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0))))))))
-(define Context-Core-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 (let ((act-25 (Directory-System-changeDir arg-1 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 ((act-26 (let ((act-26 (Directory-System-currentDir 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-29 (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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 ((sc5 e-4)) (let ((e-37 (vector-ref sc5 1))) (let ((e-36 (vector-ref sc5 2))) (let ((e-35 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((sc6 e-37)) (let ((e-44 (vector-ref sc6 2))) (let ((e-43 (vector-ref sc6 3))) (let ((e-42 (vector-ref sc6 4))) (let ((e-38 (vector-ref sc6 5))) (let ((e-39 (vector-ref sc6 6))) (let ((e-40 (vector-ref sc6 7))) (let ((e-41 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-44 e-43 e-42 e-38 e-39 e-40 e-41) e-36 e-35 e-34 e-30 e-31 e-32 e-33) e-28 e-27 e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))
+(define Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--25540-20350-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0))))))))
+(define Context-Core-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 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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-29 (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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 ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))
 (define Context-Core-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-26 (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 ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-setVisibility (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 ((Context-Core-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 ((act-26 (Context-Core-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-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 e-2 e-3 e-4 e-22 e-21 e-7 e-8 arg-3 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18739-20339 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-setUndottedRecordProjections (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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 e-37 arg-1 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 arg-1 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19193-14503 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-setUndottedRecordProjections (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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 arg-1 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 arg-1 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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 (vector-ref sc4 2))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 arg-1 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 arg-1 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 arg-1 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 arg-1 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 (Context-Core-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 (Context-Core-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-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite e-7 e-6 e-4) e-28 e-27 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 arg-1 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 arg-1 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 (Context-Core-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 (Context-Core-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 (Context-Core-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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair e-6 e-7 e-8 e-4) e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 arg-1 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 arg-1 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 arg-1 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Context-Core-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 ((Context-Core-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc6 e-11)) (let ((e-21 (vector-ref sc6 12))) e-21)))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-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 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18124-19799 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-setLogLevel (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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18565-13950 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-setLogLevel (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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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))) (let ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18903-20470 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19359-14636 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18500-20137 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18623-20242 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 arg-1 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18949-14296 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19075-14404 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 arg-1 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 e-40 arg-1 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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 (vector-ref sc4 1))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 e-25 arg-3) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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 ((Context-Core-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 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 arg-1 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 e-37 e-38 arg-1) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 arg-1 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 arg-1 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 e-39 arg-1) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 arg-1 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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 ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35) e-1 e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Defs-Context-Core-saveTypeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Defs-Context-Core-saveTransforms (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))
 (define Defs-Context-Core-saveAutoHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11))))
 (define GlobalDef-Context-Core-safeErase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--8861-11079 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
+(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--9066-4976 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
 (define Context-Context-Core-resolvedAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Context-Core-resolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Context-Core-resolveName (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 e-0))))(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 ((Context-Core-getPosition arg-1 (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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-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))))))))))))))))))))))))
@@ -2451,18 +2484,18 @@
 (define GlobalDef-Context-Core-refersToM (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))
 (define Context-Core-refersTo (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () (NameMap-Data-empty 'erased)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12)))))
 (define Context-Core-reducibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-reducibleIn ns arg-1 arg-2))) arg-0)))
-(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0))))(else 0))))))(else 0)))))
+(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0))))(else 0))))))(else 0)))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (vector 1 arg-1 e-25)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 e-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 ((Context-Core-prettyName arg-0 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))) (let ((act-26 ((Context-Core-prettyName arg-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 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 e-2) 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 ((act-25 ((Context-Core-prettyName arg-0 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 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 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))) (let ((act-25 ((Context-Core-prettyName arg-0 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-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))
+(define Context-Core-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))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-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 ((Context-Core-prettyName arg-0 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))) (let ((act-26 ((Context-Core-prettyName arg-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 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-2) 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 ((act-25 ((Context-Core-prettyName arg-0 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 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 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))) (let ((act-25 ((Context-Core-prettyName arg-0 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-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))
 (define Context-Context-Core-possibles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Defs-Context-Core-peFailures (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-23 (vector-ref sc0 24))) e-23))))
-(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1))))
+(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1))))
 (define Defs-Context-Core-options (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Defs-Context-Core-openHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define GlobalDef-Context-Core-noCycles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
 (define Defs-Context-Core-nextTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Context-Context-Core-nextEntry (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased (b+ (IOArray-Data-max 'erased e-5) (Context-Core-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! 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 (vector 0 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-11 (vector-ref sc2 6))) (let ((e-10 (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 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))))))))))))))))
+(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-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! 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 (vector 0 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-11 (vector-ref sc2 6))) (let ((e-10 (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 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))))))))))))))))
 (define Context-Core-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-2 arg-3 arg-5 (TT-Core-unchecked) (vector 0 ) (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Defs-Context-Core-nestedNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Defs-Context-Core-namedirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
@@ -2477,32 +2510,32 @@
 (define Context-Core-lookupDefTyExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0)))
 (define Context-Core-lookupDefName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0)))
 (define Context-Core-lookupDefExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0)))
-(define Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9360-11606 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
-(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--8943-11147 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--8943-11215 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9045-11239 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9252-11424 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9252-11498 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define Context-Core-logTimeWhen (lambda (arg-0 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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased 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 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24320-25473-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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 Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9582-5526 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
+(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9148-5044 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9148-5121 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9256-5145 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9470-5338 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9470-5417 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-logTimeWhen (lambda (arg-0 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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased 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 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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 Context-Core-logTime (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-logTimeWhen 'erased arg-1 (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 6))) e-11)) arg-2 arg-3) ext-0))))))))
-(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24047-25229 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24168-25334 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
-(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24122-25293 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24773-19657 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24899-19767 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24851-19724 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
 (define GlobalDef-Context-Core-location (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define GlobalDef-Context-Core-linearChecked (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 arg-1 e-35 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--21495-22781-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--21495-22780-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 arg-1 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--22123-17104-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--22123-17103-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))))))
 (define Context-Core-isUndottedRecordProjections (lambda (arg-0 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0)))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
-(define Context-Core-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))) ((Context-Core-case--23507-24707 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--24210-19106 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))))))))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
 (define Context-Core-isExtension (lambda (arg-0 arg-1) (Options-Core-isExtension arg-0 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))))
-(define Context-Core-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))) ((Context-Core-case--23617-24815 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8))) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--24326-19223 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-8 (vector-ref sc1 9))) e-8))))))))))
 (define GlobalDef-Context-Core-invertible (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
 (define Context-Context-Core-inlineOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define Context-Core-initSize (lambda () 10000))
 (define Context-Core-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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-initDefs (lambda (ext-0) (let ((act-24 (Context-Core-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 (vector 0 ) (vector 1 "Main" (vector 0 )) (vector 0 ) (Options-Core-defaults) (NameMap-Data-empty 'erased) 100 (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (vector 0 ) (NameMap-Data-empty 'erased) 5381 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) (vector 0 ))))))))))
-(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (IOArray-Data-newArray 'erased 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 (Core-Core-newRef 'erased 'erased (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 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1))))))))))))))
+(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Core-Core-newRef 'erased 'erased (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 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1))))))))))))))
 (define Context-Core-initCtxt (lambda (ext-0) (Context-Core-initCtxtS (Context-Core-initSize) ext-0)))
 (define GlobalDef-Context-Core-inferrable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Context-Core-inCurrentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0))))))))))) ((7) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 3))) e-27)) arg-1))))))))) ((8) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((6) (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-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) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
@@ -2512,14 +2545,14 @@
 (define PMDefInfo-Context-Core-holeInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define SearchData-Context-Core-hintGroups (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Context-Core-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 ((Context-Core-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Context-Core-setVisibility arg-0 arg-1 e-8 (vector 0 ) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
-(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 (Directory-System-currentDir 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))
-(define Context-Core-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 ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Name-Core-compare_Ord__Name arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Name-Core-C-60_Ord__Name arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Name-Core-C-62_Ord__Name arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Name-Core-C-60C-61_Ord__Name arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Name-Core-C-62C-61_Ord__Name arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Name-Core-max_Ord__Name arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Name-Core-min_Ord__Name arg-979 arg-980)))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--15062-16990-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0)))))))))
+(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))
+(define Context-Core-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 ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788)))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--15421-11056-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0)))))))))
 (define Context-Core-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 ((Context-Core-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
-(define Context-Core-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 (Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--17771-19490 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 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19429-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19430-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19430-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
-(define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8)))))))))))
-(define Context-Core-getPs (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 ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--20616-22004-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--20616-22060 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--20616-22060 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))))))
-(define Context-Core-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 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8556-10806 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-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 (Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 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 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
+(define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9)))))))))))
+(define Context-Core-getPs (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 ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--21107-16209-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))))))
+(define Context-Core-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 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8751-4691 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 (b+ 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))))))))))))))))))))))))))))))) (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-26 (vector-ref sc2 7))) e-26))))))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
@@ -2527,9 +2560,9 @@
 (define Context-Core-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 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))
 (define Context-Core-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 Context-Core-getFullName (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) (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 ((Context-Core-lookupCtxtExact (vector 9 e-0) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (lambda (eta-0) (vector 1 arg-1)))))))
-(define Context-Core-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))) (Context-Core-case--9781-11923 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3))))))))))
+(define Context-Core-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))) (Context-Core-case--10011-5852 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
-(define Context-Core-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--20231-21645-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))
+(define Context-Core-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--20718-15845-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
 (define Context-Core-getContent (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Context-Core-getConPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((bacc (Context-Core-getPs arg-0 arg-1 arg-2 e-8))) (Context-Core-getConPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) bacc) arg-2 e-4))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))
@@ -2548,23 +2581,23 @@
 (define TypeFlags-Context-Core-external (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-1) e-2) e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define GlobalDef-Context-Core-eraseArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20343-21763-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3))))))))))))
+(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20834-15968-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-2) (Name-Core-C-47C-61_Eq__Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define SearchData-Context-Core-detArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define GlobalDef-Context-Core-definition (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
 (define Context-Core-defaultPI (lambda () (vector 0 (vector 0 ) 1)))
 (define Context-Core-defaultFlags (lambda () (vector 0 1 1)))
-(define Context-Core-decode (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef 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 ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox 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 (Context-Core-resolved_HasNames__GlobalDef arg-0 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))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased e-7 arg-1 (vector 1 e-8)) eta-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))) (lambda (eta-0) (vector 1 e-1))))))))
+(define Context-Core-decode (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef 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 ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox 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 (Context-Core-resolved_HasNames__GlobalDef arg-0 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))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-7 arg-1 (vector 1 e-8)) eta-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))) (lambda (eta-0) (vector 1 e-1))))))))
 (define Defs-Context-Core-currentNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Context-Context-Core-content (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define GlobalDef-Context-Core-compexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
-(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--9651-11808 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))))
+(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--9878-5735 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))))
 (define Context-Core-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 ((Context-Core-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))) (Context-Core-setCtxt arg-0 e-6 ext-0)))))))))))))
 (define Context-Core-combinePos (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-filter 'erased (lambda (x) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Prelude-elem 'erased arg-1 x eta-0))) e-3)) e-2))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (NameMap-Data-delete 'erased arg-1 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--14763-16706-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-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 (Context-Core-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)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 9 e-10)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
 (define Defs-Context-Core-cgdirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
 (define Context-Context-Core-branchDepth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
@@ -2575,44 +2608,44 @@
 (define Context-Context-Core-allPublic (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define Defs-Context-Core-allImported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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))) ((Context-Core-case--19599-21079 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--20067-15258 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0))))))))
 (define Context-Core-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 ((Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-27) e-26 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 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
-(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8400-10654 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
-(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8590-4532 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
+(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 arg-3 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-addName (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 e-0))))(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 ((Context-Core-newEntry arg-1 (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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-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 Context-Core-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-26 (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))) (vector 0 e-0 (vector 1 arg-1 e-1) e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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-1 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((hs (Context-Core-case--19049-20600 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) 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))))))))))))))))))))))))))))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))))))
+(define Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((hs (Context-Core-case--19505-14769 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) 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))))))))))))))))))))))))))))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))))))
 (define Context-Core-addHashWithNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased 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))) (Context-Core-addHash 'erased arg-1 arg-2 e-5 ext-0))))))))
 (define Context-Core-addHash (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 (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc2 arg-2)) (let ((e-27 (vector-ref sc2 2))) ((e-27 (let ((sc3 e-5)) (let ((e-39 (vector-ref sc3 16))) e-39))) arg-3))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-1 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8731-10960 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
-(define Context-Core-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))) ((Context-Core-case--20130-21565 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG arg-1)) ext-0))))))))
-(define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15177-17128 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (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 Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-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 ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--20908-22267-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-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 ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--20908-22269-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) 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 ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8601-10843 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
+(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8931-4851 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
+(define Context-Core-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))) ((Context-Core-case--20613-15762 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (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 Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-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 ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--21400-16473-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-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 ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--21400-16475-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) 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 ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8796-4728 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
 (define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 Context-Core-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-addDef arg-1 arg-2 (vector 0 (FC-Core-emptyFC) arg-2 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) (vector 2 ) arg-4 (vector 1 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) 1 1 0 (vector 4 arg-0 arg-5) (vector 0 ) (vector 0 ) (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 (vector 1 (vector 0 ))))))))
 (define Context-Core-Grow (lambda () (Context-Core-initSize)))
-(define Directory-System-case--1759-8269 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
-(define Directory-System-case--1721-8229 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased arg-1 eta-0)))))))
-(define Directory-System-case--1689-8197 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector 1 (PrimIO-prim__getString arg-0))))))))
-(define Directory-System-case--1641-8149 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (Directory-System-returnError 'erased eta-0)))))))
-(define Directory-System-case--1533-8045 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (vector 1 )))) ((equal? sc0 1) (lambda (eta-0) (vector 0 (vector 2 )))) ((equal? sc0 2) (lambda (eta-0) (vector 0 (vector 3 )))) ((equal? sc0 3) (lambda (eta-0) (vector 0 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (vector 0 (vector 5 ))))(else (lambda (eta-0) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5)))))))))
-(define Directory-System-returnError (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_fileErrno ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 0 (vector 1 ))) ((equal? sc0 1) (vector 0 (vector 2 ))) ((equal? sc0 2) (vector 0 (vector 3 ))) ((equal? sc0 3) (vector 0 (vector 4 ))) ((equal? sc0 4) (vector 0 (vector 5 )))(else (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-24 5)))))))))
-(define Directory-System-openDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_openDir arg-0 ext-0))) ((Directory-System-case--1721-8229 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-24) 0)) ext-0))))
-(define Directory-System-ok (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Directory-System-dirEntry (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_dirEntry arg-0 ext-0))) ((Directory-System-case--1759-8269 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define Directory-System-currentDir (lambda (ext-0) (let ((act-24 (Directory-System-prim_currentDir ext-0))) ((Directory-System-case--1689-8197 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define Directory-System-createDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_createDir arg-0 ext-0))) ((Directory-System-case--1641-8149 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define Directory-System-closeDir (lambda (arg-0 ext-0) (Directory-System-prim_closeDir arg-0 ext-0)))
-(define Directory-System-changeDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_changeDir arg-0 ext-0))) (Prelude-C-61C-61_Eq__Int act-24 0))))
-(define Clock-System-with--1756-611 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 ))))))))))))
-(define Clock-System-case--1758-647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-System-case--1957-2323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3)))))))
+(define Directory-System-case--1882-2240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 arg-3))))))
+(define Directory-System-case--1823-2179 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-2))))))))))
+(define Directory-System-case--1737-2089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (Directory-System-returnError 'erased 'erased arg-1))))))
+(define Directory-System-case--1564-1910 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5)))))))))))
+(define Directory-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5)))))))))))))))
+(define Directory-System-openDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_openDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1882-2240 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0))))))))
+(define Directory-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3))))))
+(define Directory-System-dirEntry (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_dirEntry arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1957-2323 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define Directory-System-currentDir (lambda (arg-0 arg-1) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_currentDir eta-0)))))) (lambda (res) (Directory-System-case--1823-2179 'erased arg-1 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define Directory-System-createDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_createDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1737-2089 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define Directory-System-closeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Directory-System-prim_closeDir arg-2 eta-0)))))))
+(define Directory-System-changeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_changeDir arg-2 eta-0)))))) (lambda (ok) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-61C-61_Eq__Int ok 0))))))))))
+(define Clock-System-with--1792-640 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 ))))))))))))
+(define Clock-System-case--1794-677 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
 (define Clock-System-seconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Clock-System-prim_clockTimeMonotonic (lambda (ext-0) (apply blodwen-clock-time-monotonic (blodwen-read-args (vector 0 )))))
 (define Clock-System-osClockValid (lambda (arg-0 ext-0) (apply blodwen-is-time? (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-0 (vector 0 ))))))
@@ -2620,132 +2653,132 @@
 (define Clock-System-isClockMandatory (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (vector 1 )) ((6) (vector 1 ))(else (vector 0 ))))))
 (define Clock-System-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (apply blodwen-clock-second (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (let ((act-25 (apply blodwen-clock-nanosecond (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (vector 0 arg-0 act-24 act-25)))))
 (define Clock-System-fetchOSClock (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (apply blodwen-clock-time-utc (blodwen-read-args (vector 0 ))))) ((1) (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0))) ((3) (lambda (eta-0) (apply blodwen-clock-time-process (blodwen-read-args (vector 0 ))))) ((4) (lambda (eta-0) (apply blodwen-clock-time-thread (blodwen-read-args (vector 0 ))))) ((5) (lambda (eta-0) (apply blodwen-clock-time-gccpu (blodwen-read-args (vector 0 ))))) ((6) (lambda (eta-0) (apply blodwen-clock-time-gcreal (blodwen-read-args (vector 0 ))))) (else (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0)))))))
-(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1756-611 arg-0 (Clock-System-isClockMandatory arg-0))))
-(define StringMap-Data-case--4210-2815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))
-(define StringMap-Data-case--3845-2449 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define StringMap-Data-case--2639-1382 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define StringMap-Data-case--2380-1285 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define StringMap-Data-case--2380-1174 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define StringMap-Data-case--2217-1143 (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) (StringMap-Data-case--2380-1174 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2380-1285 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define StringMap-Data-case--2217-1033 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define StringMap-Data-case--1862-1002 (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) (StringMap-Data-case--2217-1033 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2217-1143 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4)))))))
-(define StringMap-Data-case--1991-924 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define StringMap-Data-case--1991-835 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define StringMap-Data-case--1862-808 (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) (StringMap-Data-case--1991-835 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--1991-924 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define StringMap-Data-case--1862-706 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define StringMap-Data-case--1755-645 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define StringMap-Data-case--1632-598 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1755-645 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3)))))))
-(define StringMap-Data-case--1632-550 (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) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define StringMap-Data-case--1632-507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define StringMap-Data-n--3746-2331-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased 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))) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
-(define StringMap-Data-n--4201-2804-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))))
-(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0)))
-(define StringMap-Data-treeLookup (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))) (StringMap-Data-case--1632-507 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1632-550 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1632-598 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
-(define StringMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1862-706 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1862-808 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1862-1002 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
-(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2639-1382 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1792-640 arg-0 (Clock-System-isClockMandatory arg-0))))
+(define StringMap-Data-case--4236-2826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))
+(define StringMap-Data-case--3870-2462 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define StringMap-Data-case--2660-1391 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define StringMap-Data-case--2401-1294 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define StringMap-Data-case--2401-1183 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define StringMap-Data-case--2238-1152 (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) (StringMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define StringMap-Data-case--2238-1042 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define StringMap-Data-case--1883-1011 (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) (StringMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4)))))))
+(define StringMap-Data-case--2012-933 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define StringMap-Data-case--2012-844 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define StringMap-Data-case--1883-817 (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) (StringMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define StringMap-Data-case--1883-715 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define StringMap-Data-case--1776-654 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define StringMap-Data-case--1653-607 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3)))))))
+(define StringMap-Data-case--1653-559 (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) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define StringMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define StringMap-Data-n--3767-2340-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased 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))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
+(define StringMap-Data-n--4227-2814-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))))
+(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0)))
+(define StringMap-Data-treeLookup (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))) (StringMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
+(define StringMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
+(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
 (define StringMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeToList 'erased 'erased e-3)))))))
 (define StringMap-Data-singleton (lambda (arg-0 arg-1 arg-2) (vector 1 0 (vector 0 arg-1 arg-2))))
-(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--4201-2804-inserted 'erased arg-3 arg-2 arg-1) arg-2)))
+(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--4227-2814-inserted 'erased arg-3 arg-2 arg-1) arg-2)))
 (define StringMap-Data-mergeLeft (lambda (arg-0 arg-1 arg-2) (StringMap-Data-mergeWith 'erased (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2)))
 (define StringMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
-(define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1)))
-(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3845-2449 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
-(define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1)))
+(define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1)))
+(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3870-2462 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1)))
 (define StringMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define IOArray-Data-case--1930-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (List-Data-reverse 'erased arg-2))) (else (lambda (eta-0) (let ((act-24 ((IOArray-Data-readArray 'erased arg-1 arg-4) eta-0))) ((IOArray-Data-n--1925-6155-iter 'erased arg-1 (b+ arg-4 1 63) arg-3 (vector 1 act-24 arg-2)) eta-0))))))))
-(define IOArray-Data-case--1800-6109 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-1)) (else arg-2)))))
-(define IOArray-Data-case--1806-6045 (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 0 ))) (else (lambda (eta-0) (let ((act-24 (vector-ref arg-5 arg-3))) (let ((act-25 (vector-set! arg-4 arg-3 act-24))) ((IOArray-Data-n--1800-6033-copyFrom 'erased arg-1 arg-2 arg-5 arg-4 (Prelude-C-45_Neg__Int arg-3 1)) eta-0)))))))))
-(define IOArray-Data-case--1756-6007 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector-ref (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-1)))))))
-(define IOArray-Data-case--1697-5955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector-set! (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-2 (vector 1 arg-1))))))))
-(define IOArray-Data-n--1925-6155-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1930-6165 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-62C-61_Ord__Int arg-2 arg-3))))
-(define IOArray-Data-n--1800-6033-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1806-6045 'erased arg-1 arg-2 arg-5 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-5 0))))
-(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-case--1697-5955 'erased arg-3 arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (IOArray-Data-max 'erased arg-1)))))))
-(define IOArray-Data-toList (lambda (arg-0 arg-1) (IOArray-Data-n--1925-6155-iter 'erased arg-1 0 (IOArray-Data-max 'erased arg-1) (vector 0 ))))
-(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2) (IOArray-Data-case--1756-6007 'erased arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (IOArray-Data-max 'erased arg-1)))))))
-(define IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2)))
-(define IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3)))
-(define IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2)))
-(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2) (let ((newsizeC-39 (IOArray-Data-case--1800-6109 'erased arg-2 arg-1 (Prelude-C-60_Ord__Int arg-1 (IOArray-Data-max 'erased arg-2))))) (lambda (eta-0) (let ((act-24 (IOArray-Data-newArray 'erased newsizeC-39 eta-0))) (let ((act-25 ((IOArray-Data-n--1800-6033-copyFrom 'erased arg-2 arg-1 (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 act-24)) (let ((e-2 (vector-ref sc0 2))) e-2)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-2) 1)) eta-0))) act-24))))))
-(define IOArray-Data-newArray (lambda (arg-0 arg-1 ext-0) (let ((act-24 (make-vector arg-1 (vector 0 )))) (vector 0 arg-1 act-24))))
+(define IOArray-Data-case--2076-6517 (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) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4)))))))))))
+(define IOArray-Data-case--1894-6434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-3)) (else arg-4)))))
+(define IOArray-Data-case--1905-6348 (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 ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-6413) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Prelude-C-45_Neg__Int arg-5 1)))))))))))))))
+(define IOArray-Data-case--1829-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-3))))))))))
+(define IOArray-Data-case--1752-6214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-4 (vector 1 arg-3)))))))))))
+(define IOArray-Data-n--2066-6507-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--2076-6517 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (Prelude-C-62C-61_Ord__Int arg-4 arg-5))))
+(define IOArray-Data-n--1894-6336-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--1905-6348 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (Prelude-C-60_Ord__Int arg-7 0))))
+(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1752-6214 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3)))))))
+(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 ))))
+(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1829-6287 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3)))))))
+(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--1894-6434 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-6483) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39))))))))))))))
+(define IOArray-Data-newArray (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (make-vector arg-3 (vector 0 ))))))) (lambda (bind-0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 arg-3 bind-0))))))))))
 (define IOArray-IOArray-Data-maxSize (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define IOArray-Data-max (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define IOArray-IOArray-Data-content (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Binary-Utils-case--5234-9952 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0)))))))
-(define Binary-Utils-case--5232-9906 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
-(define Binary-Utils-case--5169-9845 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32))))))))
-(define Binary-Utils-case--5160-9827 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5169-9845 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1))))))))
-(define Binary-Utils-case--4710-9428 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0)))))))
-(define Binary-Utils-case--4416-9164 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getDouble (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0)))))))
-(define Binary-Utils-case--4414-9101 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setDouble (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setDouble (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--4332-9020 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0)))))))
-(define Binary-Utils-case--4252-8935 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 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 ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-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 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0)))))))
-(define Binary-Utils-case--4152-8919 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (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 eta-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 (Binary-Utils-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0)))))))
-(define Binary-Utils-case--4150-8849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-copyData (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)) 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--4007-8770 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getString (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 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0)))))))
-(define Binary-Utils-case--4005-8707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-setString (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3864-8623 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getInt (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (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))))))) eta-0)))))))
-(define Binary-Utils-case--3862-8560 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setInt (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setInt (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3809-8500 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getByte (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0)))))))
-(define Binary-Utils-case--3742-8436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setByte (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setByte (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3624-8373 (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))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))
-(define Binary-Utils-case--3624-8336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5)))))
-(define Binary-Utils-case--3595-8301 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
-(define Binary-Utils-case--3572-8278 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
-(define Binary-Utils-case--3494-8203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize e-2 eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Binary-Utils-case--3403-8122 (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 ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3))))))))
-(define Binary-Utils-n--5027-9709-writeAll (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 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-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 ((Binary-Utils-n--5027-9709-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
-(define Binary-Utils-n--5029-9736-readElems (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 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5029-9736-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
-(define Binary-Utils-n--4947-9658-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--4947-9658-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
-(define Binary-Utils-n--4945-9622-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--4945-9622-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63))))))))
-(define Binary-Utils-n--4945-9623-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--4945-9622-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0)))
-(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4005-8707 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0)))))))))))))))
+(define Prims-IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2)))
+(define Prims-IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3)))
+(define Prims-IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2)))
+(define Binary-Utils-case--5420-3916 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0)))))))
+(define Binary-Utils-case--5418-3867 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
+(define Binary-Utils-case--5355-3804 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32))))))))
+(define Binary-Utils-case--5346-3786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5355-3804 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1))))))))
+(define Binary-Utils-case--4879-3367 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0)))))))
+(define Binary-Utils-case--4566-3082 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getDouble (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0)))))))
+(define Binary-Utils-case--4564-3015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setDouble (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setDouble (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--4476-2928 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0)))))))
+(define Binary-Utils-case--4393-2838 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 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 ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-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 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0)))))))
+(define Binary-Utils-case--4284-2821 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (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 eta-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 (Binary-Utils-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0)))))))
+(define Binary-Utils-case--4282-2746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-copyData (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)) 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--4128-2661 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getString (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 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0)))))))
+(define Binary-Utils-case--4126-2593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-setString (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3976-2503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getInt (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (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))))))) eta-0)))))))
+(define Binary-Utils-case--3974-2436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setInt (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setInt (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3918-2371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getByte (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0)))))))
+(define Binary-Utils-case--3847-2303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setByte (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setByte (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3728-2239 (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))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))
+(define Binary-Utils-case--3728-2201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5)))))
+(define Binary-Utils-case--3698-2166 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
+(define Binary-Utils-case--3674-2142 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
+(define Binary-Utils-case--3596-2066 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize e-2 eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Binary-Utils-case--3500-1978 (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 ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3))))))))
+(define Binary-Utils-n--5210-3666-writeAll (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 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-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 ((Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
+(define Binary-Utils-n--5212-3694-readElems (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 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5212-3694-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
+(define Binary-Utils-n--5125-3610-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
+(define Binary-Utils-n--5123-3573-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63))))))))
+(define Binary-Utils-n--5123-3574-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0)))
+(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4126-2593 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0)))))))))))))))
 (define Binary-Utils-toBuf_TTC__Nat (lambda (arg-0 arg-1) (Binary-Utils-toBuf_TTC__Integer arg-0 (Prelude-cast_Cast__Nat_Integer arg-1))))
-(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5232-9906 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3862-8560 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--4414-9101 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
+(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5418-3867 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3974-2436 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--4564-3015 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
 (define Binary-Utils-toBuf_TTC__Char (lambda (arg-0 arg-1 ext-0) (Binary-Utils-toBuf_TTC__Int arg-0 (Prelude-cast_Cast__Char_Int arg-1) ext-0)))
 (define Binary-Utils-toBuf_TTC__Bool (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
-(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4150-8849 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0)))))))))))))))
+(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4282-2746 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0)))))))))))))))
 (define Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (vector 1 (vector 0 ))))))
 (define Binary-Utils-toBuf_TTC__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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) 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 ((sc2 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0)))))))))))))
 (define Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 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 ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-2) eta-0))))))))))))))
-(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--4945-9623-TailRec_length 'erased 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 ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0)))))))
-(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5027-9709-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4)))
+(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5123-3574-TailRec_length 'erased 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 ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0)))))))
+(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4)))
 (define Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) 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 ((sc2 ((Builtin-snd 'erased 'erased arg-2) e-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0)))))))))))))
-(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4007-8770 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
+(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4128-2661 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
 (define Binary-Utils-fromBuf_TTC__Nat (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-fromInteger_Num__Nat e-5)))))))))
-(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0)))))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3864-8623 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--4416-9164 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
+(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0)))))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3976-2503 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--4566-3082 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
 (define Binary-Utils-fromBuf_TTC__Char (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-cast_Cast__Int_Char e-5)))))))))
 (define Binary-Utils-fromBuf_TTC__Bool (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Bool" ext-0)))))))))))
-(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4152-8919 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
+(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4284-2821 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
 (define Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 (vector 0 ))))
 (define Binary-Utils-fromBuf_TTC__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-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((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 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc1 2))) ((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 (vector 0 e-5 e-6))))))))))))))
 (define Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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 (vector-ref sc2 2))) ((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 (Binary-Utils-corrupt 'erased "Maybe" ext-0)))))))))))
-(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-n--4947-9658-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0))))))))
-(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5029-9736-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1)))
+(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0))))))))
+(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5212-3694-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1)))
 (define Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((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 'erased 'erased arg-2) e-5))) (let ((e-2 (vector-ref sc1 2))) ((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 (vector 0 e-5 e-6))))))))))))))
-(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Integer arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_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-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-8243)))))
-(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-8243 eta-0))))))
+(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Integer arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_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-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2106)))))
+(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2106 eta-0))))))
 (define Binary-Utils-writeToFile (lambda (arg-0 arg-1 ext-0) (Buffer-Data-writeBufferToFile 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)) ext-0)))
 (define Binary-Binary-Utils-used (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Binary-Utils-toRead (lambda (arg-0) (Prelude-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 Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5160-9827 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0))))
+(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5346-3786 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0))))
 (define Binary-Utils-toBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3742-8436 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3847-2303 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0))))))))
 (define Binary-Binary-Utils-size (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-createBufferFromFile arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize 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 Binary-Utils-newBinary (lambda (arg-0 arg-1) (vector 0 arg-0 0 arg-1 0)))
@@ -2753,33 +2786,33 @@
 (define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer 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))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0)))))))))))
 (define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer (Binary-Utils-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))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0)))))))))))
 (define Binary-Utils-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 (b+ e-1 arg-0 63) e-2 e-3))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3809-8500 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3918-2371 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0))))))))
 (define Binary-Utils-fromLimbs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (+ (Prelude-cast_Cast__Int_Integer e-2) (blodwen-shl (Binary-Utils-fromLimbs e-3) 32)))))))))
 (define Binary-Utils-fromBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (e-2 arg-2))))))
-(define Binary-Utils-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 ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3624-8336 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-resizeBuffer e-0 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 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))))))))))))))
+(define Binary-Utils-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 ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3728-2201 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-resizeBuffer e-0 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 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))))))))))))))
 (define Binary-Utils-corrupt (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 2 arg-1)) ext-0)))
 (define Binary-Binary-Utils-buf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Binary-Utils-blockSize (lambda () 655360))
 (define Binary-Utils-avail (lambda (arg-0) (Prelude-C-45_Neg__Int (Prelude-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 Binary-Utils-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 (b+ e-1 arg-0 63) e-2 (b+ e-3 arg-0 63)))))))))
-(define Buffer-Data-case--2197-8618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4)))))
-(define Buffer-Data-case--2186-8598 (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 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2197-8618 arg-0 arg-1 e-1 _-0 act-24 (Prelude-C-60_Ord__Int arg-0 act-24))))) (let ((act-25 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-26 (Buffer-Data-freeBuffer arg-1 eta-0))) (vector 1 e-1)))))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Buffer-Data-case--2046-8487 (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) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (vector 1 arg-5)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--2023-8462 (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))) (lambda (eta-0) (let ((act-24 (Buffer-Data-readBufferData arg-1 e-1 0 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((act-25 (File-System-closeFile arg-1 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
-(define Buffer-Data-case--2005-8443 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-newBuffer e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-readBufferData arg-1 e-1 0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((act-26 (File-System-closeFile arg-1 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1993-8427 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-fileSize e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-newBuffer e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Buffer-Data-readBufferData e-2 e-1 0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((1) (let ((act-27 (File-System-closeFile e-2 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1897-8351 (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 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-3 eta-0))) (vector 1 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1884-8329 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1824-8280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 2 ))))))))
-(define Buffer-Data-case--1764-8226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
-(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 1 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
-(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__writeBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1824-8280 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
+(define Buffer-Data-case--2283-2534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4)))))
+(define Buffer-Data-case--2272-2514 (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 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-0 arg-1 e-1 _-0 act-24 (Prelude-C-60_Ord__Int arg-0 act-24))))) (let ((act-25 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-26 (Buffer-Data-freeBuffer arg-1 eta-0))) (vector 1 e-1)))))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Buffer-Data-case--2129-2400 (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) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 arg-5)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--2106-2374 (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))) (lambda (eta-0) (let ((act-24 (Buffer-Data-readBufferData arg-1 e-1 0 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
+(define Buffer-Data-case--2086-2354 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-newBuffer e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-readBufferData arg-1 e-1 0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--2073-2335 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-newBuffer e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Buffer-Data-readBufferData e-2 e-1 0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((1) (let ((act-27 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1974-2255 (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 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3) eta-0))) (vector 1 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1959-2232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1897-2180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 2 ))))))))
+(define Buffer-Data-case--1835-2124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
+(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 1 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__writeBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1897-2180 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
 (define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setString arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setInt arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setDouble arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setByte arg-0 arg-1 arg-2 ext-0)))
-(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2197-8618 arg-1 arg-0 e-1 _-0 act-25 (Prelude-C-60_Ord__Int arg-1 act-25))))) (let ((act-26 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-27 (Buffer-Data-freeBuffer arg-0 ext-0))) (vector 1 e-1))))))) (else (vector 0 )))))))
-(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__readBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1764-8226 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
+(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-1 arg-0 e-1 _-0 act-25 (Prelude-C-60_Ord__Int arg-1 act-25))))) (let ((act-26 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-27 (Buffer-Data-freeBuffer arg-0 ext-0))) (vector 1 e-1))))))) (else (vector 0 )))))))
+(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__readBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1835-2124 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
 (define Buffer-Data-rawSize (lambda (arg-0 ext-0) (Buffer-Data-prim__bufferSize arg-0)))
 (define Buffer-Data-newBuffer (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-prim__newBuffer arg-0 ext-0))) (vector 1 act-24))))
 (define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__getString arg-0 arg-1 arg-2 ext-0)))
@@ -2787,51 +2820,58 @@
 (define Buffer-Data-getDouble (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getDouble arg-0 arg-1 ext-0)))
 (define Buffer-Data-getByte (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getByte arg-0 arg-1 ext-0)))
 (define Buffer-Data-freeBuffer (lambda (arg-0 ext-0) (vector 0 )))
-(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-fileSize e-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (Buffer-Data-newBuffer e-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-27 (Buffer-Data-readBufferData e-2 e-1 0 e-3 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((1) (let ((act-28 (File-System-closeFile e-2 ext-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (Buffer-Data-newBuffer e-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-27 (Buffer-Data-readBufferData e-2 e-1 0 e-3 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((1) (let ((act-28 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Buffer-Data-prim__copyData arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))
-(define Options-Core-case--5266-1733 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
-(define Options-Core-case--5244-1713 (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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
-(define Options-Core-case--5222-1690 (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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
-(define Options-Core-case--5200-1667 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
-(define Options-Core-case--5177-1643 (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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7)))))))))))
-(define Options-Core-case--5150-1621 (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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7)))))))))))
-(define Options-Core-case--5130-1600 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
-(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__LangExt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__LangExt arg-650 arg-651))))))
-(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__CG arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__CG arg-650 arg-651))))))
+(define Options-Core-case--5543-1882 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8))))))))))))))
+(define Options-Core-case--5512-1852 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8)))))))))))))
+(define Options-Core-case--5489-1831 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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-7 e-8))))))))))))))))
+(define Options-Core-case--5466-1807 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (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 (vector 1 arg-0) e-11) e-7 e-8))))))))))))))))
+(define Options-Core-case--5443-1783 (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 ((sc1 e-6)) (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 (vector 1 arg-0) e-10 e-11) e-7 e-8))))))))))))))))
+(define Options-Core-case--5419-1758 (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))) (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 (vector 0 arg-1 arg-0)) e-6 e-7 e-8))))))))))))
+(define Options-Core-case--5391-1735 (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))) (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-2 arg-1 arg-0)) e-5 e-6 e-7 e-8))))))))))))
+(define Options-Core-case--5370-1713 (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-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 Options-Core-show_Show__CG (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "chez") ((1) "racket") ((2) "gambit") (else (let ((e-0 (vector-ref sc0 1))) e-0))))))
+(define Options-Core-showPrec_Show__CG (lambda (arg-0 arg-1) (Options-Core-show_Show__CG arg-1)))
+(define Options-Core-__Impl_Show_CG (lambda () (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x))))))
+(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431))))))
+(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431))))))
 (define Options-Core-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 Options-Core-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))))(else 1)))))
+(define Options-Core-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 ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1)))))
 (define Options-Core-C-47C-61_Eq__LangExt (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__LangExt arg-0 arg-1))))
 (define Options-Core-C-47C-61_Eq__CG (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__CG arg-0 arg-1))))
 (define Dirs-Options-Core-working_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define ElabDirectives-Options-Core-undottedRecordProjections (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define ElabDirectives-Options-Core-unboundImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ElabDirectives-Options-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Options-Core-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-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))) (Strings-Data-unlines (vector 1 (Strings-Prelude-C-43C-43 "+ Working Directory   :: " (Prelude-show_Show__String e-0)) (vector 1 (Strings-Prelude-C-43C-43 "+ Source Directory    :: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-1)) (vector 1 (Strings-Prelude-C-43C-43 "+ Build Directory     :: " (Prelude-show_Show__String e-2)) (vector 1 (Strings-Prelude-C-43C-43 "+ Executable Directory     :: " (Prelude-show_Show__String e-3)) (vector 1 (Strings-Prelude-C-43C-43 "+ Installation Prefix :: " (Prelude-show_Show__String e-4)) (vector 1 (Strings-Prelude-C-43C-43 "+ Extra Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5)) (vector 1 (Strings-Prelude-C-43C-43 "+ CG Library Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6)) (vector 1 (Strings-Prelude-C-43C-43 "+ Data Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-7)) (vector 0 )))))))))))))))))))))
+(define Options-Core-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-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))) (Strings-Data-unlines (vector 1 (Strings-Prelude-C-43C-43 "+ Working Directory      :: " (Prelude-show_Show__String e-0)) (vector 1 (Strings-Prelude-C-43C-43 "+ Source Directory       :: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-1)) (vector 1 (Strings-Prelude-C-43C-43 "+ Build Directory        :: " (Prelude-show_Show__String e-2)) (vector 1 (Strings-Prelude-C-43C-43 "+ Output Directory       :: " (Prelude-show_Show__String (Options-Core-outputDirWithDefault arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "+ Installation Prefix    :: " (Prelude-show_Show__String e-4)) (vector 1 (Strings-Prelude-C-43C-43 "+ Extra Directories      :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5)) (vector 1 (Strings-Prelude-C-43C-43 "+ CG Library Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6)) (vector 1 (Strings-Prelude-C-43C-43 "+ Data Directories       :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-7)) (vector 0 ))))))))))))))))))))
 (define Dirs-Options-Core-source_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define PairNames-Options-Core-sndName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define PPrinter-Options-Core-showImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define PPrinter-Options-Core-showFullEnv (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-0 arg-1)) e-6 e-7)))))))))))
-(define Options-Core-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))) (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)))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
+(define Options-Core-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 (vector 0 arg-0 arg-1)) e-6 e-7 e-8))))))))))))
+(define Options-Core-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 Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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 (vector 1 arg-0 e-7) e-8)))))))))))))
 (define Options-Options-Core-session (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Options-Options-Core-rewritenames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define RewriteNames-Options-Core-rewriteName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Options-Options-Core-printing (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Options-Options-Core-primnames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
+(define Dirs-Options-Core-prefix_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Options-Options-Core-pairnames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define PairNames-Options-Core-pairType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Dirs-Options-Core-output_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Options-Core-outputDirWithDefault (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec")) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
 (define Session-Options-Core-noprelude (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Session-Options-Core-nobanner (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Session-Options-Core-logTimings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Session-Options-Core-logLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Dirs-Options-Core-lib_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define ElabDirectives-Options-Core-lazyActive (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__LangExt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__LangExt arg-650 arg-651)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7)))))
-(define Options-Core-getCG (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Strings-Data-toLower arg-0) (Options-Core-availableCGs))))
+(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7)))))
+(define Options-Core-getCG (lambda (arg-0 arg-1) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Strings-Data-toLower arg-1) (Options-Core-availableCGs arg-0))))
 (define PPrinter-Options-Core-fullNamespace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define PairNames-Options-Core-fstName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define PrimNames-Options-Core-fromStringName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
@@ -2840,7 +2880,7 @@
 (define Session-Options-Core-findipkg (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Dirs-Options-Core-extra_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Options-Options-Core-extensions (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
-(define Dirs-Options-Core-exec_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Options-Core-execBuildDir (lambda (arg-0) (Path-Utils-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec")))
 (define RewriteNames-Options-Core-equalType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Options-Options-Core-elabDirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Session-Options-Core-dumpvmcode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
@@ -2848,110 +2888,108 @@
 (define Session-Options-Core-dumpcases (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Session-Options-Core-dumpanf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define Options-Options-Core-dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Dirs-Options-Core-dir_prefix (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ))))
+(define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ))))
 (define Options-Core-defaultSession (lambda () (vector 0 1 1 1 (vector 0 ) 0 1 1 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Options-Core-defaultPPrint (lambda () (vector 0 1 0 1)))
 (define Options-Core-defaultElab (lambda () (vector 0 0 0 (vector 1 ) (+ 1 (+ 1 (+ 1 0))) 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)))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (Path-Utils-C-60C-47C-62 "build" "exec") "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 ))))
+(define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (vector 0 ) "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 ))))
 (define Session-Options-Core-debugElabCheck (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Dirs-Options-Core-data_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Session-Options-Core-codegen (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
+(define Options-Core-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 Dirs-Options-Core-build_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Options-Core-availableCGs (lambda () (vector 1 (vector 0 "chez" (vector 0 )) (vector 1 (vector 0 "racket" (vector 1 )) (vector 1 (vector 0 "gambit" (vector 2 )) (vector 0 ))))))
+(define Options-Core-availableCGs (lambda (arg-0) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 "chez" (vector 0 )) (vector 1 (vector 0 "racket" (vector 1 )) (vector 1 (vector 0 "gambit" (vector 2 )) (vector 0 )))) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))))
 (define ElabDirectives-Options-Core-autoImplicitLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define ElabDirectives-Options-Core-ambigLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Info-System-prim__os (lambda () (blodwen-os)))
-(define Info-System-os (lambda () (blodwen-os)))
-(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
-(define Path-Utils-case--4011-3265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2))))))
-(define Path-Utils-case--3969-3248 (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))) (Path-Utils-case--4011-3265 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1)))))
-(define Path-Utils-case--3969-3226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3))))))
-(define Path-Utils-case--3825-3133 (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 Path-Utils-case--3811-3089 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3825-3133 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3108) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3750-3029-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3))))))))))))))
-(define Path-Utils-case--3750-3079 (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))) (Path-Utils-case--3811-3089 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0)))))))))
-(define Path-Utils-case--3753-3049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3750-3029-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 ))))))
-(define Path-Utils-case--3688-2983 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))
-(define Path-Utils-case--3600-2900 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2))))))))))))))))
-(define Path-Utils-case--3579-2874 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1)))))))
-(define Path-Utils-case--3493-2830 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1))))))
-(define Path-Utils-case--3489-2790 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath)))))))))))
-(define Path-Utils-case--3454-2781 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))))))
-(define Path-Utils-case--3454-2766 (lambda (arg-0 arg-1) (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))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3)))))))
-(define Path-Utils-case--3440-2753 (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 (List-Prelude-C-43C-43 'erased (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 Path-Utils-case--3435-2740 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3440-2753 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
-(define Path-Utils-case--3403-2713 (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 Path-Utils-case--3400-2706 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3403-2713 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 Path-Utils-case--3373-2686 (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)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath))))))
-(define Path-Utils-case--3252-2652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) (vector 0 ) e-3)))))))))
-(define Path-Utils-case--3252-2616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))))
-(define Path-Utils-case--3221-2555 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0)))))))
-(define Path-Utils-case--3119-2482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk"))))))
-(define Path-Utils-case--2901-2205 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) e-2)))))))))
-(define Path-Utils-case--2719-2072 (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 Path-Utils-case--2719-2052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else "")))))
-(define Path-Utils-case--2472-1839 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
-(define Path-Utils-case--2467-1834 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
-(define Path-Utils-n--3750-3029-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3753-3049 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4))))))))))))))))
-(define Path-Utils-n--3561-2855-findNormal (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3561-2855-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Options-Options-Core-additionalCGs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
+(define Options-Core-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 (vector 1 arg-0 e-8))))))))))))))
+(define Path-Utils-case--4118-3329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2))))))
+(define Path-Utils-case--4075-3312 (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))) (Path-Utils-case--4118-3329 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1)))))
+(define Path-Utils-case--4075-3290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3))))))
+(define Path-Utils-case--3931-3196 (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 Path-Utils-case--3917-3151 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3931-3196 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3170) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3))))))))))))))
+(define Path-Utils-case--3856-3141 (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))) (Path-Utils-case--3917-3151 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0)))))))))
+(define Path-Utils-case--3859-3111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 ))))))
+(define Path-Utils-case--3794-3045 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))
+(define Path-Utils-case--3705-2961 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2))))))))))))))))
+(define Path-Utils-case--3684-2934 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1)))))))
+(define Path-Utils-case--3598-2890 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1))))))
+(define Path-Utils-case--3594-2850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath)))))))))))
+(define Path-Utils-case--3559-2841 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))))))
+(define Path-Utils-case--3559-2826 (lambda (arg-0 arg-1) (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))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3)))))))
+(define Path-Utils-case--3545-2813 (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 (List-Prelude-C-43C-43 'erased (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 Path-Utils-case--3540-2800 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3545-2813 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
+(define Path-Utils-case--3508-2773 (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 Path-Utils-case--3505-2766 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3508-2773 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 Path-Utils-case--3478-2746 (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)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath))))))
+(define Path-Utils-case--3352-2712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3)))))))))
+(define Path-Utils-case--3352-2676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))))
+(define Path-Utils-case--3320-2610 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0)))))))
+(define Path-Utils-case--3213-2534 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk"))))))
+(define Path-Utils-case--2984-2243 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2)))))))))
+(define Path-Utils-case--2796-2102 (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 Path-Utils-case--2796-2082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else "")))))
+(define Path-Utils-case--2539-1857 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
+(define Path-Utils-case--2534-1852 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
+(define Path-Utils-n--3856-3091-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3859-3111 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4))))))))))))))))
+(define Path-Utils-n--3666-2915-findNormal (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3666-2915-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Path-Path-Utils-rf--volume (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Path-Path-Utils-rf--hasTrailSep (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Path-Path-Utils-rf--hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Path-Path-Utils-rf--body (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Path-Utils-tokValue_TokenKind__PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (vector 0 ))))))
 (define Path-Utils-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))) (Strings-Prelude-C-43C-43 "\\\\" (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Strings-Data-singleton e-2) ":")))))))
-(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2719-2052 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2719-2072 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr))))))))))
+(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2796-2082 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2796-2102 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr))))))))))
 (define Path-Utils-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 Path-Utils-showPrec_Show__Path (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path arg-1)))
-(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))))
+(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))))
 (define Path-Utils-__Impl_Show_Path (lambda () (vector 0 (lambda (x) (Path-Utils-show_Show__Path x)) (lambda (d) (lambda (x) (Path-Utils-showPrec_Show__Path d x))))))
-(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651))))))
-(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651))))))
-(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651))))))
+(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431))))))
+(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431))))))
+(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431))))))
 (define Path-Utils-TokType_TokenKind__PathTokenKind (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector "String" )) (else (vector "Builtin.Unit" ))))))
 (define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-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))) (Prelude-C-61C-61_Eq__Char e-2 e-5)))(else 1)))))(else 1)))))
 (define Path-Utils-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))) (Prelude-C-61C-61_Eq__Char e-0 e-1)))(else 1)))))(else 1)))))
-(define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) e-2 e-6)))))))))))))))
+(define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) e-2 e-6)))))))))))))))
 (define Path-Utils-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))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1)))))
 (define Path-Utils-C-47C-61_Eq__Volume (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Volume arg-0 arg-1))))
 (define Path-Utils-C-47C-61_Eq__PathTokenKind (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__PathTokenKind arg-0 arg-1))))
 (define Path-Utils-C-47C-61_Eq__Body (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Body arg-0 arg-1))))
-(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2384) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2410) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
-(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2504) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d)))))))))
-(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\))) (lambda () (lambda (_-2258) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\?)) (lambda () (lambda (_-2288) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\)) (lambda () (lambda (_-2305) (vector 0 (vector 0 )))))))))))))
-(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\))) (lambda () (lambda (_-2319) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2358) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
-(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3750-3079 arg-1 arg-0 (Path-Utils-parse arg-0))))
-(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3489-2790 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
+(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2430) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2458) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
+(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2557) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d)))))))))
+(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2298) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\?)) (lambda () (lambda (_-2328) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (lambda (_-2346) (vector 0 (vector 0 )))))))))))))
+(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2362) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2402) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
+(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3856-3141 arg-1 arg-0 (Path-Utils-parse arg-0))))
+(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3594-2850 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
 (define Path-Utils-splitParent (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-splitParentC-39 (Path-Utils-parse arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))))
-(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3600-2900 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0))))))
-(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3579-2874 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1)))))
+(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3705-2961 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0))))))
+(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3684-2934 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1)))))
 (define Path-Utils-pathTokenMap (lambda () (Lexer-Text-toTokenMap 'erased (vector 1 (vector 0 (Lexer-Text-is #\/) (vector 1 #\/)) (vector 1 (vector 0 (Lexer-Text-is #\\) (vector 1 #\\)) (vector 1 (vector 0 (Lexer-Text-is #\:) (vector 1 #\:)) (vector 1 (vector 0 (Lexer-Text-is #\?) (vector 1 #\?)) (vector 1 (vector 0 (Lexer-Text-some (Lexer-Text-non (Lexer-Text-oneOf "/\\:?"))) (vector 0 )) (vector 0 )))))))))
-(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2472-1839 (Info-System-isWindows))))
+(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2539-1857 (Info-System-isWindows))))
 (define Path-Utils-parseVolume (lambda () (vector 9 0 0 (Path-Utils-verbatimUnc) (lambda () (vector 9 0 0 (Path-Utils-verbatimDisk) (lambda () (vector 9 0 0 (Path-Utils-unc) (lambda () (Path-Utils-disk)))))))))
-(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep)))))))))))))))
-(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text))))))))))
-(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3373-2686 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0)))))
+(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep)))))))))))))))
+(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text))))))))))
+(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3478-2746 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0)))))
 (define Path-Utils-parentC-39 (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (Path-Utils-splitParentC-39 arg-0))))
 (define Path-Utils-parent (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Path eta-0)) (Path-Utils-parentC-39 (Path-Utils-parse arg-0)))))
-(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2901-2205 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0))))
+(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2984-2243 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0))))
 (define Path-Utils-joinPath (lambda (arg-0) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Path-Utils-C-60C-47C-62 eta-0 eta-1))) "" arg-0)))
-(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3400-2706 arg-0 (Info-System-isWindows))))
+(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3505-2766 arg-0 (Info-System-isWindows))))
 (define Path-Utils-isAbsolute (lambda (arg-0) (Path-Utils-isAbsoluteC-39 (Path-Utils-parse arg-0))))
 (define Path-Path-Utils-hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3561-2855-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
+(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3666-2915-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
 (define Path-Utils-fileName (lambda (arg-0) (Path-Utils-fileNameC-39 (Path-Utils-parse arg-0))))
 (define Path-Utils-extension (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-fileName arg-0) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Builtin-snd 'erased 'erased (Path-Utils-splitFileName bind-0)))))))
 (define Path-Utils-emptyPath (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) 1)))
-(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3119-2482 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\:)) (lambda () (lambda (_-2471) (vector 0 (vector 1 (Prelude-toUpper disk)))))))))))))
-(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2467-1834 (Info-System-isWindows))))
-(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\/))))))
-(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3435-2740 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))))))))
+(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3213-2534 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\:)) (lambda () (lambda (_-2523) (vector 0 (vector 1 (Prelude-toUpper disk)))))))))))))
+(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2534-1852 (Info-System-isWindows))))
+(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\/))))))
+(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3540-2800 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))))))))
 (define Path-Utils-PathToken (lambda () (vector "Text.Token.Token" (vector "Utils.Path.PathTokenKind" ))))
 (define Path-Utils-C-60C-47C-62 (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path (Path-Utils-appendC-39 (Path-Utils-parse arg-0) (Path-Utils-parse arg-1)))))
-(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--3969-3226 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--3969-3248 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39)))))))
-(define Hash-Core-case--3143-7324 (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 (Hash-Core-n--3133-7312-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2))))))
-(define Hash-Core-n--3133-7312-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3143-7324 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4))))
+(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--4075-3290 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--4075-3312 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39)))))))
+(define Hash-Core-case--3238-7602 (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 (Hash-Core-n--3226-7590-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2))))))
+(define Hash-Core-n--3226-7590-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3238-7602 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4))))
 (define Hash-Core-hash_Hashable__String (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__String 5381 ext-0)))
 (define Hash-Core-hash_Hashable__Nat (lambda (ext-0) (Prelude-cast_Cast__Nat_Int ext-0)))
 (define Hash-Core-hash_Hashable__Name (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__Name 5381 ext-0)))
@@ -2961,33 +2999,33 @@
 (define Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 5381 ext-0)))
 (define Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 5381 ext-0)))
 (define Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 5381 ext-0)))
-(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3133-7312-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1)))
-(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0)))
+(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3226-7590-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1)))
+(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0)))
 (define Hash-Core-hashWithSalt_Hashable__Nat (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Nat arg-1) 63)))
-(define Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1)))))))
+(define Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1)))))))
 (define Hash-Core-hashWithSalt_Hashable__Integer (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Integer arg-1) 63)))
 (define Hash-Core-hashWithSalt_Hashable__Int (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Int arg-1) 63)))
-(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11))))))
+(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0)) ((1) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1)) ((2) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2)) (else (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3)) e-4)))))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-abs_Abs__Int arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 (b+ (b* arg-2 33 63) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) 63) e-3))))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 (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 ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0) e-1) e-2)) e-3))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1) e-5)) 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 ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2) e-9) e-10)) 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 ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3) e-13) e-14)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 4) e-17)) e-18)))) e-19))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 5) e-21)) e-22))))))))))
-(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Nat arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Nat arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Integer arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Integer arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Int arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Int arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7066 arg-7067))))))
+(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Nat arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Nat arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Integer arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Integer arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7328 arg-7329))))))
 (define Hash-Core-hashWithSalt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Hash-Core-hash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
-(define CaseTree-Core-case--3841-7803 (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 CaseTree-Core-case--3715-7729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 )))))))
-(define CaseTree-Core-case--3382-7363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3))))
-(define CaseTree-Core-n--3600-7556-getSet (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-5 (vector-ref sc0 5))) (CaseTree-Core-n--3600-7555-getAltSets 'erased arg-1 arg-2 arg-3 'erased 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 CaseTree-Core-n--3600-7555-getAltSets (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3600-7555-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3600-7554-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
-(define CaseTree-Core-n--3600-7554-getAltSet (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-4 (vector-ref sc0 4))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13)))))))
+(define CaseTree-Core-case--3925-7911 (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 CaseTree-Core-case--3799-7837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 )))))))
+(define CaseTree-Core-case--3464-7474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3))))
+(define CaseTree-Core-n--3684-7664-getSet (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-5 (vector-ref sc0 5))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased 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 CaseTree-Core-n--3684-7663-getAltSets (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3684-7662-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
+(define CaseTree-Core-n--3684-7662-getAltSet (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-4 (vector-ref sc0 4))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13)))))))
 (define CaseTree-Core-weaken_Weaken__CaseTree (lambda (arg-0 arg-1 ext-0) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define CaseTree-Core-weakenNs_Weaken__CaseTree (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-insertCaseNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define CaseTree-Core-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (CaseTree-Core-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<TyCon>" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-13))) ((4) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-16) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(Delay " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-21) ")")))) ((6) (let ((e-23 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-23))) (else (let ((e-25 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-25) ")"))))))))
@@ -2996,25 +3034,25 @@
 (define CaseTree-Core-showPrec_Show__Pat (lambda (arg-0 arg-1) (CaseTree-Core-show_Show__Pat arg-1)))
 (define CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2)))
 (define CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2)))
-(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3225)))))))
+(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3271)))))))
 (define CaseTree-Core-__Impl_Show_Pat (lambda () (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x))))))
 (define CaseTree-Core-__Impl_Show_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 d x))))))
 (define CaseTree-Core-__Impl_Show_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 arg-0 d x))))))
-(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-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))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 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 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3841-7803 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25)))))))
-(define CaseTree-Core-mkPatC-39 (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((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-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((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-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 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))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3715-7729 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))
-(define CaseTree-Core-insertCaseNames (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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3382-7363 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 ))))))
+(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-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))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 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 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3925-7911 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25)))))))
+(define CaseTree-Core-mkPatC-39 (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((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-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((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-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 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))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3799-7837 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))
+(define CaseTree-Core-insertCaseNames (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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3464-7474 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 ))))))
 (define CaseTree-Core-insertCaseAltNames (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))) (vector 0 e-1 e-2 e-3 (CaseTree-Core-insertCaseNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 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))) (vector 1 e-6 e-7 (CaseTree-Core-insertCaseNames (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 arg-2 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-13))))))))
-(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3600-7556-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3)))
-(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7648) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0)))
+(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3684-7664-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3)))
+(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7756) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0)))
 (define CaseTree-Core-argToPat (lambda (arg-0) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-0 arg-0)))
-(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7638) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0)))
-(define CompileExpr-Core-case--5912-2790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6)))
-(define CompileExpr-Core-case--5763-2655 (lambda (arg-0 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 (vector 0 arg-12 arg-5))))
-(define CompileExpr-Core-case--5731-2603 (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) (CompileExpr-Core-case--5763-2655 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
-(define CompileExpr-Core-case--4819-1733 (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 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5)))))))
-(define CompileExpr-Core-case--4443-1399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5)))
-(define CompileExpr-Core-case--3868-842 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2)))))
-(define CompileExpr-Core-case--3806-797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2))))))
+(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7746) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0)))
+(define CompileExpr-Core-case--6024-2814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6)))
+(define CompileExpr-Core-case--5875-2679 (lambda (arg-0 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 (vector 0 arg-12 arg-5))))
+(define CompileExpr-Core-case--5843-2627 (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) (CompileExpr-Core-case--5875-2679 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
+(define CompileExpr-Core-case--4929-1760 (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 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5)))))))
+(define CompileExpr-Core-case--4553-1426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5)))
+(define CompileExpr-Core-case--3968-858 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2)))))
+(define CompileExpr-Core-case--3906-813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2))))))
 (define CompileExpr-Core-weaken_Weaken__CExp (lambda (arg-0 arg-1 ext-0) (CompileExpr-Core-weakenNs_Weaken__CExp arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define CompileExpr-Core-weakenNs_Weaken__CExp (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define CompileExpr-Core-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-3) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat 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))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-6) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (CompileExpr-Core-show_Show__NamedCExp e-8))))))))
@@ -3029,13 +3067,13 @@
 (define CompileExpr-Core-showPrec_Show__NamedCExp (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedCExp arg-1)))
 (define CompileExpr-Core-showPrec_Show__CFType (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__CFType arg-1)))
 (define CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-2)))
-(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3225)))))))
+(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3271)))))))
 (define CompileExpr-Core-__Impl_Show_NamedConstAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConstAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConstAlt d x))))))
 (define CompileExpr-Core-__Impl_Show_NamedConAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConAlt d x))))))
 (define CompileExpr-Core-__Impl_Show_NamedCExp (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x))))))
 (define CompileExpr-Core-__Impl_Show_CFType (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x))))))
 (define CompileExpr-Core-__Impl_Show_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 arg-0 d x))))))
-(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3868-842 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2))))
+(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3968-858 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2))))
 (define CompileExpr-Core-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 (b+ 1 e-2 63)))))(else (vector 2 (Name-Core-nameRoot arg-0) 0))))))
 (define CompileExpr-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-substEnv (vector 0 ) arg-0 arg-1 arg-2 arg-3)))
 (define CompileExpr-Core-substEnv (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))) (CompileExpr-Core-find 'erased arg-0 arg-1 arg-2 e-2 e-3 'erased arg-3)))) ((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 ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
@@ -3043,15 +3081,15 @@
 (define CompileExpr-Core-substConAlt (lambda (arg-0 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))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-substEnv (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 e-4)))))))))
 (define CompileExpr-Core-shrinkConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-2)))))))
 (define CompileExpr-Core-shrinkConAlt (lambda (arg-0 arg-1 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))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-shrinkCExp 'erased 'erased (TT-Core-subExtend 'erased 'erased e-3 arg-2) e-4)))))))))
-(define CompileExpr-Core-shrinkCExp (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))) (CompileExpr-Core-case--4819-1733 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) 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 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
-(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (CompileExpr-Core-case--5731-2603 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
+(define CompileExpr-Core-shrinkCExp (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))) (CompileExpr-Core-case--4929-1760 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) 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 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (CompileExpr-Core-case--5843-2627 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
 (define CompileExpr-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3)))))(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3))))))
 (define CompileExpr-Core-mkLocalsConstAlt (lambda (arg-0 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))) (vector 0 e-1 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-2)))))))
 (define CompileExpr-Core-mkLocalsConAlt (lambda (arg-0 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 ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-mkLocals (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 scC-39))))))))))
-(define CompileExpr-Core-mkLocals (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))) (CompileExpr-Core-case--5912-2790 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-mkLocals (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))) (CompileExpr-Core-case--6024-2814 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
 (define CompileExpr-Core-insertNamesConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-2)))))))
 (define CompileExpr-Core-insertNamesConAlt (lambda (arg-0 arg-1 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 ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-insertNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 scC-39))))))))))
-(define CompileExpr-Core-insertNames (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))) (CompileExpr-Core-case--4443-1399 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) 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 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-insertNames (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))) (CompileExpr-Core-case--4553-1426 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) 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 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
 (define CompileExpr-Core-getLocName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Core-getLocName 'erased 'erased e-0 e-8 'erased)))))))))
 (define NamedCExp-CompileExpr-Core-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-4 (vector-ref sc0 1))) e-4)) ((3) (let ((e-7 (vector-ref sc0 1))) e-7)) ((4) (let ((e-11 (vector-ref sc0 1))) e-11)) ((5) (let ((e-14 (vector-ref sc0 1))) e-14)) ((6) (let ((e-19 (vector-ref sc0 1))) e-19)) ((7) (let ((e-22 (vector-ref sc0 1))) e-22)) ((8) (let ((e-25 (vector-ref sc0 1))) e-25)) ((9) (let ((e-27 (vector-ref sc0 1))) e-27)) ((10) (let ((e-29 (vector-ref sc0 1))) e-29)) ((11) (let ((e-33 (vector-ref sc0 1))) e-33)) ((12) (let ((e-37 (vector-ref sc0 1))) e-37)) ((13) (let ((e-39 (vector-ref sc0 1))) e-39)) (else (let ((e-40 (vector-ref sc0 1))) e-40))))))
 (define CompileExpr-Core-getFC (lambda (arg-0 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-29 (vector-ref sc0 2))) e-29)) ((7) (let ((e-33 (vector-ref sc0 1))) e-33)) ((8) (let ((e-37 (vector-ref sc0 1))) e-37)) ((9) (let ((e-40 (vector-ref sc0 1))) e-40)) ((10) (let ((e-43 (vector-ref sc0 1))) e-43)) ((11) (let ((e-48 (vector-ref sc0 1))) e-48)) ((12) (let ((e-53 (vector-ref sc0 1))) e-53)) ((13) (let ((e-56 (vector-ref sc0 1))) e-56)) (else (let ((e-58 (vector-ref sc0 1))) e-58))))))
@@ -3063,263 +3101,263 @@
 (define CompileExpr-Core-findDrop (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) (vector 0 arg-3 arg-4)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-6)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-6)) (let ((e-14 (vector-ref sc1 2))) (CompileExpr-Core-findDrop 'erased 'erased e-3 e-4 arg-4 'erased e-14)))))))))))))
 (define CompileExpr-Core-find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (CompileExpr-Core-findDrop 'erased 'erased arg-2 arg-4 arg-5 'erased arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 0 arg-5))(else (let ((e-4 (- arg-4 1))) (CompileExpr-Core-weaken_Weaken__CExp e-2 (List-Prelude-C-43C-43 'erased e-3 arg-3) (CompileExpr-Core-find 'erased e-3 arg-2 arg-3 e-4 arg-5 'erased arg-7)))))))))))))
 (define CompileExpr-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2)))
-(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3806-797 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2)))))))))
+(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3906-813 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2)))))))))
 (define CompileExpr-Core-conArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 e-6 (CompileExpr-Core-conArgs 'erased e-3 e-7)))))))))))
 (define CompileExpr-Core-addLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((rec (CompileExpr-Core-addLocs 'erased e-3 arg-2))) (vector 1 (CompileExpr-Core-uniqueName 'erased e-2 rec) rec)))))))))
-(define TTC-Core-case--13578-14008 (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) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 (TTC-Core-fromBuf_TTC__Visibility arg-0 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 (TTC-Core-fromBuf_TTC__Totality arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 eta-1)))) arg-0 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-8243 eta-1)))) arg-0 eta-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 (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 )))))))))
-(define TTC-Core-case--13454-13667 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0)))))))
-(define TTC-Core-case--13303-13554 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0)))))))
-(define TTC-Core-case--13238-13453 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0)))))))
-(define TTC-Core-case--12645-13145 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8243 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) arg-8244 eta-2)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2)))))) arg-8243 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2))))) arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2)))) arg-8243 eta-1)))) arg-0 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))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (Binary-Utils-fromBuf_TTC__Nat 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) 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))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0)))))))
-(define TTC-Core-case--12506-12723 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0)))))))
-(define TTC-Core-case--12296-12510 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0)))))))
-(define TTC-Core-case--12088-12381 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0)))))))
-(define TTC-Core-case--11788-12114 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-2))))) arg-8243 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) 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))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0)))))))
-(define TTC-Core-case--11178-11394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
-(define TTC-Core-case--10711-11373 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((bind-0 0)) ((TTC-Core-case--11178-11394 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Bool arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-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 ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
-(define TTC-Core-case--9837-10857 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10366-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10367-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10368-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
-(define TTC-Core-case--10189-10829 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0)))))))
-(define TTC-Core-case--10188-10565 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0)))))))
-(define TTC-Core-case--10187-10378 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0)))))))
-(define TTC-Core-case--9698-9901 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0)))))))
-(define TTC-Core-case--9621-9813 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0)))))))
-(define TTC-Core-case--9525-9728 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0)))))))
-(define TTC-Core-case--9460-9646 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0)))))))
-(define TTC-Core-case--9150-9434 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 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 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0)))))))
-(define TTC-Core-case--8964-9218 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0)))))))
-(define TTC-Core-case--8177-8638 (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 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0)))))))
-(define TTC-Core-case--7832-8334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-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 (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-8243 eta-1)))) 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))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) 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))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8177-8638 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
-(define TTC-Core-case--7830-8015 (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) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) arg-6 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 ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0)))))))))))))))
-(define TTC-Core-case--7780-7966 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0)))))))
-(define TTC-Core-case--7417-7755 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0)))))))
-(define TTC-Core-case--7255-7479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0)))))))
-(define TTC-Core-case--7190-7382 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0)))))))
-(define TTC-Core-case--6821-7154 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0)))))))
-(define TTC-Core-case--6676-6908 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0)))))))
-(define TTC-Core-case--6598-6793 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0)))))))
-(define TTC-Core-case--6255-6590 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0)))))))
-(define TTC-Core-case--6138-6344 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0)))))))
-(define TTC-Core-n--9837-10368-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0)))))))))))
-(define TTC-Core-n--9837-10367-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0)))))))))))
-(define TTC-Core-n--9837-10366-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0)))))))))))
-(define TTC-Core-n--13576-13768-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1)))))
+(define TTC-Core-case--14322-15092 (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) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 (TTC-Core-fromBuf_TTC__Visibility arg-0 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 (TTC-Core-fromBuf_TTC__Totality arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-1)))) arg-0 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-1)))) arg-0 eta-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 (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 )))))))))
+(define TTC-Core-case--14190-14719 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0)))))))
+(define TTC-Core-case--14034-14602 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0)))))))
+(define TTC-Core-case--13966-14497 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0)))))))
+(define TTC-Core-case--13318-14160 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 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))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (Binary-Utils-fromBuf_TTC__Nat 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) 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))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0)))))))
+(define TTC-Core-case--13164-13698 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0)))))))
+(define TTC-Core-case--12906-13449 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0)))))))
+(define TTC-Core-case--12678-13296 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0)))))))
+(define TTC-Core-case--12361-13010 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) 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))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0)))))))
+(define TTC-Core-case--11710-12192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
+(define TTC-Core-case--11197-12168 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((bind-0 0)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Bool arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-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 ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
+(define TTC-Core-case--10285-11605 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11079-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
+(define TTC-Core-case--10657-11577 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0)))))))
+(define TTC-Core-case--10656-11283 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0)))))))
+(define TTC-Core-case--10655-11091 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0)))))))
+(define TTC-Core-case--10134-10585 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0)))))))
+(define TTC-Core-case--10052-10491 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0)))))))
+(define TTC-Core-case--9949-10400 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0)))))))
+(define TTC-Core-case--9881-10313 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0)))))))
+(define TTC-Core-case--9548-10075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 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 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0)))))))
+(define TTC-Core-case--9352-9838 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0)))))))
+(define TTC-Core-case--8496-9194 (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 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0)))))))
+(define TTC-Core-case--8125-8853 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-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 (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2106 eta-1)))) 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))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) 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))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8496-9194 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
+(define TTC-Core-case--8123-8510 (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) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 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 ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0)))))))))))))))
+(define TTC-Core-case--8070-8458 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0)))))))
+(define TTC-Core-case--7690-8233 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0)))))))
+(define TTC-Core-case--7517-7935 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0)))))))
+(define TTC-Core-case--7449-7831 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0)))))))
+(define TTC-Core-case--7059-7591 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0)))))))
+(define TTC-Core-case--6910-7332 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0)))))))
+(define TTC-Core-case--6829-7212 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0)))))))
+(define TTC-Core-case--6451-6990 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0)))))))
+(define TTC-Core-case--6325-6722 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0)))))))
+(define TTC-Core-n--10285-11080-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0)))))))))))
+(define TTC-Core-n--10285-11079-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0)))))))))))
+(define TTC-Core-n--10285-11078-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0)))))))))))
+(define TTC-Core-n--14320-14827-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1)))))
 (define TTC-Core-toBuf_TTC__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__UseSide (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
 (define TTC-Core-toBuf_TTC__TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__Bool 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define TTC-Core-toBuf_TTC__Transform (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0))))))))))))))))))))))))))
+(define TTC-Core-toBuf_TTC__Transform (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0))))))))))))))))))))))))))
 (define TTC-Core-toBuf_TTC__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Terminating arg-0 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 ((TTC-Core-toBuf_TTC__Covering arg-0 e-1) eta-0)))))))))))
 (define TTC-Core-toBuf_TTC__TotalReq (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__Terminating (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__PartialReason arg-0 e-0) eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__SizeChange (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
-(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__SizeChange arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8243 eta-0)))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)))))))
-(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0)))
+(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)))))))
+(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0)))
 (define TTC-Core-toBuf_TTC__RewriteNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
-(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
+(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
 (define TTC-Core-toBuf_TTC__PMDefInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__HoleInfo 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
 (define TTC-Core-toBuf_TTC__NameType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0)))))))))))))))))
-(define TTC-Core-toBuf_TTC__Name (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0))))))))
+(define TTC-Core-toBuf_TTC__Name (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0))))))))
 (define TTC-Core-toBuf_TTC__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__HoleInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-0) eta-0))))))))))))
-(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--13576-13768-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 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 ((Binary-Utils-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 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-8243 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 TTC-Core-toBuf_TTC__FC (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 e-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
+(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14320-14827-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 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 ((Binary-Utils-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 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 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 TTC-Core-toBuf_TTC__FC (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
 (define TTC-Core-toBuf_TTC__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((4) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__TotalReq arg-0 e-0) eta-0)))))))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
-(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8243 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) arg-8244 eta-2)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2)))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-12) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-15 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-16 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 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-18 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 ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2)))) arg-8243 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
-(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-15 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-16 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 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-18 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 ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
+(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__Constant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-0 eta-0)))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Integer arg-0 e-1) eta-0)))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-2 eta-0)))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-3 eta-0)))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0)))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Integer arg-0 e-5) eta-0)))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-6) eta-0)))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Char arg-0 e-7 eta-0)))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Double arg-0 e-8 eta-0)))))))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))) ((11) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((12) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) ((13) (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0))) ((14) (lambda (eta-0) (Binary-Utils-tag arg-0 14 eta-0))) ((15) (lambda (eta-0) (Binary-Utils-tag arg-0 15 eta-0))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-0 16 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-0 17 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-0 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 19 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__CFType 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CDef (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-0 e-2) 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) arg-0 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0))))))))))))
-(define TTC-Core-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))) (TTC-Core-case--7830-8015 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0)))))))
+(define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__CFType 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0)))))))
+(define TTC-Core-toBuf_TTC__CDef (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-2) 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0))))))))))))
+(define TTC-Core-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))) (TTC-Core-case--8123-8510 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0)))))))
 (define TTC-Core-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) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-18) eta-0)))))))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-1 12 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-1 13 eta-0))) ((22) (lambda (eta-0) (Binary-Utils-tag arg-1 17 eta-0))) ((24) (lambda (eta-0) (Binary-Utils-tag arg-1 19 eta-0))) ((25) (lambda (eta-0) (Binary-Utils-tag arg-1 20 eta-0))) ((26) (lambda (eta-0) (Binary-Utils-tag arg-1 22 eta-0))) ((27) (lambda (eta-0) (Binary-Utils-tag arg-1 23 eta-0))) ((28) (lambda (eta-0) (Binary-Utils-tag arg-1 24 eta-0))) ((29) (lambda (eta-0) (Binary-Utils-tag arg-1 25 eta-0))) ((30) (lambda (eta-0) (Binary-Utils-tag arg-1 26 eta-0))) ((31) (lambda (eta-0) (Binary-Utils-tag arg-1 27 eta-0))) ((32) (lambda (eta-0) (Binary-Utils-tag arg-1 32 eta-0))) ((33) (lambda (eta-0) (Binary-Utils-tag arg-1 33 eta-0))) ((34) (lambda (eta-0) (Binary-Utils-tag arg-1 34 eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 99 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 ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-20) eta-0))))))))))))))))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-3) eta-0)))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-4) eta-0)))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-6) eta-0)))))))) ((4) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-7) eta-0)))))))) ((6) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-8) eta-0)))))))) ((7) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-9) eta-0)))))))) ((8) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 37 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0)))))))) ((9) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 38 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-11) eta-0)))))))) ((10) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-12) eta-0)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-13) eta-0)))))))) ((12) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-14) eta-0)))))))) ((13) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-15) eta-0)))))))) ((14) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-16) eta-0)))))))) ((15) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-17) eta-0)))))))) ((19) (lambda (eta-0) (Binary-Utils-tag arg-1 14 eta-0))) ((20) (lambda (eta-0) (Binary-Utils-tag arg-1 15 eta-0))) ((21) (lambda (eta-0) (Binary-Utils-tag arg-1 16 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 101 eta-0))))))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((23) (lambda (eta-0) (Binary-Utils-tag arg-1 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 100 eta-0))))))(else (blodwen-error-quit "Nat case not covered"))))))))))))))))))
 (define TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-2 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-2 2 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 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 ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-4) eta-0))))))))))))))
-(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0)))))))
-(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (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 ((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 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0))))))))))))
-(define TTC-Core-toBuf_TTC__C-40CExpC-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) 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 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-21 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-26 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) 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 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-31) 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (let ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0)))))))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0)))))))
+(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (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 ((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 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CExpC-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) 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 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-21 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-26 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) 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 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-31) 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (let ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0)))))))))))))))))
 (define TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2) eta-0)))))))))))
-(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 e-2) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0)))))))))))))))))))))
-(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-2) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0)))))))))))))))))))))
+(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 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 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9) eta-0)))))))))))))))
 (define TTC-Core-fromBuf_TTC__Visibility (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Visibility" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__UseSide (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "UseSide" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__TypeFlags (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 ((TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 ((TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__Totality (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
 (define TTC-Core-fromBuf_TTC__TotalReq (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "TotalReq" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__Terminating (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "Terminating" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__SizeChange (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "SizeChange" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__SizeChange arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8243 eta-0)))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 (vector 0 e-5 e-6))))))))))))))
+(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__RewriteNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "PartialReason" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "PartialReason" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__PairNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__PMDefInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-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 (vector 0 e-5 e-6))))))))))))))
 (define TTC-Core-fromBuf_TTC__NameType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "NameType" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Name" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Name" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__LazyReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "LazyReason" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "HoleInfo" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-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))) ((TTC-Core-case--13578-14008 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0))))))))))))))))))))))))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-corrupt 'erased "FC" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-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))) ((TTC-Core-case--14322-15092 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0))))))))))))))))))))))))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-corrupt 'erased "FC" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__DefFlag (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (vector 0 )))) ((equal? sc1 10) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "DefFlag" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) arg-8243 eta-0)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) arg-8244 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1)))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-corrupt 'erased "Def" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "Covering" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2106 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) arg-2107 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1)))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-corrupt 'erased "Def" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "Covering" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__Constant (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 2) (let ((act-25 (Binary-Utils-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 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-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 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-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 4 e-6)))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-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 6) (let ((act-25 (Binary-Utils-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 7) (let ((act-25 (Binary-Utils-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 7 e-6)))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-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 8 e-6)))))))) ((equal? sc1 9) (vector 1 (vector 9 ))) ((equal? sc1 10) (vector 1 (vector 10 ))) ((equal? sc1 11) (vector 1 (vector 11 ))) ((equal? sc1 12) (vector 1 (vector 12 ))) ((equal? sc1 13) (vector 1 (vector 13 ))) ((equal? sc1 14) (vector 1 (vector 14 ))) ((equal? sc1 15) (vector 1 (vector 15 ))) ((equal? sc1 16) (vector 1 (vector 16 ))) ((equal? sc1 17) (vector 1 (vector 17 ))) ((equal? sc1 18) (vector 1 (vector 18 ))) ((equal? sc1 19) (vector 1 (vector 19 )))(else (Binary-Utils-corrupt 'erased "Constant" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 )))(else (Binary-Utils-corrupt 'erased "CG" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-1))))) arg-8243 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 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 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 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 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 (Binary-Utils-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8177-8638 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10366-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) (TTC-Core-n--9837-10367-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10368-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CG" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-1))))) arg-2106 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 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 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 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 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 (Binary-Utils-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8496-9194 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-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) (TTC-Core-n--10285-11079-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
 (define TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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 (vector-ref sc2 2))) ((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 (Binary-Utils-corrupt 'erased "PiInfo" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 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 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CaseTree" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "CaseAlt" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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)) ((TTC-Core-case--11178-11394 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CExp" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 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 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CaseTree" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "CaseAlt" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CExp" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8))))))))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8))))))))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-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))) (let ((act-25 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1) 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 (vector 1 e-5 e-6)))))))))))))))))))
-(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Visibility arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__UseSide arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__PartialReason arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__NameType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__LazyReason arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Constant arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-8243)))))
-(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-8243)))))
+(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Visibility arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__UseSide arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__PartialReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__NameType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__LazyReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Constant arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2106)))))
+(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2106)))))
 (define TTC-Core-getName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-1)) (vector 0 ))))))(else (let ((e-1 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (TTC-Core-getName e-1 e-7)))(else (let ((sc0 arg-1)) (vector 0 )))))))))))
-(define Normalise-Core-case--16992-13615 (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 arg-2))) (else (Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
-(define Normalise-Core-case--16850-13348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16754-13172 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((act-28 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8)))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16662-13086 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16570-13000 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16475-12911 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16083-12496 (lambda (arg-0 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) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12460 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15936-12372 (lambda (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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0)))))))
-(define Normalise-Core-case--15263-12335 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs 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))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12269 (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) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12172 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12090 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12027 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5))))))
-(define Normalise-Core-case--15263-11798 (lambda (arg-0 arg-1 arg-2 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 (((arg-2 arg-10) arg-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 (((arg-6 arg-10) arg-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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11801-11666 (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 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1)))))))
-(define Normalise-Core-case--11801-11606 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
-(define Normalise-Core-case--11801-11542 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
-(define Normalise-Core-case--11797-11460 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--14037-10689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 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 (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13924-10609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14037-10689 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13814-10531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--13924-10609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13713-10455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--13814-10531 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (Normalise-Core-n--11794-10044-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13629-10383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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))) (Normalise-Core-case--13713-10455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--11794-10044-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13557-10323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Normalise-Core-case--13629-10383 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13487-10274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13423-10224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13364-10178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (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 ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (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 ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Normalise-Core-case--13315-10134 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) 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 ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (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))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 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-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11794-10096 (lambda (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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) 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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-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 ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) 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 ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (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))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13557-10323 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-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13017-9894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12977-9848 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11791-9818 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12762-9678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 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 ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12708-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (Normalise-Core-case--12762-9678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12539-9476 (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) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11788-9444 (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 (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-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 (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 (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11785-9342 (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))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11782-9248 (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) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--12108-9111 (lambda (arg-0 arg-1 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) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--11782-8859-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-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--12068-9074 (lambda (arg-0 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) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--11782-8859-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-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11782-9045 (lambda (arg-0 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) (Normalise-Core-case--12068-9074 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--11782-8857-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-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11262-8361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8))))
-(define Normalise-Core-case--11280-8291 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Normalise-Core-n--11262-8265-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13))))))
-(define Normalise-Core-case--9750-7649 (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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10)))))))))))))
-(define Normalise-Core-case--10635-7574 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7))))))))))
-(define Normalise-Core-case--9735-7151 (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
-(define Normalise-Core-case--9973-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) (vector 1 (+ 1 arg-13))))
-(define Normalise-Core-case--9992-7047 (lambda (arg-0 arg-1 arg-2 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 (+ 1 arg-14))))
-(define Normalise-Core-case--9973-6971 (lambda (arg-0 arg-1 arg-2 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9735-6955-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Normalise-Core-case--9735-6913 (lambda (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) (vector 1 (vector 0 arg-8 arg-4 arg-11))))
-(define Normalise-Core-case--9814-6859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-17)))
-(define Normalise-Core-case--9243-6352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8))))))))
-(define Normalise-Core-case--9190-6267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) 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-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 Normalise-Core-case--6507-6229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Normalise-Core-case--9190-6267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8))))))))
-(define Normalise-Core-case--9048-6142 (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) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Normalise-Core-case--6506-6110 (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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6506-6076-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) 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))) ((Normalise-Core-case--9048-6142 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--6505-6044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3)))))))
-(define Normalise-Core-case--8704-5918 (lambda (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)) (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-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7)))))))))))
-(define Normalise-Core-case--6503-5799 (lambda (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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 ((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 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 Normalise-Core-case--6502-5666 (lambda (arg-0 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Normalise-Core-case--6501-5568 (lambda (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) (Normalise-Core-evalTree arg-0 arg-1 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 Normalise-Core-case--6501-5452 (lambda (arg-0 arg-1 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-5291 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-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) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-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 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6500-5022 (lambda (arg-0 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))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased 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 Normalise-Core-case--7497-4812 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7454-4776 (lambda (arg-0 arg-1 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) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7414-4744 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--6498-4715 (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-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-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))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 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 (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7121-4501 (lambda (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 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
-(define Normalise-Core-case--6495-4469 (lambda (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) (Normalise-Core-case--7121-4501 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
-(define Normalise-Core-case--6493-4302 (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) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7))))))))
-(define Normalise-Core-case--6493-4193 (lambda (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) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 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 ((Normalise-Core-eval arg-0 arg-1 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 Normalise-Core-case--6493-4044 (lambda (arg-0 arg-1 arg-2 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-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 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11))))))
-(define Normalise-Core-case--6421-3849 (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
-(define Normalise-Core-case--6407-3807 (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 (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))))))))))))))
-(define Normalise-Core-case--6330-3794 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6407-3807 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 Normalise-Core-case--6334-3748 (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 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
-(define Normalise-Core-case--6217-3698 (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))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0)))))))
-(define Normalise-Core-case--6238-3669 (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7))))))))))))
-(define Normalise-Core-case--6217-3643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-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 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-n--11782-8856-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3)))))))
-(define Normalise-Core-n--11262-8433-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3)))))))
-(define Normalise-Core-n--11262-8431-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) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
-(define Normalise-Core-n--11262-8432-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8431-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8431-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 ))))))
-(define Normalise-Core-n--9750-7552-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-11) (let ((sc0 arg-11)) (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-11)))))
-(define Normalise-Core-n--6504-5954-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6504-5954-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8)))))))))))))
-(define Normalise-Core-n--6330-3728-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6334-3748 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
-(define Normalise-Core-n--16992-13384-repSub (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) 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))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 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))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (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))) (vector 1 (TT-Core-apply 'erased e-10 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (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))) (vector 1 (TT-Core-apply 'erased e-16 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((act-25 ((Normalise-Core-n--16992-13384-repSub 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 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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 ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0))))))))))))
-(define Normalise-Core-n--16992-13383-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))))
-(define Normalise-Core-n--11794-10045-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-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 ))))))))))
-(define Normalise-Core-n--11791-9586-getArgPos (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) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6))))))))))))
-(define Normalise-Core-n--9735-6955-findName (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 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))) (Normalise-Core-case--9973-6971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9735-6955-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
-(define Normalise-Core-n--11262-8265-findIdx (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11280-8291 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9))))))))))))
-(define Normalise-Core-n--11794-10044-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-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 ))))))
-(define Normalise-Core-n--11782-8857-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8857-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 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11782-8856-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 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Normalise-Core-n--6506-6076-evalAll (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-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))) (let ((act-25 ((Normalise-Core-n--6506-6076-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define Normalise-Core-n--16850-13252-dumpEnv (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 ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 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 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased 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 ((Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
-(define Normalise-Core-n--11782-8858-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-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--11782-8858-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 'erased e-3 e-8)))))))))))
-(define Normalise-Core-n--11782-8859-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8858-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 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8858-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 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1)))))))))))
-(define Normalise-Core-n--11791-9587-convertMatches (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) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--12708-9637 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2))))))))))))
-(define Normalise-Core-n--6501-5518-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1)))))
-(define Normalise-Core-n--6493-3998-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6493-3998-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))
-(define Normalise-Core-n--6494-4400-applyToStack (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) ((0) (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 ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) 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))) ((Normalise-Core-n--6494-4400-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((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-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((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 (List-Prelude-C-43C-43 'erased e-14 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 ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Normalise-Core-n--9735-6830-addLater (lambda (arg-0 arg-1 arg-2 arg-3 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) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--9814-6859 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--9735-6830-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased)))))))))
+(define Normalise-Core-case--17369-13939 (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 arg-2))) (else (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
+(define Normalise-Core-case--17223-13646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--17121-13461 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--17024-13370 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16927-13279 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16827-13185 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16421-12758 (lambda (arg-0 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) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12721 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--16273-12633 (lambda (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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0)))))))
+(define Normalise-Core-case--15582-12595 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs 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))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12529 (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) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12432 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12350 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12287 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5))))))
+(define Normalise-Core-case--15582-12045 (lambda (arg-0 arg-1 arg-2 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 (((arg-2 arg-10) arg-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 (((arg-6 arg-10) arg-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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12104-11909 (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 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1)))))))
+(define Normalise-Core-case--12104-11849 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
+(define Normalise-Core-case--12104-11785 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
+(define Normalise-Core-case--12100-11703 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14355-10931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 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 (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14242-10851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14355-10931 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14132-10773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14242-10851 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14031-10697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14132-10773 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13947-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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))) (Normalise-Core-case--14031-10697 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13875-10565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Normalise-Core-case--13947-10625 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13804-10516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13739-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13679-10418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (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 ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (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 ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Normalise-Core-case--13629-10373 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) 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 ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (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))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 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-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12097-10334 (lambda (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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) 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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-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 ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) 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 ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (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))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13875-10565 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-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13329-10131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13288-10084 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12094-10053 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13070-9910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 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 ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13016-9869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (Normalise-Core-case--13070-9910 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12846-9708 (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) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12091-9675 (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 (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-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 (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 (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12088-9573 (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))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12085-9478 (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) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12413-9341 (lambda (arg-0 arg-1 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) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-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-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12373-9303 (lambda (arg-0 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) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-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-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12085-9274 (lambda (arg-0 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) (Normalise-Core-case--12373-9303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12085-9086-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-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--11550-8573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8))))
+(define Normalise-Core-case--11568-8502 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13))))))
+(define Normalise-Core-case--9985-7840 (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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10)))))))))))))
+(define Normalise-Core-case--10895-7760 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7))))))))))
+(define Normalise-Core-case--9970-7317 (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
+(define Normalise-Core-case--10211-7272 (lambda (arg-0 arg-1 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 (+ 1 arg-13))))
+(define Normalise-Core-case--10230-7212 (lambda (arg-0 arg-1 arg-2 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 (+ 1 arg-14))))
+(define Normalise-Core-case--10211-7135 (lambda (arg-0 arg-1 arg-2 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Normalise-Core-case--9970-7077 (lambda (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) (vector 1 (vector 0 arg-8 arg-4 arg-11))))
+(define Normalise-Core-case--10052-7023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-17)))
+(define Normalise-Core-case--9470-6506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8))))))))
+(define Normalise-Core-case--9417-6420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) 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-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 Normalise-Core-case--6714-6382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Normalise-Core-case--9417-6420 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8))))))))
+(define Normalise-Core-case--9274-6295 (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) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Normalise-Core-case--6713-6262 (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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) 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))) ((Normalise-Core-case--9274-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--6712-6194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3)))))))
+(define Normalise-Core-case--8927-6067 (lambda (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)) (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-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7)))))))))))
+(define Normalise-Core-case--6710-5948 (lambda (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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 ((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 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 Normalise-Core-case--6709-5814 (lambda (arg-0 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Normalise-Core-case--6708-5715 (lambda (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) (Normalise-Core-evalTree arg-0 arg-1 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 Normalise-Core-case--6708-5599 (lambda (arg-0 arg-1 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5438 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6707-5169 (lambda (arg-0 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))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased 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 Normalise-Core-case--7717-4959 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7673-4922 (lambda (arg-0 arg-1 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) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7633-4889 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--6705-4860 (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-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-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))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 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 (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7339-4645 (lambda (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 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
+(define Normalise-Core-case--6702-4613 (lambda (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) (Normalise-Core-case--7339-4645 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
+(define Normalise-Core-case--6700-4445 (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) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7))))))))
+(define Normalise-Core-case--6700-4332 (lambda (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) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 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 ((Normalise-Core-eval arg-0 arg-1 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 Normalise-Core-case--6700-4175 (lambda (arg-0 arg-1 arg-2 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-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 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11))))))
+(define Normalise-Core-case--6628-3980 (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
+(define Normalise-Core-case--6614-3938 (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 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))))))))))))))
+(define Normalise-Core-case--6537-3925 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6614-3938 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 Normalise-Core-case--6541-3879 (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 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
+(define Normalise-Core-case--6424-3829 (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))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0)))))))
+(define Normalise-Core-case--6445-3800 (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7))))))))))))
+(define Normalise-Core-case--6424-3774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-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 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-n--12085-9085-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3)))))))
+(define Normalise-Core-n--11550-8646-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3)))))))
+(define Normalise-Core-n--11550-8644-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) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
+(define Normalise-Core-n--11550-8645-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 ))))))
+(define Normalise-Core-n--9985-7738-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-11) (let ((sc0 arg-11)) (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-11)))))
+(define Normalise-Core-n--6711-6103-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8)))))))))))))
+(define Normalise-Core-n--6537-3859-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6541-3879 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
+(define Normalise-Core-n--17369-13682-repSub (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) 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))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 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))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (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))) (vector 1 (TT-Core-apply 'erased e-10 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (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))) (vector 1 (TT-Core-apply 'erased e-16 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((act-25 ((Normalise-Core-n--17369-13682-repSub 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 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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 ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0))))))))))))
+(define Normalise-Core-n--17369-13681-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))))
+(define Normalise-Core-n--12097-10282-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-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 ))))))))))
+(define Normalise-Core-n--12094-9818-getArgPos (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) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6))))))))))))
+(define Normalise-Core-n--9970-7119-findName (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 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))) (Normalise-Core-case--10211-7135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
+(define Normalise-Core-n--11550-8476-findIdx (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11568-8502 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9))))))))))))
+(define Normalise-Core-n--12097-10281-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-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 ))))))
+(define Normalise-Core-n--12085-9086-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9086-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 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12085-9085-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 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Normalise-Core-n--6713-6226-evalAll (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-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))) (let ((act-25 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define Normalise-Core-n--17223-13546-dumpEnv (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 ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 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 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased 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 ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
+(define Normalise-Core-n--12085-9087-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-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12085-9087-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 'erased e-3 e-8)))))))))))
+(define Normalise-Core-n--12085-9088-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-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 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-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 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1)))))))))))
+(define Normalise-Core-n--12094-9819-convertMatches (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) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--13016-9869 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2))))))))))))
+(define Normalise-Core-n--6708-5665-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1)))))
+(define Normalise-Core-n--6700-4129-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))
+(define Normalise-Core-n--6701-4543-applyToStack (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) ((0) (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 ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) 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))) ((Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((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-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((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 (List-Prelude-C-43C-43 'erased e-14 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 ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Normalise-Core-n--9970-6994-addLater (lambda (arg-0 arg-1 arg-2 arg-3 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) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--10052-7023 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--9970-6994-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased)))))))))
 (define Normalise-Core-quote_Quote__Term (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-quoteGen_Quote__Term arg-0 e-5 arg-1 arg-2 arg-3 ext-0))))))))
 (define Normalise-Core-quote_Quote__NF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Normalise-Core-quoteGen_Quote__NF arg-0 e-5 arg-1 arg-2 arg-3) ext-0))))))))
 (define Normalise-Core-quote_Quote__Closure (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-quoteGen_Quote__Closure arg-0 e-5 arg-1 arg-2 arg-3 ext-0))))))))
@@ -3330,27 +3368,27 @@
 (define Normalise-Core-convert_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Normalise-Core-convGen_Convert__NF arg-0 e-5 arg-1 arg-2 arg-3 arg-4) ext-0))))))))
 (define Normalise-Core-convert_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-convGen_Convert__Closure arg-0 e-5 arg-1 arg-2 arg-3 arg-4 ext-0))))))))
 (define Normalise-Core-convGen_Convert__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 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 ((act-25 ((Normalise-Core-nf arg-0 arg-2 arg-3 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0)))))))))))))
-(define Normalise-Core-convGen_Convert__NF (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-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "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 ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) 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-99 arg-2) 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-108 arg-2) 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (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-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (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-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))
+(define Normalise-Core-convGen_Convert__NF (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-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "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 ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) 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-99 arg-2) 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-108 arg-2) 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (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-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (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-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))
 (define Normalise-Core-convGen_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 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 ((Normalise-Core-evalClosure arg-0 arg-2 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0)))))))))))))
-(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))))
-(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (Normalise-Core-quoteGen_Quote__NF vars arg-6622 arg-6624 arg-6625 arg-6627)))))))))
-(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))))
-(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157 eta-0)))))))))))
-(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (Normalise-Core-convGen_Convert__NF vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157))))))))))
-(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157 eta-0)))))))))))
-(define Normalise-Core-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))) (Normalise-Core-case--6217-3643 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6217-3698 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))))
+(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))))
+(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (Normalise-Core-quoteGen_Quote__NF vars arg-6780 arg-6782 arg-6783 arg-6785)))))))))
+(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))))
+(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0)))))))))))
+(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (Normalise-Core-convGen_Convert__NF vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367))))))))))
+(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0)))))))))))
+(define Normalise-Core-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))) (Normalise-Core-case--6424-3774 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6424-3829 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))))
 (define Normalise-Core-updateLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 1 arg-8) e-5)))(else arg-7))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-0 'erased e-10 arg-8)))))(else arg-7)))))))))
-(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6330-3794 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2))))))))
-(define Normalise-Core-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8265-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8432-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11262-8433-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) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
-(define Normalise-Core-tryAlt (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) ((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-10)) (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))) (Normalise-Core-case--6501-5095 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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))) (Normalise-Core-case--6501-5189 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6501-5291 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6501-5452 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))
+(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6537-3925 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2))))))))
+(define Normalise-Core-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8645-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11550-8646-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) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
+(define Normalise-Core-tryAlt (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) ((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-10)) (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))) (Normalise-Core-case--6708-5242 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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))) (Normalise-Core-case--6708-5336 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6708-5438 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6708-5599 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))
 (define Normalise-Core-toClosure (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 ) arg-1 (vector 0 ) arg-2 arg-3)))
-(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6504-5954-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 ))))
-(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
-(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 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)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--16992-13384-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0)))))))))))
+(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 ))))
+(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
+(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 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)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17369-13682-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0)))))))))))
 (define Normalise-Core-replace (lambda (arg-0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (Normalise-Core-replaceC-39 arg-0 0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0)))
 (define Normalise-Core-quotePi (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Normalise-Core-quoteHead (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))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--9735-6913 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9735-6830-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (Normalise-Core-case--9735-7151 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9735-6955-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 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-4 e-9 e-10 e-5))))))))))))))))
-(define Normalise-Core-quoteGenNF (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 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 (Normalise-Core-genName arg-2 "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-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (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))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 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 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 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 ((Normalise-Core-quoteArgs 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-10 (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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-16 (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9750-7552-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9750-7552-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-36 (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 Normalise-Core-quoteHead (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))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--9970-7077 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-6994-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (Normalise-Core-case--9970-7317 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-7119-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 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-4 e-9 e-10 e-5))))))))))))))))
+(define Normalise-Core-quoteGenNF (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 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 (Normalise-Core-genName arg-2 "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-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (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))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 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 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 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 ((Normalise-Core-quoteArgs 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-10 (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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-16 (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-36 (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 Normalise-Core-quoteGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6)))))))))
 (define Normalise-Core-quoteBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((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) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 e-5 e-8 e-9))))))))))))))))) ((2) (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF 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))) (vector 1 (vector 5 e-21 e-5)))))))))))))))
 (define Normalise-Core-quoteArgs (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 e-2) 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (let ((act-26 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) 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-6 e-7)))))))))))))))))))))))))
@@ -3364,20 +3402,20 @@
 (define Normalise-Core-normalise (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf 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))) (Normalise-Core-quote_Quote__NF arg-0 arg-1 arg-2 e-5 ext-0))))))))
 (define Normalise-Core-nfOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-eval arg-2 arg-1 arg-0 (vector 0 ) arg-3 (vector 0 ) arg-4 (vector 0 ))))
 (define Normalise-Core-nf (lambda (arg-0 arg-1 arg-2 arg-3) (Normalise-Core-eval arg-1 (Value-Core-defaultOpts) arg-0 (vector 0 ) arg-2 (vector 0 ) arg-3 (vector 0 ))))
-(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16570-13000 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16475-12911 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16754-13172 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16662-13086 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16850-13348 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16927-13279 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16827-13185 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17121-13461 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17024-13370 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17223-13646 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
 (define Normalise-Core-isFromTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Normalise-Core-gnf (lambda (arg-0 arg-1 arg-2) (vector 0 0 (lambda (eta-0) (vector 1 arg-2)) (lambda (c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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))) ((Normalise-Core-nf arg-0 e-5 arg-1 arg-2) eta-0)))))))))))
 (define Normalise-Core-glueBack (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 1 (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-3 eta-0))))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-3))))))
 (define Normalise-Core-getValArity (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 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))) (vector 1 (+ 1 e-9))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0)))))))
 (define Normalise-Core-getTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define Normalise-Core-getNF (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) (e-3 arg-1)))))
-(define Normalise-Core-getMatchingVars (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-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(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-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--11788-9444 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-getMatchingVars (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-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(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-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--12091-9675 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Normalise-Core-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 e-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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 e-1 e-3 e-7) eta-0))) (else (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-getMatchingVarAlt (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (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))) (Normalise-Core-case--11782-9045 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-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-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--11782-9248 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-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-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-getMatchingVarAlt (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (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))) (Normalise-Core-case--12085-9274 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-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-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--12085-9478 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-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-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Normalise-Core-getCaseBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-6)) (else (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (arg-7) (vector 1 e-2 arg-7)) (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased e-3 e-11 arg-6)))))))))))))
 (define Normalise-Core-getArity (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf 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))) ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) ext-0))))))))
 (define Normalise-Core-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 (b+ 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)))))))))))))
@@ -3385,31 +3423,31 @@
 (define Normalise-Core-gErased (lambda (arg-0 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 Normalise-Core-findAlt (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) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-tryAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 e-1)))) ((1) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0)) (else (vector 1 (vector 2 ))))))))))))))))))
 (define Normalise-Core-evalWithOpts (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (Normalise-Core-eval arg-2 arg-3 arg-0 arg-1 ext-0 ext-1 ext-2 ext-3)))
-(define Normalise-Core-evalTree (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 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) 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 ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--6503-5799 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Normalise-Core-evalTree (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 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) 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 ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--6710-5948 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
 (define Normalise-Core-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-5 arg-7 e-0 e-1 arg-8)))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 3 arg-5 arg-7 e-2 e-3 arg-8)))))) ((0) (lambda (eta-0) (vector 1 (arg-9))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-0)) (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 ((redok (Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc2 arg-0)) (let ((e-2 (vector-ref sc2 3))) e-2)) (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3))) (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)) (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))))))) (let ((sc2 redok)) (cond ((equal? sc2 0) (let ((act-25 ((Normalise-Core-useMeta (let ((sc3 e-1)) (let ((e-15 (vector-ref sc3 16))) e-15)) arg-5 arg-7 arg-0 arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-updateLimit arg-6 arg-7 e-2) eta-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))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-3 e-3 arg-4 arg-5 (let ((sc7 e-1)) (let ((e-21 (vector-ref sc7 8))) e-21)) (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17)) (let ((sc7 e-1)) (let ((e-11 (vector-ref sc7 12))) e-11)) arg-8 arg-9) eta-0))) (else (vector 1 (arg-9)))))))))))) (else (vector 1 (arg-9))))))))))) (else (vector 1 (arg-9)))))))) (else (vector 1 (arg-9))))))))))))))))
-(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6506-6110 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5))))
+(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6713-6262 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5))))
 (define Normalise-Core-evalMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-3 0 arg-4 (vector 1 ) (vector 9 arg-6) (List-Prelude-C-43C-43 'erased arg-7 arg-8) (lambda () (vector 1 arg-4 (vector 2 arg-5 arg-6 arg-7) arg-8)))))
-(define Normalise-Core-evalLocal (lambda (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-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--6495-4469 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14)))))))))))))
-(define Normalise-Core-evalLocClosure (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))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6494-4400-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6)))))))
-(define Normalise-Core-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) (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))) (Normalise-Core-case--6507-6229 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11))))))))
-(define Normalise-Core-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) (Normalise-Core-case--6500-5022 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5))))
+(define Normalise-Core-evalLocal (lambda (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-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--6702-4613 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14)))))))))))))
+(define Normalise-Core-evalLocClosure (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))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6)))))))
+(define Normalise-Core-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) (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))) (Normalise-Core-case--6714-6382 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11))))))))
+(define Normalise-Core-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) (Normalise-Core-case--6707-5169 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5))))
 (define Normalise-Core-evalClosure (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 ((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))) (Normalise-Core-eval arg-1 e-2 arg-0 e-1 e-4 e-3 e-5 (vector 0 )))))))) (else (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-7))))))))
 (define Normalise-Core-evalArg (lambda (arg-0 arg-1 arg-2) (Normalise-Core-evalClosure arg-0 arg-1 arg-2)))
-(define Normalise-Core-eval (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((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))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6493-3998-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((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-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) 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 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6493-4044 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-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 () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((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))) (Normalise-Core-case--6493-4193 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (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 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 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))) (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-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 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) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((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 Normalise-Core-eval (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((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))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((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-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) 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 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6700-4175 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-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 () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((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))) (Normalise-Core-case--6700-4332 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (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 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 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))) (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-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 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) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((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 Normalise-Core-convert (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6)))))))))
 (define Normalise-Core-convGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) ((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7))))))))))
-(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 arg-5)) (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))) (Normalise-Core-case--11801-11542 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--11801-11606 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))
-(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact 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) ((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 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (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 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) 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))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 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 Normalise-Core-chkConvHead (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-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--11797-11460 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) 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-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 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-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 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-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 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-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 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) 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 ((_-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))) ((Normalise-Core-case--13557-10323 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 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))) eta-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 (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 arg-5)) (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))) (Normalise-Core-case--12104-11785 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--12104-11849 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))
+(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact 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) ((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 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (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 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) 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))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 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 Normalise-Core-chkConvHead (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-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--12100-11703 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) 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-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 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-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 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-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 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-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 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) 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 ((_-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))) ((Normalise-Core-case--13875-10565 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 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))) eta-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 (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Normalise-Core-argsFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 (vector 0 ) arg-4))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-argsFromStack arg-0 arg-1 'erased e-3 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-6 e-5) e-4))))))))))))))))))
 (define Normalise-Core-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-1 arg-2 arg-3 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-3 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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-8)))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Normalise-Core-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.Value.Closure" arg-0))))
-(define Primitives-Core-case--5661-1411 (lambda (arg-0 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 7 (string-ref arg-2 arg-4))))) (else (vector 0 ))))))
-(define Primitives-Core-case--5403-1164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ arg-3 (Prelude-mod_Integral__Integer arg-1 arg-3))))))))))
-(define Primitives-Core-case--5326-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 4 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 4 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
-(define Primitives-Core-case--5249-1022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 3 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 3 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
-(define Primitives-Core-case--5172-951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
+(define Primitives-Core-case--5781-1385 (lambda (arg-0 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 7 (string-ref arg-2 arg-4))))) (else (vector 0 ))))))
+(define Primitives-Core-case--5535-1142 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ (Primitives-Core-b64max) (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))))))))
+(define Primitives-Core-case--5470-1082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b32max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)) 63)))))))))
+(define Primitives-Core-case--5405-1022 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b16max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)) 63)))))))))
+(define Primitives-Core-case--5340-962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b8max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)) 63)))))))))
 (define Primitives-Core-unaryOp (lambda (arg-0 arg-1 arg-2) (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 ((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)) (case (vector-ref sc2 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) (arg-0 e-6)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Prim-Primitives-Core-type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Prim-Primitives-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
@@ -3419,17 +3457,17 @@
 (define Primitives-Core-strSubstr (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (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) ((6) (let ((e-23 (vector-ref sc8 1))) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (string-substr e-7 e-15 e-23)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strReverse (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-reverse e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strLength (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Nat_Int (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5661-1411 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5781-1385 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strHead (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 "") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 0 ))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 ))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 )))))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((7) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-strCons e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strAppend (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Strings-Prelude-C-43C-43 e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftR e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shr e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-shr e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-shr e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-shr e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-shr e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftL e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (blodwen-bits-shl e-2 e-8 63) 256)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (blodwen-bits-shl e-3 e-9 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (blodwen-bits-shl e-4 e-10 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (blodwen-shl e-5 e-11) 18446744073709551616)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftL e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (blodwen-bits-shl e-2 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (blodwen-bits-shl e-3 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (blodwen-bits-shl e-4 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (blodwen-shl e-5 e-11) (Primitives-Core-b64max))))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-prim (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "prim__" arg-0))))
 (define Primitives-Core-predTy (lambda (arg-0 arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (vector 9 (FC-Core-emptyFC) arg-1))))
 (define Primitives-Core-opName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "add_" (TT-Core-show_Show__Constant e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "sub_" (TT-Core-show_Show__Constant e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "mul_" (TT-Core-show_Show__Constant e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "div_" (TT-Core-show_Show__Constant e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "mod_" (TT-Core-show_Show__Constant e-4))))) ((5) (let ((e-5 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "negate_" (TT-Core-show_Show__Constant e-5))))) ((6) (let ((e-6 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "shl_" (TT-Core-show_Show__Constant e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "shr_" (TT-Core-show_Show__Constant e-7))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "and_" (TT-Core-show_Show__Constant e-8))))) ((9) (let ((e-9 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "or_" (TT-Core-show_Show__Constant e-9))))) ((10) (let ((e-10 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "xor_" (TT-Core-show_Show__Constant e-10))))) ((11) (let ((e-11 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "lt_" (TT-Core-show_Show__Constant e-11))))) ((12) (let ((e-12 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "lte_" (TT-Core-show_Show__Constant e-12))))) ((13) (let ((e-13 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "eq_" (TT-Core-show_Show__Constant e-13))))) ((14) (let ((e-14 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "gte_" (TT-Core-show_Show__Constant e-14))))) ((15) (let ((e-15 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "gt_" (TT-Core-show_Show__Constant e-15))))) ((16) (Primitives-Core-prim "strLength")) ((17) (Primitives-Core-prim "strHead")) ((18) (Primitives-Core-prim "strTail")) ((19) (Primitives-Core-prim "strIndex")) ((20) (Primitives-Core-prim "strCons")) ((21) (Primitives-Core-prim "strAppend")) ((22) (Primitives-Core-prim "strReverse")) ((23) (Primitives-Core-prim "strSubstr")) ((24) (Primitives-Core-prim "doubleExp")) ((25) (Primitives-Core-prim "doubleLog")) ((26) (Primitives-Core-prim "doubleSin")) ((27) (Primitives-Core-prim "doubleCos")) ((28) (Primitives-Core-prim "doubleTan")) ((29) (Primitives-Core-prim "doubleASin")) ((30) (Primitives-Core-prim "doubleACos")) ((31) (Primitives-Core-prim "doubleATan")) ((32) (Primitives-Core-prim "doubleSqrt")) ((33) (Primitives-Core-prim "doubleFloor")) ((34) (Primitives-Core-prim "doubleCeiling")) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "cast_" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (TT-Core-show_Show__Constant e-17))))))) ((36) (Primitives-Core-prim "believe_me")) (else (Primitives-Core-prim "crash"))))))
 (define Primitives-Core-neg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-negate_Neg__Integer e-0))))) ((0) (let ((e-1 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-negate_Neg__Int e-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-negate_Neg__Double e-2)))))(else (vector 0 ))))))
-(define Primitives-Core-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (* e-0 e-7)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b* e-1 e-8 63) 256)))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b* e-2 e-9 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b* e-3 e-10 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (* e-4 e-11) 18446744073709551616)))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b* e-5 e-12 63)))))(else (vector 0 )))))) ((8) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-42_Num__Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (* e-0 e-7)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b* e-1 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b* e-2 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b* e-3 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (* e-4 e-11) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b* e-5 e-12 63)))))(else (vector 0 )))))) ((8) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-42_Num__Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-mod (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-mod_Integral__Integer e-0 e-2))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-mod_Integral__Int e-1 e-3))))))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Integer e-5 e-14)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__String e-6 e-15)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Char e-7 e-16)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Integer e-5 e-14)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__String e-6 e-15)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Char e-7 e-16)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
@@ -3452,7 +3490,7 @@
 (define Primitives-Core-doubleASin (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-asin eta-0)) ext-0)))
 (define Primitives-Core-doubleACos (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-acos eta-0)) ext-0)))
 (define Primitives-Core-div (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-div_Integral__Integer e-0 e-3))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-div_Integral__Int e-1 e-4))))))))(else (vector 0 )))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-47_Fractional__Double e-2 e-5)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))
+(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))
 (define Primitives-Core-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-2) (vector 9 (FC-Core-emptyFC) arg-3))))))
 (define Primitives-Core-constTy (lambda (arg-0 arg-1 arg-2) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (vector 9 (FC-Core-emptyFC) arg-2)))))
 (define Primitives-Core-cmpTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 (vector 10 ))))
@@ -3462,91 +3500,95 @@
 (define Primitives-Core-castInt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-7))))(else (vector 0 )))))) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-8))))(else (vector 0 )))))) ((3) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-9))))(else (vector 0 )))))) ((4) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-10))))(else (vector 0 )))))) ((8) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Double_Int e-11)))))(else (vector 0 )))))) ((7) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Char_Int e-12)))))(else (vector 0 )))))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__String_Int e-13)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-castDouble (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Int_Double e-7)))))(else (vector 0 )))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Integer_Double e-8)))))(else (vector 0 )))))) ((6) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__String_Double e-9)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-castChar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (Prelude-cast_Cast__Int_Char e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 256)) (Primitives-Core-case--5172-951 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 18446744073709551616)) (Primitives-Core-case--5403-1164 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 4294967296)) (Primitives-Core-case--5326-1093 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 65536)) (Primitives-Core-case--5249-1022 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5340-962 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5535-1142 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5470-1082 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5405-1022 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-xor e-0 e-4)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-xor e-1 e-5)))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-xor e-2 e-6)))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-xor e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-or e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-or e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-or e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-or e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-or e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-or e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-binOp (lambda (arg-0 arg-1 arg-2) (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))))
+(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))))
 (define Primitives-Core-believeMe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((3) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((8) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((10) (let ((e-29 (vector-ref sc3 1))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 10 e-29)))(else (let ((sc4 e-11)) (vector 0 )))))))(else (let ((sc3 e-11)) (vector 0 ))))))))))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-and e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-and e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-and e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-and e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-and e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-and e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-b8max (lambda () 256))
+(define Primitives-Core-b64max (lambda () 18446744073709551616))
+(define Primitives-Core-b32max (lambda () 4294967296))
+(define Primitives-Core-b16max (lambda () 65536))
 (define Prim-Primitives-Core-arity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Primitives-Core-arithTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 arg-0)))
 (define Primitives-Core-allPrimitives (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 0 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 1 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 2 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 3 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 4 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 5 t) (Primitives-Core-predTy t t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 18 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 6 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 7 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 8 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 9 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 10 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 11 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 12 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 13 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 14 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 15 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 16 ) (Primitives-Core-predTy (vector 16 ) (vector 10 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 17 ) (Primitives-Core-predTy (vector 16 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 0) (vector 18 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (Primitives-Core-constTy (vector 16 ) (vector 10 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (Primitives-Core-constTy (vector 17 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (Primitives-Core-arithTy (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 22 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (Primitives-Core-constTy3 (vector 10 ) (vector 10 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (Primitives-Core-believeMeTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 37 ) (Primitives-Core-crashTy) (TT-Core-notCovering)) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 24 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 25 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 26 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 27 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 28 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 29 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 30 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 31 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 32 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 33 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 34 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 0 )))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 16 )) (Primitives-Core-predTy t (vector 16 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 11 )) (Primitives-Core-predTy t (vector 11 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 10 )) (Primitives-Core-predTy t (vector 10 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 18 )) (Primitives-Core-predTy t (vector 18 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 17 )) (Primitives-Core-predTy t (vector 17 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 0 )))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 12 )) (Primitives-Core-predTy t (vector 12 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 13 )) (Primitives-Core-predTy t (vector 13 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 14 )) (Primitives-Core-predTy t (vector 14 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 15 )) (Primitives-Core-predTy t (vector 15 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 )))))))))))))))))))))))))))))))
-(define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ 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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (b+ e-2 e-10 63)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b+ e-3 e-11 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b+ e-4 e-12 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (+ e-5 e-13) 18446744073709551616)))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (b+ (Prelude-cast_Cast__Char_Int e-6) (Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Binary-Core-case--13039-13419 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Binary-Core-case--12988-13371 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Binary-Core-case--12188-13216 (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-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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Binary-Core-case--12408-13083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9)))))))))))))
-(define Binary-Core-case--12239-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) 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 ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) 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 ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc5 arg-16)) (let ((e-20 (vector-ref sc5 7))) e-20))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc6 arg-16)) (let ((e-22 (vector-ref sc6 6))) e-22))) 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 (Binary-Core-updatePair arg-9 (let ((sc7 arg-16)) (let ((e-12 (vector-ref sc7 12))) e-12)) 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 ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc8 arg-16)) (let ((e-13 (vector-ref sc8 13))) e-13)) 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 (Binary-Core-updatePrims arg-9 (let ((sc9 arg-16)) (let ((e-14 (vector-ref sc9 14))) e-14)) 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 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc10 arg-16)) (let ((e-15 (vector-ref sc10 15))) e-15)))) 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 ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc11 arg-16)) (let ((e-16 (vector-ref sc11 16))) e-16)) 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 ((act-35 ((Binary-Core-updateTransforms arg-9 (let ((sc12 arg-16)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-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 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 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 (Context-Core-resetFirstEntry arg-9 eta-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 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (let ((act-39 (set-box! arg-8 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-16)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20)))))))))))))) (vector 1 act-39)))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc17 arg-16)) (let ((e-2 (vector-ref sc17 2))) e-2)) (let ((sc17 arg-16)) (let ((e-31 (vector-ref sc17 8))) e-31)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--12239-12704 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 0 )) (else (vector 1 arg-2))))))
-(define Binary-Core-case--12188-12660 (lambda (arg-0 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12239-12704 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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 ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12239-12805 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18))))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Binary-Core-case--12131-12617 (lambda (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 1) (lambda (eta-0) (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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Binary-Utils-readFromFile arg-4 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-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12239-12704 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12239-12805 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Binary-Core-case--11927-12506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11927-12434 (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11913-12382 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Binary-Core-case--11831-12347 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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-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))) (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 arg-3 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Binary-Core-case--11753-12281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Binary-Core-case--11693-12215 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11669-12148 (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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
-(define Binary-Core-case--11605-12129 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11541-12067 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11467-12003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11265-11846 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 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 (vector 1 (vector 0 ))))))))))))
-(define Binary-Core-case--11277-11778 (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 Binary-Core-case--11092-11692 (lambda (arg-0 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Binary-Core-case--10993-11523 (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) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 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 (Context-Core-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))) (TTC-Core-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))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0)))))))))))))))))))))
-(define Binary-Core-case--10974-11510 (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 ((_-0 (vector 1 e-1))) (Binary-Core-case--10993-11523 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))))))
-(define Binary-Core-case--10419-10938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1))))))
-(define Binary-Core-n--9628-10186-resolved_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) 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))) ((Binary-Core-n--9628-10186-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
-(define Binary-Core-n--10033-10754-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((Context-Core-resolved_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
-(define Binary-Core-n--10033-10755-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-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 ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-1) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
-(define Binary-Core-n--10033-10753-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--9627-10158-full_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) 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))) ((Binary-Core-n--9627-10158-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
-(define Binary-Core-n--10032-10576-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((Context-Core-full_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
-(define Binary-Core-n--10032-10577-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-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 ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-1) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
-(define Binary-Core-n--10032-10575-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--11265-11769-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))) (Binary-Core-case--11277-11778 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 Binary-Core-n--11896-12367-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))) ((Binary-Core-case--11913-12382 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0))))))))
+(define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ 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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b+ e-2 e-10 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b+ e-3 e-11 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b+ e-4 e-12 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (+ e-5 e-13) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (b+ (Prelude-cast_Cast__Char_Int e-6) (Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Binary-Core-case--13593-7541 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-case--13539-7490 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Binary-Core-case--12708-7317 (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-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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Binary-Core-case--12932-7184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9)))))))))))))
+(define Binary-Core-case--12761-6890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) 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 ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) 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 ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc5 arg-16)) (let ((e-20 (vector-ref sc5 7))) e-20))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc6 arg-16)) (let ((e-22 (vector-ref sc6 6))) e-22))) 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 (Binary-Core-updatePair arg-9 (let ((sc7 arg-16)) (let ((e-12 (vector-ref sc7 12))) e-12)) 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 ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc8 arg-16)) (let ((e-13 (vector-ref sc8 13))) e-13)) 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 (Binary-Core-updatePrims arg-9 (let ((sc9 arg-16)) (let ((e-14 (vector-ref sc9 14))) e-14)) 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 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc10 arg-16)) (let ((e-15 (vector-ref sc10 15))) e-15)))) 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 ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc11 arg-16)) (let ((e-16 (vector-ref sc11 16))) e-16)) 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 ((act-35 ((Binary-Core-updateTransforms arg-9 (let ((sc12 arg-16)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-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 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 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 (Context-Core-resetFirstEntry arg-9 eta-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 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (let ((act-39 (set-box! arg-8 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-16)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20)))))))))))))) (vector 1 act-39)))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc17 arg-16)) (let ((e-2 (vector-ref sc17 2))) e-2)) (let ((sc17 arg-16)) (let ((e-31 (vector-ref sc17 8))) e-31)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12761-6788 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 0 )) (else (vector 1 arg-2))))))
+(define Binary-Core-case--12708-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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 ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18))))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Binary-Core-case--12650-6697 (lambda (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 1) (lambda (eta-0) (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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Binary-Utils-readFromFile arg-4 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-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-case--12443-6582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--12443-6510 (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--12428-6458 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Binary-Core-case--12345-6422 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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-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))) (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 arg-3 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Binary-Core-case--12265-6355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Binary-Core-case--12203-6287 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12176-6215 (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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
+(define Binary-Core-case--12109-6195 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12042-6130 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--11966-6064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--11758-5901 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 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 (vector 1 (vector 0 ))))))))))))
+(define Binary-Core-case--11770-5830 (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 Binary-Core-case--11577-5744 (lambda (arg-0 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Binary-Core-case--11474-5563 (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) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 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 (Context-Core-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))) (TTC-Core-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))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0)))))))))))))))))))))
+(define Binary-Core-case--11454-5550 (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 ((_-0 (vector 1 e-1))) (Binary-Core-case--11474-5563 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))))))
+(define Binary-Core-case--10859-4916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1))))))
+(define Binary-Core-n--10022-4105-resolved_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) 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))) ((Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
+(define Binary-Core-n--10445-4716-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((Context-Core-resolved_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
+(define Binary-Core-n--10445-4717-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-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 ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
+(define Binary-Core-n--10445-4715-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--10021-4076-full_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) 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))) ((Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
+(define Binary-Core-n--10444-4522-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((Context-Core-full_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
+(define Binary-Core-n--10444-4523-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-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 ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
+(define Binary-Core-n--10444-4521-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--11758-5821-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))) (Binary-Core-case--11770-5830 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 Binary-Core-n--12411-6442-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))) ((Binary-Core-case--12428-6458 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 ((act-25 ((Context-Core-resolved_HasNames__Transform arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 ((Context-Core-resolved_HasNames__Name arg-0 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))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7))))))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
-(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10033-10753-resolvedPair 'erased 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) eta-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 ((Binary-Core-n--10033-10754-resolvedRW 'erased 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) eta-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 ((Binary-Core-n--10033-10755-resolvedPrim 'erased 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) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960)))) arg-2 e-15) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960)))) arg-2 e-17) eta-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 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-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 Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9628-10186-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
+(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10445-4715-resolvedPair 'erased 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) eta-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 ((Binary-Core-n--10445-4716-resolvedRW 'erased 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) eta-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 ((Binary-Core-n--10445-4717-resolvedPrim 'erased 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) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889)))) arg-2 e-15) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-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 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-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 Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 ((act-25 ((Context-Core-full_HasNames__Transform arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 ((Context-Core-full_HasNames__Name arg-0 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))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7))))))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
-(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10032-10575-fullPair 'erased 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) eta-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 ((Binary-Core-n--10032-10576-fullRW 'erased 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) eta-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 ((Binary-Core-n--10032-10577-fullPrim 'erased 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) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960)))) arg-2 e-15) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960)))) arg-2 e-17) eta-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 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-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 Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9627-10158-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
-(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960))))))
-(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) 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 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (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 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 6))) e-12)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-11 (vector-ref sc5 7))) e-11)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) 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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0))))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-11959 arg-11960)))) 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 ((Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Binary arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__String arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-1)))) arg-8244 arg-8245 eta-0)))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-1)))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-3)))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 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 (TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CG arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Transform arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-8244 eta-1))))) arg-8243 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 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10444-4521-fullPair 'erased 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) eta-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 ((Binary-Core-n--10444-4522-fullRW 'erased 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) eta-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 ((Binary-Core-n--10444-4523-fullPrim 'erased 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) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889)))) arg-2 e-15) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-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 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-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 Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
+(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889))))))
+(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) 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 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (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 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) 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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5888 arg-5889)))) 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 ((Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 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 (TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 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 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define TTCFile-Binary-Core-version (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define TTCFile-Binary-Core-userHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
-(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) 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))) (Binary-Core-n--11896-12367-addT e-6 e-7 e-3 arg-0 e-5 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 ((Binary-Core-updateTransforms arg-0 e-3) eta-0))))))))))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) 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))) (Binary-Core-n--12411-6442-addT e-6 e-7 e-3 arg-0 e-5 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 ((Binary-Core-updateTransforms arg-0 e-3) eta-0))))))))))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Binary-Core-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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Binary-Core-updateNameDirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-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-30 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 e-7 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((Binary-Core-updateNameDirectives arg-0 e-3) eta-0)))))))))))))))))))))
-(define Binary-Core-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 ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Options-Core-C-61C-61_Eq__CG arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__CG arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__CG arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Options-Core-C-47C-61_Eq__CG arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))))
+(define Binary-Core-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 ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Options-Core-C-61C-61_Eq__CG arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Options-Core-C-47C-61_Eq__CG arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))))
 (define TTCFile-Binary-Core-typeHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7))))
-(define Binary-Core-ttcVersion (lambda () 33))
+(define Binary-Core-ttcVersion (lambda () 34))
 (define TTCFile-Binary-Core-transforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-17 (vector-ref sc0 17))) e-17))))
 (define TTCFile-Binary-Core-rewritenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))
-(define Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Binary arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__String arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-1)))) arg-8244 arg-8245 eta-0)))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-1)))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-3)))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CG arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Transform arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-8244 eta-1))))) arg-8243 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 (vector-ref sc21 2))) ((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 Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 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 (vector-ref sc21 2))) ((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 Binary-Core-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-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 (err) (lambda (eta-0) (vector 1 (vector 0 )))) ext-0)))))))) (else (vector 1 (vector 0 ))))))))))))
 (define Binary-Core-readIFaceHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-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 (err) (lambda (eta-0) (vector 1 0))) ext-0)))))))) (else (vector 1 0)))))))))))
-(define Binary-Core-readFromTTC (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-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))) ((Binary-Core-case--12131-12617 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Bool arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
+(define Binary-Core-readFromTTC (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-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))) ((Binary-Core-case--12650-6697 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
 (define TTCFile-Binary-Core-primnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-14 (vector-ref sc0 14))) e-14))))
 (define TTCFile-Binary-Core-pairnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12))))
 (define TTCFile-Binary-Core-nextVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9))))
@@ -3555,9 +3597,9 @@
 (define TTCFile-Binary-Core-imported (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8))))
 (define TTCFile-Binary-Core-importHashes (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
 (define TTCFile-Binary-Core-ifaceHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (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-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))) ((Binary-Core-case--10993-11523 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0)))))))))))))))))
+(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (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-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))) ((Binary-Core-case--11474-5563 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0)))))))))))))))))
 (define Binary-Core-getNSas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-6 e-11))))))))))
-(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 eta-0)))) arg-1 ext-0)))))))))))))))))))))))))
+(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 eta-0)))) arg-1 ext-0)))))))))))))))))))))))))
 (define Binary-Core-getHash (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0)))))))))))))))))))))
 (define TTCFile-Binary-Core-extraData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 18))) e-18))))
 (define TTCFile-Binary-Core-currentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10))))
@@ -3565,76 +3607,76 @@
 (define Binary-Core-checkTTCVersion (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Prelude-C-47C-61_Eq__Int arg-1 arg-2))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 0 arg-0 arg-1 arg-2)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define TTCFile-Binary-Core-cgdirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-16 (vector-ref sc0 16))) e-16))))
 (define TTCFile-Binary-Core-autoHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6))))
-(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--10419-10938 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-2)))))(else arg-2)))))(else arg-2)))))
+(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--10859-4916 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)))))(else arg-2)))))(else arg-2)))))
 (define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-0 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-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-0 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))) (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name 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 (Context-Core-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 eta-0))))))))))))))
-(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-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 ((Context-Core-lookupContextEntry e-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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (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) 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))) ((Binary-Core-case--11265-11846 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11265-11769-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))))))))))))))))))))))
-(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((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-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))))))
-(define UnifyState-Core-case--12768-7768 (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 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-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 (vector 1 (vector 0 ))))))))))))))))
-(define UnifyState-Core-case--12768-7745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))
-(define UnifyState-Core-case--12742-7719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) 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 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--12390-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else "")))))
-(define UnifyState-Core-case--12247-7366 (lambda (arg-0 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-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12390-7418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))))
-(define UnifyState-Core-case--12198-7228 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-8 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009  = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--11837-6857-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12390-7418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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 (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--12150-7187 (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))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12198-7228 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))))))))
-(define UnifyState-Core-case--11837-7143 (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 )))) (else (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (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) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12198-7228 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0))))))))))))))))))))))
-(define UnifyState-Core-case--11863-7018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else "")))))
-(define UnifyState-Core-case--11844-6877 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\u0009Resolved") eta-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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-10 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))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-12 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009  " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-8 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\u0009    from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0))))))))))))))
-(define UnifyState-Core-case--11642-6811 (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) (vector 0 )) (else arg-8)))))
-(define UnifyState-Core-case--11230-6495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--11230-6372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--11182-6303 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (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-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (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 ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (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-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (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-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (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 ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--11018-6269 (lambda (arg-0 arg-1 arg-2 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 ((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-3 (let ((sc2 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-0 arg-5 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 (Normalise-Core-normaliseHoles e-0 arg-5 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))) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--11018-6169 (lambda (arg-0 arg-1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10991-6129 (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) ((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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) 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 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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))) ((UnifyState-Core-case--11018-6269 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--10938-6073-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--10938-6073-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
-(define UnifyState-Core-case--10938-6110 (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 ((_-0 (vector 1 e-1))) (UnifyState-Core-case--10991-6129 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10878-6021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10830-5996 (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))) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--10773-5931 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5)))))))
-(define UnifyState-Core-case--10716-5882 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1)))))
-(define UnifyState-Core-case--10593-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
-(define UnifyState-Core-case--10075-5418 (lambda (arg-0 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 UnifyState-Core-case--10075-5268 (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-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4))))))
-(define UnifyState-Core-case--9263-4516 (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) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9263-4454-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8)))))
-(define UnifyState-Core-case--9183-4399 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--9126-4346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9)))))))))))))
-(define UnifyState-Core-case--9088-4303 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8933-4163 (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))) (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))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8897-4130 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--8858-4097 (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-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))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--8813-4038 (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) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--8771-4014 (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))) (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))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8720-3970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8662-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8612-3875 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8562-3829 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8511-3783 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8441-3736 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8386-3671 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8352-3627 (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-n--11642-6665-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15)))))))))))
-(define UnifyState-Core-n--9263-4454-isLet (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) 0)(else 1)))))
-(define UnifyState-Core-n--10521-5682-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10446-5603-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10345-5493-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10075-5246-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 ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args)))
-(define UnifyState-Core-n--11837-6857-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))) ((UnifyState-Core-case--11844-6877 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0)))))))))))))
-(define UnifyState-Core-n--10938-6073-checkRef (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-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-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 ((Context-Core-lookupContextEntry e-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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (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) 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))) ((Binary-Core-case--11758-5901 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11758-5821-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))))))))))))))))))))))
+(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((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-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))))))
+(define UnifyState-Core-case--13263-7931 (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 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-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 (vector 1 (vector 0 ))))))))))))))))
+(define UnifyState-Core-case--13263-7908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))
+(define UnifyState-Core-case--13235-7882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) 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 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--12877-7573 (lambda (arg-0 arg-1 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) " (Invertible)") (else "")))))
+(define UnifyState-Core-case--12727-7521 (lambda (arg-0 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-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))))
+(define UnifyState-Core-case--12678-7376 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009  = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12304-6992-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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 (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--12628-7335 (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))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))))))))
+(define UnifyState-Core-case--12304-7289 (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 )))) (else (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (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) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0))))))))))))))))))))))
+(define UnifyState-Core-case--12332-7162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-13)) (cond ((equal? sc0 0) "\u000a\u0009(lazy allowed)") (else "")))))
+(define UnifyState-Core-case--12311-7014 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\u0009Resolved") eta-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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-10 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))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-12 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009  " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\u0009    from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\u000a\u0009(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\u0009\u0009" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0))))))))))))))
+(define UnifyState-Core-case--12104-6946 (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) (vector 0 )) (else arg-8)))))
+(define UnifyState-Core-case--11685-6624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--11685-6498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--11637-6426 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (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-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (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 ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (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-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (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-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (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 ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11470-6392 (lambda (arg-0 arg-1 arg-2 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 ((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-3 (let ((sc2 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-0 arg-5 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 (Normalise-Core-normaliseHoles e-0 arg-5 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))) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11470-6291 (lambda (arg-0 arg-1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11443-6249 (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) ((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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) 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 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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))) ((UnifyState-Core-case--11470-6392 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
+(define UnifyState-Core-case--11387-6230 (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 ((_-0 (vector 1 e-1))) (UnifyState-Core-case--11443-6249 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11326-6138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11277-6112 (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))) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--11219-6046 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5)))))))
+(define UnifyState-Core-case--11161-5996 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1)))))
+(define UnifyState-Core-case--11033-5944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
+(define UnifyState-Core-case--10501-5506 (lambda (arg-0 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 UnifyState-Core-case--10501-5351 (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-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4))))))
+(define UnifyState-Core-case--9689-4599 (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) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9689-4537-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8)))))
+(define UnifyState-Core-case--9607-4481 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9548-4427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9509-4382 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9347-4232 (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))) (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))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9310-4198 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9269-4164 (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-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))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9223-4102 (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) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--9180-4077 (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))) (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))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9128-4032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9069-3978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9016-3934 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8963-3885 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8909-3836 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8835-3786 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8776-3717 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8741-3670 (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-n--12104-6795-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15)))))))))))
+(define UnifyState-Core-n--9689-4537-isLet (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) 0)(else 1)))))
+(define UnifyState-Core-n--10959-5780-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10881-5697-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10775-5581-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10501-5329-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 ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args)))
+(define UnifyState-Core-n--12304-6992-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))) ((UnifyState-Core-case--12311-7014 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0)))))))))))))
+(define UnifyState-Core-n--11387-6190-checkRef (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-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define UnifyState-Core-tryUnify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (UnifyState-Core-tryErrorUnify 'erased 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 UnifyState-Core-tryErrorUnify (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))) (let ((act-25 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (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 (Context-Core-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 (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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 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 (let ((sc5 e-8)) (let ((e-31 (vector-ref sc5 25))) e-31)) e-25)))))))))))))))))))))))))))))) (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 err))))))))))))))))) ext-0)))))))))))))
 (define UnifyState-Core-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 (IntMap-Data-empty 'erased) 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 UnifyState-Core-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 UnifyState-Core-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 UnifyState-Core-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))) ((UnifyState-Core-case--8813-4038 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
+(define UnifyState-Core-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))) ((UnifyState-Core-case--9223-4102 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased arg-1 e-0) e-1 (IntMap-Data-delete 'erased arg-1 e-2) (IntMap-Data-delete 'erased arg-1 e-3) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased 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 UState-UnifyState-Core-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define UState-UnifyState-Core-nextConstraint (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
-(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 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 ((act-26 (Context-Core-addDef arg-1 arg-8 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 (UnifyState-Core-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 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10446-5603-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))
-(define UnifyState-Core-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 ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10075-5418 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) 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 (Context-Core-addDef arg-1 arg-6 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 (UnifyState-Core-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 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10075-5246-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))
+(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 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 ((act-26 (Context-Core-addDef arg-1 arg-8 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 (UnifyState-Core-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 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10881-5697-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))
+(define UnifyState-Core-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 ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10501-5506 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) 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 (Context-Core-addDef arg-1 arg-6 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 (UnifyState-Core-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 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10501-5329-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))
 (define UnifyState-Core-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 1)))
-(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 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 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 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 (UnifyState-Core-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 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10521-5682-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))
-(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) 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 (Context-Core-addDef arg-2 e-5 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 (UnifyState-Core-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 (UnifyState-Core-n--10345-5493-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))))
-(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9263-4516 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9263-4454-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8))))))))))))))))
+(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 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 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 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 (UnifyState-Core-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 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10959-5780-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))
+(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) 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 (Context-Core-addDef arg-2 e-5 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 (UnifyState-Core-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 (UnifyState-Core-n--10775-5581-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))))
+(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9689-4599 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9689-4537-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8))))))))))))))))
 (define UnifyState-Core-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((ty (TT-Core-binderType 'erased e-8))) (UnifyState-Core-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 (TT-Core-multiplicity 'erased e-8) (vector 1 ) ty) arg-3)))))))))))))
 (define UnifyState-Core-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 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (IntMap-Data-lookup 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))))
 (define UnifyState-Core-initUState (lambda () (vector 0 (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (vector 0 ) 0 0 (vector 0 ) 1)))
@@ -3649,17 +3691,17 @@
 (define UnifyState-Core-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 (b+ 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 ((Context-Core-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 UnifyState-Core-genMVName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-0 eta-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-1 eta-0)))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-3 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))) (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 (b+ 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 ((Context-Core-inCurrentNS arg-0 (vector 2 (Name-Core-show_Show__Name arg-2) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-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))) (vector 1 e-7)))))))))))))))))))))
 (define UnifyState-Core-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 (b+ 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 ((Context-Core-inCurrentNS arg-0 (vector 7 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))))))))))))
-(define UnifyState-Core-dumpHole (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))) ((UnifyState-Core-case--11837-7143 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
-(define UnifyState-Core-dumpConstraints (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))) ((UnifyState-Core-case--12742-7719 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
+(define UnifyState-Core-dumpHole (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))) ((UnifyState-Core-case--12304-7289 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
+(define UnifyState-Core-dumpConstraints (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))) ((UnifyState-Core-case--13235-7882 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
 (define UState-UnifyState-Core-dotConstraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased arg-1 e-4) e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UState-UnifyState-Core-delayedHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define UState-UnifyState-Core-delayedElab (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define UState-UnifyState-Core-currentHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define UState-UnifyState-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-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 ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--10991-6129 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))
-(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-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 ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--11642-6811 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--11642-6665-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0))))))))))))))))))))))))))))))
-(define UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--10878-6021 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0)))))))))
+(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-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 ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--11443-6249 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))
+(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-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 ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--12104-6946 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--12104-6795-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0))))))))))))))))))))))))))))))
+(define UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--11326-6138 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0)))))))))
 (define UnifyState-Core-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 0 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args))))
 (define UnifyState-Core-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args))))
 (define UnifyState-Core-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 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-0) e-1 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-2) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
@@ -3667,149 +3709,150 @@
 (define UnifyState-Core-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 (vector 1 (vector 0 arg-4 (vector 0 arg-6 (vector 0 arg-0 arg-2 1 (vector 0 ) arg-3 arg-5 arg-7))) e-10) e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UnifyState-Core-addDelayedHoleName (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (IntMap-Data-insert 'erased e-2 e-3 e-11) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))))))
 (define UnifyState-Core-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 ((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 (IntMap-Data-insert 'erased cid arg-2 e-4) e-10 e-6 (b+ 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 cid)))))))))))))
-(define ProcessDecls-TTImp-case--10388-7529 (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0))))))))
-(define ProcessDecls-TTImp-case--10361-7476 (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))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (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 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (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 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-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 (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5) 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 (vector 1 1))))))))))))
-(define ProcessDecls-TTImp-case--10092-7246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
-(define ProcessDecls-TTImp-case--9961-7211 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDecls-TTImp-case--9988-7144 (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-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 ProcessDecls-TTImp-case--9754-7022 (lambda (arg-0 arg-1 arg-2 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-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))) (vector 0 e-0 e-1 arg-11 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)))))))))))))))))))))))))))))
-(define ProcessDecls-TTImp-n--9961-7108-findSetTotal (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-0 arg-1 e-3)))))))))))
-(define ProcessDecls-TTImp-n--9961-7107-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 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 (Context-Core-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 ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (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))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--9988-7144 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0))))))))))))))))))
-(define ProcessDecls-TTImp-n--9961-7106-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3)))))))))
-(define ProcessDecls-TTImp-n--10261-7375-bindNames (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))) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 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 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10261-7374-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define ProcessDecls-TTImp-n--10261-7374-bindDataNames (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) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10261-7373-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-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 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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 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 (vector 1 e-5 e-6 e-8))))))))))))))))
-(define ProcessDecls-TTImp-n--10261-7373-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) 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 0 e-0 e-1 e-5))))))))))))))
-(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7595) (vector 0 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))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-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 (UnifyState-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-1))) (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 (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10261-7375-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 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))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 ProcessDecls-TTImp-case--10814-7669 (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0))))))))
+(define ProcessDecls-TTImp-case--10785-7609 (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))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (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 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (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 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-3)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-3) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-3) (let ((act-17 (arg-3503 eta-3))) (let ((act-16 (arg-3505 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-3) (let ((act-24 (arg-3664 eta-3))) ((arg-3665 act-24) eta-3))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-3) (let ((act-51 (arg-3667 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-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 (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) 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 (vector 1 1))))))))))))
+(define ProcessDecls-TTImp-case--10503-7364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
+(define ProcessDecls-TTImp-case--10367-7326 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDecls-TTImp-case--10394-7256 (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-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 ProcessDecls-TTImp-case--10156-7129 (lambda (arg-0 arg-1 arg-2 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-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))) (vector 0 e-0 e-1 arg-11 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)))))))))))))))))))))))))))))
+(define ProcessDecls-TTImp-n--10367-7215-findSetTotal (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 e-3)))))))))))
+(define ProcessDecls-TTImp-n--10367-7214-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 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 (Context-Core-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 ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (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))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--10394-7256 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0))))))))))))))))))
+(define ProcessDecls-TTImp-n--10367-7213-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3)))))))))
+(define ProcessDecls-TTImp-n--10676-7497-bindNames (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))) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 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 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7496-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define ProcessDecls-TTImp-n--10676-7496-bindDataNames (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) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10676-7495-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-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 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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 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 (vector 1 e-5 e-6 e-8))))))))))))))))
+(define ProcessDecls-TTImp-n--10676-7495-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) 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 0 e-0 e-1 e-5))))))))))))))
+(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7739) (vector 0 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))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-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 (UnifyState-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (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 (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7497-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 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))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 ProcessDecls-TTImp-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 Check-Elab-TTImp-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (ProcessDecls-TTImp-process arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3)))
 (define ProcessDecls-TTImp-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))) (ProcessType-TTImp-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))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (ProcessData-TTImp-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7))))) ((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) (ProcessDef-TTImp-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))) (ProcessParams-TTImp-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))) (ProcessRecord-TTImp-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17))))) ((5) (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-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 ((cns (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-25 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased 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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-20) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-1 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-32 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-30 (vector-ref sc5 8))) (let ((e-29 (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-28 (vector-ref sc5 19))) (let ((e-27 (vector-ref sc5 20))) (let ((e-26 (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))) (vector 0 e-0 e-1 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-28 e-27 e-26 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) ((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) (ProcessTransform-TTImp-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) (ProcessRunElab-TTImp-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-27 (vector-ref sc0 1))) (((e-27 arg-0) arg-5) arg-6))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setLogLevel arg-1 e-28 eta-0))))))))
 (define ProcessDecls-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0)) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))))))))))))))
-(define ProcessDecls-TTImp-checkTotalityOK (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) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(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 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(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 ((Context-Core-lookupCtxtExact arg-1 (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 ((act-26 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define ProcessType-TTImp-case--10250-8816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (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-25 arg-26 e-5 arg-30 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 ProcessType-TTImp-case--10131-8596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-13))) (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 (Context-Core-clearDefs 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))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) 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))) ((ProcessType-TTImp-findInferrable e-6 e-7) 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 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10250-8816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) 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 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) 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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) 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 (Context-Core-addToSave arg-13 arg-14 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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) 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 ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-case--10063-8490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased 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))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 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 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 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))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty 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 ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (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 (Context-Core-clearDefs e-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-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) 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))) ((ProcessType-TTImp-findInferrable e-11 e-12) 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 ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10250-8816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) 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 ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) 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 (Context-Core-addToSave arg-13 arg-14 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 ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
-(define ProcessType-TTImp-case--9855-8267 (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 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5))))))))
-(define ProcessType-TTImp-case--9832-8230 (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 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--9855-8267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-2 arg-5))))))))
-(define ProcessType-TTImp-case--9634-8075 (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))
-(define ProcessType-TTImp-case--9517-7987 (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)) (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))) (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 arg-10 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 ProcessType-TTImp-case--8455-7917 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8455-7038-getNamePos arg-0 arg-1 arg-2 arg-3 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))) (let ((act-26 ((ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 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 ((ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 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 ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (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-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (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-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 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))) (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 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ProcessType-TTImp-case--8552-7740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
-(define ProcessType-TTImp-case--8551-7638 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
-(define ProcessType-TTImp-case--8551-7562 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-case--8953-7460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16)))))))
-(define ProcessType-TTImp-case--8928-7419 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8953-7460 arg-0 arg-1 arg-2 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-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-14 arg-13)))))))
-(define ProcessType-TTImp-case--8549-7175 (lambda (arg-0 arg-1 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) (ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) 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 ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps)))))))))))))))))))
-(define ProcessType-TTImp-case--8569-7097 (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) (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
-(define ProcessType-TTImp-case--8548-7054 (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) (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8569-7097 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-2 arg-7))))))))
-(define ProcessType-TTImp-case--8455-6974 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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))) ((ProcessType-TTImp-getRetTy 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))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ProcessType-TTImp-n--8551-7394-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8928-7419 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 arg-11 (ProcessType-TTImp-n--8551-7394-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3)))))))))
-(define ProcessType-TTImp-n--8455-7033-insertDeps (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) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8548-7054 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-5)))))))))
-(define ProcessType-TTImp-n--8455-7038-getNamePos (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 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-n--8455-7038-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) 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))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-n--8455-7035-getDepsArgs (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
-(define ProcessType-TTImp-n--8455-7036-getDeps (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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) 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 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 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 (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) 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 ((act-25 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) 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))) ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((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))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-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-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) 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-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) 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-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 (let ((act-25 (Context-Core-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 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8551-7638 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8551-7394-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6)))))))
-(define ProcessType-TTImp-n--9828-8204-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 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))) ((ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
-(define ProcessType-TTImp-n--9828-8203-findInf (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 ((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)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--9832-8230 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define ProcessType-TTImp-n--9828-8205-fi (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 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-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) 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 ((ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 e-8) 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 ((ProcessType-TTImp-n--9828-8205-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) 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))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
-(define ProcessType-TTImp-n--8455-7037-collectSpec (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))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8552-7740 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define ProcessType-TTImp-n--8455-7034-collectDDeps (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 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8549-7175 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) 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 ((Context-Core-resolveName arg-1 e-5) 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 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) 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 ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-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 ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-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 ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (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-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (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))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10250-8816 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-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0)))))))))))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (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 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((ProcessType-TTImp-getRetTy e-5 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 ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (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 ((Context-Core-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-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) 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 ((ProcessType-TTImp-n--8455-7038-getNamePos e-4 arg-2 arg-1 arg-0 0 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 (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8455-7034-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) 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 ((act-29 ((ProcessType-TTImp-n--8455-7037-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-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 ((act-30 (Context-Core-addDef arg-0 arg-2 (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-3 (vector-ref sc8 4))) (let ((e-27 (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-3 e-27 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))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0)))))))))))))))))))))
+(define ProcessDecls-TTImp-checkTotalityOK (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) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(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 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(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 ((Context-Core-lookupCtxtExact arg-1 (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 ((act-26 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define ProcessType-TTImp-case--10618-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-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) (let ((sc0 arg-31)) (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-25 arg-26 e-5 arg-30 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 ProcessType-TTImp-case--10494-8774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-13))) (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 (Context-Core-clearDefs 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))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) 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))) ((ProcessType-TTImp-findInferrable e-6 e-7) 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 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) 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 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) 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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) 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 (Context-Core-addToSave arg-13 arg-14 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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) 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 ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-case--10420-8663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased 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))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 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 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 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))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty 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 ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (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 (Context-Core-clearDefs e-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-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) 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))) ((ProcessType-TTImp-findInferrable e-11 e-12) 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 ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) 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 ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) 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 (Context-Core-addToSave arg-13 arg-14 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 ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
+(define ProcessType-TTImp-case--10206-8428 (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 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5))))))))
+(define ProcessType-TTImp-case--10183-8391 (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 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--10206-8428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-5))))))))
+(define ProcessType-TTImp-case--9976-8231 (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))
+(define ProcessType-TTImp-case--9855-8139 (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)) (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))) (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 arg-10 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 ProcessType-TTImp-case--8757-8065 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 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))) (let ((act-26 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 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 ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 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 ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (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-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (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-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 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))) (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 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ProcessType-TTImp-case--8858-7879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
+(define ProcessType-TTImp-case--8857-7769 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
+(define ProcessType-TTImp-case--8857-7693 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-case--9275-7587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16)))))))
+(define ProcessType-TTImp-case--9250-7546 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9275-7587 arg-0 arg-1 arg-2 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-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-14 arg-13)))))))
+(define ProcessType-TTImp-case--8855-7288 (lambda (arg-0 arg-1 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) (ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) 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 ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps)))))))))))))))))))
+(define ProcessType-TTImp-case--8875-7205 (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) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
+(define ProcessType-TTImp-case--8854-7162 (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) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8875-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-7))))))))
+(define ProcessType-TTImp-case--8757-7080 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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))) ((ProcessType-TTImp-getRetTy 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))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ProcessType-TTImp-n--8857-7521-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9250-7546 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 arg-11 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3)))))))))
+(define ProcessType-TTImp-n--8757-7141-insertDeps (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) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8854-7162 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-5)))))))))
+(define ProcessType-TTImp-n--8757-7146-getNamePos (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 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) 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))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-n--8757-7143-getDepsArgs (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
+(define ProcessType-TTImp-n--8757-7144-getDeps (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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) 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 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 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 (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) 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 ((act-25 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) 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))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((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))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-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-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) 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-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) 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-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 (let ((act-25 (Context-Core-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 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8857-7769 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6)))))))
+(define ProcessType-TTImp-n--10179-8365-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 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))) ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
+(define ProcessType-TTImp-n--10179-8364-findInf (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 ((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)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--10183-8391 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define ProcessType-TTImp-n--10179-8366-fi (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 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-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) 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 ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 e-8) 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 ((ProcessType-TTImp-n--10179-8366-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) 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))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
+(define ProcessType-TTImp-n--8757-7145-collectSpec (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))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8858-7879 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define ProcessType-TTImp-n--8757-7142-collectDDeps (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 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8855-7288 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) 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 ((Context-Core-resolveName arg-1 e-5) 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 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) 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 ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-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 ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-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 ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (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-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (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))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10618-9008 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-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0)))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (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 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((ProcessType-TTImp-getRetTy e-5 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 ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (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 ((Context-Core-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-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) 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 ((ProcessType-TTImp-n--8757-7146-getNamePos e-4 arg-2 arg-1 arg-0 0 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 (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8757-7142-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) 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 ((act-29 ((ProcessType-TTImp-n--8757-7145-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-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 ((act-30 (Context-Core-addDef arg-0 arg-2 (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-3 (vector-ref sc8 4))) (let ((e-27 (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-3 e-27 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))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0)))))))))))))))))))))
 (define ProcessType-TTImp-initDef (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 (Context-Core-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 )))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (Normalise-Core-getArity 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 (Normalise-Core-getArity 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-getFnString arg-1 arg-2 arg-3 eta-1)) 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 (ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))
 (define ProcessType-TTImp-getRetTy (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-getRetTy arg-0 e-5) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-7))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0)))))))
 (define ProcessType-TTImp-getFnString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((27) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr 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-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 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) 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))) (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) ((6) (let ((e-4 (vector-ref sc6 1))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) 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 ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr 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 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) 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 ((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) ((6) (let ((e-3 (vector-ref sc5 1))) (vector 1 e-3)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--9828-8205-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
-(define Elab-TTImp-case--12794-9265 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24))))))))
-(define Elab-TTImp-case--12794-9144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((27) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (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 ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (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 ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (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 ((Elab-TTImp-n--12794-9062-bindImps arg-0 arg-1 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 e-1 e-2 e-3 arg-3) 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))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0)))))))
-(define Elab-TTImp-case--10801-8981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Elab-TTImp-case--11103-8897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
-(define Elab-TTImp-case--11103-8817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
-(define Elab-TTImp-case--11954-8627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () 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 (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39)))))))
-(define Elab-TTImp-case--11103-8363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39)))))))(else (Elab-TTImp-case--11954-8627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-14)))))))
-(define Elab-TTImp-case--11103-8142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 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 0 arg-40 arg-26))))))))))))
-(define Elab-TTImp-case--11103-7983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0)))))))
-(define Elab-TTImp-case--11103-7689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Elab-TTImp-case--10801-7630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) 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 ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") 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 ((act-26 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (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 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (let ((act-28 (unbox arg-11))) (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-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (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 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") 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 ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 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 ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 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 (let ((act-33 (unbox arg-13))) (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 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 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))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15))))))(else ((Elab-TTImp-case--11954-8627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) 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))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-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 ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-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-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 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 ((act-38 (unbox arg-23))) (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 ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) 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 ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (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))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Elab-TTImp-case--10801-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased))))))))
-(define Elab-TTImp-case--10823-7399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Elab-TTImp-n--10801-7384-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 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16))))))
-(define Elab-TTImp-case--10752-7336 (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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10658-7248 (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) (lambda (eta-0) (Elab-TTImp-n--10585-7167-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10591-7235 (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 ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--10658-7248 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10590-7214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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 arg-5 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))))))))))))))))))))))))
-(define Elab-TTImp-case--10555-7150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Elab-TTImp-case--10397-7082 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2)))))))
-(define Elab-TTImp-case--10397-7022 (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) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5)))))))
-(define Elab-TTImp-case--10283-6927 (lambda (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) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9))))))
-(define Elab-TTImp-n--10585-7167-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (let ((act-25 (Context-Core-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)))))))))))))))))))))) 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 0 )))))))))))))
-(define Elab-TTImp-n--10585-7168-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--10658-7248 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
-(define Elab-TTImp-n--12794-9062-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-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-14 arg-13 arg-16 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 ((Elab-TTImp-n--12794-9062-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 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) 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 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-5 e-8)))))))))))))))))))))))
-(define Elab-TTImp-n--10801-7384-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--10823-7399 arg-0 arg-1 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 (IntMap-Data-lookup 'erased e-6 arg-15))))))))))))
-(define Elab-TTImp-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 ((hs (IntMap-Data-keys 'erased (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))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--10585-7168-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) 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 Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10555-7150 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Elab-TTImp-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 ((sc2 e-7)) (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))) (Elab-TTImp-case--10283-6927 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 ))))))
-(define Elab-TTImp-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 ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--10801-7553 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 incase inPE inTrans (Prelude-not incase)) 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 ((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 (vector 0 ) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased 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 ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-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 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 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 ((e-13 (vector-ref sc9 1))) (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 ((e-15 (vector-ref sc11 1))) (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 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 ((e-20 (vector-ref sc16 1))) (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 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles 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 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 ((Elab-TTImp-case--11954-8627 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 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) 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 (Elab-TTImp-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 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-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))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (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 ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased 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 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 (vector 0 e-23 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10179-8366-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
+(define Elab-TTImp-case--13215-9468 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24))))))))
+(define Elab-TTImp-case--13215-9343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((27) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (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 ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (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 ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (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 ((Elab-TTImp-n--13215-9240-bindImps arg-0 arg-1 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 e-1 e-2 e-3 arg-3) 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))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0)))))))
+(define Elab-TTImp-case--11179-9158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Elab-TTImp-case--11490-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
+(define Elab-TTImp-case--11490-8998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
+(define Elab-TTImp-case--12372-8807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () 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 (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39)))))))
+(define Elab-TTImp-case--11490-8535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39)))))))(else (Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-14)))))))
+(define Elab-TTImp-case--11490-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 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 0 arg-40 arg-26))))))))))))
+(define Elab-TTImp-case--11490-8154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0)))))))
+(define Elab-TTImp-case--11490-7813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Elab-TTImp-case--11179-7754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) 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 ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") 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 ((act-26 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (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 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (let ((act-28 (unbox arg-11))) (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-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (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 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") 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 ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 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 ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 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 (let ((act-33 (unbox arg-13))) (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 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 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))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15))))))(else ((Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) 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))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-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 ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-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-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 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 ((act-38 (unbox arg-23))) (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 ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) 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 ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (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))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Elab-TTImp-case--11179-7677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased))))))))
+(define Elab-TTImp-case--11201-7509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Elab-TTImp-n--11179-7494-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 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16))))))
+(define Elab-TTImp-case--11127-7445 (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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--11031-7353 (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) (lambda (eta-0) (Elab-TTImp-n--10956-7270-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--10962-7340 (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 ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--10961-7318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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 arg-5 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))))))))))))))))))))))))
+(define Elab-TTImp-case--10926-7253 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Elab-TTImp-case--10768-7185 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2)))))))
+(define Elab-TTImp-case--10768-7125 (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) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5)))))))
+(define Elab-TTImp-case--10654-7030 (lambda (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) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9))))))
+(define Elab-TTImp-n--10956-7270-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (let ((act-25 (Context-Core-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)))))))))))))))))))))) 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 0 )))))))))))))
+(define Elab-TTImp-n--10956-7271-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
+(define Elab-TTImp-n--13215-9239-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13215-9239-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) 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))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5)))))))))))))))))
+(define Elab-TTImp-n--13215-9240-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) ((15) (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 ((Elab-TTImp-n--13215-9239-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 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13215-9239-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))))))
+(define Elab-TTImp-n--11179-7494-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--11201-7509 arg-0 arg-1 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 (IntMap-Data-lookup 'erased e-6 arg-15))))))))))))
+(define Elab-TTImp-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 ((hs (IntMap-Data-keys 'erased (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))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--10956-7271-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) 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 Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10926-7253 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Elab-TTImp-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 ((sc2 e-7)) (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))) (Elab-TTImp-case--10654-7030 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 ))))))
+(define Elab-TTImp-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 ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--11179-7677 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 incase inPE inTrans (Prelude-not incase)) 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 ((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 (vector 0 ) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased 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 ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-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 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 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 ((e-13 (vector-ref sc9 1))) (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 ((e-15 (vector-ref sc11 1))) (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 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 ((e-20 (vector-ref sc16 1))) (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 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles 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 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 ((Elab-TTImp-case--12372-8807 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 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) 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 (Elab-TTImp-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 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-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))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (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 ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased 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 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 (vector 0 e-23 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define Elab-TTImp-elabTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Elab-TTImp-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 Elab-TTImp-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 ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--10397-7022 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10397-7082 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1))))))))))(else arg-3)))))
-(define Elab-TTImp-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) (Context-Core-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 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-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 (err) (let ((sc3 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))) (lambda (eta-0) (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 ((Elab-TTImp-n--12794-9062-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) 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 ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-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)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 'erased 'erased e-8))))))))))))))))))))))))
+(define Elab-TTImp-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 ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--10768-7125 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10768-7185 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1))))))))))(else arg-3)))))
+(define Elab-TTImp-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) (Context-Core-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 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-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 (err) (let ((sc3 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))) (lambda (eta-0) (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 ((Elab-TTImp-n--13215-9240-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) 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 ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-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)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 'erased 'erased e-8))))))))))))))))))))))))
 (define Elab-TTImp-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) (Elab-TTImp-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 Elab-TTImp-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 (Context-Core-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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (let ((act-26 (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addToSave arg-0 eta-0 eta-1))) ms) ext-0)))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Term-Elab-TTImp-case--9911-12966 (lambda (arg-0 arg-1 arg-2 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) (Check-Elab-TTImp-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 ((Term-Elab-TTImp-insertImpLam 'erased 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))) ((Check-Elab-TTImp-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 Term-Elab-TTImp-case--13551-12872 (lambda (arg-0 arg-1 arg-2 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)) (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))) (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 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))))
-(define Term-Elab-TTImp-case--13551-12815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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))) (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 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))
-(define Term-Elab-TTImp-case--14336-12607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--13551-12501-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) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0)))))))
-(define Term-Elab-TTImp-case--14322-12515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtName arg-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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (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 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--13551-12501-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) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))))
-(define Term-Elab-TTImp-case--13551-12294 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4))))))
-(define Term-Elab-TTImp-case--13551-11813 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0)))))))
-(define Term-Elab-TTImp-case--12932-11717 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
-(define Term-Elab-TTImp-case--12930-11453 (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))
-(define Term-Elab-TTImp-case--12930-11376 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Term-Elab-TTImp-case--12930-11282 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Term-Elab-TTImp-n--13551-12501-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14322-12515 arg-0 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 (Name-Core-userNameRoot e-2)))))))))
-(define Term-Elab-TTImp-n--12918-11197-bindLamTm (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) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))
-(define Term-Elab-TTImp-n--12918-11198-bindLamNF (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-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))
-(define Term-Elab-TTImp-n--12918-11199-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0)))))))))))))))))))))
-(define Term-Elab-TTImp-insertImpLam (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))) (lambda (eta-0) (Term-Elab-TTImp-n--12918-11199-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Term-Elab-TTImp-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))) (App-Elab-TTImp-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) (vector 0 ) (vector 0 ) 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) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-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))) ((Binders-Elab-TTImp-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-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-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 (Binders-Elab-TTImp-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-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-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-99 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-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-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-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-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))) ((Binders-Elab-TTImp-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))) (Binders-Elab-TTImp-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 arg-10)))))))) ((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))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 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) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((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))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "search" 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 ((Normalise-Core-getTerm 'erased 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 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 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 (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "searchTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) 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 (UnifyState-Core-genName arg-1 arg-3 "search" 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))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 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))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 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))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--13551-12294 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession 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 ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) 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 (Context-Core-setLogLevel arg-1 lvl 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)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 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))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (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 ((Normalise-Core-getTerm 'erased e-108) 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-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-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 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) 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 (UnifyState-Core-genName arg-1 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))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-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))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (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 (Check-Elab-TTImp-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 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (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 ((Term-Elab-TTImp-n--13551-12501-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) 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 (StringMap-Data-mergeLeft 'erased 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 ((Check-Elab-TTImp-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))) (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 Term-Elab-TTImp-case--10262-13661 (lambda (arg-0 arg-1 arg-2 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) (Check-Elab-TTImp-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 ((Term-Elab-TTImp-insertImpLam 'erased 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))) ((Check-Elab-TTImp-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 Term-Elab-TTImp-case--13989-13562 (lambda (arg-0 arg-1 arg-2 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)) (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))) (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 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))))
+(define Term-Elab-TTImp-case--13989-13505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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))) (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 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))
+(define Term-Elab-TTImp-case--14801-13290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--13989-13181-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) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0)))))))
+(define Term-Elab-TTImp-case--14787-13195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtName arg-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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (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 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--13989-13181-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) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))))
+(define Term-Elab-TTImp-case--13989-12951 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4))))))
+(define Term-Elab-TTImp-case--13989-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) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0)))))))
+(define Term-Elab-TTImp-case--13355-12364 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
+(define Term-Elab-TTImp-case--13353-12090 (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))
+(define Term-Elab-TTImp-case--13353-12013 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Term-Elab-TTImp-case--13353-11916 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Term-Elab-TTImp-n--13989-13181-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14787-13195 arg-0 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 (Name-Core-userNameRoot e-2)))))))))
+(define Term-Elab-TTImp-n--13341-11828-bindLamTm (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) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))
+(define Term-Elab-TTImp-n--13341-11829-bindLamNF (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-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))
+(define Term-Elab-TTImp-n--13341-11830-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0)))))))))))))))))))))
+(define Term-Elab-TTImp-insertImpLam (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))) (lambda (eta-0) (Term-Elab-TTImp-n--13341-11830-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Term-Elab-TTImp-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))) (App-Elab-TTImp-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) (vector 0 ) (vector 0 ) 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) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-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))) ((Binders-Elab-TTImp-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-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-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 (Binders-Elab-TTImp-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-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-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-99 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-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-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-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-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))) ((Binders-Elab-TTImp-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))) (Binders-Elab-TTImp-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 arg-10)))))))) ((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))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 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) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((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))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "search" 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 ((Normalise-Core-getTerm 'erased 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 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 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 (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "searchTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) 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 (UnifyState-Core-genName arg-1 arg-3 "search" 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))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 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))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 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))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--13989-12951 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession 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 ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) 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 (Context-Core-setLogLevel arg-1 lvl 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)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 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))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (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 ((Normalise-Core-getTerm 'erased e-108) 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-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-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 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) 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 (UnifyState-Core-genName arg-1 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))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-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))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (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 (Check-Elab-TTImp-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 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (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 ((Term-Elab-TTImp-n--13989-13181-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) 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 (StringMap-Data-mergeLeft 'erased 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 ((Check-Elab-TTImp-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))) (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 Check-Elab-TTImp-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))
-(define Check-Elab-TTImp-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) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-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 ((Ambiguity-Elab-TTImp-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 (vector 0 ) 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))) ((Term-Elab-TTImp-case--9911-12966 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 Reflect-TTImp-case--11469-16270 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3320 arg-3321)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))
-(define Reflect-TTImp-case--11172-15975 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-10) eta-0)))))))) (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 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))
-(define Reflect-TTImp-case--10967-15777 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__IField vars arg-3320 arg-3321)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))
-(define Reflect-TTImp-case--10787-15604 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))
-(define Reflect-TTImp-case--10533-15354 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3320 arg-3321)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3320 arg-3321)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))
-(define Reflect-TTImp-case--10289-15117 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))
-(define Reflect-TTImp-case--10141-14976 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))
-(define Reflect-TTImp-case--9688-14526 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))
-(define Reflect-TTImp-case--9508-14353 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))
-(define Reflect-TTImp-case--9313-14163 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))
-(define Reflect-TTImp-case--7136-11930 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (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 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (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))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (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))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (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 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (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 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (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 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))
-(define Reflect-TTImp-case--6822-11622 (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))) (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 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))
-(define Reflect-TTImp-case--6658-11454 (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))) (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 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))
-(define Reflect-TTImp-case--6430-11223 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6658-11454 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7136-11930 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10141-14976 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10967-15777 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11469-16270 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10533-15354 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11172-15975 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9313-14163 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10787-15604 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9688-14526 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6822-11622 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10289-15117 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6430-11223 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9508-14353 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0)))))))
+(define Check-Elab-TTImp-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) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-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 ((Ambiguity-Elab-TTImp-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 (vector 0 ) 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))) ((Term-Elab-TTImp-case--10262-13661 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 Reflect-TTImp-case--11924-17186 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))
+(define Reflect-TTImp-case--11607-16871 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (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 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))
+(define Reflect-TTImp-case--11390-16661 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IField vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))
+(define Reflect-TTImp-case--11198-16476 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))
+(define Reflect-TTImp-case--10926-16208 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))
+(define Reflect-TTImp-case--10678-15967 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))
+(define Reflect-TTImp-case--10522-15818 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))
+(define Reflect-TTImp-case--10057-15356 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))
+(define Reflect-TTImp-case--9873-15179 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))
+(define Reflect-TTImp-case--9668-14979 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))
+(define Reflect-TTImp-case--7319-12574 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (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 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (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))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (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))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (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 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (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 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (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 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))
+(define Reflect-TTImp-case--7002-12263 (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))) (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 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))
+(define Reflect-TTImp-case--6835-12092 (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))) (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 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))
+(define Reflect-TTImp-case--6602-11856 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6835-12092 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7319-12574 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10522-15818 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11390-16661 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11924-17186 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10926-16208 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11607-16871 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9668-14979 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11198-16476 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10057-15356 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7002-12263 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10678-15967 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6602-11856 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9873-15179 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__UseSide (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseLeft") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseRight") eta-0)))))))
-(define Reflect-TTImp-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 ((Reflect-Core-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 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) 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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__RigCount 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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (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 (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__DotReason 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-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-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))))))
+(define Reflect-TTImp-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 ((Reflect-Core-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 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) 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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__RigCount 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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (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 (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__DotReason 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-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-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))))))
 (define Reflect-TTImp-reflect_Reflect__ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkTy") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__IField vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility 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 ((Reflect-TTImp-reflect_Reflect__ImpRecord 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpData (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0)))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpClause (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IField vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility 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 ((Reflect-TTImp-reflect_Reflect__ImpRecord 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpData (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0)))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpClause (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
 (define Reflect-TTImp-reflect_Reflect__IFieldUpdate (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetField") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-2) 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetFieldApp") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__FnOpt (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
+(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__FnOpt (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
 (define Reflect-TTImp-reflect_Reflect__DotReason (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NonLinearVar") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "VarApplied") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NotConstructor") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ErasedArg") eta-0))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UserDotted") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UnknownDot") eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__DataOpt (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) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SearchBy") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoHints") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UniqueSearch") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "External") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoNewtype") eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__BindMode (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) (let ((act-24 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PATTERN") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NONE") eta-0)))))))
@@ -3832,49 +3875,49 @@
 (define Reflect-TTImp-__Impl_Reflect_FnOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__FnOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Reflect-TTImp-__Impl_Reflect_DataOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__DataOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Reflect-TTImp-__Impl_Reflect_AltType (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__AltType ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
-(define Reflect-Core-case--10041-8054 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321))))) arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321))))) arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))
-(define Reflect-Core-case--9875-7880 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))
-(define Reflect-Core-case--9530-7547 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))
-(define Reflect-Core-case--9353-7352 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))
-(define Reflect-Core-case--9187-7179 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))
-(define Reflect-Core-case--9021-7008 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))
-(define Reflect-Core-case--8002-5972 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (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))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (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 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))
-(define Reflect-Core-case--7468-5550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6))))))
-(define Reflect-Core-case--7126-5085 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__String vars arg-3320 arg-3321)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))
-(define Reflect-Core-case--6878-4868 (lambda (arg-0 arg-1 arg-2 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 ((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 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) 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-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) 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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) 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-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) 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-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))
-(define Reflect-Core-case--6632-4608 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))
-(define Reflect-Core-case--6356-4332 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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-2) arg-9) e-7) eta-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 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-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))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))
-(define Reflect-Core-case--6163-4125 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))
-(define Reflect-Core-case--6023-3977 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))
-(define Reflect-Core-case--5504-3386 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
+(define Reflect-Core-case--10332-8203 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))
+(define Reflect-Core-case--10163-8026 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))
+(define Reflect-Core-case--9814-7683 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))
+(define Reflect-Core-case--9634-7485 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))
+(define Reflect-Core-case--9465-7309 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))
+(define Reflect-Core-case--9296-7135 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))
+(define Reflect-Core-case--8256-6078 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (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))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (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 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))
+(define Reflect-Core-case--7704-5641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6))))))
+(define Reflect-Core-case--7344-5155 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__String vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))
+(define Reflect-Core-case--7089-4924 (lambda (arg-0 arg-1 arg-2 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 ((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 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) 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-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) 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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) 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-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) 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-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))
+(define Reflect-Core-case--6839-4654 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))
+(define Reflect-Core-case--6556-4364 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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-2) arg-9) e-7) eta-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 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-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))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))
+(define Reflect-Core-case--6358-4152 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))
+(define Reflect-Core-case--6215-4001 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))
+(define Reflect-Core-case--5682-3395 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
 (define Reflect-Core-reify_Reify__Visibility (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Visibility" eta-0)))))))
 (define Reflect-Core-reify_Reify__TotalReq (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TotalReq" eta-0)))))))
 (define Reflect-Core-reify_Reify__String (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0)))))))
-(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0)))))))
-(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6163-4125 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0)))))))
-(define Reflect-Core-reify_Reify__Name (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7126-5085 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0)))))))
+(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0)))))))
+(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6358-4152 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0)))))))
+(define Reflect-Core-reify_Reify__Name (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7344-5155 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0)))))))
 (define Reflect-Core-reify_Reify__LazyReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "LazyReason" eta-0)))))))
 (define Reflect-Core-reify_Reify__Integer (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0)))))))
 (define Reflect-Core-reify_Reify__Int (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0)))))))
-(define Reflect-Core-reify_Reify__FC (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10041-8054 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0)))))))
+(define Reflect-Core-reify_Reify__FC (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10332-8203 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0)))))))
 (define Reflect-Core-reify_Reify__Double (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0)))))))
-(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8002-5972 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0)))))))
+(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8256-6078 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0)))))))
 (define Reflect-Core-reify_Reify__Char (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0)))))))
 (define Reflect-Core-reify_Reify__Bool (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Bool" eta-0)))))))
 (define Reflect-Core-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc6 arg-4)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 1 e-13 (vector 1 e-16 (vector 0 )))))))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 "MkPair") (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-4 e-13) eta-0))) (let ((sc10 act-25)) (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))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-4) e-15) eta-0)))))))) (let ((sc10 act-25)) (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-26 (let ((act-26 ((Normalise-Core-evalClosure arg-3 arg-4 e-16) eta-0))) (let ((sc11 act-26)) (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))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-4) e-18) eta-0)))))))) (let ((sc11 act-26)) (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 (vector 0 e-15 e-18)))))))))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0)))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9530-7547 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6632-4608 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6356-4332 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9814-7683 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6839-4654 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6556-4364 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0)))))))
 (define Reflect-Core-reflect_Reflect__Visibility (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Private") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Export") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Public") eta-0)))))))
 (define Reflect-Core-reflect_Reflect__TotalReq (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Total") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CoveringOnly") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "PartialOK") eta-0)))))))
 (define Reflect-Core-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 6 arg-5)))))
-(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5)))
+(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5)))
 (define Reflect-Core-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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "Z") eta-0)))(else (let ((e-0 (- arg-5 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "S") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
-(define Reflect-Core-reflect_Reflect__Name (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) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 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-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0)))))))
+(define Reflect-Core-reflect_Reflect__Name (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) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 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-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0)))))))
 (define Reflect-Core-reflect_Reflect__LazyReason (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LInf") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LLazy") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LUnknown") eta-0)))))))
 (define Reflect-Core-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 1 arg-5)))))
 (define Reflect-Core-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 Reflect-Core-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 (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 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0))))))))))
+(define Reflect-Core-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 (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 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0))))))))))
 (define Reflect-Core-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 8 arg-5)))))
 (define Reflect-Core-reflect_Reflect__Constant (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) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "I") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "BI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B8") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B16") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B32") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 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-6 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B64") (vector 1 e-6 (vector 0 )) eta-0))))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Str") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Char 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Ch") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Double arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Db") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldVal") eta-0))) ((10) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntType") eta-0))) ((11) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntegerType") eta-0))) ((12) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits8Type") eta-0))) ((13) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits16Type") eta-0))) ((14) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits32Type") eta-0))) ((15) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits64Type") eta-0))) ((16) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "StringType") eta-0))) ((17) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CharType") eta-0))) ((18) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DoubleType") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldType") eta-0)))))))
 (define Reflect-Core-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 7 arg-5)))))
@@ -3913,114 +3956,114 @@
 (define Reflect-Core-cantReflect (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Can't reflect as " arg-2)) ext-0)))
 (define Reflect-Core-builtin (lambda (arg-0) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 arg-0))))
 (define Reflect-Core-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Reflect-Core-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))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (TT-Core-apply 'erased arg-1 e-5 arg-4)) ext-0))))))))
-(define RunElab-Elab-TTImp-case--12264-9253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) 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 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 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 ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 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 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12)))))))))))))))))))))))))))))))))
-(define RunElab-Elab-TTImp-case--10797-9053 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--10797-7788-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 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8522 (lambda (arg-0 arg-1 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-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0))))))))))))
-(define RunElab-Elab-TTImp-case--10821-8356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 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))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" 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 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 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))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--10821-8321-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 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (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))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (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))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (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-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (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))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 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))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0)))))))))))
-(define RunElab-Elab-TTImp-case--10821-7900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 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 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-17 eta-0)))))))
-(define RunElab-Elab-TTImp-n--10821-8675-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) 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))) (vector 1 (vector 0 e-2 e-5)))))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7787-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-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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0)))))))))))))
-(define RunElab-Elab-TTImp-n--10821-8321-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0)))))))
-(define RunElab-Elab-TTImp-n--12264-9162-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7786-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-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0))))))))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7788-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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 ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) 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 ((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 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (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-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (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-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) 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 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) 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))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) 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))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-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-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (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))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (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))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) 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 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) 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))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) 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-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-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 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-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))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-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 ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-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-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) 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 (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 (Context-Core-clearDefs e-6 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-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-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-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-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (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-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--10821-8321-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-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((Context-Core-inCurrentNS arg-12 e-6) 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 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-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--10821-8675-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-79 arg-13 eta-1)) e-6) 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((RunElab-Elab-TTImp-case--10821-8763 arg-0 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-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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 ((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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) 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 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))
-(define RunElab-Elab-TTImp-elabScript (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) ((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))) (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((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-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (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 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--10797-7788-elabCon 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-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 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))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0))))))))))))))))))))))
-(define RunElab-Elab-TTImp-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 ((RunElab-Elab-TTImp-n--12264-9162-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 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (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 ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector-ref sc5 1))) (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 ((Normalise-Core-nfOpts arg-0 (Value-Core-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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--10993-8007 (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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10993-7963 (lambda (arg-0 arg-1 arg-2 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10993-7912 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--10476-7662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10667-7532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5))))))
-(define Delayed-Elab-TTImp-case--10476-7495 (lambda (arg-0 arg-1 arg-2 arg-3 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-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 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 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))
-(define Delayed-Elab-TTImp-case--10424-7299 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (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 (unbox arg-9))) (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 ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (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-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (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 (arg-3 eta-1))) (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 ((act-29 (unbox arg-9))) (vector 1 act-29)))) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (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 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (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 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (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 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-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 ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) 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 ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))
-(define Delayed-Elab-TTImp-case--10044-7014 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define Delayed-Elab-TTImp-case--10044-6932 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7)))))))
-(define Delayed-Elab-TTImp-case--9760-6766 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define Delayed-Elab-TTImp-case--9760-6684 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
-(define Delayed-Elab-TTImp-case--9537-6550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--9462-6465 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (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-10 (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (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 (vector 0 e-3 arg-13)))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--9224-6292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--9156-6181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 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 ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 ((act-26 (let ((act-26 (unbox arg-9))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (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 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--9114-6124 (lambda (arg-0 arg-1 arg-2 arg-3 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 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 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)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 (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 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))))))
-(define Delayed-Elab-TTImp-case--8978-6062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13))))))))))))))))
-(define Delayed-Elab-TTImp-case--8978-6022 (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 ((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-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-7 e-8 e-9 arg-5 e-11 e-12 e-13))))))))))))))))
-(define Delayed-Elab-TTImp-case--8874-5931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--8874-5907-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5)))))))))
-(define Delayed-Elab-TTImp-case--8874-5885 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))
-(define Delayed-Elab-TTImp-n--8874-5907-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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6)))))))
-(define Delayed-Elab-TTImp-n--9462-6402-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6))))))))))))))))))
-(define Delayed-Elab-TTImp-n--10993-7782-hasPri (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 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3)))))
+(define RunElab-Elab-TTImp-case--12616-9617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) 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 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 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 ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 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 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12)))))))))))))))))))))))))))))))))
+(define RunElab-Elab-TTImp-case--11073-9401 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11073-8056-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 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-9232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-9100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-8843 (lambda (arg-0 arg-1 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-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0))))))))))))
+(define RunElab-Elab-TTImp-case--11097-8669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 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))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" 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 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 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))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--11097-8631-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 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (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))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (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))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (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-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (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))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 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))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0)))))))))))
+(define RunElab-Elab-TTImp-case--11097-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 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (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) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 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 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-17 eta-0)))))))
+(define RunElab-Elab-TTImp-n--11097-9005-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) 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))) (vector 1 (vector 0 e-2 e-5)))))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8055-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-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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0)))))))))))))
+(define RunElab-Elab-TTImp-n--11097-8631-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0)))))))
+(define RunElab-Elab-TTImp-n--12616-9515-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8054-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-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0))))))))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8056-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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 ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) 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 ((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 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (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-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (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-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) 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 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) 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))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) 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))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-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-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (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))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (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))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) 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 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) 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))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) 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-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-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 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-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))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-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 ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-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-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) 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 (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 (Context-Core-clearDefs e-6 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-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-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-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-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (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-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--11097-8631-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-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((Context-Core-inCurrentNS arg-12 e-6) 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 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-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11097-9005-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-79 arg-13 eta-1)) e-6) 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((RunElab-Elab-TTImp-case--11097-9100 arg-0 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-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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 ((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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) 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 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))
+(define RunElab-Elab-TTImp-elabScript (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) ((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))) (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((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-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (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 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11073-8056-elabCon 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-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 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))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0))))))))))))))))))))))
+(define RunElab-Elab-TTImp-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 ((RunElab-Elab-TTImp-n--12616-9515-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 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (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 ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector-ref sc5 1))) (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 ((Normalise-Core-nfOpts arg-0 (Value-Core-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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8350 (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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8306 (lambda (arg-0 arg-1 arg-2 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8254 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--10818-7990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11023-7860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5))))))
+(define Delayed-Elab-TTImp-case--10818-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) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 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 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))
+(define Delayed-Elab-TTImp-case--10764-7611 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (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 (unbox arg-9))) (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 ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (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-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (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 (arg-3 eta-1))) (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 ((act-29 (unbox arg-9))) (vector 1 act-29)))) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (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 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (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 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (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 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-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 ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) 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 ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))
+(define Delayed-Elab-TTImp-case--10363-7302 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define Delayed-Elab-TTImp-case--10363-7220 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7)))))))
+(define Delayed-Elab-TTImp-case--10075-7050 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define Delayed-Elab-TTImp-case--10075-6968 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
+(define Delayed-Elab-TTImp-case--9849-6833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--9767-6745 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (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-10 (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (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 (vector 0 e-3 arg-13)))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--9525-6562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--9454-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 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 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 ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 ((act-26 (let ((act-26 (unbox arg-9))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (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 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--9409-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 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)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 (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 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))))))
+(define Delayed-Elab-TTImp-case--9268-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13))))))))))))))))
+(define Delayed-Elab-TTImp-case--9268-6280 (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 ((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-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-7 e-8 e-9 arg-5 e-11 e-12 e-13))))))))))))))))
+(define Delayed-Elab-TTImp-case--9162-6182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5)))))))))
+(define Delayed-Elab-TTImp-case--9162-6135 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))
+(define Delayed-Elab-TTImp-n--9162-6157-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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6)))))))
+(define Delayed-Elab-TTImp-n--9767-6673-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6))))))))))))))))))
+(define Delayed-Elab-TTImp-n--11352-8113-hasPri (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 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3)))))
 (define Delayed-Elab-TTImp-show_Show__RetryError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RecoverableErrors") (else "AllErrors")))))
 (define Delayed-Elab-TTImp-showPrec_Show__RetryError (lambda (arg-0 arg-1) (Delayed-Elab-TTImp-show_Show__RetryError arg-1)))
 (define Delayed-Elab-TTImp-__Impl_Show_RetryError (lambda () (vector 0 (lambda (x) (Delayed-Elab-TTImp-show_Show__RetryError x)) (lambda (d) (lambda (x) (Delayed-Elab-TTImp-showPrec_Show__RetryError d x))))))
-(define Delayed-Elab-TTImp-runDelays (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-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 ((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 (vector 0 ) 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 (Context-Core-log arg-2 (+ 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 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--10993-7782-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-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 (vector 1 (vector 0 ))))))) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (List-Prelude-C-43C-43 'erased e-13 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 Delayed-Elab-TTImp-retryDelayedC-39 (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 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (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-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (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 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (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 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (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 (e-11 eta-1))) (let ((sc11 act-30)) (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-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (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 ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-runDelays (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-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 ((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 (vector 0 ) 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 (Context-Core-log arg-2 (+ 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 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--11352-8113-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-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 (vector 1 (vector 0 ))))))) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (List-Prelude-C-43C-43 'erased e-13 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 Delayed-Elab-TTImp-retryDelayedC-39 (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 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (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-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (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 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (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 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (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 (e-11 eta-1))) (let ((sc11 act-30)) (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-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (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 ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))))))))))))))))))))))))))))
 (define Delayed-Elab-TTImp-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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) (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))) (let ((act-26 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) (vector 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 (vector 0 )))))))))))))))))
-(define Delayed-Elab-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-8)))))))))))))))))))))))))))) ((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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-14))) ((57) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-17))) ((58) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-20))) ((59) (let ((e-23 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-23))) ((5) (let ((e-29 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-29)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (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 ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-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 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--8874-5907-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1)))))))))))))))))))))))
-(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--9760-6684 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--9760-6766 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Delayed-Elab-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-8)))))))))))))))))))))))))))) ((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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-18 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-18))) ((57) (let ((e-21 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-21))) ((58) (let ((e-24 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-24))) ((59) (let ((e-27 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (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 ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-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 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1)))))))))))))))))))))))
+(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10075-6968 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10075-7050 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Delayed-Elab-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) 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 ((act-25 ((Normalise-Core-evalClosure arg-0 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0)))))))))))))))))
-(define Delayed-Elab-TTImp-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))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (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))) ((Delayed-Elab-TTImp-case--9114-6124 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 err e-6 (arg-9 err)) eta-0)))))))) ext-0))))))))
-(define Delayed-Elab-TTImp-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 (UnifyState-Core-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 ((Delayed-Elab-TTImp-n--9462-6402-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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-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 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (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 (vector 1 (vector 0 e-3 e-7)))))))))))))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-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))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (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))) ((Delayed-Elab-TTImp-case--9409-6386 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 err e-6 (arg-9 err)) eta-0)))))))) ext-0))))))))
+(define Delayed-Elab-TTImp-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 (UnifyState-Core-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 ((Delayed-Elab-TTImp-n--9767-6673-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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-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 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (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 (vector 1 (vector 0 e-3 e-7)))))))))))))))))))))))))))))))))))))))
 (define Delayed-Elab-TTImp-deeper (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))) (let ((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 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) 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 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 Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10044-6932 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10044-7014 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10363-7220 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10363-7302 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Delayed-Elab-TTImp-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Delayed-Elab-TTImp-ambiguous e-26)))(else 1)))))
-(define Check-Elab-TTImp-case--13384-7395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))
-(define Check-Elab-TTImp-case--13384-7177 (lambda (arg-0 arg-1 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 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "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 (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") 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 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-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 ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-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 (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") 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 (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))))))
-(define Check-Elab-TTImp-case--13353-7146 (lambda (arg-0 arg-1 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) (Check-Elab-TTImp-case--13384-7177 arg-0 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 ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") 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 ((act-25 (let ((act-25 (unbox arg-11))) (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 (Context-Core-clearDefs e-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))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) 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 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 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))) ((Check-Elab-TTImp-case--13384-7395 arg-0 arg-1 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-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0)))))))))))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-case--13018-7000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
-(define Check-Elab-TTImp-case--13018-6870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
-(define Check-Elab-TTImp-case--12843-6824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
-(define Check-Elab-TTImp-case--12843-6673 (lambda (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) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6))))))
-(define Check-Elab-TTImp-case--12272-6456 (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (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 (Context-Core-commit arg-8 eta-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) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12272-6157-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0))))))))
-(define Check-Elab-TTImp-case--12304-6380 (lambda (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 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Check-Elab-TTImp-case--12316-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))
-(define Check-Elab-TTImp-case--12300-6168 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))
-(define Check-Elab-TTImp-case--11837-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
-(define Check-Elab-TTImp-case--11837-5741 (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)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
-(define Check-Elab-TTImp-case--11754-5660 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5)))))))
-(define Check-Elab-TTImp-case--11671-5591 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2)))))
-(define Check-Elab-TTImp-case--11489-5521 (lambda (arg-0 arg-1 arg-2 arg-3 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-10)) (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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-case--11262-5236 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11162-5154 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11102-5105 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11046-5063 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10976-5002 (lambda (arg-0 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 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10914-4942 (lambda (arg-0 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 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10153-4568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))
-(define Check-Elab-TTImp-case--10153-4422 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))
-(define Check-Elab-TTImp-case--10152-4331 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39)))))))))))
-(define Check-Elab-TTImp-case--9927-4013 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13)))))))))))))))))
-(define Check-Elab-TTImp-n--9980-4038-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 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))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14)))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4197-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-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 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 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))) ((Check-Elab-TTImp-case--10153-4422 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10133-4196-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 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))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 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 ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 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-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10153-4568 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4195-removeArgVars (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) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4196-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10152-4331 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7))))
-(define Check-Elab-TTImp-n--8934-3089-insertAll (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--8934-3089-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
-(define Check-Elab-TTImp-n--12272-6153-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12300-6168 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11))))
-(define Check-Elab-TTImp-n--12272-6154-getRes (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 ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
-(define Check-Elab-TTImp-n--12272-6155-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 Check-Elab-TTImp-n--10133-4198-dropTop (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 (let ((e-4 (- arg-7 1))) (vector 1 e-4)))))))
-(define Check-Elab-TTImp-n--10133-4193-dropSub (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-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0)))))))
-(define Check-Elab-TTImp-n--12272-6156-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12272-6156-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))) (Check-Elab-TTImp-n--12272-6155-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))))))
-(define Check-Elab-TTImp-n--12272-6157-altError (lambda (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) (Check-Elab-TTImp-case--12304-6380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12272-6156-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12272-6154-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11)))))))
+(define Check-Elab-TTImp-case--13724-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))
+(define Check-Elab-TTImp-case--13724-7309 (lambda (arg-0 arg-1 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 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "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 (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") 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 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-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 ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-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 (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") 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 (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))))))
+(define Check-Elab-TTImp-case--13692-7278 (lambda (arg-0 arg-1 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) (Check-Elab-TTImp-case--13724-7309 arg-0 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 ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") 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 ((act-25 (let ((act-25 (unbox arg-11))) (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 (Context-Core-clearDefs e-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))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) 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 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 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))) ((Check-Elab-TTImp-case--13724-7542 arg-0 arg-1 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-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0)))))))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-case--13353-7131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
+(define Check-Elab-TTImp-case--13353-6999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
+(define Check-Elab-TTImp-case--13167-6951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
+(define Check-Elab-TTImp-case--13167-6789 (lambda (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) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6))))))
+(define Check-Elab-TTImp-case--12591-6567 (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (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 (Context-Core-commit arg-8 eta-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) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12591-6266-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0))))))))
+(define Check-Elab-TTImp-case--12623-6490 (lambda (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 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Check-Elab-TTImp-case--12635-6354 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))
+(define Check-Elab-TTImp-case--12619-6277 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))
+(define Check-Elab-TTImp-case--12132-6014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
+(define Check-Elab-TTImp-case--12132-5822 (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)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
+(define Check-Elab-TTImp-case--12048-5740 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5)))))))
+(define Check-Elab-TTImp-case--11964-5670 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2)))))
+(define Check-Elab-TTImp-case--11773-5596 (lambda (arg-0 arg-1 arg-2 arg-3 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-10)) (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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-case--11545-5294 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11444-5211 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11383-5161 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11325-5117 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--11253-5053 (lambda (arg-0 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 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--11190-4990 (lambda (arg-0 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 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--10410-4604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))
+(define Check-Elab-TTImp-case--10410-4455 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))
+(define Check-Elab-TTImp-case--10409-4360 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39)))))))))))
+(define Check-Elab-TTImp-case--10181-4037 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13)))))))))))))))))
+(define Check-Elab-TTImp-n--10235-4062-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 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))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14)))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4223-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-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 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 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))) ((Check-Elab-TTImp-case--10410-4455 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10390-4222-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 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))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 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 ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 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-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10410-4604 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4221-removeArgVars (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) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4222-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10409-4360 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7))))
+(define Check-Elab-TTImp-n--9188-3111-insertAll (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--9188-3111-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
+(define Check-Elab-TTImp-n--12591-6262-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12619-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11))))
+(define Check-Elab-TTImp-n--12591-6263-getRes (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 ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
+(define Check-Elab-TTImp-n--12591-6264-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 Check-Elab-TTImp-n--10390-4224-dropTop (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 (let ((e-4 (- arg-7 1))) (vector 1 e-4)))))))
+(define Check-Elab-TTImp-n--10390-4219-dropSub (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-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0)))))))
+(define Check-Elab-TTImp-n--12591-6265-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12591-6265-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))) (Check-Elab-TTImp-n--12591-6264-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))))))
+(define Check-Elab-TTImp-n--12591-6266-altError (lambda (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) (Check-Elab-TTImp-case--12623-6490 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12591-6265-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12591-6263-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11)))))))
 (define Check-Elab-TTImp-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))) (Strings-Prelude-C-43C-43 "InLHS " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0)))) ((2) "InExpr") (else "InTransform")))))
 (define Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x))))) (vector 0 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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x))))) (vector 0 e-8 e-9)) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 e-8)))))))))))
 (define Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased arg-2)))
 (define Check-Elab-TTImp-__Impl_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x))))))
-(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651))))))
+(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431))))))
 (define Check-Elab-TTImp-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 Check-Elab-TTImp-C-47C-61_Eq__ElabOpt (lambda (arg-0 arg-1) (Prelude-not (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-0 arg-1))))
-(define Check-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9980-4038-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9980-4038-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) 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 Check-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) 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 Check-Elab-TTImp-updateEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 2))) e-2)) arg-2 arg-3 (let ((sc0 arg-5)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-5)) (let ((e-6 (vector-ref sc0 6))) e-6)) arg-4 (let ((sc0 arg-5)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-5)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-5)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
 (define EState-Check-Elab-TTImp-unambiguousNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))
 (define Check-Elab-TTImp-tryError (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-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 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (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 (Context-Core-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 (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-33 (vector-ref sc8 6))) (let ((e-32 (vector-ref sc8 7))) (let ((e-31 (vector-ref sc8 8))) (let ((e-30 (vector-ref sc8 9))) (let ((e-29 (vector-ref sc8 10))) (let ((e-28 (vector-ref sc8 11))) (let ((e-27 (vector-ref sc8 12))) (let ((e-26 (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-25 (vector-ref sc8 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc9 e-12)) (let ((e-35 (vector-ref sc9 25))) e-35)) e-25)))))))))))))))))))))))))))))) (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 err))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
 (define Check-Elab-TTImp-try (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased 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 EState-Check-Elab-TTImp-toBind (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6))))
-(define Check-Elab-TTImp-successful (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-branch arg-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-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) 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 ((act-29 (e-7 eta-1))) (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 ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) 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 ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (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 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0)))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-successful (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-branch arg-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-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) 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 ((act-29 (e-7 eta-1))) (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 ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) 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 ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (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 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0)))))))))))))))))))))))))))))))))
 (define EState-Check-Elab-TTImp-subEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
-(define Check-Elab-TTImp-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 ((Check-Elab-TTImp-n--10133-4193-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4197-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4197-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 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4198-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-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 ((Check-Elab-TTImp-n--10390-4219-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-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 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4224-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))))))))))))))))))))))))))))))
 (define Check-Elab-TTImp-searchVar (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 ((UnifyState-Core-newSearch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))
 (define EState-Check-Elab-TTImp-saveHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12))))
 (define Check-Elab-TTImp-saveHole (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 (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 (NameMap-Data-insert 'erased arg-2 (vector 0 ) e-12) e-13)))))))))))))))))) (vector 1 act-25)))))))))
@@ -4040,244 +4083,244 @@
 (define ElabInfo-Check-Elab-TTImp-implicitMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Check-Elab-TTImp-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 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 (vector-ref sc1 2))) (vector 1 e-3))))))))))
 (define Check-Elab-TTImp-handle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased 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 Check-Elab-TTImp-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0))))))))))))
+(define Check-Elab-TTImp-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0))))))))))))
 (define ElabInfo-Check-Elab-TTImp-elabMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define EState-Check-Elab-TTImp-delayDepth (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10))))
 (define EState-Check-Elab-TTImp-defining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--12843-6673 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-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 ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 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 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 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 ((Check-Elab-TTImp-case--12843-6824 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) 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) (Unify-Core-solveConstraints arg-1 arg-2 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 (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 ((Normalise-Core-getTerm 'erased arg-9) 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 ((Normalise-Core-getTerm 'erased arg-10) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 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 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0)))))
+(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--13167-6789 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-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 ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 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 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 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 ((Check-Elab-TTImp-case--13167-6951 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) 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) (Unify-Core-solveConstraints arg-1 arg-2 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 (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 ((Normalise-Core-getTerm 'erased arg-9) 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 ((Normalise-Core-getTerm 'erased arg-10) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 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 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0)))))
 (define Check-Elab-TTImp-convertP (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Check-Elab-TTImp-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 1 ext-0 ext-1 ext-2 ext-3 ext-4)))
-(define Check-Elab-TTImp-clearToBind (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 (set-box! arg-1 (Check-Elab-TTImp-case--10914-4942 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25)))))))))
+(define Check-Elab-TTImp-clearToBind (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 (set-box! arg-1 (Check-Elab-TTImp-case--11190-4990 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25)))))))))
 (define Check-Elab-TTImp-clearBindIfUnsolved (lambda (arg-0 arg-1) (vector 0 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 0 ) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
-(define Check-Elab-TTImp-checkExpP (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 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))) ((Check-Elab-TTImp-case--13353-7146 arg-0 e-1 arg-10 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))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10))))))))
+(define Check-Elab-TTImp-checkExpP (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 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))) ((Check-Elab-TTImp-case--13692-7278 arg-0 e-1 arg-10 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))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10))))))))
 (define Check-Elab-TTImp-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc0 arg-5)) (let ((e-4 (vector-ref sc0 5))) e-4)) arg-5 ext-0 ext-1 ext-2 ext-3 ext-4)))
 (define EState-Check-Elab-TTImp-boundNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
 (define ElabInfo-Check-Elab-TTImp-bindingVars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Check-Elab-TTImp-bindingType (lambda (arg-0 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 Check-Elab-TTImp-bindingTerm (lambda (arg-0 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 Check-Elab-TTImp-bindingRig (lambda (arg-0 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 Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased 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))) (Check-Elab-TTImp-n--8934-3089-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10)))))))))))))
+(define Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased 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))) (Check-Elab-TTImp-n--9188-3111-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10)))))))))))))
 (define EState-Check-Elab-TTImp-bindIfUnsolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7))))
 (define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1 0)))
 (define Check-Elab-TTImp-anyOne (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "No elaborators provided") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))))))))
 (define ElabInfo-Check-Elab-TTImp-ambigTries (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define EState-Check-Elab-TTImp-allPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9))))
 (define Check-Elab-TTImp-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-7)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 1 (vector 0 arg-1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 (vector 0 arg-6 (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (let ((sc0 arg-7)) (let ((e-7 (vector-ref sc0 7))) e-7))) (let ((sc0 arg-7)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-7)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-7)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-7)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-7)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-7)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
-(define Either-Data-case--1435-340 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3))))))))
-(define Either-Data-case--1380-294 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3))))))
+(define Either-Data-case--1456-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3))))))))
+(define Either-Data-case--1401-303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3))))))
 (define Either-Data-rights (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Either-Data-rights 'erased 'erased e-3)) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased e-3)))))))))))))
 (define Either-Data-lefts (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4 (Either-Data-lefts 'erased 'erased e-3)))) (else (Either-Data-lefts 'erased 'erased e-3)))))))))))
-(define Unify-Core-case--22549-21714 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23063-21626 (lambda (arg-0 arg-1 arg-2 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)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23121-21489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23063-21404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (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-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-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22554-21359 (lambda (arg-0 arg-1 arg-2 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) ((54) (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 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (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-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (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 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 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 ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-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 (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))))))
-(define Unify-Core-case--22685-21177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
-(define Unify-Core-case--22685-21086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
-(define Unify-Core-case--22613-21042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22554-20985 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) 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 (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 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) 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))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22442-20868 (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) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
-(define Unify-Core-case--22250-20837 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((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 ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
-(define Unify-Core-case--22289-20749 (lambda (arg-0 arg-1 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 0))) (else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
-(define Unify-Core-case--22264-20705 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
-(define Unify-Core-case--22130-20581 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--21758-20425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21758-20316 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--20637-20230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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))))))))))))))))))(else (let ((gdef (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 ((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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1))))))))))))
-(define Unify-Core-case--20637-20165 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
-(define Unify-Core-case--21103-20108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21103-19954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
-(define Unify-Core-case--21103-19865 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21103-19717 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
-(define Unify-Core-case--20637-19650 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21103-19717 arg-0 arg-1 arg-2 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))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-removeGuess arg-5 arg-0 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 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21103-19954 arg-0 arg-1 arg-2 arg-3 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)) (let ((e-3 (vector-ref sc0 4))) e-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 ((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-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-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-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1)))))))))))))))))
-(define Unify-Core-case--20637-19590 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
-(define Unify-Core-case--20637-19522 (lambda (arg-0 arg-1 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)) (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-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 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--20717-19429 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--20637-19317 (lambda (arg-0 arg-1 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) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) 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 ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1))))))))))))))
-(define Unify-Core-case--20588-19245 (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) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-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)) (vector 0 ) 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 ((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 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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 (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (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 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (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 (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (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 ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 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))) ((Unify-Core-case--20637-19650 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 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 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 ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--20637-20230 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 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) 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-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--20637-20230 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 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--20556-19205 (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--20588-19245 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
-(define Unify-Core-case--19983-19082 (lambda (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) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10)))))))
-(define Unify-Core-case--20049-18932 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))))))
-(define Unify-Core-case--20049-18825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-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 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-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 (vector 1 arg-16)))))))))))
-(define Unify-Core-case--19983-18730 (lambda (arg-0 arg-1 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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 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))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) 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 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) 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))) ((Unify-Core-case--20049-18825 arg-0 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-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-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 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-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 ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-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 (vector 1 (Unify-Core-constrain arg-1))))))))))))))))))))
-(define Unify-Core-case--19755-18673 (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 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--19755-18471-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-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))) ((Unify-Core-case--19983-18730 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 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) 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))) ((Unify-Core-case--19983-19082 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))) eta-0)))))))))))))))))))))
-(define Unify-Core-case--19784-18517 (lambda (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) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Unify-Core-case--19763-18494 (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))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--19784-18517 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--19634-18404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--19617-18360 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (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 e-13 0 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Unify-Core-case--19476-18265 (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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 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 ((Normalise-Core-evalClosure arg-0 arg-8 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--19207-18034 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--19203-17928 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--18385-17751 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5))))))))
-(define Unify-Core-case--18385-17700 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5))))))))
-(define Unify-Core-case--18762-17506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9))))))
-(define Unify-Core-case--18381-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 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-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-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0))))))))))))))))))))
-(define Unify-Core-case--18469-17241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3))))))
-(define Unify-Core-case--18381-17143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0))))))))))))))))))))
-(define Unify-Core-case--12259-16883 (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 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))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12259-16807 (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 (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12255-16669 (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) (Unify-Core-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 (Context-Core-log arg-9 (+ 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 (Unify-Core-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 Unify-Core-case--12255-16469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0)))))))
-(define Unify-Core-case--12255-16365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased 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) eta-0)))))))
-(define Unify-Core-case--12248-16073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) 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 ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) 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 ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-case--16912-15790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 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 ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) 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))) (vector 1 (Unify-Core-union arg-22 e-12))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-case--12248-15628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) 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 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--16912-15790 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))
-(define Unify-Core-case--12243-15445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d 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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
-(define Unify-Core-case--12243-15346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
-(define Unify-Core-case--12243-15266 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--16218-15146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--12243-15039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12243-14892-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 ((Unify-Core-n--12243-14892-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 ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16218-15146 arg-0 arg-1 arg-2 arg-3 arg-4 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 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12243-14891-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))))) eta-0))))))))))))))))))
-(define Unify-Core-case--16054-14926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12243-14892-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-17) 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))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12243-14892-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-17))))))(else (Unify-Core-n--12243-14892-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-17))))))
-(define Unify-Core-case--12243-14757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "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 Unify-Core-case--12243-14658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0)))))))
-(define Unify-Core-case--12239-14587 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
-(define Unify-Core-case--12239-14515 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
-(define Unify-Core-case--12239-14305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-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 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 ))))))))
-(define Unify-Core-case--12239-14211 (lambda (arg-0 arg-1 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) (Unify-Core-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 eta-0))) (else (lambda (eta-0) (Unify-Core-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) eta-0)))))))
-(define Unify-Core-case--14722-13880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0))))))))
-(define Unify-Core-case--14635-13748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-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))) ((Unify-Core-case--14722-13880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0))))))))))))
-(define Unify-Core-case--14545-13688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14635-13748 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-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) arg-2) arg-1))))))
-(define Unify-Core-case--14476-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 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (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 (Normalise-Core-quote_Quote__NF 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 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 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) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--14635-13748 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-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) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-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) arg-2) arg-1))))))
-(define Unify-Core-case--14031-13571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14476-13618 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--14151-13336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--14091-13288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14151-13336 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-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 Unify-Core-case--14031-13247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14091-13288 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--12235-13203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (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 ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14091-13288 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14476-13618 arg-0 arg-1 arg-2 arg-3 arg-4 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-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))))))))))))))
-(define Unify-Core-case--13736-13036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 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 (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))
-(define Unify-Core-case--12230-12951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (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))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 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 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))))))))))
-(define Unify-Core-case--12226-12853 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1))))))
-(define Unify-Core-case--13353-12690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))
-(define Unify-Core-case--12222-12648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12222-12624-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
-(define Unify-Core-case--12814-12222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-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 (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) 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 (Unify-Core-union e-6 e-8))))))))))))))))))))))))))
-(define Unify-Core-case--12747-12160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--12814-12222 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11)) (Unify-Core-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) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1)))))))
-(define Unify-Core-case--12669-12111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((bind-0 0)) (Unify-Core-case--12747-12160 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0)))))))
-(define Unify-Core-case--12218-12046 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) 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))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-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 ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--12747-12160 arg-0 arg-1 arg-2 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-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0)))))))
-(define Unify-Core-case--12215-11946 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 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 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 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 ((act-26 (let ((act-26 (unbox arg-4))) (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-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--12213-11850 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12295-11770 (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-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))
-(define Unify-Core-case--12209-11725 (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) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))))))
-(define Unify-Core-case--12158-11549 (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 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0)))))))
-(define Unify-Core-case--11918-11411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 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 (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))
-(define Unify-Core-case--11831-11327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-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 (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))))))))))))
-(define Unify-Core-case--11785-11256 (lambda (arg-0 arg-1 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) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--11831-11327 arg-0 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-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)))))))))))))))
-(define Unify-Core-case--11755-11219 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--11831-11327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--9775-11134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--9775-11039 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--9799-10810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0)))))))
-(define Unify-Core-case--9799-10680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26))))))))
-(define Unify-Core-case--10536-10173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28))))))
-(define Unify-Core-case--10403-10100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10536-10173 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0)))))))))
-(define Unify-Core-case--9798-9868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-20 arg-19 arg-22))))
-(define Unify-Core-case--10008-9767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-24))))
-(define Unify-Core-case--9797-9648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Unify-Core-case--9797-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-21))))
-(define Unify-Core-case--9465-9221 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
-(define Unify-Core-case--9216-9158 (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 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (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 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 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 ((Unify-Core-getMetaNames 'erased arg-6 e-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))) ((Unify-Core-case--9465-9221 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-2 e-7)) eta-0))))))))))))))))))))))
-(define Unify-Core-case--9228-9020 (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (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) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3))))))))))))
-(define Unify-Core-case--9228-8959 (lambda (arg-0 arg-1 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 Unify-Core-case--9123-8896 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3))))))))))
-(define Unify-Core-case--9005-8855 (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))) (Unify-Core-case--9123-8896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
-(define Unify-Core-case--9016-8785 (lambda (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) (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
-(define Unify-Core-case--8907-8688 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
-(define Unify-Core-case--8806-8629 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3))))))))))
-(define Unify-Core-case--8680-8584 (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))) (Unify-Core-case--8806-8629 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
-(define Unify-Core-case--8691-8505 (lambda (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) (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
-(define Unify-Core-case--8617-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4)))))))
-(define Unify-Core-case--8566-8417 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8617-8433 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8566-8383-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
-(define Unify-Core-case--8377-8289 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
-(define Unify-Core-case--8405-8240 (lambda (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) 0) (else (Unify-Core-n--8377-8226-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
-(define Unify-Core-case--8231-8087 (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-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)))))))
-(define Unify-Core-case--7719-7996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--7736-7717 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--7735-7623 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0)))))))
-(define Unify-Core-case--7601-7524 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))
-(define Unify-Core-case--7584-7485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-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 (Context-Core-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 ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))))))))))))))))
-(define Unify-Core-case--7525-7435 (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) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0)))))))
-(define Unify-Core-case--7124-6957 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
-(define Unify-Core-case--7115-6946 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
-(define Unify-Core-n--9005-8760-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9016-8785 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
-(define Unify-Core-n--8680-8480-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8691-8505 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
-(define Unify-Core-n--9798-9963-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 (tC-39) (vector 1 (vector 3 tC-39))))))))))
-(define Unify-Core-n--9798-9964-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-10) (lambda (pC-39) (Unify-Core-case--10403-10100 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
-(define Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased e-4 'erased 'erased arg-16 'erased) (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Unify-Core-n--9775-9464-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) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9964-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 (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 Unify-Core-n--9775-9463-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--9797-9648 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Unify-Core-n--7719-7603-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 (Context-Core-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 Unify-Core-n--12230-12919-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))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1)))))
-(define Unify-Core-n--12243-14891-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 Unify-Core-n--9775-9465-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)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 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 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (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-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 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 ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))
-(define Unify-Core-n--12243-14892-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (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-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 ((Normalise-Core-evalClosure arg-0 e-5 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 ((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 ((Unify-Core-n--12243-14892-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) 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))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12243-14892-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) eta-0))))))(else ((Unify-Core-n--12243-14892-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) eta-0))))))))))))))))))))))
-(define Unify-Core-n--9775-9462-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-14 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) (Unify-Core-n--9775-9462-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 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1)))))
-(define Unify-Core-n--12222-12624-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 Unify-Core-n--12255-16755-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 Unify-Core-n--8377-8226-inArgs (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8405-8240 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2)))))))))
-(define Unify-Core-n--9216-8941-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))) (Unify-Core-case--9228-8959 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 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9228-9020 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9)))))))
-(define Unify-Core-n--19755-18471-definedN (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) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((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))) ((Unify-Core-case--19784-18517 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Unify-Core-n--22125-20551-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (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 (Context-Core-lookupDefExact (vector 9 e-2) (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-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) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Unify-Core-n--7719-7602-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-n--22549-20929-checkConstraint (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 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 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "  =") e-12 e-13 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (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 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (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)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (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 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-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 (vector 0 ) 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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-n--22250-20679-anySame (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 1))) (else (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-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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-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 ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
-(define Unify-Core-n--8566-8383-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8566-8383-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
-(define Unify-Core-n--22079-20510-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2)))))
+(define Unify-Core-case--23093-22152 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23617-22059 (lambda (arg-0 arg-1 arg-2 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)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23677-21921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23617-21832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (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-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-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--23098-21785 (lambda (arg-0 arg-1 arg-2 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) ((54) (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 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (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-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (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 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 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 ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-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 (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))))))
+(define Unify-Core-case--23238-21602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
+(define Unify-Core-case--23238-21511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
+(define Unify-Core-case--23163-21467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--23098-21407 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) 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 (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 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) 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))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--22985-21284 (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) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
+(define Unify-Core-case--22788-21252 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((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 ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
+(define Unify-Core-case--22829-21162 (lambda (arg-0 arg-1 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 0))) (else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
+(define Unify-Core-case--22802-21117 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
+(define Unify-Core-case--22665-20990 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--22285-20828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--22285-20718 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21141-20629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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))))))))))))))))))(else (let ((gdef (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 ((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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1))))))))))))
+(define Unify-Core-case--21141-20563 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
+(define Unify-Core-case--21617-20506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21617-20349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
+(define Unify-Core-case--21617-20258 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21617-20107 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
+(define Unify-Core-case--21141-20036 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20107 arg-0 arg-1 arg-2 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))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-removeGuess arg-5 arg-0 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 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20349 arg-0 arg-1 arg-2 arg-3 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)) (let ((e-3 (vector-ref sc0 4))) e-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 ((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-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-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-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1)))))))))))))))))
+(define Unify-Core-case--21141-19975 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
+(define Unify-Core-case--21141-19907 (lambda (arg-0 arg-1 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)) (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-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 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21226-19813 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--21141-19698 (lambda (arg-0 arg-1 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) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) 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 ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1))))))))))))))
+(define Unify-Core-case--21092-19621 (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) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-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)) (vector 0 ) 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 ((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 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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 (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (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 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (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 (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (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 ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 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))) ((Unify-Core-case--21141-20036 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 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 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 ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 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 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) 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-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 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 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--21058-19581 (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--21092-19621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
+(define Unify-Core-case--20472-19455 (lambda (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) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10)))))))
+(define Unify-Core-case--20539-19301 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))))))
+(define Unify-Core-case--20539-19191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-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 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-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 (vector 1 arg-16)))))))))))
+(define Unify-Core-case--20472-19092 (lambda (arg-0 arg-1 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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 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))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) 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 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) 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))) ((Unify-Core-case--20539-19191 arg-0 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-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-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 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-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 ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-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 (vector 1 (Unify-Core-constrain arg-1))))))))))))))))))))
+(define Unify-Core-case--20241-19034 (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 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20241-18829-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-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))) ((Unify-Core-case--20472-19092 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 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) 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))) ((Unify-Core-case--20472-19455 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))) eta-0)))))))))))))))))))))
+(define Unify-Core-case--20272-18877 (lambda (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) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Unify-Core-case--20249-18854 (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))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--20118-18760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--20099-18716 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (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 e-13 0 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Unify-Core-case--19951-18617 (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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 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 ((Normalise-Core-evalClosure arg-0 arg-8 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--19668-18379 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--19664-18267 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--18826-18086 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5))))))))
+(define Unify-Core-case--18826-18035 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5))))))))
+(define Unify-Core-case--19217-17838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9))))))
+(define Unify-Core-case--18822-17737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-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-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0))))))))))))))))))))
+(define Unify-Core-case--18915-17564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3))))))
+(define Unify-Core-case--18822-17463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0))))))))))))))))))))
+(define Unify-Core-case--12583-17197 (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 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))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12583-17117 (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 (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12579-16974 (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) (Unify-Core-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 (Context-Core-log arg-9 (+ 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 (Unify-Core-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 Unify-Core-case--12579-16771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0)))))))
+(define Unify-Core-case--12579-16666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased 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) eta-0)))))))
+(define Unify-Core-case--12572-16355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) 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 ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) 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 ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-case--17301-16059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 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 ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) 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))) (vector 1 (Unify-Core-union arg-22 e-12))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-case--12572-15891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) 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 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--17301-16059 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))
+(define Unify-Core-case--12567-15703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d 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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
+(define Unify-Core-case--12567-15604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
+(define Unify-Core-case--12567-15524 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--16600-15404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--12567-15295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-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 ((Unify-Core-n--12567-15144-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 ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16600-15404 arg-0 arg-1 arg-2 arg-3 arg-4 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 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12567-15143-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))))) eta-0))))))))))))))))))
+(define Unify-Core-case--16432-15180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-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-17) 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))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12567-15144-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-17))))))(else (Unify-Core-n--12567-15144-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-17))))))
+(define Unify-Core-case--12567-15008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "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 Unify-Core-case--12567-14909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0)))))))
+(define Unify-Core-case--12563-14838 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
+(define Unify-Core-case--12563-14764 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
+(define Unify-Core-case--12563-14552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-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 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 ))))))))
+(define Unify-Core-case--12563-14457 (lambda (arg-0 arg-1 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) (Unify-Core-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 eta-0))) (else (lambda (eta-0) (Unify-Core-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) eta-0)))))))
+(define Unify-Core-case--15092-14125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0))))))))
+(define Unify-Core-case--15005-13992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-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))) ((Unify-Core-case--15092-14125 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0))))))))))))
+(define Unify-Core-case--14913-13932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-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) arg-2) arg-1))))))
+(define Unify-Core-case--14844-13860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF 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 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 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) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-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) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-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) arg-2) arg-1))))))
+(define Unify-Core-case--14397-13813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--14518-13577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--14458-13529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14518-13577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-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 Unify-Core-case--14397-13488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--12559-13443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (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 ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 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-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))))))))))))))
+(define Unify-Core-case--14093-13268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 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 (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))
+(define Unify-Core-case--12554-13182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (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))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 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 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))))))))))
+(define Unify-Core-case--12550-13082 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1))))))
+(define Unify-Core-case--13706-12917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))
+(define Unify-Core-case--12546-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
+(define Unify-Core-case--13152-12434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-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 (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) 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 (Unify-Core-union e-6 e-8))))))))))))))))))))))))))
+(define Unify-Core-case--13085-12372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--13152-12434 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11)) (Unify-Core-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) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1)))))))
+(define Unify-Core-case--13003-12323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((bind-0 0)) (Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0)))))))
+(define Unify-Core-case--12542-12254 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) 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))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-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 ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 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-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0)))))))
+(define Unify-Core-case--12539-12148 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 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 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 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 ((act-26 (let ((act-26 (unbox arg-4))) (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-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--12537-12052 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12621-11970 (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-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))
+(define Unify-Core-case--12533-11925 (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) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))))))
+(define Unify-Core-case--12480-11747 (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 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0)))))))
+(define Unify-Core-case--12238-11606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 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 (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))
+(define Unify-Core-case--12151-11521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-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 (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))))))))))))
+(define Unify-Core-case--12104-11450 (lambda (arg-0 arg-1 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) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--12151-11521 arg-0 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-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)))))))))))))))
+(define Unify-Core-case--12072-11412 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--12151-11521 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--10058-11325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--10058-11230 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--10082-10992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0)))))))
+(define Unify-Core-case--10082-10862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26))))))))
+(define Unify-Core-case--10827-10339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28))))))
+(define Unify-Core-case--10690-10265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10827-10339 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0)))))))))
+(define Unify-Core-case--10081-10028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-20 arg-19 arg-22))))
+(define Unify-Core-case--10292-9926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-24))))
+(define Unify-Core-case--10080-9806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Unify-Core-case--10080-9726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-21))))
+(define Unify-Core-case--9743-9376 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
+(define Unify-Core-case--9493-9309 (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 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (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 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 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 ((Unify-Core-getMetaNames 'erased arg-6 e-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))) ((Unify-Core-case--9743-9376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 e-7)) eta-0))))))))))))))))))))))
+(define Unify-Core-case--9505-9170 (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (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) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3))))))))))))
+(define Unify-Core-case--9505-9109 (lambda (arg-0 arg-1 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 Unify-Core-case--9400-9046 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3))))))))))
+(define Unify-Core-case--9280-9005 (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))) (Unify-Core-case--9400-9046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
+(define Unify-Core-case--9291-8932 (lambda (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) (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
+(define Unify-Core-case--9181-8834 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
+(define Unify-Core-case--9080-8775 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3))))))))))
+(define Unify-Core-case--8951-8730 (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))) (Unify-Core-case--9080-8775 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
+(define Unify-Core-case--8962-8646 (lambda (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) (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
+(define Unify-Core-case--8888-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4)))))))
+(define Unify-Core-case--8837-8558 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8888-8574 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
+(define Unify-Core-case--8647-8429 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
+(define Unify-Core-case--8675-8380 (lambda (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) 0) (else (Unify-Core-n--8647-8366-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
+(define Unify-Core-case--8499-8225 (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-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)))))))
+(define Unify-Core-case--7967-8134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--7984-7838 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--7983-7742 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0)))))))
+(define Unify-Core-case--7847-7642 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))
+(define Unify-Core-case--7830-7600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-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 (Context-Core-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 ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))))))))))))))))
+(define Unify-Core-case--7771-7550 (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) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0)))))))
+(define Unify-Core-case--7358-7060 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
+(define Unify-Core-case--7349-7049 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
+(define Unify-Core-n--9280-8907-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9291-8932 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
+(define Unify-Core-n--8951-8621-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8962-8646 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
+(define Unify-Core-n--10081-10124-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 (tC-39) (vector 1 (vector 3 tC-39))))))))))
+(define Unify-Core-n--10081-10125-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-10) (lambda (pC-39) (Unify-Core-case--10690-10265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
+(define Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased e-4 'erased 'erased arg-16 'erased) (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Unify-Core-n--10058-9621-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) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10125-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 (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 Unify-Core-n--10058-9620-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--10080-9806 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Unify-Core-n--7967-7721-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 (Context-Core-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 Unify-Core-n--12554-13148-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))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1)))))
+(define Unify-Core-n--12567-15143-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 Unify-Core-n--10058-9622-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)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 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 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (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-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 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 ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))
+(define Unify-Core-n--12567-15144-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (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-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 ((Normalise-Core-evalClosure arg-0 e-5 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 ((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 ((Unify-Core-n--12567-15144-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) 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))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12567-15144-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) eta-0))))))(else ((Unify-Core-n--12567-15144-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) eta-0))))))))))))))))))))))
+(define Unify-Core-n--10058-9619-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-14 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) (Unify-Core-n--10058-9619-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 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1)))))
+(define Unify-Core-n--12546-12849-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 Unify-Core-n--12579-17061-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 Unify-Core-n--8647-8366-inArgs (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8675-8380 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2)))))))))
+(define Unify-Core-n--9493-9091-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))) (Unify-Core-case--9505-9109 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 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9505-9170 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9)))))))
+(define Unify-Core-n--20241-18829-definedN (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) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((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))) ((Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Unify-Core-n--22660-20958-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (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 (Context-Core-lookupDefExact (vector 9 e-2) (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-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) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Unify-Core-n--7967-7720-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-n--23093-21345-checkConstraint (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 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 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "  =") e-12 e-13 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (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 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (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)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (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 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-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 (vector 0 ) 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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-n--22788-21089-anySame (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 1))) (else (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-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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-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 ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
+(define Unify-Core-n--8837-8524-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
+(define Unify-Core-n--22612-20915-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2)))))
 (define Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 (TT-Core-weaken_Weaken__Var arg-1 arg-2 e-8)) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5)))))))))))))
 (define Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 e-3 arg-3)))))))))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
-(define Unify-Core-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-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) 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-8 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-8)) (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 e-6)))))))))))))))))))(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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-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 ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) 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-8 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-8)) (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 e-6)))))))))))))))))))(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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-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 ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))
 (define Unify-Core-unifyWithLazyD_Unify__Closure (lambda (arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0) (Unify-Core-unifyD_Unify__Closure arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0)))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
-(define Unify-Core-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-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-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))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18381-17143 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased 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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18381-17408 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18381-17408 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Closure 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 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure 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 ((Normalise-Core-evalClosure 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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-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-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))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18822-17463 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased 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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Closure 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 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure 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 ((Normalise-Core-evalClosure 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
 (define Unify-Core-show_Show__UnifyMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InLHS") ((1) "InTerm") ((2) "InMatch") (else "InSearch")))))
 (define Unify-Core-show_Show__AddLazy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay")))))
-(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3225)))))))
-(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0)))))))))))))
-(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168))))))))))))
-(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0)))))))))))))
-(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Unify-Core-C-61C-61_Eq__UnifyMode arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Unify-Core-C-47C-61_Eq__UnifyMode arg-650 arg-651))))))
+(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3271)))))))
+(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0)))))))))))))
+(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279))))))))))))
+(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0)))))))))))))
+(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Unify-Core-C-61C-61_Eq__UnifyMode arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Unify-Core-C-47C-61_Eq__UnifyMode arg-430 arg-431))))))
 (define Unify-Core-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 Unify-Core-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 Unify-Core-C-47C-61_Eq__UnifyMode (lambda (arg-0 arg-1) (Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode arg-0 arg-1))))
 (define Unify-Core-unionAll (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Unify-Core-union e-2 (Unify-Core-unionAll e-3))))))))))))
-(define Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (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))) (Prelude-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)))) (List-Prelude-C-43C-43 'erased (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 Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (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))) (Prelude-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)))) (List-Prelude-C-43C-43 'erased (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 Unify-Core-unifyWithLazyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))))
 (define Unify-Core-unifyWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))
-(define Unify-Core-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))) ((Unify-Core-case--12255-16365 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 (Prelude-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-case--12255-16469 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 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 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 (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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 Unify-Core-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 (Context-Core-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 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-8 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 ((Unify-Core-headsConvert arg-2 arg-0 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)) ((Unify-Core-case--12747-12160 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 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-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) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0))))))))))))))))
+(define Unify-Core-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))) ((Unify-Core-case--12579-16666 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 (Prelude-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-case--12579-16771 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 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 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 (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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 Unify-Core-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 (Context-Core-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 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-8 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 ((Unify-Core-headsConvert arg-2 arg-0 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)) ((Unify-Core-case--13085-12372 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 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-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) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0))))))))))))))))
 (define Unify-Core-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 (Normalise-Core-convert_Convert__NF 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 (Unify-Core-success))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)))) arg-6 arg-7 arg-8 ext-0)) (else (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0)))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 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) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Context-Core-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 ((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 ((inv (Prelude-C-124C-124 (Unify-Core-n--12222-12624-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 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 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Unify-Core-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) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-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) arg-10) arg-11))))))))(else (Unify-Core-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) arg-10) arg-11))))))
-(define Unify-Core-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 (Context-Core-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 ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 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 (Normalise-Core-quote_Quote__NF 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 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 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 ((Context-Core-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))) ((Unify-Core-case--14091-13288 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 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-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 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-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 (vector 0 e-10 (vector 0 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))) ((Unify-Core-case--14476-13618 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 args e-7 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 ((Unify-Core-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 Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 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) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Context-Core-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 ((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 ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 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 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Unify-Core-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) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-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) arg-10) arg-11))))))))(else (Unify-Core-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) arg-10) arg-11))))))
+(define Unify-Core-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 (Context-Core-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 ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 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 (Normalise-Core-quote_Quote__NF 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 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 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 ((Context-Core-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))) ((Unify-Core-case--14458-13529 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 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-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 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-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 (vector 0 e-10 (vector 0 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))) ((Unify-Core-case--14844-13860 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 args e-7 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 ((Unify-Core-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 Unify-Core-unifyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))))
-(define Unify-Core-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 ((sc1 arg-12)) (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))) (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))) ((Unify-Core-case--12248-15628 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (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-8 (vector-ref sc2 1))) ((Unify-Core-case--12248-16073 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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 Unify-Core-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-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12243-14658 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (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 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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 ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 Unify-Core-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 ((sc1 arg-12)) (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))) (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))) ((Unify-Core-case--12572-15891 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (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-8 (vector-ref sc2 1))) ((Unify-Core-case--12572-16355 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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 Unify-Core-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-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12567-14909 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (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 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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 ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 Unify-Core-unifyArgs (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) ((0) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 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 (((((((Unify-Core-unify 'erased (Builtin-fst 'erased 'erased arg-1) arg-2 arg-3 arg-4) (Unify-Core-lower arg-5)) arg-6) arg-7) e-2) 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))) (vector 1 (Unify-Core-union e-8 e-5))))))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))))
-(define Unify-Core-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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12239-14211 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (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)) (case (vector-ref sc5 0) ((0) (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))) ((Unify-Core-case--12239-14305 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12239-14211 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc4 0) ((0) (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))) ((Unify-Core-case--12239-14305 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? 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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))))
+(define Unify-Core-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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (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)) (case (vector-ref sc5 0) ((0) (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))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc4 0) ((0) (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))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? 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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))))
 (define Unify-Core-unify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))
 (define UnifyInfo-Unify-Core-umode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Unify-Core-ufail (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 arg-2) ext-0)))
-(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8566-8417 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1))))))))))
+(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8837-8558 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1))))))))))
 (define Unify-Core-success (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 ))))
-(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
+(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
 (define Unify-Core-solvedHole (lambda (arg-0) (vector 0 (vector 0 ) 0 (vector 1 arg-0 (vector 0 )) (vector 0 ))))
-(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 (Context-Core-lookupDefExact (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 ((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 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 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 ((_-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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--11831-11327 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 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--12230-12951 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 (Unify-Core-n--12230-12919-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 Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22079-20510-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
+(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 (Context-Core-lookupDefExact (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 ((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 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 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 ((_-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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--12151-11521 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 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--12554-13182 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 (Unify-Core-n--12554-13148-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 Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22612-20915-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
 (define Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraints arg-0 arg-1 arg-2 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
 (define Unify-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Unify-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Running search with defaults " (Prelude-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 ((AutoSearch-Core-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-7 0 (Env-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (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-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))) ((Unify-Core-case--20588-19245 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))) eta-0)))))))))))))))))))))))))
-(define Unify-Core-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))) ((Unify-Core-case--19755-18673 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0))))))))
+(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (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-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))) ((Unify-Core-case--21092-19621 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))) eta-0)))))))))))))))))))))))))
+(define Unify-Core-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))) ((Unify-Core-case--20241-19034 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0))))))))
 (define UnifyInfo-Unify-Core-precise (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Unify-Core-postponeS (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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 (Unify-Core-lower arg-6) arg-7 arg-8 arg-10 arg-9 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)))))))
 (define Unify-Core-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 ((x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 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 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 x arg-11) eta-0))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-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 ((Unify-Core-n--7719-7602-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 ((Unify-Core-n--7719-7602-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--7719-7603-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 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Unify-Core-constrain e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--9005-8855 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0)))))))))))))
-(define Unify-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg 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))) ((Unify-Core-case--8680-8584 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0))))))))))))))))))
-(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased 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))) ((Unify-Core-case--9216-9158 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-5 e-5)) ext-0))))))))
+(define Unify-Core-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 (Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-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 ((Unify-Core-n--7967-7720-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 ((Unify-Core-n--7967-7720-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--7967-7721-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 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Unify-Core-constrain e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--9280-9005 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0)))))))))))))
+(define Unify-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg 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))) ((Unify-Core-case--8951-8730 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0))))))))))))))))))
+(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased 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))) ((Unify-Core-case--9493-9309 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-5 e-5)) ext-0))))))))
 (define UnifyResult-Unify-Core-namesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Unify-Core-lower (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
 (define Unify-Core-lam (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
 (define Unify-Core-isHoleApp (lambda (arg-0 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 Unify-Core-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 ((Context-Core-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-2)) ext-0))))))))))))))))
-(define Unify-Core-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 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--9775-11039 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-5 (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 ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((Unify-Core-n--9775-9465-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 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--9775-9462-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 'erased e-11)))) (let ((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 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--10058-11230 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-5 (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 ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((Unify-Core-n--10058-9622-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 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10058-9619-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 'erased e-11)))) (let ((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 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0))))))))))))))))))))))))))))))))))))))))))))
 (define Unify-Core-inTermP (lambda (arg-0) (vector 0 0 arg-0 (vector 1 ))))
 (define Unify-Core-inTerm (lambda () (vector 0 0 0 (vector 1 ))))
 (define Unify-Core-inSearch (lambda () (vector 0 0 0 (vector 3 ))))
@@ -4286,10 +4329,10 @@
 (define Unify-Core-inLHS (lambda () (vector 0 0 0 (vector 0 ))))
 (define Unify-Core-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define UnifyResult-Unify-Core-holesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12215-11946 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 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 (Context-Core-log arg-1 (+ 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 Unify-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22125-20551-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))))))))
-(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Unify-Core-case--8907-8688 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-8 arg-1))))))(else (vector 0 )))))))))))
-(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8377-8289 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8377-8226-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 )))))))))))
+(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12539-12148 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 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 (Context-Core-log arg-1 (+ 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 Unify-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22660-20958-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))))))))
+(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Unify-Core-case--9181-8834 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-8 arg-1))))))(else (vector 0 )))))))))))
+(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8647-8429 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8647-8366-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 )))))))))))
 (define Unify-Core-getMetaNames (lambda (arg-0 arg-1 arg-2) (let ((metas (TT-Core-getMetas 'erased arg-2))) (Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased metas) (NameMap-Data-empty 'erased)))))
 (define Unify-Core-getIVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (Unify-Core-getIVars 'erased 'erased e-5)))))))))
 (define Unify-Core-getEtaType (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-getEtaType (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 ))))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType arg-0 arg-1 arg-3 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 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 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 ((Normalise-Core-getNF 'erased arg-1 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-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 3))) (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-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Context-Core-clearDefs e-14 eta-0))) (let ((sc7 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-3 e-11 eta-0))) (let ((sc8 act-29)) (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 e-16)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
@@ -4300,45 +4343,45 @@
 (define Unify-Core-convertError (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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-1 arg-3 arg-4 e-7 e-8) ext-0)))))))))))))))))))))))
 (define UnifyResult-Unify-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Unify-Core-constrain (lambda (arg-0) (vector 0 (vector 1 arg-0 (vector 0 )) 1 (vector 0 ) (vector 0 ))))
-(define Unify-Core-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 (UnifyState-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22549-20929-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (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 (UnifyState-Core-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 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29))))))))))))))))))))))))))
-(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 ((Unify-Core-n--22250-20679-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-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 ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))))))))))))))
-(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7584-7485 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2)))))))))
+(define Unify-Core-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 (UnifyState-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23093-21345-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (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 (UnifyState-Core-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 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29))))))))))))))))))))))))))
+(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 ((Unify-Core-n--22788-21089-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-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 ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))))))))))))))
+(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7830-7600 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2)))))))))
 (define UnifyInfo-Unify-Core-atTop (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define UnifyResult-Unify-Core-addLazy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define GetType-Core-case--5575-3675 (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) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))
-(define GetType-Core-case--5575-3540 (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-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-5))) (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 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) 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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0))))))))))))
-(define GetType-Core-case--5575-3434 (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 (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define GetType-Core-case--5575-3375 (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))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
+(define GetType-Core-case--5754-3706 (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) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))
+(define GetType-Core-case--5754-3561 (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-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-5))) (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 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) 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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0))))))))))))
+(define GetType-Core-case--5754-3448 (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 (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define GetType-Core-case--5754-3386 (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))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
 (define GetType-Core-getType (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 arg-3)))
 (define GetType-Core-discharge (lambda (arg-0 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))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3) arg-5))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 1 e-5 e-6 e-7) arg-5))))) ((2) arg-4) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 5 e-13 e-15) arg-5)))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 4 e-17 e-18 e-19) arg-5))))) (else arg-4)))))
 (define GetType-Core-chkMeta (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) (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 (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)))))))))(else (let ((sc0 arg-4)) (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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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 ((GetType-Core-chk arg-0 arg-1 arg-3 e-10) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-10)) eta-0))) (let ((sc5 act-26)) (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))) ((GetType-Core-chkMeta arg-0 arg-1 arg-2 arg-3 e-12 e-11) eta-0)))))))))))))))))))(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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-9) 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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))))
 (define GetType-Core-chkConstant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 9 arg-1 (vector 10 ))) ((1) (vector 9 arg-1 (vector 11 ))) ((2) (vector 9 arg-1 (vector 12 ))) ((3) (vector 9 arg-1 (vector 13 ))) ((4) (vector 9 arg-1 (vector 14 ))) ((5) (vector 9 arg-1 (vector 15 ))) ((6) (vector 9 arg-1 (vector 16 ))) ((7) (vector 9 arg-1 (vector 17 ))) ((8) (vector 9 arg-1 (vector 18 ))) ((9) (vector 9 arg-1 (vector 19 )))(else (vector 11 arg-1))))))
 (define GetType-Core-chkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3))))
-(define GetType-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased 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 (Context-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (Context-Core-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 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((GetType-Core-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 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 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 ((Normalise-Core-getTerm 'erased 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) 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 ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) 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 ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48)))))))))
-(define Metadata-Core-case--9044-9630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1))))))
-(define Metadata-Core-case--9035-9609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8978-9558 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8861-9498 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8398-9072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (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))) (vector 0 e-0 arg-4 e-2 e-3 e-4))))))))
-(define Metadata-Core-case--8258-8874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3))))))
-(define Metadata-Core-case--8196-8828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4))))))))))
-(define Metadata-Core-case--8168-8791 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))
-(define Metadata-Core-case--8135-8762 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4))))))))
-(define Metadata-Core-case--8051-8700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4)))))))))
-(define Metadata-Core-case--7967-8626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4)))))))))
-(define Metadata-Core-case--7818-8537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4)))))))))
-(define Metadata-Core-n--7818-8468-toPat (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (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))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--7818-8468-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--7818-8468-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 ))))))
-(define Metadata-Core-n--8398-8999-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
-(define Metadata-Core-n--8572-9167-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) 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))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8))))))))))))))))))))))))))
-(define Metadata-Core-n--8572-9166-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
-(define Metadata-Core-n--8572-9168-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) 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 ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
+(define GetType-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased 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 (Context-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (Context-Core-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 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((GetType-Core-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 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 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 ((Normalise-Core-getTerm 'erased 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) 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 ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) 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 ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48)))))))))
+(define Metadata-Core-case--9507-3563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1))))))
+(define Metadata-Core-case--9497-3540 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--9437-3486 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--9312-3425 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--8823-2968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (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))) (vector 0 e-0 arg-4 e-2 e-3 e-4))))))))
+(define Metadata-Core-case--8677-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3))))))
+(define Metadata-Core-case--8612-2708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4))))))))))
+(define Metadata-Core-case--8583-2669 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))
+(define Metadata-Core-case--8549-2639 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4))))))))
+(define Metadata-Core-case--8462-2575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4)))))))))
+(define Metadata-Core-case--8375-2498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4)))))))))
+(define Metadata-Core-case--8223-2406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4)))))))))
+(define Metadata-Core-n--8223-2335-toPat (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (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))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 ))))))
+(define Metadata-Core-n--8823-2892-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
+(define Metadata-Core-n--9009-3074-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) 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))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8))))))))))))))))))))))))))
+(define Metadata-Core-n--9009-3073-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
+(define Metadata-Core-n--9009-3075-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) 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 ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Metadata-Core-toBuf_TTC__TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 (let ((sc1 arg-1)) (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 (Metadata-Core-toBuf_TTC__Metadata arg-0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) ext-0)))))))))))
-(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0)))))))))))))))
+(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0)))))))))))))))
 (define Metadata-Core-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))) (Strings-Prelude-C-43C-43 "Metadata:\u000a" (Strings-Prelude-C-43C-43 " lhsApps: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-1))))) d-0 x-0))))) d x)))) e-0) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " names: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-1) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " type declarations: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-2) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " current LHS: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-3) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 " holes: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0))))) d x)))) e-4)))))))))))))))))))))))
-(define Metadata-Core-full_HasNames__Metadata (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9166-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9167-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9167-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9168-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) 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 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))))))))))
+(define Metadata-Core-full_HasNames__Metadata (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3073-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3075-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) 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 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))))))))))
 (define Metadata-Core-fromBuf_TTC__TTMFile (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TTM"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased "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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion "" e-7 (Binary-Core-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 (Metadata-Core-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 (vector 0 e-7 e-9)))))))))))))))))))))))))))
-(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 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 (vector 0 ) e-8))))))))))))))))))))))))
-(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-8243 eta-0))))))
+(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 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 (vector 0 ) e-8))))))))))))))))))))))))
+(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2106 eta-0))))))
 (define Metadata-Core-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Metadata-Core-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 (Binary-Utils-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 ((Metadata-Core-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))) (Metadata-Core-toBuf_TTC__TTMFile e-6 (vector 0 (Binary-Core-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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) ext-0)))))))))))))))))))))))))))))))))))
 (define Metadata-Core-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 ((Context-Core-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 e-6 lhs) e-4))))))))))) (vector 1 act-26))))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 4))) e-3))) ext-0)))))))))))))
 (define TTMFile-Metadata-Core-version (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -4347,7 +4390,7 @@
 (define Metadata-Core-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-1) e-4))))))))) (vector 1 act-25)))))))))
 (define Metadata-Core-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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 (Metadata-Core-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 (vector-ref sc4 2))) (vector 1 e-1))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0))))))))))))
 (define Metadata-Core-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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 (Metadata-Core-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 (vector-ref sc4 2))) e-1))))) (vector 1 act-27)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0))))))))))))
-(define Metadata-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8398-8999-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))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27)))))))))))))))))))
+(define Metadata-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8823-2892-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))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27)))))))))))))))))))
 (define Metadata-Metadata-Core-names (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define TTMFile-Metadata-Core-metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Metadata-Metadata-Core-lhsApps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -4357,66 +4400,66 @@
 (define Metadata-Core-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 (Metadata-Core-findEntryWith 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))))
 (define Metadata-Core-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 (Metadata-Core-findEntryWith 'erased (lambda (loc) (lambda (tm) ((arg-1 loc) (Builtin-snd 'erased 'erased tm)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
 (define Metadata-Core-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 (List-Data-lookupBy 'erased 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) arg-1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))))
-(define Metadata-Core-findEntryWith (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--8258-8874 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7))))))))))))
-(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-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 (PrimIO-putStrLn (Metadata-Core-show_Show__Metadata e-5) ext-0))) (vector 1 act-25)))))))))
+(define Metadata-Core-findEntryWith (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--8677-2755 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7))))))))))))
+(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25)))))))))
 (define Metadata-Metadata-Core-currentLHS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Metadata-Core-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))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))) (vector 1 act-25)))))))))
 (define Metadata-Core-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 ((Context-Core-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 ((act-26 (set-box! arg-2 (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))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 (Env-Core-length 'erased 'erased arg-5) (Env-Core-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
 (define Metadata-Core-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 ((Context-Core-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 ((act-26 (set-box! arg-2 (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))) (vector 0 e-0 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-3 arg-5 arg-6)))) e-1) e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
-(define Metadata-Core-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--7818-8468-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 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 ((act-26 (set-box! arg-2 (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))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
-(define Rewrite-Elab-TTImp-case--9411-6588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9337-6422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9286-6360 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-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 ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) 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 ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (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))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9099-6159 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 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 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-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))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-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 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 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 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 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 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") 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 ((act-30 (Context-Core-clearDefs arg-7 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))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 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-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) 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 ((Normalise-Core-getTerm 'erased e-15) 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))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-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 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-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 ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-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 (vector 1 (vector 0 e-5 (vector 0 pred e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--8875-5949 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) 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-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) 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-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
-(define Rewrite-Elab-TTImp-case--8853-5924 (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) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--8875-5949 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
-(define Rewrite-Elab-TTImp-case--8807-5882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Metadata-Core-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 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 ((act-26 (set-box! arg-2 (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))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
+(define Rewrite-Elab-TTImp-case--9753-6878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9673-6705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9620-6636 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-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 ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) 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 ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (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))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9415-6418 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 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 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-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))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-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 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 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 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 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 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") 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 ((act-30 (Context-Core-clearDefs arg-7 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))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 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-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) 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 ((Normalise-Core-getTerm 'erased e-15) 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))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-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 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-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 ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-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 (vector 1 (vector 0 e-5 (vector 0 pred e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9189-6200 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) 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-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) 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-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
+(define Rewrite-Elab-TTImp-case--9166-6175 (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) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--9189-6200 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
+(define Rewrite-Elab-TTImp-case--9119-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
 (define Rewrite-Elab-TTImp-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Rewrite-Elab-TTImp-rewriteErr e-26)))(else 1)))))
-(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 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 ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--8875-5949 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))))))
+(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 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 ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--9189-6200 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))))))
 (define Rewrite-Elab-TTImp-findRewriteLemma (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))))))))))))
 (define Rewrite-Elab-TTImp-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 (UnifyState-Core-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 ((Normalise-Core-nf 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 ((Rewrite-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 2))) (let ((act-28 (Rewrite-Elab-TTImp-findRewriteLemma 'erased 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 ((Normalise-Core-nf 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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Normalise-Core-replace 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 ((pred (vector 3 arg-3 e-6 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-18) (TT-Core-refsToLocals 'erased (vector 1 e-6 (vector 0 )) (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((GetType-Core-getType arg-0 arg-1 arg-4 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-quote_Quote__Term 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 (Normalise-Core-convert_Convert__Term 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) (Core-Core-throw_Catchable__Core_Error 'erased (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 (vector 0 e-11 (vector 0 pred e-20)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) 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 ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (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 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (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 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (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 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (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 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (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 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (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 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0))))))))
-(define Record-Elab-TTImp-case--10063-7159 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Record-Elab-TTImp-case--9808-7091 (lambda (arg-0 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (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-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))))
-(define Record-Elab-TTImp-case--9808-6967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13)))))
-(define Record-Elab-TTImp-case--9808-6884 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Record-Elab-TTImp-case--9631-6735 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (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))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--9631-6716-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) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0)))))))
-(define Record-Elab-TTImp-case--9378-6514 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 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 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
-(define Record-Elab-TTImp-case--9331-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9378-6514 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 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2))))))))
-(define Record-Elab-TTImp-case--9073-6440 (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-1 (vector-ref sc0 1))) (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 (Record-Elab-TTImp-findFields e-5 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9378-6514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
-(define Record-Elab-TTImp-case--9163-6325 (lambda (arg-0 arg-1 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) (let ((act-24 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
-(define Record-Elab-TTImp-case--9073-6292 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-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 ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
-(define Record-Elab-TTImp-case--9011-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2)))))))
-(define Record-Elab-TTImp-case--8962-6136 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define Record-Elab-TTImp-case--8830-6067 (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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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 ((Record-Elab-TTImp-n--8830-5978-getExpNames arg-0 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))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Record-Elab-TTImp-case--8833-6004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Record-Elab-TTImp-case--8779-5937 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (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 ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Record-Elab-TTImp-n--9631-6716-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 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12))))
-(define Record-Elab-TTImp-n--9073-6245-mkArgs (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 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-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8))))))))))))))))))))))
-(define Record-Elab-TTImp-n--8830-5978-getExpNames (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 ((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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Record-Elab-TTImp-n--8830-5978-getExpNames arg-0 arg-1 e-5) 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Rewrite-Elab-TTImp-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) 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 ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (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 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (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 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (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 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (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 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (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 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (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 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0))))))))
+(define Record-Elab-TTImp-case--10393-7439 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Record-Elab-TTImp-case--10131-7370 (lambda (arg-0 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (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-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))))
+(define Record-Elab-TTImp-case--10131-7243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13)))))
+(define Record-Elab-TTImp-case--10131-7157 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Record-Elab-TTImp-case--9950-7005 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (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))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--9950-6984-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) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0)))))))
+(define Record-Elab-TTImp-case--9694-6779 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 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 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
+(define Record-Elab-TTImp-case--9645-6744 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9694-6779 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 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2))))))))
+(define Record-Elab-TTImp-case--9381-6703 (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-1 (vector-ref sc0 1))) (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 (Record-Elab-TTImp-findFields e-5 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9694-6779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
+(define Record-Elab-TTImp-case--9475-6587 (lambda (arg-0 arg-1 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) (let ((act-24 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
+(define Record-Elab-TTImp-case--9381-6553 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-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 ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
+(define Record-Elab-TTImp-case--9319-6422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2)))))))
+(define Record-Elab-TTImp-case--9267-6392 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define Record-Elab-TTImp-case--9131-6320 (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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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 ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 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))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Record-Elab-TTImp-case--9134-6256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Record-Elab-TTImp-case--9079-6187 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (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 ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Record-Elab-TTImp-n--9950-6984-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 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12))))
+(define Record-Elab-TTImp-n--9381-6502-mkArgs (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 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-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8))))))))))))))))))))))
+(define Record-Elab-TTImp-n--9131-6228-getExpNames (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 ((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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 arg-1 e-5) 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Record-Elab-TTImp-toRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toRHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39)))))))))
 (define Record-Elab-TTImp-toLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 16 arg-0 e-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toLHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39)))))))))
-(define Record-Elab-TTImp-replace (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9011-6165 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6))))))))))))
-(define Record-Elab-TTImp-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 ((Normalise-Core-getNF 'erased 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))) ((Record-Elab-TTImp-case--9631-6735 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 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0)))))))))))))
+(define Record-Elab-TTImp-replace (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9319-6422 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6))))))))))))
+(define Record-Elab-TTImp-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 ((Normalise-Core-getNF 'erased 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))) ((Record-Elab-TTImp-case--9950-7005 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 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0)))))))))))))
 (define Record-Elab-TTImp-needType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((22) 0) ((56) (let ((e-5 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-5))) ((57) (let ((e-8 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-8))) ((58) (let ((e-11 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-11))) ((59) (let ((e-14 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-14))) ((5) (let ((e-20 (vector-ref sc0 6))) (Record-Elab-TTImp-needType e-20)))(else 1)))))
 (define Record-Elab-TTImp-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))) (Record-Elab-TTImp-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))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-2 e-2 (vector 1 arg-4) (lambda (n) (TTImp-TTImp-apply e-3 (vector 1 (vector 0 arg-2 (vector 1 n)) (vector 0 )))) arg-6))))))))
 (define Record-Elab-TTImp-getRecordType (lambda (arg-0 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 Record-Elab-TTImp-getAllSides (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) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-getSides arg-0 arg-1 arg-2 e-2 arg-4 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))) ((Record-Elab-TTImp-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5) eta-0))))))))))))))
 (define Record-Elab-TTImp-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 (b+ 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 (Strings-Prelude-C-43C-43 arg-1 (Prelude-show_Show__Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))))))))))))))))
-(define Record-Elab-TTImp-findPath (lambda (arg-0 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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 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 (Record-Elab-TTImp-findFields 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 ((Record-Elab-TTImp-n--9073-6245-mkArgs e-2 e-3 e-10 e-14 e-13 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 ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7)))))))))))))))
-(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact 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 ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 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))) (let ((act-26 ((Record-Elab-TTImp-n--8830-5978-getExpNames 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 Record-Elab-TTImp-findPath (lambda (arg-0 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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 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 (Record-Elab-TTImp-findFields 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 ((Record-Elab-TTImp-n--9381-6502-mkArgs e-2 e-3 e-10 e-14 e-13 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 ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7)))))))))))))))
+(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact 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 ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 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))) (let ((act-26 ((Record-Elab-TTImp-n--9131-6228-getExpNames 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 Record-Elab-TTImp-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-11)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))
-(define Record-Elab-TTImp-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 ((Check-Elab-TTImp-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 (vector-ref sc1 2))) (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 ((solvemode (Record-Elab-TTImp-case--9808-6884 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))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 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 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-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 ((Check-Elab-TTImp-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 Quote-Elab-TTImp-case--10785-11920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5)))))))))))))))))))
-(define Quote-Elab-TTImp-case--10726-11861 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-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 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))
-(define Quote-Elab-TTImp-n--10066-11730-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 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 (vector 0 e-2 e-5)))))))))))))
-(define Quote-Elab-TTImp-n--10058-11613-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
+(define Record-Elab-TTImp-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 ((Check-Elab-TTImp-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 (vector-ref sc1 2))) (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 ((solvemode (Record-Elab-TTImp-case--10131-7157 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))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 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 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-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 ((Check-Elab-TTImp-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 Quote-Elab-TTImp-case--11073-12616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5)))))))))))))))))))
+(define Quote-Elab-TTImp-case--11012-12556 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-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 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))
+(define Quote-Elab-TTImp-n--10294-12415-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 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 (vector 0 e-2 e-5)))))))))))))
+(define Quote-Elab-TTImp-n--10286-12289-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
 (define Quote-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
 (define Quote-Elab-TTImp-getUnquoteUpdate (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-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 ((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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5)))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteTy (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-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))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))))
-(define Quote-Elab-TTImp-getUnquoteRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10058-11613-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-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 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))))))
+(define Quote-Elab-TTImp-getUnquoteRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10286-12289-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-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 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 (vector 0 e-0 e-1 e-2 e-3 e-5))))))))))))))))
-(define Quote-Elab-TTImp-getUnquoteDecl (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10066-11730-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define Quote-Elab-TTImp-getUnquoteDecl (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10294-12415-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
 (define Quote-Elab-TTImp-getUnquoteData (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteClause (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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-8 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 2 e-8 e-5)))))))))))))))
 (define Quote-Elab-TTImp-getUnquote (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))) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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-5 e-6))))))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteUpdate arg-0 arg-1 arg-2 eta-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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 7 e-25 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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-31 e-5 e-33 e-6)))))))))))))))))) ((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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-37) 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-6))))))))))))))))) ((12) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 eta-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 (vector 12 e-38 e-39 e-5)))))))))))) ((13) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 13 e-41 e-5 e-6))))))))))))))))) ((14) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 14 e-44 e-5))))))))))) ((15) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 15 e-46 e-47 e-5)))))))))))) ((17) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 17 e-49 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 18 e-53 e-54 e-5)))))))))))) ((19) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 19 e-56 e-57 e-5)))))))))))) ((20) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 20 e-59 e-5))))))))))) ((21) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 21 e-61 e-5))))))))))) ((22) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-64) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-63 e-5))))))))))) ((25) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-0 arg-2 "q" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (vector 1 (vector 0 e-5 (vector 0 e-65 e-66)) 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 25 e-65 (vector 0 e-65 e-5)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
@@ -4425,522 +4468,525 @@
 (define Quote-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Quote.Unq" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Quote-Elab-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-9 e-5 (Quote-Elab-TTImp-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 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-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 ((Quote-Elab-TTImp-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 (Normalise-Core-normalise 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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (Normalise-Core-gnf arg-0 arg-8 e-10) arg-11) ext-0)))))))))))))))))))))))))))))))))))))))))))
 (define Quote-Elab-TTImp-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-10))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExactI (Reflect-Core-reflectionttimp "TTImp") (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-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)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 9 e-4))))) 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))) (let ((sc8 e-12)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-27 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) eta-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 ((Normalise-Core-getTerm 'erased e-13) eta-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 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-6) e-14 e-16) (TT-Core-refToLocal 'erased e-6 e-6 e-15)))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))))))))))))))))))))))))
 (define Prim-Elab-TTImp-checkPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 10 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 11 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 12 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 13 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 14 ))))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 15 ))))) ((6) (let ((e-6 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 16 ))))) ((7) (let ((e-7 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 17 ))))) ((8) (let ((e-8 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 18 ))))) ((9) (vector 0 (vector 9 arg-1 (vector 9 )) (vector 9 arg-1 (vector 19 )))) ((10) (vector 0 (vector 9 arg-1 (vector 10 )) (vector 11 arg-1))) ((11) (vector 0 (vector 9 arg-1 (vector 11 )) (vector 11 arg-1))) ((12) (vector 0 (vector 9 arg-1 (vector 12 )) (vector 11 arg-1))) ((13) (vector 0 (vector 9 arg-1 (vector 13 )) (vector 11 arg-1))) ((14) (vector 0 (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (vector 0 (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (vector 0 (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (vector 0 (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (vector 0 (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) (else (vector 0 (vector 9 arg-1 (vector 19 )) (vector 11 arg-1)))))))
-(define Local-Elab-TTImp-case--10147-7159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8)))
-(define Local-Elab-TTImp-case--9883-7071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 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 ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0))))))))))))))))
-(define Local-Elab-TTImp-case--9883-6880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 Local-Elab-TTImp-case--9850-6842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--9883-6880 arg-0 arg-1 arg-2 arg-3 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1))))))
-(define Local-Elab-TTImp-case--9737-6757 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3)))))))))
-(define Local-Elab-TTImp-case--9708-6720 (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 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-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) 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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0)))))))
-(define Local-Elab-TTImp-case--8737-6645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-6)))
-(define Local-Elab-TTImp-case--8737-6589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Local-Elab-TTImp-case--8737-6521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9)))))))))))))
-(define Local-Elab-TTImp-case--8737-6338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3)))))
-(define Local-Elab-TTImp-case--8737-6261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 ))))))
-(define Local-Elab-TTImp-case--8758-6120 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13)))))
-(define Local-Elab-TTImp-case--8757-6073 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define Local-Elab-TTImp-case--8756-5913 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--8737-5882-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--8737-5882-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15)))))))
-(define Local-Elab-TTImp-n--8737-5885-updateTyName (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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) e-2)))))))
-(define Local-Elab-TTImp-n--8737-5887-updateName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--8737-5885-updateTyName arg-0 arg-1 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)))))))) ((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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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))))) ((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 (Local-Elab-TTImp-n--8737-5886-updateDataName arg-0 arg-1 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-10))))))(else arg-14)))))
-(define Local-Elab-TTImp-n--8737-5886-updateDataName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5885-updateTyName arg-0 arg-1 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)) 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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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)))))))))
-(define Local-Elab-TTImp-n--8737-5888-setPublic (lambda (arg-0 arg-1 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) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13)))))
-(define Local-Elab-TTImp-n--8737-5884-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--8758-6120 arg-0 arg-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-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-14 arg-13))))
-(define Local-Elab-TTImp-n--8737-5882-dropLinear (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--8756-5913 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))))
-(define Local-Elab-TTImp-n--8737-5883-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 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 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-10 (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 (b+ 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 ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 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 ((Context-Core-addName arg-12 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 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5)))))))))))))))))))))))))))))
-(define Local-Elab-TTImp-getLocalTerm (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 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9708-6720 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3)))))))))
-(define Local-Elab-TTImp-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) (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 ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (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 ((Context-Core-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 ((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 ((nestdecls (Local-Elab-TTImp-case--8737-6338 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 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--8737-5883-applyEnv 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 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--8737-5882-dropLinear 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 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (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 ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (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 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5887-updateName 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 nestC-39 eta-0)) nestdecls)) 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 (unbox arg-3))) (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-3 (let ((sc8 e-12)) (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-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Local-Elab-TTImp-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 ((Context-Core-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 ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--9883-6880 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 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-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 Utils-Elab-TTImp-case--7006-11857 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3)))))))
-(define Utils-Elab-TTImp-case--7006-11796 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3)))))))
-(define Utils-Elab-TTImp-case--6946-11702 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1))))))))
-(define Utils-Elab-TTImp-case--6861-11666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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-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-5 arg-6 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 Utils-Elab-TTImp-case--6840-11618 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (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-22 e-2 e-3 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))))))))))))))))))))) eta-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 0 ))))))))))))
-(define Utils-Elab-TTImp-case--6824-11600 (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))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (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))) (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-24 e-23 e-2 e-3 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))) (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 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Utils-Elab-TTImp-case--6596-11485 (lambda (arg-0 arg-1 arg-2 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 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13))))))
-(define Utils-Elab-TTImp-case--6596-11419 (lambda (arg-0 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-6 arg-10)) (else arg-10)))))
-(define Utils-Elab-TTImp-case--6557-11389 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-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))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6596-11485 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-2))))))))))))))))
-(define Utils-Elab-TTImp-case--6380-11287 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (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 (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Utils-Elab-TTImp-case--6393-11233 (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) 0) (else (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7))))))
-(define Utils-Elab-TTImp-n--7213-11937-notLets (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7213-11937-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7213-11937-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8))))))))))))))
-(define Utils-Elab-TTImp-n--6380-11201-notErased (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) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6393-11233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6393-11233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-7)))))))))))))))
-(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--6946-11702 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-1))))
+(define Local-Elab-TTImp-case--10454-7428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8)))
+(define Local-Elab-TTImp-case--10189-7338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 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 ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0))))))))))))))))
+(define Local-Elab-TTImp-case--10189-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 Local-Elab-TTImp-case--10154-7108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 arg-0 arg-1 arg-2 arg-3 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1))))))
+(define Local-Elab-TTImp-case--10040-7020 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3)))))))))
+(define Local-Elab-TTImp-case--10011-6982 (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 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-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) 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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0)))))))
+(define Local-Elab-TTImp-case--9026-6908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-6)))
+(define Local-Elab-TTImp-case--9026-6852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Local-Elab-TTImp-case--9026-6784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9)))))))))))))
+(define Local-Elab-TTImp-case--9026-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 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3)))))
+(define Local-Elab-TTImp-case--9026-6518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 ))))))
+(define Local-Elab-TTImp-case--9047-6374 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13)))))
+(define Local-Elab-TTImp-case--9046-6326 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define Local-Elab-TTImp-case--9045-6162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15)))))))
+(define Local-Elab-TTImp-n--9026-6134-updateTyName (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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) e-2)))))))
+(define Local-Elab-TTImp-n--9026-6136-updateName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 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)))))))) ((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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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))))) ((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 (Local-Elab-TTImp-n--9026-6135-updateDataName arg-0 arg-1 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-10))))))(else arg-14)))))
+(define Local-Elab-TTImp-n--9026-6135-updateDataName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 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)) 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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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)))))))))
+(define Local-Elab-TTImp-n--9026-6137-setPublic (lambda (arg-0 arg-1 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) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13)))))
+(define Local-Elab-TTImp-n--9026-6133-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--9047-6374 arg-0 arg-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-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-14 arg-13))))
+(define Local-Elab-TTImp-n--9026-6131-dropLinear (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9045-6162 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))))
+(define Local-Elab-TTImp-n--9026-6132-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 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 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-10 (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 (b+ 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 ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 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 ((Context-Core-addName arg-12 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 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5)))))))))))))))))))))))))))))
+(define Local-Elab-TTImp-getLocalTerm (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 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--10011-6982 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3)))))))))
+(define Local-Elab-TTImp-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) (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 ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (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 ((Context-Core-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 ((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 ((nestdecls (Local-Elab-TTImp-case--9026-6595 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 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9026-6132-applyEnv 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 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9026-6131-dropLinear 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 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (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 ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (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 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6136-updateName 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 nestC-39 eta-0)) nestdecls)) 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 (unbox arg-3))) (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-3 (let ((sc8 e-12)) (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-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Local-Elab-TTImp-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 ((Context-Core-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 ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 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 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-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 Utils-Elab-TTImp-case--7240-12499 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3)))))))
+(define Utils-Elab-TTImp-case--7240-12438 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3)))))))
+(define Utils-Elab-TTImp-case--7180-12344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1))))))))
+(define Utils-Elab-TTImp-case--7095-12308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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-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-5 arg-6 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 Utils-Elab-TTImp-case--7073-12260 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (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-22 e-2 e-3 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))))))))))))))))))))) eta-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 0 ))))))))))))
+(define Utils-Elab-TTImp-case--7055-12241 (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))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (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))) (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-24 e-23 e-2 e-3 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))) (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 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Utils-Elab-TTImp-case--6824-12122 (lambda (arg-0 arg-1 arg-2 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 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13))))))
+(define Utils-Elab-TTImp-case--6824-12055 (lambda (arg-0 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-6 arg-10)) (else arg-10)))))
+(define Utils-Elab-TTImp-case--6783-12024 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-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))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6824-12122 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2))))))))))))))))
+(define Utils-Elab-TTImp-case--6604-11919 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (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 (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Utils-Elab-TTImp-case--6617-11864 (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) 0) (else (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7))))))
+(define Utils-Elab-TTImp-n--7447-12579-notLets (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8))))))))))))))
+(define Utils-Elab-TTImp-n--6604-11832-notErased (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) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7)))))))))))))))
+(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--7180-12344 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-1))))
 (define Utils-Elab-TTImp-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 ((Context-Core-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 (Utils-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-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))))))))))))))))))))) 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 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Utils-Elab-TTImp-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-2))) ((3) (let ((e-6 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-6)))(else (vector 1 ))))))
-(define Utils-Elab-TTImp-findErasedFrom (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 ((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))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))) 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 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) 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 ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (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 ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6596-11485 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))))))))
+(define Utils-Elab-TTImp-findErasedFrom (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 ((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))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))) 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 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) 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 ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (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 ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6824-12122 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))))))))
 (define Utils-Elab-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((Utils-Elab-TTImp-findErasedFrom e-5 0 e-6) ext-0)))))))))))))
-(define Utils-Elab-TTImp-detagSafe (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-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 (Utils-Elab-TTImp-n--6380-11201-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7213-11937-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6))))))))))))))))
-(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7006-11796 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7006-11857 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7))))))))))))))))
-(define Lazy-Elab-TTImp-case--8917-11656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))
-(define Lazy-Elab-TTImp-case--8871-11614 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))))))))))
-(define Lazy-Elab-TTImp-case--8643-11436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5))))))))))))))))))))
-(define Lazy-Elab-TTImp-case--8514-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-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 ((Normalise-Core-getTerm 'erased e-4) eta-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))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0)))))))))))
-(define Lazy-Elab-TTImp-case--8514-11294 (lambda (arg-0 arg-1 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Lazy-Elab-TTImp-case--8426-11221 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3))))))))
-(define Lazy-Elab-TTImp-n--8514-11274-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 Utils-Elab-TTImp-detagSafe (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-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 (Utils-Elab-TTImp-n--6604-11832-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7447-12579-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6))))))))))))))))
+(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12438 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12499 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7))))))))))))))))
+(define Lazy-Elab-TTImp-case--9207-12306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))
+(define Lazy-Elab-TTImp-case--9158-12263 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))))))))))
+(define Lazy-Elab-TTImp-case--8924-12075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5))))))))))))))))))))
+(define Lazy-Elab-TTImp-case--8791-12014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-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 ((Normalise-Core-getTerm 'erased e-4) eta-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))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0)))))))))))
+(define Lazy-Elab-TTImp-case--8791-11927 (lambda (arg-0 arg-1 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Lazy-Elab-TTImp-case--8702-11853 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3))))))))
+(define Lazy-Elab-TTImp-n--8791-11906-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 Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (gty) (lambda (eta-0) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 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 (Normalise-Core-glueBack 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 ((Check-Elab-TTImp-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-27 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 arg-9 e-9 e-2) (Normalise-Core-glueBack arg-0 e-5 arg-8 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Forcing a non-delayed type") ext-0)))))))))))))))))))))))))))))
 (define Lazy-Elab-TTImp-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 6 arg-9 arg-10 e-2) e-3))))))))))))
-(define Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (Normalise-Core-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 ((solvemode (Lazy-Elab-TTImp-case--8514-11294 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 (Unify-Core-solveConstraints arg-1 arg-3 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 (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8514-11274-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 (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased 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 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0)))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13262-11428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-10977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0)))))))))))
-(define ImplicitBind-Elab-TTImp-case--13262-10773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11261 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) 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 ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) 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 ((act-26 (let ((act-26 (unbox arg-10))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (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 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (Unify-Core-checkDots arg-10 arg-12 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 ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 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 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 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 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) 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 ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 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-9))) (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 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (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 ((act-35 ((Normalise-Core-getTerm 'erased e-3) 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))) (let ((act-36 (let ((act-36 (unbox arg-12))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (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))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) 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 ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12776-10525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12776-10412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--12710-10266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--12776-10412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 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 ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0)))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12636-10216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((ImplicitBind-Elab-TTImp-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) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--12776-10412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) 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 ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) 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 (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12273-9859-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 (Check-Elab-TTImp-bindingRig 'erased 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 ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12273-10152 (lambda (arg-0 arg-1 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 ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 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 ((e-7 (vector-ref sc3 1))) (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))) ((ImplicitBind-Elab-TTImp-case--12636-10216 arg-0 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 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-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 ImplicitBind-Elab-TTImp-case--12273-10087 (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1)))))
-(define ImplicitBind-Elab-TTImp-case--11453-9800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--11453-9753 (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-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--11475-9528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11453-9122-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13)))))))
-(define ImplicitBind-Elab-TTImp-case--11665-9349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 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 ((ImplicitBind-Elab-TTImp-n--11453-9120-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 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11453-9121-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 ImplicitBind-Elab-TTImp-case--11474-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (UnifyState-Core-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))) ((ImplicitBind-Elab-TTImp-case--11665-9349 arg-0 arg-1 arg-2 arg-3 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-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11453-9121-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)))))))(else (ImplicitBind-Elab-TTImp-n--11453-9121-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 ImplicitBind-Elab-TTImp-case--11474-9184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (ImplicitBind-Elab-TTImp-n--11453-9121-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 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (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 ((ImplicitBind-Elab-TTImp-n--11453-9120-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 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--11393-9066 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 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 (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--10820-8915 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3)))))))
-(define ImplicitBind-Elab-TTImp-case--10837-8838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3)))))))))
-(define ImplicitBind-Elab-TTImp-case--10897-8688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21)))))))
-(define ImplicitBind-Elab-TTImp-case--10837-8637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3)))))))))))
-(define ImplicitBind-Elab-TTImp-case--10635-8439 (lambda (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 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6)))))))))
-(define ImplicitBind-Elab-TTImp-case--10339-8187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9)))
-(define ImplicitBind-Elab-TTImp-case--10208-8115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
-(define ImplicitBind-Elab-TTImp-case--9805-7759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--9499-7675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-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 (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9480-7400-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 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 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-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 (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-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 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--9517-7567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (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 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9498-7421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) 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 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 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 (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 ((pC-39 (TT-Core-forgetDef 'erased 'erased 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 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-11 e-6)))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9169-7280 (lambda (arg-0 arg-1 arg-2 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) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-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 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9169-7171-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9169-7133 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3)))))))))
-(define ImplicitBind-Elab-TTImp-case--8963-6940 (lambda (arg-0 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) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 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 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--10820-8586-tidyName (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))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8)))))
-(define ImplicitBind-Elab-TTImp-n--10111-7992-swapP (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)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9121-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) 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))) ((ImplicitBind-Elab-TTImp-case--11474-9184 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 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased 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 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-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 (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11474-9299 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 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0)))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9120-normBindingTy (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 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) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11321-8998-nHoles (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-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 (vector 0 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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) 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))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--9480-7401-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-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))) ((ImplicitBind-Elab-TTImp-n--9480-7400-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) eta-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 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--9169-7171-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 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9169-7171-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 )))))))))
-(define ImplicitBind-Elab-TTImp-n--9480-7400-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) (ImplicitBind-Elab-TTImp-case--9498-7421 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 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13))))
-(define ImplicitBind-Elab-TTImp-n--10755-8530-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-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5)))))
-(define ImplicitBind-Elab-TTImp-n--12273-9858-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) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9122-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)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11475-9528 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 used (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 used)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--10820-8587-getBinds (lambda (arg-0 arg-1 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) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (ImplicitBind-Elab-TTImp-case--10837-8637 'erased 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-9 arg-11 (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) 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))) (ImplicitBind-Elab-TTImp-case--10837-8838 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9123-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11453-9122-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11453-9123-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))))))))
-(define ImplicitBind-Elab-TTImp-n--12273-9859-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) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12273-9858-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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-n--9169-7172-bindInner (lambda (arg-0 arg-1 arg-2 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) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9169-7172-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))
-(define ImplicitBind-Elab-TTImp-swapVars (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))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10339-8187 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10111-7992-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased)))))))
-(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10208-8115 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased))))))))))))))
-(define ImplicitBind-Elab-TTImp-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 ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--10635-8439 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (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 Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (Normalise-Core-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 ((solvemode (Lazy-Elab-TTImp-case--8791-11927 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 (Unify-Core-solveConstraints arg-1 arg-3 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 (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8791-11906-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 (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased 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 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0)))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13629-11643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0)))))))))))
+(define ImplicitBind-Elab-TTImp-case--13629-10958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) 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 ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) 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 ((act-26 (let ((act-26 (unbox arg-10))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (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 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (Unify-Core-checkDots arg-10 arg-12 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 ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 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 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 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 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) 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 ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 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-9))) (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 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (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 ((act-35 ((Normalise-Core-getTerm 'erased e-3) 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))) (let ((act-36 (let ((act-36 (unbox arg-12))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (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))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) 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 ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13134-10699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13134-10586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--13067-10435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 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 ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0)))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--12989-10384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((ImplicitBind-Elab-TTImp-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) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) 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 ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) 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 (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12626-10019-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 (Check-Elab-TTImp-bindingRig 'erased 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 ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--12626-10312 (lambda (arg-0 arg-1 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 ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 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 ((e-7 (vector-ref sc3 1))) (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))) ((ImplicitBind-Elab-TTImp-case--12989-10384 arg-0 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 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-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 ImplicitBind-Elab-TTImp-case--12626-10247 (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1)))))
+(define ImplicitBind-Elab-TTImp-case--11784-9962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--11784-9915 (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-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--11806-9676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13)))))))
+(define ImplicitBind-Elab-TTImp-case--12004-9494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 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 ((ImplicitBind-Elab-TTImp-n--11784-9256-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 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11784-9257-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 ImplicitBind-Elab-TTImp-case--11805-9443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (UnifyState-Core-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))) ((ImplicitBind-Elab-TTImp-case--12004-9494 arg-0 arg-1 arg-2 arg-3 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-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-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)))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-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 ImplicitBind-Elab-TTImp-case--11805-9324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (ImplicitBind-Elab-TTImp-n--11784-9257-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 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (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 ((ImplicitBind-Elab-TTImp-n--11784-9256-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 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--11721-9201 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 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 (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--11146-9045 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3)))))))
+(define ImplicitBind-Elab-TTImp-case--11163-8968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3)))))))))
+(define ImplicitBind-Elab-TTImp-case--11223-8818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21)))))))
+(define ImplicitBind-Elab-TTImp-case--11163-8767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3)))))))))))
+(define ImplicitBind-Elab-TTImp-case--10961-8569 (lambda (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 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6)))))))))
+(define ImplicitBind-Elab-TTImp-case--10665-8317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9)))
+(define ImplicitBind-Elab-TTImp-case--10534-8245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
+(define ImplicitBind-Elab-TTImp-case--10125-7885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--9812-7798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-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 (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9793-7515-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 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 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-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 (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-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 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--9830-7688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (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 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9811-7536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) 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 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 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 (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 ((pC-39 (TT-Core-forgetDef 'erased 'erased 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 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-11 e-6)))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9479-7395 (lambda (arg-0 arg-1 arg-2 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) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-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 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9479-7245 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3)))))))))
+(define ImplicitBind-Elab-TTImp-case--9266-7046 (lambda (arg-0 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) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 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 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11146-8716-tidyName (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))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8)))))
+(define ImplicitBind-Elab-TTImp-n--10437-8122-swapP (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)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9257-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) 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))) ((ImplicitBind-Elab-TTImp-case--11805-9324 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 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased 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 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-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 (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11805-9443 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 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0)))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9256-normBindingTy (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 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) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11648-9129-nHoles (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-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 (vector 0 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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) 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))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--9793-7516-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-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))) ((ImplicitBind-Elab-TTImp-n--9793-7515-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) eta-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 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--9479-7283-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 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 )))))))))
+(define ImplicitBind-Elab-TTImp-n--9793-7515-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) (ImplicitBind-Elab-TTImp-case--9811-7536 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 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13))))
+(define ImplicitBind-Elab-TTImp-n--11081-8660-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-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5)))))
+(define ImplicitBind-Elab-TTImp-n--12626-10018-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) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9258-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)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11806-9676 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 used (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 used)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11146-8717-getBinds (lambda (arg-0 arg-1 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) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (ImplicitBind-Elab-TTImp-case--11163-8767 'erased 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-9 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) 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))) (ImplicitBind-Elab-TTImp-case--11163-8968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9259-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))))))))
+(define ImplicitBind-Elab-TTImp-n--12626-10019-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) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12626-10018-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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-n--9479-7284-bindInner (lambda (arg-0 arg-1 arg-2 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) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))
+(define ImplicitBind-Elab-TTImp-swapVars (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))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10665-8317 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10437-8122-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased)))))))
+(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10534-8245 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased))))))))))))))
+(define ImplicitBind-Elab-TTImp-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 ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--10961-8569 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (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 ImplicitBind-Elab-TTImp-normaliseHolesScope (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-3) (vector 1 ) (TT-Core-binderType 'erased e-3)) arg-2) 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 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 arg-1 arg-2 arg-3 eta-0)))))))
-(define ImplicitBind-Elab-TTImp-mkPatternHole (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) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9169-7280 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9169-7172-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0))))))))))
-(define ImplicitBind-Elab-TTImp-mkOuterHole (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 (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--8963-6940 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 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 ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name 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 ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased 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 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 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))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7)))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-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)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2)))))
+(define ImplicitBind-Elab-TTImp-mkPatternHole (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) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9479-7395 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0))))))))))
+(define ImplicitBind-Elab-TTImp-mkOuterHole (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 (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9266-7046 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 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 ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name 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 ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased 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 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 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))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7)))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-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)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2)))))
 (define ImplicitBind-Elab-TTImp-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 (Context-Core-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 (Context-Core-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 (UnifyState-Core-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))
-(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (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 ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 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 ((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 ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) 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 ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11453-9123-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-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 resC-39)))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-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 ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12273-10152 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12273-10087 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
-(define ImplicitBind-Elab-TTImp-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 ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-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 ((Check-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11261 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 oldenv oldsub oldbif dontbind e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11159 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 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-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 (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (Unify-Core-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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((ImplicitBind-Elab-TTImp-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 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 (Check-Elab-TTImp-clearToBind 'erased arg-4 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 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub 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 (vector 0 ) 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles 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 (Normalise-Core-normaliseHoles 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))) ((ImplicitBind-Elab-TTImp-bindImplicits 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 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindUnsolved (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-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 ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9480-7401-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-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11321-8998-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) 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 ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7)))))))
-(define Hole-Elab-TTImp-case--8505-11470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-15 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))
-(define Hole-Elab-TTImp-case--8244-11424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 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 ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0)))))))))))
-(define Hole-Elab-TTImp-case--8283-11273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-12 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-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 (vector 0 e-3 arg-1))))))))))))))))))))
-(define Hole-Elab-TTImp-case--8244-11226 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-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 (Context-Core-addUserHole arg-11 arg-12 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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-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 (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0)))))))))))
-(define Hole-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) 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))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8) 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)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-5 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 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) 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 ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 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))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 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))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-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)) (case (vector-ref sc5 0) ((0) (let ((act-29 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) 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 ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-7 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 ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-29 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0))))))))))))))))))))))))))))))))))))))))
-(define Dot-Elab-TTImp-case--8992-7059 (lambda (arg-0 arg-1 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-7)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
-(define Dot-Elab-TTImp-case--8992-6993 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 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-1))))))))))))))))))))))))))
-(define Dot-Elab-TTImp-case--8954-6940 (lambda (arg-0 arg-1 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 (eta-0) (let ((act-24 ((Check-Elab-TTImp-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)) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-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 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0)))))))
-(define Dot-Elab-TTImp-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--8954-6940 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)))))))))
-(define Case-Elab-TTImp-case--13579-10693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0)))))))
-(define Case-Elab-TTImp-case--13579-10600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-26 (let ((act-26 (unbox arg-13))) (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 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) 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))) ((Case-Elab-TTImp-n--12797-9734-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--13579-10449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define Case-Elab-TTImp-case--12797-10396 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 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 ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13579-10449 arg-0 arg-1 arg-2 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-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) 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 ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) 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 ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--12797-9734-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--12797-10333 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--12797-9737-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-2))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define Case-Elab-TTImp-case--13158-10107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Case-Elab-TTImp-n--12797-9735-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-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--13087-10036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) 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 ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--12797-9736-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-20 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 ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--12797-9735-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-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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)))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--12822-9982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) 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-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Case-Elab-TTImp-n--12797-9736-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)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--12797-9735-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--12821-9858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 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 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-case--10478-9600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" 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))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
-(define Case-Elab-TTImp-case--11851-9501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-45)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Case-Elab-TTImp-case--11851-9389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9)))))))))))))
-(define Case-Elab-TTImp-case--11851-9233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define Case-Elab-TTImp-case--10478-8924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 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 ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty 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 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--11851-9233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) 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 ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) 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 ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10478-7810-updateClause arg-0 arg-1 arg-2 arg-3 arg-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-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-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 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (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 ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (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 ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) 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 ((act-36 (let ((act-36 (unbox arg-13))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--11563-8735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 2 )) (else (vector 0 ))))))
-(define Case-Elab-TTImp-case--10478-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11563-8735 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 ))))))
-(define Case-Elab-TTImp-case--10508-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10478-7809-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 lhsC-39))))))))
-(define Case-Elab-TTImp-case--10508-8506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10478-7809-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-22 lhsC-39) arg-18 arg-17 arg-16)))))))
-(define Case-Elab-TTImp-case--10508-8434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10478-7809-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 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16)))))))))
-(define Case-Elab-TTImp-case--10503-8227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18)))))
-(define Case-Elab-TTImp-case--10502-8153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3))))))))
-(define Case-Elab-TTImp-case--10501-8031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17))))))
-(define Case-Elab-TTImp-case--10501-7935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18))))))
-(define Case-Elab-TTImp-case--10375-7727 (lambda (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Case-Elab-TTImp-case--10223-7609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6))))
-(define Case-Elab-TTImp-case--10182-7565 (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 (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Case-Elab-TTImp-case--9765-7148 (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 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
-(define Case-Elab-TTImp-n--10478-7807-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) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10478-7807-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) (Case-Elab-TTImp-n--10478-7807-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))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10478-7807-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-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10478-7807-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-11)))(else (vector 0 ))))))
-(define Case-Elab-TTImp-n--10478-7810-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))) (Case-Elab-TTImp-case--10508-8434 arg-0 arg-1 arg-2 arg-3 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 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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))) (Case-Elab-TTImp-case--10508-8506 arg-0 arg-1 arg-2 arg-3 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-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10508-8574 arg-0 arg-1 arg-2 arg-3 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 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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))))))))))
-(define Case-Elab-TTImp-n--10478-7805-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10478-7805-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)))))(else arg-18)))))))))
-(define Case-Elab-TTImp-n--10182-7540-notLet (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) 1)(else 0)))))
-(define Case-Elab-TTImp-n--10478-7808-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-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10)))))))))))))
-(define Case-Elab-TTImp-n--10478-7806-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-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10478-7805-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 Case-Elab-TTImp-n--12797-9737-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Case-Elab-TTImp-case--12822-9982 arg-0 arg-1 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 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-n--12797-9736-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Case-Elab-TTImp-n--12797-9736-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) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (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))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-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-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-n--10347-7693-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10375-7727 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8))))
-(define Case-Elab-TTImp-n--10478-7803-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 ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10501-7935 arg-0 arg-1 arg-2 arg-3 arg-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 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-18)))))(else (Case-Elab-TTImp-case--10501-8031 arg-0 arg-1 arg-2 arg-3 arg-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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-17 arg-18)))))))
-(define Case-Elab-TTImp-n--10347-7692-getArg (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (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))) (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4)))))))))))))))
-(define Case-Elab-TTImp-n--12797-9734-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-14 arg-15) (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-n--12797-9735-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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--12797-9735-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 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((Case-Elab-TTImp-n--12797-9735-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 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15)))))))
-(define Case-Elab-TTImp-n--10478-7809-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 ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10478-7808-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 'erased fc eta-0)) arg-16) arg-17))))
-(define Case-Elab-TTImp-n--10478-7804-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10478-7803-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))) (Case-Elab-TTImp-case--10502-8153 arg-0 arg-1 arg-2 arg-3 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 n (Case-Elab-TTImp-n--10478-7804-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 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19))))))))))))))
+(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (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 ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 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 ((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 ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) 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 ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-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 resC-39)))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-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 ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12626-10312 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12626-10247 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
+(define ImplicitBind-Elab-TTImp-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 ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-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 ((Check-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 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 oldenv oldsub oldbif dontbind e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 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 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-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 (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (Unify-Core-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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((ImplicitBind-Elab-TTImp-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 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 (Check-Elab-TTImp-clearToBind 'erased arg-4 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 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub 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 (vector 0 ) 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles 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 (Normalise-Core-normaliseHoles 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))) ((ImplicitBind-Elab-TTImp-bindImplicits 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 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindUnsolved (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-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 ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9793-7516-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-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11648-9129-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) 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 ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7)))))))
+(define Hole-Elab-TTImp-case--8782-12124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-15 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))
+(define Hole-Elab-TTImp-case--8506-12077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 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 ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0)))))))))))
+(define Hole-Elab-TTImp-case--8548-11911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-12 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-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 (vector 0 e-3 arg-1))))))))))))))))))))
+(define Hole-Elab-TTImp-case--8506-11862 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-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 (Context-Core-addUserHole arg-11 arg-12 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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-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 (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0)))))))))))
+(define Hole-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) 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))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8) 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)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-5 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 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) 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 ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 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))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 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))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-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)) (case (vector-ref sc5 0) ((0) (let ((act-29 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) 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 ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-7 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 ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-29 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0))))))))))))))))))))))))))))))))))))))))
+(define Dot-Elab-TTImp-case--9303-7167 (lambda (arg-0 arg-1 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-7)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
+(define Dot-Elab-TTImp-case--9303-7097 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 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-1))))))))))))))))))))))))))
+(define Dot-Elab-TTImp-case--9265-7043 (lambda (arg-0 arg-1 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 (eta-0) (let ((act-24 ((Check-Elab-TTImp-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)) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-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 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0)))))))
+(define Dot-Elab-TTImp-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--9265-7043 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)))))))))
+(define Case-Elab-TTImp-case--13966-10855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0)))))))
+(define Case-Elab-TTImp-case--13966-10757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-26 (let ((act-26 (unbox arg-13))) (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 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) 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))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--13966-10598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define Case-Elab-TTImp-case--13174-10544 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 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 ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 arg-0 arg-1 arg-2 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-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) 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 ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) 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 ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--13174-10481 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13174-9874-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-2))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define Case-Elab-TTImp-case--13541-10252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Case-Elab-TTImp-n--13174-9872-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-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13468-10179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) 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 ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13174-9873-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-20 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 ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13174-9872-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-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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)))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13199-10123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) 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-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Case-Elab-TTImp-n--13174-9873-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)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13174-9872-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13198-9999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 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 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-case--10830-9736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" 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))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
+(define Case-Elab-TTImp-case--12214-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-45)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Case-Elab-TTImp-case--12214-9525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9)))))))))))))
+(define Case-Elab-TTImp-case--12214-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define Case-Elab-TTImp-case--10830-9046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 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 ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty 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 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) 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 ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) 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 ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10830-7916-updateClause arg-0 arg-1 arg-2 arg-3 arg-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-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-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 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (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 ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (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 ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) 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 ((act-36 (let ((act-36 (unbox arg-13))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--11922-8848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 2 )) (else (vector 0 ))))))
+(define Case-Elab-TTImp-case--10830-8793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11922-8848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 ))))))
+(define Case-Elab-TTImp-case--10860-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10830-7915-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 lhsC-39))))))))
+(define Case-Elab-TTImp-case--10860-8612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10830-7915-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-22 lhsC-39) arg-18 arg-17 arg-16)))))))
+(define Case-Elab-TTImp-case--10860-8540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10830-7915-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 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16)))))))))
+(define Case-Elab-TTImp-case--10855-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 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18)))))
+(define Case-Elab-TTImp-case--10854-8259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3))))))))
+(define Case-Elab-TTImp-case--10853-8137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17))))))
+(define Case-Elab-TTImp-case--10853-8041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18))))))
+(define Case-Elab-TTImp-case--10727-7833 (lambda (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Case-Elab-TTImp-case--10574-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6))))
+(define Case-Elab-TTImp-case--10533-7670 (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 (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Case-Elab-TTImp-case--10115-7251 (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 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
+(define Case-Elab-TTImp-n--10830-7913-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) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10830-7913-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) (Case-Elab-TTImp-n--10830-7913-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))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10830-7913-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-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10830-7913-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-11)))(else (vector 0 ))))))
+(define Case-Elab-TTImp-n--10830-7916-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))) (Case-Elab-TTImp-case--10860-8540 arg-0 arg-1 arg-2 arg-3 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 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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))) (Case-Elab-TTImp-case--10860-8612 arg-0 arg-1 arg-2 arg-3 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-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10860-8680 arg-0 arg-1 arg-2 arg-3 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 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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))))))))))
+(define Case-Elab-TTImp-n--10830-7911-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10830-7911-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)))))(else arg-18)))))))))
+(define Case-Elab-TTImp-n--10533-7645-notLet (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) 1)(else 0)))))
+(define Case-Elab-TTImp-n--10830-7914-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-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10)))))))))))))
+(define Case-Elab-TTImp-n--10830-7912-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-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10830-7911-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 Case-Elab-TTImp-n--13174-9874-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Case-Elab-TTImp-case--13199-10123 arg-0 arg-1 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 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-n--13174-9873-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Case-Elab-TTImp-n--13174-9873-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) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (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))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-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-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-n--10699-7799-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10727-7833 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8))))
+(define Case-Elab-TTImp-n--10830-7909-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 ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10853-8041 arg-0 arg-1 arg-2 arg-3 arg-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 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-18)))))(else (Case-Elab-TTImp-case--10853-8137 arg-0 arg-1 arg-2 arg-3 arg-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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-17 arg-18)))))))
+(define Case-Elab-TTImp-n--10699-7798-getArg (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (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))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4)))))))))))))))
+(define Case-Elab-TTImp-n--13174-9871-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-14 arg-15) (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-n--13174-9872-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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13174-9872-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 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((Case-Elab-TTImp-n--13174-9872-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 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15)))))))
+(define Case-Elab-TTImp-n--10830-7915-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 ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7914-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 'erased fc eta-0)) arg-16) arg-17))))
+(define Case-Elab-TTImp-n--10830-7910-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10830-7909-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))) (Case-Elab-TTImp-case--10854-8259 arg-0 arg-1 arg-2 arg-3 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 n (Case-Elab-TTImp-n--10830-7910-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 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19))))))))))))))
 (define Case-Elab-TTImp-updateMults (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Case-Elab-TTImp-updateMults 'erased e-3 (Case-Elab-TTImp-toRig0 'erased 'erased e-2 'erased arg-2)))))))))
-(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--9765-7148 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10)))))))))))
-(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10)))))))))))
+(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--10115-7251 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10)))))))))))
+(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10)))))))))))
 (define Case-Elab-TTImp-getNestData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 e-6 e-10))))))))))))
-(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--10182-7565 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10182-7540-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--10533-7670 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10533-7645-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Case-Elab-TTImp-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-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (vector 1 (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-2 arg-0 e-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3)) e-4))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4)))))))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4))))))))(else (let ((sc0 (Prelude-not (List-Data-isNil 'erased arg-3)))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 27 arg-0 arg-1 arg-2 (List-Data-reverse 'erased arg-3)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
 (define Case-Elab-TTImp-explicitPi (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 2 e-7 (vector 1 ) e-9) (Case-Elab-TTImp-explicitPi 'erased e-4)))))(else (vector 1 e-3 (Case-Elab-TTImp-explicitPi 'erased e-4)))))))) (else (vector 0 ))))))
-(define Case-Elab-TTImp-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) (Delayed-Elab-TTImp-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) ((31) ((Case-Elab-TTImp-n--12797-9737-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13579-10449 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 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega 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 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((Normalise-Core-nf 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))) ((Case-Elab-TTImp-n--12797-9734-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 'erased 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 (Case-Elab-TTImp-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 Case-Elab-TTImp-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 ((ImplicitBind-Elab-TTImp-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 (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 (UnifyState-Core-genCaseName arg-1 arg-3 (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 ((env (Case-Elab-TTImp-updateMults 'erased (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 ((Context-Core-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 ((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))) (Case-Elab-TTImp-case--11563-8735 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-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-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))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 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 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env 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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 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 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--11851-9233 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-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10478-7810-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 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) 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 ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (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 ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (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 ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) 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 (let ((act-45 (unbox arg-3))) (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 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10347-7693-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4)))))))))))))))
+(define Case-Elab-TTImp-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) (Delayed-Elab-TTImp-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) ((31) ((Case-Elab-TTImp-n--13174-9874-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 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 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega 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 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((Normalise-Core-nf 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))) ((Case-Elab-TTImp-n--13174-9871-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 'erased 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 (Case-Elab-TTImp-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 Case-Elab-TTImp-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 ((ImplicitBind-Elab-TTImp-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 (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 (UnifyState-Core-genCaseName arg-1 arg-3 (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 ((env (Case-Elab-TTImp-updateMults 'erased (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 ((Context-Core-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 ((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))) (Case-Elab-TTImp-case--11922-8848 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-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-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))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 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 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env 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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 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 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 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-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7916-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 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) 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 ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (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 ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (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 ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) 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 (let ((act-45 (unbox arg-3))) (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 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10699-7799-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4)))))))))))))))
 (define Case-Elab-TTImp-allow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (Case-Elab-TTImp-toRig1 'erased 'erased e-2 'erased arg-2)))))))
-(define Binders-Elab-TTImp-case--10057-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-2)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))))
-(define Binders-Elab-TTImp-case--10057-12835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (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))) (vector 0 e-0 e-1 e-2 e-3 0 e-5)))))))))
-(define Binders-Elab-TTImp-case--10170-12754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5)))))))))))))))
-(define Binders-Elab-TTImp-case--10057-12664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) 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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-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 (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9923-12561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (let ((e-5 (vector-ref sc1 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-5)))(else (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) 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 ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9923-12473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--9547-12250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 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 ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-31 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 ((act-26 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-30 arg-29 arg-26) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-30 arg-29 arg-26) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 arg-29 arg-20) arg-23)))) eta-0))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9462-12130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-6 arg-21))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-20)) 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 ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-23))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 eta-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 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 e-5 arg-20) arg-23)))) eta-0)))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9219-12068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) 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 ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) 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))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 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 ((act-30 ((Normalise-Core-getTerm 'erased e-14) 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 ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0)))))))
-(define Binders-Elab-TTImp-case--9219-11976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--9219-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--8963-11727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty 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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0)))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8916-11640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0)))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8852-11566 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--8666-11484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1)))))
-(define Binders-Elab-TTImp-case--8620-11397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) 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 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8521-11324 (lambda (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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
-(define Binders-Elab-TTImp-case--8426-11265 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-1)))
-(define Binders-Elab-TTImp-case--8432-11217 (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) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-6)))))))
-(define Binders-Elab-TTImp-n--8620-11372-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-n--8426-11194-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8432-11217 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
+(define Binders-Elab-TTImp-case--10519-13680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 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 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 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 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))))
+(define Binders-Elab-TTImp-case--10519-13639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (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))) (vector 0 e-0 e-1 e-2 e-3 0 e-5)))))))))
+(define Binders-Elab-TTImp-case--10635-13558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5)))))))))))))))
+(define Binders-Elab-TTImp-case--10519-13465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) 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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-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 (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--10349-13359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-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 err)))) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) 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 ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--10349-13270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9950-13002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 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 ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-33 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 ((act-26 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-32 arg-31 arg-28) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-32 arg-31 arg-28) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 arg-31 arg-22) arg-25)))) eta-0))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9858-12873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) 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 ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-25))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-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 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 e-5 arg-22) arg-25)))) eta-0)))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9512-12806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (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))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) 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 ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) 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))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 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 ((act-30 ((Normalise-Core-getTerm 'erased e-14) 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 ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0)))))))
+(define Binders-Elab-TTImp-case--9512-12700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Binders-Elab-TTImp-case--9512-12625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9512-12536 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9247-12370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty 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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0)))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9198-12280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0)))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9133-12203 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--8944-12120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1)))))
+(define Binders-Elab-TTImp-case--8897-12030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) 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 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0))))))))))))))))))))
+(define Binders-Elab-TTImp-case--8797-11956 (lambda (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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
+(define Binders-Elab-TTImp-case--8702-11896 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-1)))
+(define Binders-Elab-TTImp-case--8708-11848 (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) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6)))))))
+(define Binders-Elab-TTImp-n--10349-13225-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-15)))(else (vector 0 ))))))
+(define Binders-Elab-TTImp-n--8897-12004-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-n--8702-11825-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8708-11848 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
 (define Binders-Elab-TTImp-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf (vector 1 arg-0 arg-1) arg-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-5))))))))))))))))
-(define Binders-Elab-TTImp-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 ((Binders-Elab-TTImp-findLamRig 'erased 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 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 ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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 ((Binders-Elab-TTImp-findLamRig 'erased 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 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 ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0)))))))))))))))))))))))))))))))))))))))))))))
 (define Binders-Elab-TTImp-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (vector 1 arg-3)))(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 ((Normalise-Core-nf arg-0 e-5 arg-2 arg-3) 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 (Context-Core-clearDefs 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))) (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-2 e-6 eta-0))))))))))))))))))))))
 (define Binders-Elab-TTImp-findLamRig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) (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-9 (vector-ref sc3 1))) (vector 1 e-9)))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))))))))))
-(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-2 arg-1 'erased arg-2)))
+(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-2 arg-1 'erased arg-2)))
 (define Binders-Elab-TTImp-checkPiInfo (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) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2))))))))))))))))
-(define Binders-Elab-TTImp-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 ((pirig (Binders-Elab-TTImp-n--8620-11372-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc4 1))) ((Check-Elab-TTImp-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 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-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) (let ((rigc (Binders-Elab-TTImp-case--9923-12473 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 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-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((14) (let ((e-6 (vector-ref sc2 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (ZeroOneOmega-Algebra-rigMult arg-10 rigc))))))))))) e-6)))(else (lambda (eta-1) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))))))) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) 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 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-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 ((rig (Binders-Elab-TTImp-case--9219-11887 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 ((rig (Binders-Elab-TTImp-case--9219-11976 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 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 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-8 (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-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) 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 ((e-12 (vector-ref sc6 1))) (let ((exptynf (vector 3 e-1 e-8 (vector 2 e-11 e-10 e-9) e-4))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((act-28 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-14))) eta-0))) (let ((sc8 act-28)) (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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-10 e-11))) (let ((envC-39 (vector 1 (vector 0 rigb e-15 e-14) arg-8))) (let ((act-29 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-14) (Normalise-Core-gnf arg-0 arg-8 e-9)) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-17)) (let ((e-19 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((act-31 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-32 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-18 eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 ((Normalise-Core-getTerm 'erased e-18) eta-0))) (let ((sc14 act-33)) (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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-15 e-14) e-19) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-15 e-14) e-22)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-8 (vector 2 e-11 e-15 e-9) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 As-Elab-TTImp-case--9830-7630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define As-Elab-TTImp-case--9830-7540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21)))))))
-(define As-Elab-TTImp-case--9753-7388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-2 (vector 0 e-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 ((act-25 (let ((act-25 (unbox arg-13))) (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 ((act-26 (let ((act-26 (unbox arg-10))) (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 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) 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 ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21)))))))))))))))))))))))))))))))))))
-(define As-Elab-TTImp-case--9680-7332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-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 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (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 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (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 ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) 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 ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3)))))))))))))))))))))))))))))))))))))))))))
-(define As-Elab-TTImp-case--9608-7277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9243-6924-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-8 arg-7 arg-6 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-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-13))) (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-10))) (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-10 (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-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 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0)))))))
-(define As-Elab-TTImp-case--9243-7217 (lambda (arg-0 arg-1 arg-2 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-0 (vector-ref sc0 1))) (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 ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9608-7277 arg-0 arg-1 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 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0)))))))))))
-(define As-Elab-TTImp-case--9267-7152 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9267-7081 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9265-7009 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9265-6938 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-n--9243-6923-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9265-6938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))) (else (As-Elab-TTImp-case--9265-7009 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9)))))))
-(define As-Elab-TTImp-n--9243-6924-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) (As-Elab-TTImp-n--9243-6923-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-4)))
-(define As-Elab-TTImp-n--9243-6925-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9267-7081 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))) (else (As-Elab-TTImp-case--9267-7152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9)))))))
-(define As-Elab-TTImp-n--9243-6926-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) (As-Elab-TTImp-n--9243-6925-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-4)))
-(define As-Elab-TTImp-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) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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 ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9608-7277 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-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0))))))))))))
-(define App-Elab-TTImp-case--15805-13106 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0))))))))))))
-(define App-Elab-TTImp-case--16499-12920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1)))))
-(define App-Elab-TTImp-case--15805-12760 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 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 (Context-Core-fromIntegerName arg-14 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))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-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 ((act-27 (Context-Core-fromCharName arg-14 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--15805-12220-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) 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 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (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-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (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 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-15 eta-2))) (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 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (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 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-13 eta-1))) (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 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) 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 ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16499-12920 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) 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))) (App-Elab-TTImp-n--15805-12219-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--16290-12649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
-(define App-Elab-TTImp-case--15861-12592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (let ((sc1 arg-18)) (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 (lambda (eta-0) (vector 1 arg-18)))))))
-(define App-Elab-TTImp-case--15972-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-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))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15907-12314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--15972-12364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-4 (App-Elab-TTImp-n--15805-12218-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 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15860-12268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-case--15907-12314 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15434-11998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) 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 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) 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 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25)))))))))))))))))))
-(define App-Elab-TTImp-case--10007-11864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (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 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) 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 ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) 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 ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) 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 ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) 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 ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15434-11998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10007-11700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (App-Elab-TTImp-checkAppWith 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 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0)))))))
-(define App-Elab-TTImp-case--10007-11525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeDefImplicit 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-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-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-5 arg-10 e-6 arg-8 arg-7))))))))))
-(define App-Elab-TTImp-case--14879-11386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24))))))
-(define App-Elab-TTImp-case--10007-11242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
-(define App-Elab-TTImp-case--14555-11105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
-(define App-Elab-TTImp-case--10007-10962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeAutoImplicit 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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
-(define App-Elab-TTImp-case--14215-10825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
-(define App-Elab-TTImp-case--13883-10572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--10007-10505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 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 ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--10007-10352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--13389-10181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0)))))))
-(define App-Elab-TTImp-case--10007-10072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4)))))))))
-(define App-Elab-TTImp-case--11629-9863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 ((act-25 (let ((act-25 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))
-(define App-Elab-TTImp-case--12031-9513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) 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 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--12222-9194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) 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))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0))))))))))))
-(define App-Elab-TTImp-case--12031-9080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12222-9194 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36)))))))
-(define App-Elab-TTImp-case--11875-8925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 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-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) 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 ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37)))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--11732-8803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-21))) (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 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 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 ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 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))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (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-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (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 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--11629-8686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (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 ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 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))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (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 ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 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))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (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 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (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 ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10001-8605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 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 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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 ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (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 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) 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 ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (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 ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-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 (UnifyState-Core-removeHole arg-19 e-2 eta-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 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) 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 ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) 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))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-7 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))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) 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 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) 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 ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 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)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 (let ((act-29 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) 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-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10001-8498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 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))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0))))))))))))
-(define App-Elab-TTImp-case--11325-8380 (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) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
-(define App-Elab-TTImp-case--11289-8358 (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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11325-8380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
-(define App-Elab-TTImp-case--9999-8325 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11325-8380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--11137-8186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
-(define App-Elab-TTImp-case--10924-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--10875-8003 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-getNF 'erased 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 ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--9996-7967 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--10875-8003 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 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--9989-7765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define App-Elab-TTImp-case--9983-7536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (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 ((UnifyState-Core-genMVName arg-21 arg-19 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 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 ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9977-7290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 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 ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (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-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 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 (let ((act-27 (unbox arg-17))) (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 (Context-Core-getAutoImplicitLimit arg-20 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 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 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 ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9549-6759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 App-Elab-TTImp-case--9413-6686 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9549-6759 arg-0 arg-1 arg-2 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-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) 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 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv 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 ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm 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 ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) 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 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9413-6600 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3)))))))))
-(define App-Elab-TTImp-case--9323-6568 (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 ((App-Elab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (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-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9549-6759 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 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-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))) 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 ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv 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 ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9024-6257 (lambda (arg-0 arg-1 arg-2 arg-3 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) (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 App-Elab-TTImp-case--8829-6213 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) 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 ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--8772-5993-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 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-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9024-6257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))
-(define App-Elab-TTImp-case--8829-6136 (lambda (arg-0 arg-1 arg-2 arg-3 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-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 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13)))))))))))))))))
-(define App-Elab-TTImp-case--8772-6035 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--8772-5993-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 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 ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty 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 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-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-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (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))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 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 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--8772-5992-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-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 ((Context-Core-lookupCtxtName arg-1 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-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))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-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))) (let ((act-27 (App-Elab-TTImp-n--8772-5993-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 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9024-6257 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 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))
-(define App-Elab-TTImp-case--8660-5911 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0)))))))
-(define App-Elab-TTImp-case--8647-5881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((App-Elab-TTImp-case--8660-5911 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0)))))))
-(define App-Elab-TTImp-n--9323-6497-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)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (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))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (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 ((sc1 e-3)) (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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11))))))))
-(define App-Elab-TTImp-n--10007-11365-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14879-11386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))))))
-(define App-Elab-TTImp-n--10007-11084-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14555-11105 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
-(define App-Elab-TTImp-n--10007-10787-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14215-10825 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
-(define App-Elab-TTImp-n--15805-12220-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) 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))) ((App-Elab-TTImp-case--15861-12592 arg-0 arg-1 arg-2 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-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 arg-3 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-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19)))))))
-(define App-Elab-TTImp-n--8772-5993-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 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 ))))))))))))
-(define App-Elab-TTImp-n--10007-11664-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0)))))
-(define App-Elab-TTImp-n--15805-12219-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 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 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))) ((App-Elab-TTImp-case--15860-12268 arg-0 arg-1 arg-2 arg-3 arg-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 e-5 (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0))))))))
-(define App-Elab-TTImp-n--9983-7526-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 App-Elab-TTImp-n--9977-7280-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) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1)))))
-(define App-Elab-TTImp-n--15805-12217-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 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 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-3 arg-16))))))))))
-(define App-Elab-TTImp-n--8772-5992-isLet (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) 0)(else 1)))))
-(define App-Elab-TTImp-n--9999-8182-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
-(define App-Elab-TTImp-n--15805-12218-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0))))))))
+(define Binders-Elab-TTImp-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 ((pirig (Binders-Elab-TTImp-n--8897-12004-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc4 1))) ((Check-Elab-TTImp-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 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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) (let ((rigc (Binders-Elab-TTImp-case--10349-13270 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 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-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 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 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-linearErr 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 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) 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 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14))))))))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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 ((rig (Binders-Elab-TTImp-case--9512-12536 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 ((rig (Binders-Elab-TTImp-case--9512-12625 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--9512-12700 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 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((Binders-Elab-TTImp-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-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) 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))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-12 e-11 e-10) e-4))) (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-15))) eta-0))) (let ((sc9 act-29)) (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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 rigb e-16 e-15) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-15) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (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 ((sc12 e-18)) (let ((e-20 (vector-ref sc12 1))) (let ((e-19 (vector-ref sc12 2))) (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-19 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-19) eta-0))) (let ((sc15 act-34)) (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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-16 e-15) e-20) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-16 e-15) e-23)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-12 e-16 e-10) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 As-Elab-TTImp-case--10170-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 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)) (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define As-Elab-TTImp-case--10170-7661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21)))))))
+(define As-Elab-TTImp-case--10092-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-2 (vector 0 e-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 ((act-25 (let ((act-25 (unbox arg-13))) (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 ((act-26 (let ((act-26 (unbox arg-10))) (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 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) 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 ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21)))))))))))))))))))))))))))))))))))
+(define As-Elab-TTImp-case--10018-7441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-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 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (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 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (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 ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) 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 ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3)))))))))))))))))))))))))))))))))))))))))))
+(define As-Elab-TTImp-case--9943-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9578-7027-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-8 arg-7 arg-6 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-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-13))) (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-10))) (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-10 (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-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 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0)))))))
+(define As-Elab-TTImp-case--9578-7320 (lambda (arg-0 arg-1 arg-2 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-0 (vector-ref sc0 1))) (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 ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 arg-0 arg-1 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 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0)))))))))))
+(define As-Elab-TTImp-case--9602-7255 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9602-7184 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9600-7112 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9600-7041 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-n--9578-7026-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9600-7041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9600-7112 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9)))))))
+(define As-Elab-TTImp-n--9578-7027-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) (As-Elab-TTImp-n--9578-7026-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-4)))
+(define As-Elab-TTImp-n--9578-7028-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9602-7184 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9602-7255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9)))))))
+(define As-Elab-TTImp-n--9578-7029-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) (As-Elab-TTImp-n--9578-7028-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-4)))
+(define As-Elab-TTImp-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) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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 ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 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-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0))))))))))))
+(define App-Elab-TTImp-case--16233-13547 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0))))))))))))
+(define App-Elab-TTImp-case--16931-13356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1)))))
+(define App-Elab-TTImp-case--16233-13185 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 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 (Context-Core-fromIntegerName arg-14 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))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-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 ((act-27 (Context-Core-fromCharName arg-14 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) 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 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (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-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (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 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-15 eta-2))) (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 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (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 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-1))) (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 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) 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 ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16931-13356 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) 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))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--16721-13073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
+(define App-Elab-TTImp-case--16289-13016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (let ((sc1 arg-18)) (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 (lambda (eta-0) (vector 1 arg-18)))))))
+(define App-Elab-TTImp-case--16401-12786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-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))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--16336-12736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--16401-12786 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-4 (App-Elab-TTImp-n--16233-12639-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 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--16288-12690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-case--16336-12736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--15855-12418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) 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 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) 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 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25)))))))))))))))))))
+(define App-Elab-TTImp-case--10320-12275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (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 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) 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 ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) 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 ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) 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 ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) 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 ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15855-12418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10320-12100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (App-Elab-TTImp-checkAppWith 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 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0)))))))
+(define App-Elab-TTImp-case--10320-11924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeDefImplicit 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-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-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-5 arg-10 e-6 arg-8 arg-7))))))))))
+(define App-Elab-TTImp-case--15292-11785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24))))))
+(define App-Elab-TTImp-case--10320-11641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
+(define App-Elab-TTImp-case--14968-11504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
+(define App-Elab-TTImp-case--10320-11361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeAutoImplicit 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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
+(define App-Elab-TTImp-case--14628-11224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
+(define App-Elab-TTImp-case--14295-10971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--10320-10903 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 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 ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--10320-10748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--13796-10574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0)))))))
+(define App-Elab-TTImp-case--10320-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4)))))))))
+(define App-Elab-TTImp-case--12005-10249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 ((act-25 (let ((act-25 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))
+(define App-Elab-TTImp-case--12419-9890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) 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 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--12614-9570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) 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))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0))))))))))))
+(define App-Elab-TTImp-case--12419-9455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12614-9570 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36)))))))
+(define App-Elab-TTImp-case--12259-9292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 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-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) 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 ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37)))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--12112-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 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)) (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-21))) (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 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 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 ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 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))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (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-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (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 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--12005-9041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (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 ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 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))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (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 ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 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))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (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 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (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 ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10314-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 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 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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 ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (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 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) 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 ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (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 ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-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 (UnifyState-Core-removeHole arg-19 e-2 eta-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 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) 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 ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) 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))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 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))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) 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 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) 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 ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 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)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 (let ((act-29 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) 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-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10314-8846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 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))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0))))))))))))
+(define App-Elab-TTImp-case--11696-8721 (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) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
+(define App-Elab-TTImp-case--11658-8699 (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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
+(define App-Elab-TTImp-case--10312-8664 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--11506-8525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
+(define App-Elab-TTImp-case--11291-8384 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--11242-8340 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-getNF 'erased 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 ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--10309-8304 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11242-8340 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 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--10302-8085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define App-Elab-TTImp-case--10296-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (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 ((UnifyState-Core-genMVName arg-21 arg-19 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 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 ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10290-7581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 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 ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (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-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 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 (let ((act-27 (unbox arg-17))) (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 (Context-Core-getAutoImplicitLimit arg-20 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 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 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 ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9856-7034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 App-Elab-TTImp-case--9717-6961 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9856-7034 arg-0 arg-1 arg-2 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-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) 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 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv 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 ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm 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 ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) 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 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9717-6872 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3)))))))))
+(define App-Elab-TTImp-case--9627-6839 (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 ((App-Elab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (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-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9856-7034 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 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-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))) 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 ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv 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 ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9324-6524 (lambda (arg-0 arg-1 arg-2 arg-3 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) (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 App-Elab-TTImp-case--9121-6478 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) 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 ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 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-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))
+(define App-Elab-TTImp-case--9121-6397 (lambda (arg-0 arg-1 arg-2 arg-3 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-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 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13)))))))))))))))))
+(define App-Elab-TTImp-case--9063-6289 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 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 ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty 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 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-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-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (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))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 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 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--9063-6245-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-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 ((Context-Core-lookupCtxtName arg-1 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-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))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-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))) (let ((act-27 (App-Elab-TTImp-n--9063-6246-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 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 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 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))
+(define App-Elab-TTImp-case--8948-6164 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0)))))))
+(define App-Elab-TTImp-case--8934-6131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0)))))))
+(define App-Elab-TTImp-n--9627-6768-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)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (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))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (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 ((sc1 e-3)) (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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11))))))))
+(define App-Elab-TTImp-n--10320-11764-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--15292-11785 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))))))
+(define App-Elab-TTImp-n--10320-11483-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14968-11504 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
+(define App-Elab-TTImp-n--10320-11186-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14628-11224 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
+(define App-Elab-TTImp-n--16233-12641-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) 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))) ((App-Elab-TTImp-case--16289-13016 arg-0 arg-1 arg-2 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-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 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-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19)))))))
+(define App-Elab-TTImp-n--9063-6246-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 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 ))))))))))))
+(define App-Elab-TTImp-n--10320-12064-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0)))))
+(define App-Elab-TTImp-n--16233-12640-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 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 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))) ((App-Elab-TTImp-case--16288-12690 arg-0 arg-1 arg-2 arg-3 arg-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 e-5 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0))))))))
+(define App-Elab-TTImp-n--10296-7832-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 App-Elab-TTImp-n--10290-7571-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) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1)))))
+(define App-Elab-TTImp-n--16233-12638-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 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 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-3 arg-16))))))))))
+(define App-Elab-TTImp-n--9063-6245-isLet (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) 0)(else 1)))))
+(define App-Elab-TTImp-n--10312-8521-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
+(define App-Elab-TTImp-n--16233-12639-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0))))))))
 (define App-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
 (define App-Elab-TTImp-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))) (App-Elab-TTImp-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-6))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((27) (lambda (eta-0) (vector 1 0))) ((28) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define App-Elab-TTImp-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 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) 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) (vector 1 1)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 1))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((4) (lambda (eta-0) (vector 1 0))) ((5) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))
+(define App-Elab-TTImp-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 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) 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) (vector 1 1)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 1))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((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))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))
 (define App-Elab-TTImp-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (App-Elab-TTImp-needsDelayLHS arg-0 arg-3))(else (App-Elab-TTImp-needsDelayExpr arg-0 arg-2 arg-3))))))
 (define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((UnifyState-Core-genMVName arg-1 arg-3 arg-12) 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 (Context-Core-clearDefs e-5 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-9 arg-13 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 ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 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 ((fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-9)) 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 fntm e-10 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19) eta-0))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--9983-7536 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--9983-7526-metavarImp arg-0 e-2 e-3 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)))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--9977-7290 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--9977-7280-metavarImp arg-0 e-2 e-3 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)))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10296-7842 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--10296-7832-metavarImp arg-0 e-2 e-3 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)))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10290-7581 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--10290-7571-metavarImp arg-0 e-2 e-3 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)))))))))
 (define App-Elab-TTImp-isHole (lambda (arg-0 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 App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9323-6568 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-8 arg-5))))
-(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--8772-6035 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5))))
-(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--9999-8325 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5)))))))
+(define App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9627-6839 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-8 arg-5))))
+(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--9063-6289 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5))))
+(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--10312-8664 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5)))))))
 (define App-Elab-TTImp-concrete (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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))) ((App-Elab-TTImp-concrete 'erased arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((2) (lambda (eta-0) (vector 1 0))) ((3) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (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) (let ((act-24 (Context-Core-isVisible arg-0 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-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 ((act-26 (Context-Core-getNS arg-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 (Context-Core-getNestedNS arg-0 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))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8660-5911 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) 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 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-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))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) 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 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) 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))) ((App-Elab-TTImp-case--10001-8605 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 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0)))))))))))))))))))))))))))
-(define App-Elab-TTImp-checkPatTyValid (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))) (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-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--10875-8003 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (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 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-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-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-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-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-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-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (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 ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (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))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (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 ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) 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 ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (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 ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) 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 ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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 (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-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 ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) 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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-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-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-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) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (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))) (App-Elab-TTImp-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 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) 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-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName 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-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 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 (Context-Core-fromCharName arg-1 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))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--15805-12220-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) 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 ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (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 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) 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 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) 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 ((Context-Core-getFullName arg-1 e-8) 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) 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))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16499-12920 arg-0 e-8 e-7 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-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (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))) (App-Elab-TTImp-n--15805-12219-normalisePrims arg-0 e-8 e-7 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 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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))) ((App-Elab-TTImp-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 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--12668-6554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0)))))))
-(define Ambiguity-Elab-TTImp-case--12668-6444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15)))))
-(define Ambiguity-Elab-TTImp-case--12668-6352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Ambiguity-Elab-TTImp-case--12132-6273 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 arg-0 arg-1 arg-2 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 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((act-26 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 arg-0 arg-1 arg-2 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 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0)))))))))))))
-(define Ambiguity-Elab-TTImp-case--12132-6047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)))))))
-(define Ambiguity-Elab-TTImp-case--12132-5908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14)))))
-(define Ambiguity-Elab-TTImp-case--12132-5814 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Ambiguity-Elab-TTImp-case--12071-5766 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5)))))))))))
-(define Ambiguity-Elab-TTImp-case--11768-5611 (lambda (arg-0 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 (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Ambiguity-Elab-TTImp-case--11768-5511 (lambda (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) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8))))))))
-(define Ambiguity-Elab-TTImp-case--11697-5397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5)))))))
-(define Ambiguity-Elab-TTImp-case--11647-5331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--11379-5245 (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 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11379-5180 (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 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11379-5095 (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) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11302-5019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0)))))))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4901 (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 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--11038-4805 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4773 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10887-4677 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4645 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10693-4568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--10690-4515 (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) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--10298-4238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp 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 (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19)))))))))
-(define Ambiguity-Elab-TTImp-case--10106-4131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased 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 (vector 1 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (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 ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3048-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-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)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--10106-3990 (lambda (arg-0 arg-1 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 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5))))))))
-(define Ambiguity-Elab-TTImp-case--10020-3957 (lambda (arg-0 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))) (Ambiguity-Elab-TTImp-case--10106-3990 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 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--8969-3055-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)))))) (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 (Context-Core-fromIntegerName 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 ((act-26 (Context-Core-fromStringName arg-10 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 (Context-Core-fromCharName 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--8969-3051-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10106-4131 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 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--8969-3047-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0)))))))))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--8969-3880 (lambda (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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (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))) ((Ambiguity-Elab-TTImp-case--10020-3957 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0))))))))))))
-(define Ambiguity-Elab-TTImp-case--9822-3748 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))))
-(define Ambiguity-Elab-TTImp-case--9079-3711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15)))))
-(define Ambiguity-Elab-TTImp-case--9078-3603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
-(define Ambiguity-Elab-TTImp-case--9078-3514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
-(define Ambiguity-Elab-TTImp-case--9162-3167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 0))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--9111-3119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9162-3167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--9074-3083 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 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 (Context-Core-getNestedNS arg-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-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9162-3167 arg-0 arg-1 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 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--8969-2989 (lambda (arg-0 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 (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3052-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9078-3514 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 (Prelude-C-124C-124 (Name-Core-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))))(else (Ambiguity-Elab-TTImp-case--9078-3603 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9078-3603 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17))))))))
-(define Ambiguity-Elab-TTImp-n--8969-3048-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9074-3083 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)))))))))))
-(define Ambiguity-Elab-TTImp-n--8969-3049-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 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))
-(define Ambiguity-Elab-TTImp-n--11631-5319-notOverloadableFn (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3055-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 Ambiguity-Elab-TTImp-n--8969-3053-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 ((tm (Ambiguity-Elab-TTImp-n--8969-3052-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--8969-3050-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)))) (Ambiguity-Elab-TTImp-case--9079-3711 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 tm (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3054-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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--8969-3053-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 Ambiguity-Elab-TTImp-n--8969-3047-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-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3051-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)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--8969-3051-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 Ambiguity-Elab-TTImp-n--8969-3050-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)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--8969-3050-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))) (Ambiguity-Elab-TTImp-n--8969-3050-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-14 e-11) e-3))))))))))))))))))
+(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (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) (let ((act-24 (Context-Core-isVisible arg-0 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-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 ((act-26 (Context-Core-getNS arg-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 (Context-Core-getNestedNS arg-0 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))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) 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 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-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))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) 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 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) 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))) ((App-Elab-TTImp-case--10314-8954 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 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0)))))))))))))))))))))))))))
+(define App-Elab-TTImp-checkPatTyValid (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))) (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-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--11242-8340 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (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 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-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-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-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-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-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-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (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 ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (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))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (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 ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) 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 ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (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 ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) 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 ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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 (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-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 ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) 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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-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-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-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) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (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))) (App-Elab-TTImp-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 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) 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-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName 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-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 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 (Context-Core-fromCharName arg-1 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))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) 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 ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (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 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) 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 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) 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 ((Context-Core-getFullName arg-1 e-8) 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) 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))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16931-13356 arg-0 e-8 e-7 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-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (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))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 e-8 e-7 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 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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))) ((App-Elab-TTImp-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 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--13035-6653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0)))))))
+(define Ambiguity-Elab-TTImp-case--13035-6541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15)))))
+(define Ambiguity-Elab-TTImp-case--13035-6446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Ambiguity-Elab-TTImp-case--12482-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 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 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((act-26 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 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 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0)))))))))))))
+(define Ambiguity-Elab-TTImp-case--12482-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)))))))
+(define Ambiguity-Elab-TTImp-case--12482-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14)))))
+(define Ambiguity-Elab-TTImp-case--12482-5887 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Ambiguity-Elab-TTImp-case--12420-5836 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5)))))))))))
+(define Ambiguity-Elab-TTImp-case--12104-5678 (lambda (arg-0 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 (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Ambiguity-Elab-TTImp-case--12104-5576 (lambda (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) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8))))))))
+(define Ambiguity-Elab-TTImp-case--12031-5449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5)))))))
+(define Ambiguity-Elab-TTImp-case--11980-5380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--11709-5293 (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 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11709-5227 (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 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11709-5141 (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) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11630-5063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0)))))))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4944 (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 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11365-4848 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4815 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11213-4719 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4686 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11014-4608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--11011-4554 (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) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--10611-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) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp 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 (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19)))))))))
+(define Ambiguity-Elab-TTImp-case--10414-4159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased 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 (vector 1 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (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 ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3065-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-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)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--10414-4012 (lambda (arg-0 arg-1 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 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5))))))))
+(define Ambiguity-Elab-TTImp-case--10326-3979 (lambda (arg-0 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))) (Ambiguity-Elab-TTImp-case--10414-4012 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 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9271-3072-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)))))) (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 (Context-Core-fromIntegerName 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 ((act-26 (Context-Core-fromStringName arg-10 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 (Context-Core-fromCharName 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9271-3068-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10414-4159 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 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--9271-3064-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0)))))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--9271-3900 (lambda (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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (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))) ((Ambiguity-Elab-TTImp-case--10326-3979 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0))))))))))))
+(define Ambiguity-Elab-TTImp-case--10128-3768 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))))
+(define Ambiguity-Elab-TTImp-case--9382-3731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15)))))
+(define Ambiguity-Elab-TTImp-case--9381-3623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
+(define Ambiguity-Elab-TTImp-case--9381-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
+(define Ambiguity-Elab-TTImp-case--9466-3187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 0))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--9414-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--9377-3100 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 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 (Context-Core-getNestedNS arg-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-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 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 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--9271-3006 (lambda (arg-0 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 (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3069-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9381-3534 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 (Prelude-C-124C-124 (Name-Core-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))))(else (Ambiguity-Elab-TTImp-case--9381-3623 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9381-3623 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17))))))))
+(define Ambiguity-Elab-TTImp-n--9271-3065-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9377-3100 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)))))))))))
+(define Ambiguity-Elab-TTImp-n--9271-3066-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 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))
+(define Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3072-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 Ambiguity-Elab-TTImp-n--9271-3070-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 ((tm (Ambiguity-Elab-TTImp-n--9271-3069-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--9271-3067-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)))) (Ambiguity-Elab-TTImp-case--9382-3731 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 tm (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3071-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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--9271-3070-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 Ambiguity-Elab-TTImp-n--9271-3064-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-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3068-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)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9271-3068-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 Ambiguity-Elab-TTImp-n--9271-3067-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)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--9271-3067-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))) (Ambiguity-Elab-TTImp-n--9271-3067-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-14 e-11) e-3))))))))))))))))))
 (define Ambiguity-Elab-TTImp-stripDelay (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-stripDelay 'erased e-3)))(else arg-1)))))
-(define Ambiguity-Elab-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-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))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--11768-5511 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) 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))) ((Ambiguity-Elab-TTImp-case--11768-5611 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0)))))))))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11631-5319-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3))))))))))
+(define Ambiguity-Elab-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-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))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--12104-5576 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) 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))) ((Ambiguity-Elab-TTImp-case--12104-5678 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0)))))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3))))))))))
 (define Ambiguity-Elab-TTImp-mightMatchD (lambda (arg-0 arg-1 arg-2 arg-3) (Ambiguity-Elab-TTImp-mightMatch arg-0 arg-1 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-2) (Ambiguity-Elab-TTImp-stripDelay 'erased arg-3))))
 (define Ambiguity-Elab-TTImp-mightMatchArgs (lambda (arg-0 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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-mightMatchArg arg-0 arg-1 e-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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-1 e-3 e-7) eta-0)) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Ambiguity-Elab-TTImp-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-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 ((act-25 ((Normalise-Core-evalClosure (vector 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 ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (vector 1 1))(else (vector 1 0)))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4645 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4773 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--10696-4901 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4645 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4773 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--10696-4901 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))
+(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))
 (define Ambiguity-Elab-TTImp-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))) (Ambiguity-Elab-TTImp-getName e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-6)))(else (vector 0 ))))))
 (define Ambiguity-Elab-TTImp-filterCore (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 ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) 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 ((act-25 ((Ambiguity-Elab-TTImp-filterCore 'erased 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))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 1 e-2 e-6))) (else (vector 1 e-6))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-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-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (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))) ((Ambiguity-Elab-TTImp-case--8969-2989 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 e-11) (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))) (Ambiguity-Elab-TTImp-case--8969-3880 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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))) (Ambiguity-Elab-TTImp-case--8969-3880 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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 Ambiguity-Elab-TTImp-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-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (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))) ((Ambiguity-Elab-TTImp-case--9271-3006 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-11) (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))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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 Ambiguity-Elab-TTImp-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 1 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-6) ext-0)))))))))))))))))
 (define Ambiguity-Elab-TTImp-couldBeFn (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))) (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBeName arg-0 arg-1 arg-2 e-1 eta-0)))) ((12) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
 (define Ambiguity-Elab-TTImp-couldBe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) 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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((10) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-3)))))))))
 (define Ambiguity-Elab-TTImp-checkAmbigDepth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 ((ambs (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 6))) e-6)))) (let ((sc1 (Prelude-C-62_Ord__Nat (List-Data-length 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 20 arg-3 (vector 9 (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 2))) e-2))) ambs) ext-0))))))) (else (vector 1 (vector 0 )))))))))))))
-(define Ambiguity-Elab-TTImp-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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) 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 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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 (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12132-5814 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-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) 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 ((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 ((Normalise-Core-getTerm 'erased e-6) 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))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (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 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) 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 ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) 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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 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 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 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 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 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))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) 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 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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 (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12482-5887 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-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) 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 ((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 ((Normalise-Core-getTerm 'erased e-6) 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))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (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 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) 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 ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) 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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 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 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 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 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 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))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0))))))))))))))))))))))))))
 (define Ambiguity-Elab-TTImp-addAmbig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (lambda (rec-0) (let ((sc2 rec-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-8 e-2 e-3 e-7 (vector 1 e-1 e-6)))))))))))))))))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (rec-0) (let ((sc1 rec-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-6 (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 e-0 e-6 e-2 e-3 e-4 (vector 1 e-1 e-5))))))))))))))))))))
-(define LinearCheck-Core-case--14865-13221 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 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 e-2)))))))))))))))))
-(define LinearCheck-Core-case--14573-13084 (lambda (arg-0 arg-1 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
-(define LinearCheck-Core-case--14573-12992 (lambda (arg-0 arg-1 arg-2 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-12)))))
-(define LinearCheck-Core-case--14174-12777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7)))))))))))))
-(define LinearCheck-Core-case--14174-12656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 10 arg-12 1)) (else arg-19)))))
-(define LinearCheck-Core-case--8053-12587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14174-12656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11)))))))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--13748-12260 (lambda (arg-0 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (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 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) 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 ((tyC-39 (LinearCheck-Core-n--8045-11926-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 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 ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 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 ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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)) eta-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 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define LinearCheck-Core-case--13711-12205 (lambda (arg-0 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 (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--13748-12260 'erased 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-9)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
-(define LinearCheck-Core-case--13676-12177 (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))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8045-11927-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) 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))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--13711-12205 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--8045-12149 (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 (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (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-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8045-11927-rigSafe 'erased 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 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 ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--13711-12205 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--13431-11945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
-(define LinearCheck-Core-case--8045-11881 (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 (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--11793-11565 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args 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 ((act-26 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-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 ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-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 e-9)))))))))))))))))))))))))))
-(define LinearCheck-Core-case--11792-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
-(define LinearCheck-Core-case--11792-11265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-16)))))
-(define LinearCheck-Core-case--11791-11125 (lambda (arg-0 arg-1 arg-2 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) 0) (else (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
-(define LinearCheck-Core-case--12140-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 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) (vector 1 )) (else (vector 2 ))))))
-(define LinearCheck-Core-case--12043-10747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 4 )) (else (LinearCheck-Core-case--12140-10866 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0))))))))
-(define LinearCheck-Core-case--11982-10670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-14)) (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) (let ((act-24 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12043-10747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--11789-10627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-14)) (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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12043-10747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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)))))) (else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--11843-10523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19))))))
-(define LinearCheck-Core-case--8028-10251 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--11415-10184 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
-(define LinearCheck-Core-case--8028-10143 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--8028-10084 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--8028-10024 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--11142-9957 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
-(define LinearCheck-Core-case--8028-9916 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--8028-9857 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--10847-9703 (lambda (arg-0 arg-1 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (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))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))
-(define LinearCheck-Core-case--8024-9667 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))))))))))))))
-(define LinearCheck-Core-case--10709-9597 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7)))))))))))))))))
-(define LinearCheck-Core-case--8024-9554 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (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 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8024-9497 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7)))))))))))
-(define LinearCheck-Core-case--10508-9435 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7))))))))))))
-(define LinearCheck-Core-case--8024-9392 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--9917-9219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0)))))))
-(define LinearCheck-Core-case--9985-8998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 10 arg-3 1)) (else arg-22)))))
-(define LinearCheck-Core-case--9917-8930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) 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 ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-18))))))) (let ((act-25 (Context-Core-getSession 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 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 ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 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))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 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 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--9863-8877 (lambda (arg-0 arg-1 arg-2 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 ((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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) 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 ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (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 ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 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 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (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-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (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 ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))
-(define LinearCheck-Core-case--8024-8834 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 ((Normalise-Core-getNF 'erased arg-8 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))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (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))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 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 ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--9696-8727 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))))
-(define LinearCheck-Core-case--9261-8694 (lambda (arg-0 arg-1 arg-2 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) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5)))))
-(define LinearCheck-Core-case--9320-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8024-7977-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 LinearCheck-Core-case--9320-8444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-20)))))
-(define LinearCheck-Core-case--9261-8371 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9320-8573 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased arg-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))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9320-8444 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 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 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (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))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0)))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8024-8324 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9261-8694 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) 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 ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9320-8573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (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))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9320-8444 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (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))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0))))))))))))))))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8875-8223 (lambda (arg-0 arg-1 arg-2 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 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12)))))))
-(define LinearCheck-Core-case--8874-8112 (lambda (arg-0 arg-1 arg-2 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 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8024-7977-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8024-7977-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 LinearCheck-Core-case--8879-8041 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define LinearCheck-Core-case--8873-7983 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--8879-8041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))))))
-(define LinearCheck-Core-case--8327-7855 (lambda (arg-0 arg-1 arg-2 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 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))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-7 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 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 "")))))))
-(define LinearCheck-Core-case--8561-7771 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((7) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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 LinearCheck-Core-case--8327-7709 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8561-7771 arg-0 arg-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 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0)))))))))))))
-(define LinearCheck-Core-case--8327-7609 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8327-7547 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8024-7510 (lambda (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-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8327-7855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) 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))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String 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))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8561-7771 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define LinearCheck-Core-case--8072-7331 (lambda (arg-0 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-0 (vector 0 ))) (else (vector 0 ))))))
-(define LinearCheck-Core-case--6840-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3)))))))))))))
-(define LinearCheck-Core-case--7695-6880 (lambda (arg-0 arg-1 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 ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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 (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
-(define LinearCheck-Core-case--6840-6853 (lambda (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7695-6880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
-(define LinearCheck-Core-case--6918-6347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5)))))))))))))
-(define LinearCheck-Core-case--6918-6211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define LinearCheck-Core-case--6829-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-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))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--6918-6347 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
-(define LinearCheck-Core-case--6769-6059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
-(define LinearCheck-Core-case--6719-6009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1))))))
-(define LinearCheck-Core-n--8024-7217-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8072-7331 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))))
-(define LinearCheck-Core-n--8045-11926-updateUsage (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((scC-39 (LinearCheck-Core-n--8045-11926-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9)))))
-(define LinearCheck-Core-n--8024-7448-unusedHoleArgs (lambda (arg-0 arg-1 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) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (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 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))
-(define LinearCheck-Core-n--8049-12452-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)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8049-12452-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 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8049-12452-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))
-(define LinearCheck-Core-n--6589-5887-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3)))))))))))))
-(define LinearCheck-Core-n--8045-11927-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 ))))))))))))
-(define LinearCheck-Core-n--8024-7216-rigSafe (lambda (arg-0 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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8024-7215-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8024-7976-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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--8879-8041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))))))
-(define LinearCheck-Core-n--8040-10459-isLocArg (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (LinearCheck-Core-case--11791-11125 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
-(define LinearCheck-Core-n--8024-7977-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--8874-8112 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
-(define LinearCheck-Core-n--8040-10461-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" 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 (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 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 ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case 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 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) 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 ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-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 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-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 LinearCheck-Core-n--8024-7215-getName (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8024-7215-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased)))))))))
-(define LinearCheck-Core-n--8040-10457-getCaseUsage (lambda (arg-0 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-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) 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 ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--11789-10627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--11789-10627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define LinearCheck-Core-n--8024-7978-eraseLinear (lambda (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--8875-8223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))))
-(define LinearCheck-Core-n--11789-10505-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (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 (LinearCheck-Core-case--11843-10523 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))))))))))
-(define LinearCheck-Core-n--8040-10463-combineUsages (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10462-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8040-10463-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 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))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))))
-(define LinearCheck-Core-n--8040-10462-combineUsage (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-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))
-(define LinearCheck-Core-n--8040-10464-combine (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10464-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((LinearCheck-Core-n--8040-10463-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
-(define LinearCheck-Core-n--14573-12943-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8040-10458-checkUsageOK (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 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8024-7979-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8040-10460-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--11792-11378 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 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--11792-11265 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 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8040-10458-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))))))))
+(define LinearCheck-Core-case--15281-13669 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 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 e-2)))))))))))))))))
+(define LinearCheck-Core-case--14987-13527 (lambda (arg-0 arg-1 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
+(define LinearCheck-Core-case--14987-13434 (lambda (arg-0 arg-1 arg-2 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-12)))))
+(define LinearCheck-Core-case--14583-13213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7)))))))))))))
+(define LinearCheck-Core-case--14583-13090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 10 arg-12 1)) (else arg-19)))))
+(define LinearCheck-Core-case--8306-13019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14583-13090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11)))))))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--14149-12683 (lambda (arg-0 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (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 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) 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 ((tyC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 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 ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 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 ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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)) eta-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 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define LinearCheck-Core-case--14111-12628 (lambda (arg-0 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 (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--14149-12683 'erased 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-9)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
+(define LinearCheck-Core-case--14075-12599 (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))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8298-12346-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) 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))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--8298-12570 (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 (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (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-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8298-12346-rigSafe 'erased 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 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 ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--13828-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
+(define LinearCheck-Core-case--8298-12300 (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 (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--12168-11968 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args 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 ((act-26 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-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 ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-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 e-9)))))))))))))))))))))))))))
+(define LinearCheck-Core-case--12167-11774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
+(define LinearCheck-Core-case--12167-11660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-16)))))
+(define LinearCheck-Core-case--12166-11519 (lambda (arg-0 arg-1 arg-2 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) 0) (else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
+(define LinearCheck-Core-case--12518-11259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 )) (else (vector 2 ))))))
+(define LinearCheck-Core-case--12419-11140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 4 )) (else (LinearCheck-Core-case--12518-11259 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0))))))))
+(define LinearCheck-Core-case--12358-11061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-14)) (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) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--12164-11018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-14)) (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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--12218-10914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19))))))
+(define LinearCheck-Core-case--8281-10639 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11786-10571 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
+(define LinearCheck-Core-case--8281-10529 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--8281-10469 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--8281-10408 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11509-10340 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
+(define LinearCheck-Core-case--8281-10298 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--8281-10238 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11211-10082 (lambda (arg-0 arg-1 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (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))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))
+(define LinearCheck-Core-case--8277-10045 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))))))))))))))
+(define LinearCheck-Core-case--11071-9974 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7)))))))))))))))))
+(define LinearCheck-Core-case--8277-9930 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (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 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-9872 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7)))))))))))
+(define LinearCheck-Core-case--10867-9809 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7))))))))))))
+(define LinearCheck-Core-case--8277-9765 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--10263-9589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0)))))))
+(define LinearCheck-Core-case--10332-9359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 10 arg-3 1)) (else arg-22)))))
+(define LinearCheck-Core-case--10263-9290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) 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 ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-18))))))) (let ((act-25 (Context-Core-getSession 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 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 ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 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))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 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 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--10207-9236 (lambda (arg-0 arg-1 arg-2 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 ((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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) 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 ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (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 ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 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 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (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-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (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 ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))
+(define LinearCheck-Core-case--8277-9190 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 ((Normalise-Core-getNF 'erased arg-8 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))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (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))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 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 ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-9116 (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) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0)))))))
+(define LinearCheck-Core-case--9968-9022 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))))
+(define LinearCheck-Core-case--9528-8989 (lambda (arg-0 arg-1 arg-2 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) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5)))))
+(define LinearCheck-Core-case--9588-8868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8277-8260-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 LinearCheck-Core-case--9588-8737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-20)))))
+(define LinearCheck-Core-case--9528-8662 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-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))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 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 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (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))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0)))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-8614 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) 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 ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (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))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (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))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0))))))))))))))))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--9135-8506 (lambda (arg-0 arg-1 arg-2 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 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12)))))))
+(define LinearCheck-Core-case--9134-8395 (lambda (arg-0 arg-1 arg-2 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 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-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 LinearCheck-Core-case--9139-8324 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define LinearCheck-Core-case--9133-8266 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))))))
+(define LinearCheck-Core-case--8583-8137 (lambda (arg-0 arg-1 arg-2 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 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))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 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 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define LinearCheck-Core-case--8819-8052 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((7) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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 LinearCheck-Core-case--8583-7990 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-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 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0)))))))))))))
+(define LinearCheck-Core-case--8583-7888 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8583-7826 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8277-7789 (lambda (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-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7888 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) 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))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-show_Show__String 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))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define LinearCheck-Core-case--8325-7605 (lambda (arg-0 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-0 (vector 0 ))) (else (vector 0 ))))))
+(define LinearCheck-Core-case--7073-7347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3)))))))))))))
+(define LinearCheck-Core-case--7942-7148 (lambda (arg-0 arg-1 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 ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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 (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
+(define LinearCheck-Core-case--7073-7121 (lambda (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7942-7148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
+(define LinearCheck-Core-case--7153-6602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5)))))))))))))
+(define LinearCheck-Core-case--7153-6466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define LinearCheck-Core-case--7062-6415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-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))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--7153-6602 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
+(define LinearCheck-Core-case--7002-6311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
+(define LinearCheck-Core-case--6952-6261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1))))))
+(define LinearCheck-Core-n--8277-7491-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8325-7605 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))))
+(define LinearCheck-Core-n--8298-12345-updateUsage (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((scC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9)))))
+(define LinearCheck-Core-n--8277-7724-unusedHoleArgs (lambda (arg-0 arg-1 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) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (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 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))
+(define LinearCheck-Core-n--8302-12882-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)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8302-12882-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 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8302-12882-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))
+(define LinearCheck-Core-n--6820-6139-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3)))))))))))))
+(define LinearCheck-Core-n--8298-12346-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 ))))))))))))
+(define LinearCheck-Core-n--8277-7490-rigSafe (lambda (arg-0 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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8277-8259-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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))))))
+(define LinearCheck-Core-n--8293-10849-isLocArg (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (LinearCheck-Core-case--12166-11519 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
+(define LinearCheck-Core-n--8277-8260-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--9134-8395 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
+(define LinearCheck-Core-n--8293-10851-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" 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 (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 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 ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case 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 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) 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 ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-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 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-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 LinearCheck-Core-n--8277-7489-getName (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased)))))))))
+(define LinearCheck-Core-n--8293-10847-getCaseUsage (lambda (arg-0 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-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) 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 ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define LinearCheck-Core-n--8277-8261-eraseLinear (lambda (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--9135-8506 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))))
+(define LinearCheck-Core-n--12164-10895-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (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 (LinearCheck-Core-case--12218-10914 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))))))))))
+(define LinearCheck-Core-n--8293-10853-combineUsages (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10852-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 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))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))))
+(define LinearCheck-Core-n--8293-10852-combineUsage (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-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))
+(define LinearCheck-Core-n--8293-10854-combine (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10854-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
+(define LinearCheck-Core-n--14987-13384-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8293-10848-checkUsageOK (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 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8277-8262-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8293-10850-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--12167-11774 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 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--12167-11660 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 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8293-10848-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))))))))
 (define LinearCheck-Core-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 LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6589-5887-showAll 'erased arg-1 'erased arg-1) "]"))))
+(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6820-6139-showAll 'erased arg-1 'erased arg-1) "]"))))
 (define LinearCheck-Core-showPrec_Show__ArgUsage (lambda (arg-0 arg-1) (LinearCheck-Core-show_Show__ArgUsage arg-1)))
 (define LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased arg-2)))
 (define LinearCheck-Core-__Impl_Show_ArgUsage (lambda () (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x))))))
 (define LinearCheck-Core-__Impl_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 'erased d x))))))
 (define LinearCheck-Core-updateHoleUsageArgs (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) 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 ((act-25 ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-6)))))))))))))))))))))
-(define LinearCheck-Core-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-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) 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 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 ((Context-Core-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))) ((LinearCheck-Core-case--7695-6880 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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--6840-7073 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))
-(define LinearCheck-Core-updateHoleType (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) ((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 ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (LinearCheck-Core-case--6829-6161 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) 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 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-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))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 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 arg-7)))))))))))
-(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6769-6059 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3)))))))))
+(define LinearCheck-Core-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-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) 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 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 ((Context-Core-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))) ((LinearCheck-Core-case--7942-7148 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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--7073-7347 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))
+(define LinearCheck-Core-updateHoleType (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) ((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 ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (LinearCheck-Core-case--7062-6415 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) 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 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-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))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 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 arg-7)))))))))))
+(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--7002-6311 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3)))))))))
 (define LinearCheck-Core-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 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 ((LinearCheck-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-8 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (Prelude-not arg-5))) (cond ((equal? sc6 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)) (else (vector 1 (vector 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 LinearCheck-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (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 ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--14174-12656 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (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 ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 )))))))))))))))
-(define LinearCheck-Core-lcheckDef (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 (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 ((Context-Core-lookupCtxtExact arg-7 (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 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8045-12149 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))
-(define LinearCheck-Core-lcheckBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 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) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 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-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))))))
-(define LinearCheck-Core-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 ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8024-7216-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 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 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8024-7217-used e-4 'erased arg-0 'erased 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 ((LinearCheck-Core-lcheckDef 'erased 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 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 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 ((Context-Core-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 ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7547 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))) (LinearCheck-Core-case--8327-7609 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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8327-7855 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 (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 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-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 ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-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 ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8561-7771 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 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8024-7976-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-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9261-8694 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 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 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 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9320-8573 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9320-8444 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 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))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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 ((Normalise-Core-getNF 'erased 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 (vector 0 e-2 (vector 0 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-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (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 ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (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))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--9985-8998 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-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (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 ((Normalise-Core-getTerm 'erased 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-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased 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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 )))))))))))
-(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8040-10461-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 ((LinearCheck-Core-n--8040-10464-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6))))))))))))))
-(define LinearCheck-Core-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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8049-12452-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 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) 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))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))
+(define LinearCheck-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (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 ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--14583-13090 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (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 ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 )))))))))))))))
+(define LinearCheck-Core-lcheckDef (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 (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 ((Context-Core-lookupCtxtExact arg-7 (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 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8298-12570 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))
+(define LinearCheck-Core-lcheckBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 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) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 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-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))))))
+(define LinearCheck-Core-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 ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8277-7490-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 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 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8277-7491-used e-4 'erased arg-0 'erased 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 ((LinearCheck-Core-lcheckDef 'erased 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 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 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 ((Context-Core-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 ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 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))) (LinearCheck-Core-case--8583-7888 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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 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 (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 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\u000a" (Prelude-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 ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-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 ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 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 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-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) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-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 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 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 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 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 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9588-8868 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9588-8737 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 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))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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 ((Normalise-Core-getNF 'erased 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 (vector 0 e-2 (vector 0 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-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (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 ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (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))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--10332-9359 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-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (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 ((Normalise-Core-getTerm 'erased 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-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased 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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 )))))))))))
+(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8293-10851-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 ((LinearCheck-Core-n--8293-10854-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6))))))))))))))
+(define LinearCheck-Core-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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8302-12882-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 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) 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))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))
 (define LinearCheck-Core-doneScope (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (LinearCheck-Core-doneScope 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (LinearCheck-Core-doneScope 'erased 'erased e-3)))))))))))))
 (define LinearCheck-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) 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 (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3) e-5)) arg-9))))))))))))) ((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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-8 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) e-8)) arg-9))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-9 e-10 e-11) arg-7) (vector 0 arg-6 arg-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 0 (vector 3 arg-3 arg-4 (vector 3 e-13 e-14 e-15) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-13 e-15) e-5)) arg-9))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 0 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) e-5)) arg-9))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-21 e-22) arg-7) (vector 0 arg-6 arg-9)))))))))))
-(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6719-6009 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2))))))))))
-(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--14573-13084 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--14573-12992 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--14573-12943-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))))))))
+(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6952-6261 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2))))))))))
+(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--14987-13527 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--14987-13434 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--14987-13384-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))))))))
 (define LinearCheck-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (LinearCheck-Core-C-43C-43 'erased e-3 arg-2)))))))))
-(define BindImplicits-TTImp-case--6094-6867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define BindImplicits-TTImp-case--6047-6826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define BindImplicits-TTImp-case--5805-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2))))))
-(define BindImplicits-TTImp-case--5805-6619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3))))))
-(define BindImplicits-TTImp-case--5741-6543 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0))))))))
-(define BindImplicits-TTImp-case--5589-6476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
-(define BindImplicits-TTImp-case--5589-6432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
-(define BindImplicits-TTImp-case--5044-6331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6355) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 16 arg-1 arg-0) eta-0)))))))
-(define BindImplicits-TTImp-case--5044-5880 (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 ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-5955) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0)))))))
-(define BindImplicits-TTImp-n--5987-6760-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--5987-6760-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3)))))))))
-(define BindImplicits-TTImp-n--5044-6262-renameAlt (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 (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-5 eta-0)))))))
-(define BindImplicits-TTImp-n--5589-6526-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4)))))
-(define BindImplicits-TTImp-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-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5044-5880 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-n--5044-6262-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3506) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3506))))) func arg-3505 eta-2)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a-0) (lambda (arg-3573) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3573))) (lambda (b) (lambda (a-0) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a-0) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a-0) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-3572 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a-0) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b-0) (lambda (a-0) (lambda (arg-3574) (lambda (arg-3576) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3574 arg-3576)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a-0) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-3573 arg-3575 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5044-6331 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-2 eta-0)))))))
+(define BindImplicits-TTImp-case--6269-7126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define BindImplicits-TTImp-case--6221-7084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define BindImplicits-TTImp-case--5980-6941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2))))))
+(define BindImplicits-TTImp-case--5980-6875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3))))))
+(define BindImplicits-TTImp-case--5915-6799 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0))))))))
+(define BindImplicits-TTImp-case--5762-6730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
+(define BindImplicits-TTImp-case--5762-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
+(define BindImplicits-TTImp-case--5214-6583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6607) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 arg-0) eta-0)))))))
+(define BindImplicits-TTImp-case--5214-6129 (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 ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-6206) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0)))))))
+(define BindImplicits-TTImp-n--6162-7016-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--6162-7016-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3)))))))))
+(define BindImplicits-TTImp-n--5214-6513-renameAlt (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 (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-5 eta-0)))))))
+(define BindImplicits-TTImp-n--5762-6781-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4)))))
+(define BindImplicits-TTImp-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-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5214-6129 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-n--5214-6513-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3436) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3436))))) func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3503) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3503))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3502 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b-0) (lambda (a-0) (lambda (arg-3504) (lambda (arg-3506) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3504 arg-3506)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3503 arg-3505 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5214-6583 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-2 eta-0)))))))
 (define BindImplicits-TTImp-getUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased (BindImplicits-TTImp-getUsing e-2 arg-1) (BindImplicits-TTImp-getUsings e-3 arg-1)))))))))
-(define BindImplicits-TTImp-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (BindImplicits-TTImp-case--5805-6619 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--5805-6685 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-0 ns)))))))))))))))))))
-(define BindImplicits-TTImp-doBind (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) (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-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-45 arg-0))))(else 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))) (let ((nsC-39 (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-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 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))) (let ((nsC-39 (let ((sc1 e-11)) (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-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (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))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5589-6526-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1))))))))
+(define BindImplicits-TTImp-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (BindImplicits-TTImp-case--5980-6875 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--5980-6941 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 ns)))))))))))))))))))
+(define BindImplicits-TTImp-doBind (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) (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-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-45 arg-0))))(else 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))) (let ((nsC-39 (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-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 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))) (let ((nsC-39 (let ((sc1 e-11)) (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-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (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))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5762-6781-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1))))))))
 (define BindImplicits-TTImp-bindUsings (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 (TTImp-TTImp-getFC e-15) e-6 e-10 e-14 e-15 (BindImplicits-TTImp-bindUsings e-3 arg-1))))))))))))))))))
-(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3)))))))))))
-(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3)))))))))))
-(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2))))))))))))
-(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--5987-6760-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1)))))
-(define State-Monad-Control-case--1859-834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9)))
-(define State-Monad-Control-case--1785-798 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1859-834 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2))))))))
-(define State-Monad-Control-case--1672-635 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3)))))))))
-(define State-Monad-Control-case--1583-590 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6))))))))))))))))
-(define State-Monad-Control-n--1514-432-mapFst (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))) (vector 0 (arg-9 e-2) e-3))))))
+(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3)))))))))))
+(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3)))))))))))
+(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2))))))))))))
+(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6162-7016-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1)))))
+(define State-Monad-Control-case--1886-836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9)))
+(define State-Monad-Control-case--1810-800 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2))))))))
+(define State-Monad-Control-case--1697-639 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3)))))))))
+(define State-Monad-Control-case--1608-593 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6))))))))))))))))
+(define State-Monad-Control-n--1539-440-mapFst (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))) (vector 0 (arg-9 e-2) e-3))))))
 (define State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 ) arg-3))))))
 (define State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 arg-4 ext-0))))))
-(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1514-432-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0))))
+(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1539-440-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0))))
 (define State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) ext-0)))
 (define State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 ext-0 ext-0))))))
-(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3734 arg-3735 eta-0)))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3737 eta-0)))))))
-(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3734 arg-3735 eta-0)))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3737 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-282) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-282 eta-0))))))
+(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0)))))))
+(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-291) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-291 eta-0))))))
 (define State-Monad-Control-__Impl_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 ext-4 ext-1 ext-2 ext-3 ext-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 ext-2 ext-3 ext-0)))
-(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0)))))))))
-(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1859-834 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5))))))))))))
+(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0)))))))))
+(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5))))))))))))
 (define State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) ((((e-7 'erased) 'erased) (arg-6 e-4)) (lambda (_-1) (let ((sc3 _-1)) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 (let ((sc5 arg-4)) (let ((e-13 (vector-ref sc5 1))) e-13)))) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 (e-5 e-10) e-9))))))))))))))))))))
 (define StateT-State-Monad-Control-runStateT (lambda (arg-0 arg-1 arg-2 arg-3) arg-3))
 (define State-Monad-Control-runState (lambda (arg-0 arg-1 arg-2 ext-0) (arg-2 ext-0)))
@@ -4949,1184 +4995,1186 @@
 (define Identity-Monad-Control-pure_Applicative__Identity (lambda (arg-0 arg-1) arg-1))
 (define Identity-Monad-Control-map_Functor__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3)))
 (define Identity-Monad-Control-join_Monad__Identity (lambda (arg-0 arg-1) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-1 (lambda (eta-0) eta-0))))
-(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737))))))
+(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667))))))
 (define Identity-Monad-Control-__Impl_Functor_Identity (lambda (ext-0 ext-1 ext-2 ext-3) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased ext-2 ext-3)))
-(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575))))))))
+(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505))))))))
 (define Identity-Monad-Control-C-62C-62C-61_Monad__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-3 arg-2)))
 (define Identity-Monad-Control-C-60C-42C-62_Applicative__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3)))
 (define Identity-Identity-Monad-Control-runIdentity (lambda (arg-0 arg-1) arg-1))
-(define ProcessTransform-TTImp-case--7920-11225 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 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 ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0))))))))))))))))))))))))))))))))))))))
+(define ProcessTransform-TTImp-case--8252-11859 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 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 ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0))))))))))))))))))))))))))))))))))))))
 (define ProcessTransform-TTImp-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 ((Context-Core-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 ((Context-Core-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 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 0 (ZeroOneOmega-Algebra-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 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (let ((e-18 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((act-27 (Context-Core-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 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 59 arg-7 arg-8 eta-0)) (lambda (eta-0) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (vector 1 (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (Normalise-Core-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 (Metadata-Core-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 (Context-Core-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 (Context-Core-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-with--19100-12732 (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 ProcessDef-TTImp-with--19080-12725 (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)) (ProcessDef-TTImp-with--19100-12732 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define ProcessDef-TTImp-with--13319-7936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14))))))))
-(define ProcessDef-TTImp-with--13319-7863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13))))))))
-(define ProcessDef-TTImp-case--22178-15729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22178-15649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (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 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22001-15388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 eta-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 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-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 (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (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-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-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 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 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 (Context-Core-addToSave arg-9 arg-10 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 (let ((act-30 (unbox arg-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 ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) 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 ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (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 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 ((act-35 (unbox arg-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 ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--20683-14096-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (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 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22001-15282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define ProcessDef-TTImp-case--21958-15236 (lambda (arg-0 arg-1 arg-2 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 ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22001-15282 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) 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 ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) 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 ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-1))) (let ((sc7 act-28)) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (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-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-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) 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 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) 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 (Context-Core-addToSave arg-9 arg-10 eta-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 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (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-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) 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 ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 (ProcessDef-TTImp-n--20683-14096-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 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 (Context-Core-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0)))))))
-(define ProcessDef-TTImp-case--20683-15206 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--21958-15236 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0)))))))
-(define ProcessDef-TTImp-case--21660-15021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960)))) (vector 2 arg-26) eta-0)))))))
-(define ProcessDef-TTImp-case--21378-14958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25))))))))
-(define ProcessDef-TTImp-case--21378-14850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0)))))))
-(define ProcessDef-TTImp-case--20704-14701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--21378-14850 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--20683-14093-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-2 eta-3))) e-8) eta-1))) (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 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--20683-14094-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--21378-14958 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0)))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20702-14545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
-(define ProcessDef-TTImp-case--20934-14387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) 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))) ((ProcessDef-TTImp-n--20702-14152-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 e-5 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 ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (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 1 e-6))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20849-14313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 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 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) 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 ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--20702-14152-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 e-8 e-9) 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-9 arg-14))) (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 (vector 1 (vector 1 e-9)))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20702-14245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 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 ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-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))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-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)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (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-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (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))) ((ProcessDef-TTImp-n--20702-14152-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 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20549-14033 (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-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-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))) (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 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20271-13811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20177-13725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (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-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 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 (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0)))))))
-(define ProcessDef-TTImp-case--20029-13650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20177-13725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0))))))))))))))))
-(define ProcessDef-TTImp-case--20029-13564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
-(define ProcessDef-TTImp-case--19993-13530 (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-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 ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--19758-13284-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--19758-13283-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (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 ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--19758-13285-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 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))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20177-13725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 )))))))))
-(define ProcessDef-TTImp-case--19758-13502 (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 ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19993-13530 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19408-13175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--19408-13137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--19408-13004 (lambda (arg-0 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-2)) (cond ((equal? sc0 0) arg-9) (else arg-10)))))
-(define ProcessDef-TTImp-case--19320-12976 (lambda (arg-0 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) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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 ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19320-12928 (lambda (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-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))
-(define ProcessDef-TTImp-case--19299-12910 (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 ((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 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased 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 ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-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) (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19150-12895 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19299-12910 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19179-12819 (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) (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
-(define ProcessDef-TTImp-case--19156-12792 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19179-12819 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
-(define ProcessDef-TTImp-case--16696-12611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 )) (else (vector 2 ))))))
-(define ProcessDef-TTImp-case--17766-12102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7)))
-(define ProcessDef-TTImp-case--17766-11862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define ProcessDef-TTImp-case--17318-11576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) 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 ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 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 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--17766-11862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12)) arg-5 e-10 arg-11 (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 ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp 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 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15171-10341-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 (+ 1 0) e-11 wargNames arg-16 eta-1)) 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 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d 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 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 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 ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 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-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0)))))))
-(define ProcessDef-TTImp-case--17318-11377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32)))))))
-(define ProcessDef-TTImp-case--17189-11213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--17318-11377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-650 arg-651)))) (vector 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) 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))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) 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-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--17318-11576 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0)))))))
-(define ProcessDef-TTImp-case--17063-11124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17189-11213 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0)))))))
-(define ProcessDef-TTImp-case--16926-11037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17063-11124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0)))))))
-(define ProcessDef-TTImp-case--16797-10934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 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 ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((ProcessDef-TTImp-case--16926-11037 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0)))))))))))))))))
-(define ProcessDef-TTImp-case--16696-10826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 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 ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") 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 ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((act-28 (let ((act-28 (unbox arg-15))) (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 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 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 ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--16797-10934 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15171-10746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16696-12611 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (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 ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (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))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 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 ((Normalise-Core-getTerm 'erased e-4) 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 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (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))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (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))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (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 ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--16797-10934 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--16196-10632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3)))))))
-(define ProcessDef-TTImp-case--15753-10248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 )) (else (vector 2 ))))))
-(define ProcessDef-TTImp-case--15753-10108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--15171-9961 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--15753-10248 arg-0 arg-1 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) 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))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-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 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 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 ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-0)))))) (else (vector 1 (vector 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 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15548-9871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))
-(define ProcessDef-TTImp-case--15171-9787 (lambda (arg-0 arg-1 arg-2 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) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) 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 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))))))))))))))))
-(define ProcessDef-TTImp-case--15307-9664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0)))))))
-(define ProcessDef-TTImp-case--15217-9596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15171-9519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 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 ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp 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 ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (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 ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) 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))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14551-9212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (let ((act-26 (unbox arg-12))) (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 ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 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 ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") 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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) 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 ((ProcessDef-TTImp-combineLinear arg-1 e-10) 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) 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 ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (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))) (vector 1 (vector 0 arg-21 e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14551-9127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18))))))
-(define ProcessDef-TTImp-case--14551-8994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8))))))
-(define ProcessDef-TTImp-case--14434-8928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 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 ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 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))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-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))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp 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 ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 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 ((act-30 ((Normalise-Core-getTerm 'erased 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))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (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 ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (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 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 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 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) 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 ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-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 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-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 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-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))) (vector 1 (vector 0 e-6 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14434-8869 (lambda (arg-0 arg-1 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0))))))
-(define ProcessDef-TTImp-case--14198-8775 (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 ((ProcessDef-TTImp-combineLinear arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14198-8624-combineAll arg-0 arg-1 arg-2 arg-3 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14198-8621-notN arg-0 arg-1 arg-2 arg-3 eta-1)) 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))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6))))))))))))))))))
-(define ProcessDef-TTImp-case--14217-8721 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-5 arg-4))))))))
-(define ProcessDef-TTImp-case--14216-8655 (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 (ProcessDef-TTImp-n--14198-8622-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14198-8622-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
-(define ProcessDef-TTImp-case--14057-8563 (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))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4)))))))
-(define ProcessDef-TTImp-case--14057-8505 (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))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5)))))))
-(define ProcessDef-TTImp-case--13901-8413 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 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))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--13538-8041-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--13538-8352 (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 ((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)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (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 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-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-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--13538-8041-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--13571-8145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) 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 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))))))))))))
-(define ProcessDef-TTImp-case--13570-8048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define ProcessDef-TTImp-case--12927-7581 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-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 (Prelude-not e-5)))))))))))))
-(define ProcessDef-TTImp-case--12927-7494 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 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))) (vector 1 (Prelude-not e-5)))))))))))))
-(define ProcessDef-TTImp-case--12583-7263 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define ProcessDef-TTImp-case--12583-7181 (lambda (arg-0 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) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-case--12299-7015 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define ProcessDef-TTImp-case--12299-6933 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
-(define ProcessDef-TTImp-n--19758-13284-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 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))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) 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 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) 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 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-n--19758-13285-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11))))))))))))
-(define ProcessDef-TTImp-n--20683-14092-simplePat (lambda (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) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--20683-14092-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1)))))
-(define ProcessDef-TTImp-n--14198-8621-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2)))))
-(define ProcessDef-TTImp-n--19758-13279-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 ))))))
-(define ProcessDef-TTImp-n--15171-10341-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) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 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))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) 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))) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 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-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15171-10341-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 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 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 2 e-8 e-5)))))))))))))))
-(define ProcessDef-TTImp-n--19758-13280-matchAny (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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--19758-13280-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6)))))
-(define ProcessDef-TTImp-n--19758-13281-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--19758-13280-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--19758-13279-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1))))))))
-(define ProcessDef-TTImp-n--14198-8622-lookupAll (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14216-8655 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6))))))))))))
-(define ProcessDef-TTImp-n--15171-10340-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-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10468 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10550 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10632 arg-0 arg-1 arg-2 arg-3 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 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-10 e-26)))))))))))))))))))))
-(define ProcessDef-TTImp-n--19758-13283-getSpec (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--19758-13283-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
-(define ProcessDef-TTImp-n--20683-14095-getClause (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))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 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 ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))))))
-(define ProcessDef-TTImp-n--13538-8042-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)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(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 ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-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-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-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-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-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 ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(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 ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) 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-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))
-(define ProcessDef-TTImp-n--19150-12768-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (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-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 ((Context-Core-lookupCtxtExact e-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))) ((ProcessDef-TTImp-case--19179-12819 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
-(define ProcessDef-TTImp-n--14198-8624-combineAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14198-8623-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) ((ProcessDef-TTImp-n--14198-8624-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
-(define ProcessDef-TTImp-n--14198-8623-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14217-8721 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
-(define ProcessDef-TTImp-n--20702-14152-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) 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))) ((ProcessDef-TTImp-n--20702-14152-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) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))
-(define ProcessDef-TTImp-n--20683-14094-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 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) 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))) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-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 (Context-Core-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 (Context-Core-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 (BindImplicits-TTImp-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 (vector-ref sc6 2))) (let ((act-30 (Context-Core-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 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 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 (vector-ref sc9 1))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) 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 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) 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 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 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 ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) 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))) ((ProcessDef-TTImp-n--20702-14152-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-17 e-18) 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 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (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 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 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))) ((ProcessDef-TTImp-case--20702-14545 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 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0))))))))
-(define ProcessDef-TTImp-n--20683-14096-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--20683-14095-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) 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 ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) 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 ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--21378-14850 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 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--20683-14093-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) 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))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-1 eta-2))) 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))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--20683-14094-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-10) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--21378-14958 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 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-n--20683-14093-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))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--20683-14092-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) (TT-Core-getArgs 'erased e-2))))))
-(define ProcessDef-TTImp-n--19758-13282-addErrorCase (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--19758-13281-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
-(define ProcessDef-TTImp-n--13538-8041-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7)))))
+(define ProcessDef-TTImp-with--19775-13004 (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 ProcessDef-TTImp-with--19755-12997 (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)) (ProcessDef-TTImp-with--19775-13004 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define ProcessDef-TTImp-with--13879-8053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14))))))))
+(define ProcessDef-TTImp-with--13879-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) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13))))))))
+(define ProcessDef-TTImp-case--22912-16093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22912-16013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (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 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22732-15733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-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 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-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 (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (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-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-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 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 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 (Context-Core-addToSave arg-9 arg-10 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 (let ((act-30 (unbox arg-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 ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) 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 ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (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 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 ((act-35 (unbox arg-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 ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (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 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22732-15624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define ProcessDef-TTImp-case--22689-15578 (lambda (arg-0 arg-1 arg-2 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 ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22732-15624 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) 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 ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) 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 ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-1))) (let ((sc7 act-28)) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (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-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-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) 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 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) 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 (Context-Core-addToSave arg-9 arg-10 eta-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 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (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-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) 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 ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 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 (Context-Core-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0)))))))
+(define ProcessDef-TTImp-case--21378-15548 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--22689-15578 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0)))))))
+(define ProcessDef-TTImp-case--22387-15360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 arg-26) eta-0)))))))
+(define ProcessDef-TTImp-case--22095-15296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25))))))))
+(define ProcessDef-TTImp-case--22095-15185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0)))))))
+(define ProcessDef-TTImp-case--21399-15028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15185 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) e-8) eta-1))) (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 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21378-14387-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15296 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0)))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21397-14866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
+(define ProcessDef-TTImp-case--21643-14706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) 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))) ((ProcessDef-TTImp-n--21397-14445-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 e-5 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 ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (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 1 e-6))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21556-14628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 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 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) 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 ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21397-14445-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 e-8 e-9) 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-9 arg-14))) (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 (vector 1 (vector 1 e-9)))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21397-14557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 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 ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-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))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-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)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (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-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (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))) ((ProcessDef-TTImp-n--21397-14445-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 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21240-14326 (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-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-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))) (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 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20962-14100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20867-14014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (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-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 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 (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0)))))))
+(define ProcessDef-TTImp-case--20717-13938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0))))))))))))))))
+(define ProcessDef-TTImp-case--20717-13851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
+(define ProcessDef-TTImp-case--20681-13816 (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-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 ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13564-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (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 ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13565-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 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))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 )))))))))
+(define ProcessDef-TTImp-case--20440-13788 (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 ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--20087-13455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20087-13417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20087-13281 (lambda (arg-0 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-2)) (cond ((equal? sc0 0) arg-9) (else arg-10)))))
+(define ProcessDef-TTImp-case--19999-13253 (lambda (arg-0 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) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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 ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19999-13205 (lambda (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-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))
+(define ProcessDef-TTImp-case--19978-13187 (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 ((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 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased 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 ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-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) (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19825-13172 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19978-13187 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19856-13094 (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) (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
+(define ProcessDef-TTImp-case--19831-13067 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
+(define ProcessDef-TTImp-case--17338-12883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 )) (else (vector 2 ))))))
+(define ProcessDef-TTImp-case--18423-12373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7)))
+(define ProcessDef-TTImp-case--18423-12133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define ProcessDef-TTImp-case--17971-11821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) 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 ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 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 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--18423-12133 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12)) arg-5 e-10 arg-11 (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 ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp 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 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-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 (+ 1 0) e-11 wargNames arg-16 eta-1)) 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 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d 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 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 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 ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 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-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0)))))))
+(define ProcessDef-TTImp-case--17971-11622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32)))))))
+(define ProcessDef-TTImp-case--17842-11453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--17971-11622 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431)))) (vector 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) 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))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) 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-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--17971-11821 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0)))))))
+(define ProcessDef-TTImp-case--17716-11364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17842-11453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0)))))))
+(define ProcessDef-TTImp-case--17577-11277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17716-11364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0)))))))
+(define ProcessDef-TTImp-case--17441-11171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 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 ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((ProcessDef-TTImp-case--17577-11277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0)))))))))))))))))
+(define ProcessDef-TTImp-case--17338-11052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 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 ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") 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 ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((act-28 (let ((act-28 (unbox arg-15))) (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 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 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 ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15777-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (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 ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (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))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 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 ((Normalise-Core-getTerm 'erased e-4) 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 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (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))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (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))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (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 ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--16831-10849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3)))))))
+(define ProcessDef-TTImp-case--16376-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 )) (else (vector 2 ))))))
+(define ProcessDef-TTImp-case--16376-10325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--15777-10159 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 arg-0 arg-1 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) 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))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-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 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 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 ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-0)))))) (else (vector 1 (vector 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 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--16168-10068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))
+(define ProcessDef-TTImp-case--15777-9981 (lambda (arg-0 arg-1 arg-2 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) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) 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 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))))))))))))))))
+(define ProcessDef-TTImp-case--15924-9858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0)))))))
+(define ProcessDef-TTImp-case--15828-9786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15777-9700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 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 ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp 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 ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (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 ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) 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))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15133-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (let ((act-26 (unbox arg-12))) (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 ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 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 ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") 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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) 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 ((ProcessDef-TTImp-combineLinear arg-1 e-10) 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) 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 ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (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))) (vector 1 (vector 0 arg-21 e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15133-9284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18))))))
+(define ProcessDef-TTImp-case--15133-9142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8))))))
+(define ProcessDef-TTImp-case--15011-9072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 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 ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 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))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-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))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp 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 ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 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 ((act-30 ((Normalise-Core-getTerm 'erased 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))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (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 ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (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 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 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 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) 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 ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-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 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-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 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-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))) (vector 1 (vector 0 e-6 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15011-9013 (lambda (arg-0 arg-1 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0))))))
+(define ProcessDef-TTImp-case--14771-8907 (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 ((ProcessDef-TTImp-combineLinear arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14771-8752-notN arg-0 arg-1 arg-2 arg-3 eta-1)) 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))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6))))))))))))))))))
+(define ProcessDef-TTImp-case--14790-8852 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-5 arg-4))))))))
+(define ProcessDef-TTImp-case--14789-8786 (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 (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
+(define ProcessDef-TTImp-case--14630-8694 (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))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4)))))))
+(define ProcessDef-TTImp-case--14630-8636 (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))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5)))))))
+(define ProcessDef-TTImp-case--14471-8543 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 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))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--14098-8479 (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 ((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)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (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 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-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-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--14131-8263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) 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 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))))))))))))
+(define ProcessDef-TTImp-case--14130-8165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define ProcessDef-TTImp-case--13481-7693 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-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 (Prelude-not e-5)))))))))))))
+(define ProcessDef-TTImp-case--13481-7605 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 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))) (vector 1 (Prelude-not e-5)))))))))))))
+(define ProcessDef-TTImp-case--13133-7370 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define ProcessDef-TTImp-case--13133-7288 (lambda (arg-0 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) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-case--12845-7118 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define ProcessDef-TTImp-case--12845-7036 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
+(define ProcessDef-TTImp-n--20440-13564-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 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))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) 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 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) 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 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-n--20440-13565-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11))))))))))))
+(define ProcessDef-TTImp-n--21378-14385-simplePat (lambda (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) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1)))))
+(define ProcessDef-TTImp-n--14771-8752-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2)))))
+(define ProcessDef-TTImp-n--20440-13559-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 ))))))
+(define ProcessDef-TTImp-n--15777-10558-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) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 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))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) 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))) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 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-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-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 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 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 2 e-8 e-5)))))))))))))))
+(define ProcessDef-TTImp-n--20440-13560-matchAny (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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6)))))
+(define ProcessDef-TTImp-n--20440-13561-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20440-13559-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1))))))))
+(define ProcessDef-TTImp-n--14771-8753-lookupAll (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14789-8786 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6))))))))))))
+(define ProcessDef-TTImp-n--15777-10557-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-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10603 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10767 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10849 arg-0 arg-1 arg-2 arg-3 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 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-10 e-26)))))))))))))))))))))
+(define ProcessDef-TTImp-n--20440-13563-getSpec (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define ProcessDef-TTImp-n--21378-14388-getClause (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))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 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 ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))))))
+(define ProcessDef-TTImp-n--14098-8159-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)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(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 ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-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-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-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-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-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 ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(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 ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) 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-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))
+(define ProcessDef-TTImp-n--19825-13040-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (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-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 ((Context-Core-lookupCtxtExact e-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))) ((ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
+(define ProcessDef-TTImp-n--14771-8755-combineAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8754-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
+(define ProcessDef-TTImp-n--14771-8754-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14790-8852 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
+(define ProcessDef-TTImp-n--21397-14445-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) 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))) ((ProcessDef-TTImp-n--21397-14445-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) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))
+(define ProcessDef-TTImp-n--21378-14387-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 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) 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))) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-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 (Context-Core-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 (Context-Core-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 (BindImplicits-TTImp-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 (vector-ref sc6 2))) (let ((act-30 (Context-Core-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 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 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 (vector-ref sc9 1))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) 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 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) 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 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 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 ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) 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))) ((ProcessDef-TTImp-n--21397-14445-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-17 e-18) 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 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (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 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 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))) ((ProcessDef-TTImp-case--21397-14866 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 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0))))))))
+(define ProcessDef-TTImp-n--21378-14389-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21378-14388-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) 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 ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) 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 ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15185 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 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) 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))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-1 eta-2))) 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))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14387-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-10) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15296 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 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-n--21378-14386-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))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) (TT-Core-getArgs 'erased e-2))))))
+(define ProcessDef-TTImp-n--20440-13562-addErrorCase (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20440-13561-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
+(define ProcessDef-TTImp-n--14098-8158-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7)))))
 (define ProcessDef-TTImp-warnUnreachable (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))) (lambda (eta-0) (Context-Core-recordWarning arg-0 (vector 0 e-0 (TT-Core-getLoc 'erased e-2) e-1 e-2) eta-0))))))))
 (define ProcessDef-TTImp-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))) (vector 0 e-0 (vector 0 e-1 (vector 0 e-2 e-3))))))))))
-(define ProcessDef-TTImp-setLinear (lambda (arg-0 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))) (ProcessDef-TTImp-case--14057-8505 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14057-8563 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2)))))
+(define ProcessDef-TTImp-setLinear (lambda (arg-0 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))) (ProcessDef-TTImp-case--14630-8636 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14630-8694 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2)))))
 (define ProcessDef-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-recoverable 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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-recoverable e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12927-7494 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12927-7581 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-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 ((Context-Core-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--21958-15236 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0)))))))))))))))))))))
-(define ProcessDef-TTImp-nameListEq (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) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19080-12725 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-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 ((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 ((Context-Core-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 ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19993-13530 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
-(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12299-6933 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12299-7015 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7605 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7693 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-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 ((Context-Core-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--22689-15578 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0)))))))))))))))))))))
+(define ProcessDef-TTImp-nameListEq (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) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19755-12997 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-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 ((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 ((Context-Core-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 ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
+(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12845-7036 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12845-7118 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) 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 ((act-25 ((Normalise-Core-evalClosure arg-0 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0)))))))))))))))))
-(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12583-7181 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12583-7263 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--13133-7288 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (ProcessDef-TTImp-case--13133-7370 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-impossibleOK 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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-impossibleOK e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define ProcessDef-TTImp-hasEmptyPat (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) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-8) 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 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 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 ((ProcessDef-TTImp-hasEmptyPat (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 (vector 3 e-6 e-7 e-8) arg-3) e-4) 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))) (vector 1 (Prelude-C-124C-124 e-9 (lambda () e-10)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-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))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--13538-8352 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5)))))))
-(define ProcessDef-TTImp-extendEnv (lambda (arg-0 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 ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (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 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13319-7863 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (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 ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13319-7936 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))
+(define ProcessDef-TTImp-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))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--14098-8479 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5)))))))
+(define ProcessDef-TTImp-extendEnv (lambda (arg-0 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 ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (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 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13879-7980 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (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 ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13879-8053 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))
 (define ProcessDef-TTImp-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-calcRefs arg-0 0 arg-4 eta-0 eta-1))) (let ((sc2 e-5)) (let ((e-20 (vector-ref sc2 21))) e-20))) 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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))
-(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14198-8775 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14198-8622-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3))))))))))))
-(define ProcessDef-TTImp-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 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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 ((act-26 (Context-Core-isUnboundImplicits 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 (Context-Core-setUnboundImplicits arg-1 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 (BindImplicits-TTImp-bindNames arg-1 1 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 ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 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 ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) 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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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 ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 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 ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) 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 ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 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 ((Normalise-Core-getTerm 'erased e-4) 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 ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 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 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 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 ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) 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 ((ProcessDef-TTImp-combineLinear arg-11 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) 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 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) 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))) (vector 1 (vector 0 e-11 e-28))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 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 (Context-Core-setUnboundImplicits arg-1 0 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 ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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 ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 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 ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (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 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (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 (vector-ref sc10 1))) (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 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-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) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 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 ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--15753-10248 e-4 e-3 e-2 arg-0 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-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 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-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 (Metadata-Core-clearHoleLHS arg-2 eta-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 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-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-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-16 eta-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) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-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))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 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))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16696-12611 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-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-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (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-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (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 ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (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-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (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-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--16797-10934 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15171-10340-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--19299-12910 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 ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14771-8907 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14771-8753-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3))))))))))))
+(define ProcessDef-TTImp-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 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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 ((act-26 (Context-Core-isUnboundImplicits 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 (Context-Core-setUnboundImplicits arg-1 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 (BindImplicits-TTImp-bindNames arg-1 1 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 ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 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 ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) 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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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 ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 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 ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) 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 ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 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 ((Normalise-Core-getTerm 'erased e-4) 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 ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 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 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 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 ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) 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 ((ProcessDef-TTImp-combineLinear arg-11 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) 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 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) 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))) (vector 1 (vector 0 e-11 e-28))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 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 (Context-Core-setUnboundImplicits arg-1 0 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 ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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 ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 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 ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (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 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (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 (vector-ref sc10 1))) (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 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-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) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 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 ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 e-4 e-3 e-2 arg-0 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-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 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-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 (Metadata-Core-clearHoleLHS arg-2 eta-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 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-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-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-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) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-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))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 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))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-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-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (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-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (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 ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (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-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (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-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--17441-11171 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15777-10557-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--19978-13187 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 ProcessDef-TTImp-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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 (vector 0 arg-3 (vector 0 (vector 1 arg-3) (vector 0 (List-Data-reverse 'erased (Env-Core-allVarsNoLet arg-0 arg-2)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 9 e-5)) arg-2))))))))))))))
-(define WithClause-TTImp-case--5983-6796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-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 ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) 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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) 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 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))
-(define WithClause-TTImp-case--5926-6746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 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 ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))
-(define WithClause-TTImp-case--5877-6703 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-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 ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 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-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-case--5774-6663 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 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 ((act-25 (Context-Core-setUnboundImplicits arg-8 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 ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-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))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 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 ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0)))))))))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-case--5787-6609 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3)))))))))
-(define WithClause-TTImp-case--5655-6546 (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 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define WithClause-TTImp-case--5655-6493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define WithClause-TTImp-case--4997-6431 (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 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch 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 ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0))))))))))))
-(define WithClause-TTImp-case--4995-6358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0)))))))
-(define WithClause-TTImp-case--4995-6179 (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) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0)))))))
-(define WithClause-TTImp-case--4995-6075 (lambda (arg-0 arg-1 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) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0)))))))
-(define WithClause-TTImp-case--4995-6003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0)))))))
-(define WithClause-TTImp-case--4995-5962 (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 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0)))))))
-(define WithClause-TTImp-case--4995-5916 (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 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0)))))))
-(define WithClause-TTImp-n--6235-6972-wrhsC (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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6235-6972-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-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-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6235-6970-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((act-25 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-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))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-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 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define WithClause-TTImp-n--6235-6969-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6235-6969-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3))))))))
-(define WithClause-TTImp-n--6235-6970-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) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6235-6970-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) 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 ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-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 (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-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 (WithClause-TTImp-n--6235-6969-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-n--4995-6034-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 WithClause-TTImp-n--5774-6587-dropWithArgs (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) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5774-6587-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))))))
-(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6235-6971-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5)))
-(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 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))) ((WithClause-TTImp-case--4997-6431 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 e-5)) eta-0)))))))))))))))))
+(define WithClause-TTImp-case--6161-7058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-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 ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) 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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) 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 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))
+(define WithClause-TTImp-case--6103-7007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 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 ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))
+(define WithClause-TTImp-case--6051-6963 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-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 ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 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-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))))))))))))
+(define WithClause-TTImp-case--5946-6920 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 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 ((act-25 (Context-Core-setUnboundImplicits arg-8 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 ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-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))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 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 ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0)))))))))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-case--5959-6865 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3)))))))))
+(define WithClause-TTImp-case--5827-6801 (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 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define WithClause-TTImp-case--5827-6748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define WithClause-TTImp-case--5163-6685 (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 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch 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 ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0))))))))))))
+(define WithClause-TTImp-case--5161-6609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0)))))))
+(define WithClause-TTImp-case--5161-6428 (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) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0)))))))
+(define WithClause-TTImp-case--5161-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0)))))))
+(define WithClause-TTImp-case--5161-6252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0)))))))
+(define WithClause-TTImp-case--5161-6211 (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 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0)))))))
+(define WithClause-TTImp-case--5161-6165 (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 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0)))))))
+(define WithClause-TTImp-n--6418-7238-wrhsC (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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6418-7238-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-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-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-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))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-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 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define WithClause-TTImp-n--6418-7235-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3))))))))
+(define WithClause-TTImp-n--6418-7236-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) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) 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 ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-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 (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-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 (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-n--5161-6283-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 WithClause-TTImp-n--5946-6842-dropWithArgs (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) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))))))
+(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6418-7237-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5)))
+(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 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))) ((WithClause-TTImp-case--5163-6685 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 e-5)) eta-0)))))))))))))))))
 (define WithClause-TTImp-matchFail (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "With clause does not match parent") ext-0)))
 (define WithClause-TTImp-matchAll (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-matchAll arg-0 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 ((WithClause-TTImp-getMatch arg-0 e-6 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))) ((WithClause-TTImp-mergeMatches arg-0 (List-Prelude-C-43C-43 'erased e-8 e-5)) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--5774-6587-dropWithArgs 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-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 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-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 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-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 ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--5983-6796 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0)))))))))))))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-5916 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-66 e-62)))))))(else (WithClause-TTImp-case--4995-5962 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6003 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--4995-6003 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (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))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (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))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--4995-6075 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--4995-6034-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (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 ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--4995-6179 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (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 ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (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 ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5655-6493 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))))
-(define PartialEval-TTImp-case--12047-11597 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13)))))))))))))
-(define PartialEval-TTImp-case--13087-11268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
-(define PartialEval-TTImp-case--13044-11151 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) 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 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12047-11086-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 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-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))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8)))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-case--12047-11121 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13044-11151 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 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
-(define PartialEval-TTImp-case--12023-10698 (lambda (arg-0 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) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
-(define PartialEval-TTImp-case--12306-10647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (+ 1 arg-16))))
-(define PartialEval-TTImp-case--12325-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 (+ 1 arg-17))))
-(define PartialEval-TTImp-case--12306-10494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12023-10478-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 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define PartialEval-TTImp-case--12023-10430 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 arg-8 arg-4 arg-14))))
-(define PartialEval-TTImp-case--12129-10370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (+ 1 arg-20)))
-(define PartialEval-TTImp-case--11703-9967 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
-(define PartialEval-TTImp-case--11673-9935 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
-(define PartialEval-TTImp-case--11470-9796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11404-9730 (lambda (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-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11470-9796 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11024-9672 (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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (let ((act-25 ((PartialEval-TTImp-n--11024-9356-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) 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 ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11470-9796 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 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define PartialEval-TTImp-case--11143-9499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11092-9443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 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 ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 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))) ((PartialEval-TTImp-case--11143-9499 arg-0 arg-1 arg-2 arg-3 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 (PartialEval-TTImp-n--11024-9355-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14)))))))))
-(define PartialEval-TTImp-case--11040-9407 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11092-9443 arg-0 arg-1 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 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--10892-9266 (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 ((argsE (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define PartialEval-TTImp-case--10786-9224 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) 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-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))))))
-(define PartialEval-TTImp-case--10817-9172 (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 (vector 10 arg-7 1) (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4)))))))
-(define PartialEval-TTImp-case--9635-9101 (lambda (arg-0 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-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))) (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 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-case--10483-8930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define PartialEval-TTImp-case--9936-8871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5))))))))))))))
-(define PartialEval-TTImp-case--10097-8629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) 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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) 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 ((act-26 (Context-Core-setAllPublic arg-9 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 (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
-(define PartialEval-TTImp-case--9936-8536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9635-8125-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (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 (Strings-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) 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 ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) 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))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-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 (Context-Core-setAllPublic arg-9 1 eta-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-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
-(define PartialEval-TTImp-case--9635-8384 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-2 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-0 eta-2))) (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))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " 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-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty 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 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (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 ((act-27 (Context-Core-addToSave arg-9 (vector 9 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 ((specnames (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) 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 (let ((act-29 (unbox arg-9))) (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 (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased 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 ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--9936-8536 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name 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 (vector 1 arg-13)))))))))))
-(define PartialEval-TTImp-case--9798-8305 (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0))))))))
-(define PartialEval-TTImp-case--9635-8274 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0)))))))))))
-(define PartialEval-TTImp-case--9567-8072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2)))))))))
-(define PartialEval-TTImp-case--9552-8054 (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 ((Context-Core-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) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2))))))
-(define PartialEval-TTImp-case--9074-7959 (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 ((dynnames (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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) 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 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9074-7595-unelabPat 'erased 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 PartialEval-TTImp-case--9001-7532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))))))
-(define PartialEval-TTImp-case--8882-7421 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3)))))))))))))
-(define PartialEval-TTImp-case--8675-7245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))
-(define PartialEval-TTImp-case--8639-7206 (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 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 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))
-(define PartialEval-TTImp-case--8473-7046 (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) arg-6) (else (vector 0 arg-5 arg-4 arg-2))))))
-(define PartialEval-TTImp-case--8375-6968 (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) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5))))))))
-(define PartialEval-TTImp-n--9074-7595-unelabPat (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (let ((lhsC-39 (PartialEval-TTImp-n--9074-7594-dropArgs 'erased 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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-8 lhsC-39 e-12)))))))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-n--9635-8125-unelabDef (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-6 e-5 e-12))))))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-n--9635-8126-showPat (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 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen")))))
-(define PartialEval-TTImp-n--9074-7593-reapply (lambda (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9074-7593-reapply 'erased 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))) (PartialEval-TTImp-n--9074-7593-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3)))))))))))))))
-(define PartialEval-TTImp-n--9074-7591-mkRHSargs (lambda (arg-0 arg-1 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (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 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))
-(define PartialEval-TTImp-n--9074-7590-mkDynNames (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))))
-(define PartialEval-TTImp-n--11024-9356-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11024-9356-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11092-9443 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define PartialEval-TTImp-n--9074-7592-getRawArgs (lambda (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) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10)))))
-(define PartialEval-TTImp-n--9635-8123-getAllRefs (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased 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))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10)))))
-(define PartialEval-TTImp-n--12023-10478-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-12 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))) (PartialEval-TTImp-case--12306-10494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12023-10478-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 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
-(define PartialEval-TTImp-n--12047-11086-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-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12047-11086-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 'erased 'erased e-3 arg-15))))))))
-(define PartialEval-TTImp-n--10786-9156-dropErased (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--10817-9172 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-5)))))))))
-(define PartialEval-TTImp-n--9074-7594-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9074-7593-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11)))))
-(define PartialEval-TTImp-n--11024-9354-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11024-9354-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))
-(define PartialEval-TTImp-n--11024-9355-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11024-9354-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))))
-(define PartialEval-TTImp-n--12023-10341-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12129-10370 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12023-10341-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased)))))))))
+(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-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 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-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 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-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 ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--6161-7058 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6165 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-66 e-62)))))))(else (WithClause-TTImp-case--5161-6211 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (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))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (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))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--5161-6324 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--5161-6283-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (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 ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--5161-6428 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (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 ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))
+(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (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 ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6748 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))))
+(define PartialEval-TTImp-case--12416-11852 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13)))))))))))))
+(define PartialEval-TTImp-case--13470-11507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
+(define PartialEval-TTImp-case--13427-11384 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) 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 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12416-11318-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 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-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))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8)))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-case--12416-11354 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13427-11384 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 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
+(define PartialEval-TTImp-case--12392-10912 (lambda (arg-0 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) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
+(define PartialEval-TTImp-case--12678-10861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (+ 1 arg-16))))
+(define PartialEval-TTImp-case--12697-10795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 (+ 1 arg-17))))
+(define PartialEval-TTImp-case--12678-10706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-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 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define PartialEval-TTImp-case--12392-10642 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 arg-8 arg-4 arg-14))))
+(define PartialEval-TTImp-case--12501-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (+ 1 arg-20)))
+(define PartialEval-TTImp-case--12061-10163 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
+(define PartialEval-TTImp-case--12029-10130 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
+(define PartialEval-TTImp-case--11825-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11757-9921 (lambda (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-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11373-9860 (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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (let ((act-25 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) 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 ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 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 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define PartialEval-TTImp-case--11493-9687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11442-9627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 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 ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 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))) ((PartialEval-TTImp-case--11493-9687 arg-0 arg-1 arg-2 arg-3 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 (PartialEval-TTImp-n--11373-9538-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14)))))))))
+(define PartialEval-TTImp-case--11389-9591 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11442-9627 arg-0 arg-1 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 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11236-9444 (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 ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define PartialEval-TTImp-case--11128-9399 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) 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-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))))))
+(define PartialEval-TTImp-case--11161-9347 (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 (vector 10 arg-7 1) (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4)))))))
+(define PartialEval-TTImp-case--9941-9274 (lambda (arg-0 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-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))) (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 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-case--10826-9104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define PartialEval-TTImp-case--10255-9044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5))))))))))))))
+(define PartialEval-TTImp-case--10433-8798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) 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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) 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 ((act-26 (Context-Core-setAllPublic arg-9 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 (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
+(define PartialEval-TTImp-case--10255-8700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8247-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (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 (Strings-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) 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 ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) 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))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-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 (Context-Core-setAllPublic arg-9 1 eta-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-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
+(define PartialEval-TTImp-case--9941-8523 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (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))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " 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-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty 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 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (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 ((act-27 (Context-Core-addToSave arg-9 (vector 9 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 ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) 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 (let ((act-29 (unbox arg-9))) (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 (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased 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 ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name 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 (vector 1 arg-13)))))))))))
+(define PartialEval-TTImp-case--10116-8441 (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0))))))))
+(define PartialEval-TTImp-case--9941-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) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0)))))))))))
+(define PartialEval-TTImp-case--9872-8194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2)))))))))
+(define PartialEval-TTImp-case--9857-8175 (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 ((Context-Core-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) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2))))))
+(define PartialEval-TTImp-case--9365-8079 (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 ((dynnames (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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) 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 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9365-7700-unelabPat 'erased 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 PartialEval-TTImp-case--9292-7637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))))))
+(define PartialEval-TTImp-case--9174-7527 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3)))))))))))))
+(define PartialEval-TTImp-case--8967-7351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))
+(define PartialEval-TTImp-case--8930-7312 (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 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 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))
+(define PartialEval-TTImp-case--8764-7151 (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) arg-6) (else (vector 0 arg-5 arg-4 arg-2))))))
+(define PartialEval-TTImp-case--8666-7073 (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) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5))))))))
+(define PartialEval-TTImp-n--9365-7700-unelabPat (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (let ((lhsC-39 (PartialEval-TTImp-n--9365-7699-dropArgs 'erased 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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-8 lhsC-39 e-12)))))))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-n--9941-8247-unelabDef (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-6 e-5 e-12))))))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-n--9941-8248-showPat (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 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen")))))
+(define PartialEval-TTImp-n--9365-7698-reapply (lambda (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9365-7698-reapply 'erased 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))) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3)))))))))))))))
+(define PartialEval-TTImp-n--9365-7696-mkRHSargs (lambda (arg-0 arg-1 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (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 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))
+(define PartialEval-TTImp-n--9365-7695-mkDynNames (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))))
+(define PartialEval-TTImp-n--11373-9539-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11442-9627 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define PartialEval-TTImp-n--9365-7697-getRawArgs (lambda (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) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10)))))
+(define PartialEval-TTImp-n--9941-8245-getAllRefs (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased 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))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10)))))
+(define PartialEval-TTImp-n--12392-10690-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-12 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))) (PartialEval-TTImp-case--12678-10706 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-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 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
+(define PartialEval-TTImp-n--12416-11318-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-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12416-11318-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 'erased 'erased e-3 arg-15))))))))
+(define PartialEval-TTImp-n--11128-9331-dropErased (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--11161-9347 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5)))))))))
+(define PartialEval-TTImp-n--9365-7699-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11)))))
+(define PartialEval-TTImp-n--11373-9537-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))
+(define PartialEval-TTImp-n--11373-9538-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))))
+(define PartialEval-TTImp-n--12392-10553-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12501-10582 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12392-10553-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased)))))))))
 (define PartialEval-TTImp-show_Show__ArgMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Static " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-0)))) (else "Dynamic")))))
 (define PartialEval-TTImp-showPrec_Show__ArgMode (lambda (arg-0 arg-1) (PartialEval-TTImp-show_Show__ArgMode arg-1)))
 (define PartialEval-TTImp-__Impl_Show_ArgMode (lambda () (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))))
 (define PartialEval-TTImp-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-unload 'erased e-3 (vector 4 e-6 arg-2 e-7))))))))))))
 (define PartialEval-TTImp-substLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-substLocs arg-0 e-3 (PartialEval-TTImp-substLoc arg-0 e-6 e-7 arg-2))))))))))))
-(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8473-7046 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-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 (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3)))))
-(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8375-6968 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3)))))
-(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11024-9672 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)))))
-(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--8882-7421 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10)))))))))))))
+(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8764-7151 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-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 (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3)))))
+(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8666-7073 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3)))))
+(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11373-9860 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)))))
+(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--9174-7527 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10)))))))))))))
 (define PartialEval-TTImp-specByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specPatByVar arg-0 e-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specByVar arg-0 e-3) (lambda (psC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 pC-39 psC-39)))))))))))))
 (define PartialEval-TTImp-quotePi (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) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define PartialEval-TTImp-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) (PartialEval-TTImp-case--12023-10430 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12023-10341-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (PartialEval-TTImp-case--12023-10698 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12023-10478-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 'erased arg-8)))))(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 ((PartialEval-TTImp-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 PartialEval-TTImp-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 (PartialEval-TTImp-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((PartialEval-TTImp-quoteGenNF (vector 1 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 ((PartialEval-TTImp-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))) (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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13044-11151 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))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) 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-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-10 (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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-16 (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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-36 (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 PartialEval-TTImp-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) (PartialEval-TTImp-case--12392-10642 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10553-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (PartialEval-TTImp-case--12392-10912 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10690-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 'erased arg-8)))))(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 ((PartialEval-TTImp-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 PartialEval-TTImp-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 (PartialEval-TTImp-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((PartialEval-TTImp-quoteGenNF (vector 1 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 ((PartialEval-TTImp-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))) (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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13427-11384 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))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) 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-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-10 (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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-16 (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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-36 (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 PartialEval-TTImp-quoteBinder (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((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) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 1 e-5 e-8 e-9))))))))))))))))) ((2) (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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (vector 5 e-21 e-5)))))))))))))))
 (define PartialEval-TTImp-quoteArgs (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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-2) 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 ((act-25 ((PartialEval-TTImp-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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteArgs 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))))
-(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8639-7206 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2)))))))))))
-(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-0 eta-2))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 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 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-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 ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) 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 (Context-Core-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 ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased 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 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) 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 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased 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 ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--9936-8536 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-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 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (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 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0)))
+(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8930-7312 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2)))))))))))
+(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 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 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-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 ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) 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 (Context-Core-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 ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased 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 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) 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 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased 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 ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-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 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (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 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0)))
 (define PartialEval-TTImp-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 PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--9074-7959 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9))))
-(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9552-8054 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1)))))))))
+(define PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--9365-8079 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9))))
+(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9857-8175 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1)))))))))
 (define PartialEval-TTImp-findSpecs (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))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-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-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 ((PartialEval-TTImp-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5) eta-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 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-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 ((PartialEval-TTImp-findSpecs (vector 1 e-11 arg-0) arg-1 arg-2 arg-3 (vector 1 e-5 arg-4) (vector 0 ) 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 (PartialEval-TTImp-unload 'erased arg-5 (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 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 0 e-15 e-5) arg-5) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (let ((act-25 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-26) 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 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6))))))))
 (define PartialEval-TTImp-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (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))) ((PartialEval-TTImp-quoteGenNF (vector 0 ) arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0)))))))))))))
-(define PartialEval-TTImp-eraseInferred (lambda (arg-0 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased 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 ((PartialEval-TTImp-eraseInferred 'erased 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 (PartialEval-TTImp-case--10786-9224 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))))))
-(define PartialEval-TTImp-dropSpec (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))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9001-7532 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2)))))))))
+(define PartialEval-TTImp-eraseInferred (lambda (arg-0 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased 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 ((PartialEval-TTImp-eraseInferred 'erased 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 (PartialEval-TTImp-case--11128-9399 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))))))
+(define PartialEval-TTImp-dropSpec (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))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9292-7637 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2)))))))))
 (define PartialEval-TTImp-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 (b+ 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 PartialEval-TTImp-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) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((Normalise-Core-nf 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 (PartialEval-TTImp-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Impossible-TTImp-case--7287-6924 (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) (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 31 arg-8 1) (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)))))))
-(define Impossible-TTImp-case--6422-6716 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) 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 ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))
-(define Impossible-TTImp-case--6417-6508 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
-(define Impossible-TTImp-case--6726-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
-(define Impossible-TTImp-case--6417-6270 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
-(define Impossible-TTImp-case--6486-6173 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
-(define Impossible-TTImp-n--6417-6152-useImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6486-6173 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
-(define Impossible-TTImp-n--6417-6373-useAutoImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6726-6411 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
-(define Impossible-TTImp-n--6193-5883-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-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (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) (lambda (eta-0) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))))))
-(define Impossible-TTImp-n--7277-6885-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
-(define Impossible-TTImp-n--7277-6887-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2)))))))
-(define Impossible-TTImp-n--7277-6886-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7287-6924 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--7277-6885-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8))))))))))))
-(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) 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-7 (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-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6417-6270 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6417-6152-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6417-6508 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6417-6373-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))
+(define PartialEval-TTImp-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) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Normalise-Core-nf 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 (PartialEval-TTImp-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Impossible-TTImp-case--7519-7205 (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) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 31 arg-8 1) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)))))))
+(define Impossible-TTImp-case--6631-6996 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) 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 ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))
+(define Impossible-TTImp-case--6626-6773 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
+(define Impossible-TTImp-case--6943-6675 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
+(define Impossible-TTImp-case--6626-6530 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
+(define Impossible-TTImp-case--6698-6432 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
+(define Impossible-TTImp-n--6626-6411-useImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6698-6432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
+(define Impossible-TTImp-n--6626-6637-useAutoImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6943-6675 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
+(define Impossible-TTImp-n--6397-6132-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-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (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) (lambda (eta-0) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))))))
+(define Impossible-TTImp-n--7509-7166-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define Impossible-TTImp-n--7509-7168-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2)))))))
+(define Impossible-TTImp-n--7509-7167-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7519-7205 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--7509-7166-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8))))))))))))
+(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) 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-7 (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-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6530 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6411-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6773 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6637-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))
 (define Impossible-TTImp-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 (b+ 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 Impossible-TTImp-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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) (Impossible-TTImp-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 eta-0))))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-3 arg-3 (vector 1 e-4 arg-4) arg-5)))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (vector 1 (vector 0 e-7 e-8) arg-5)))))) ((27) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-9 e-10))))))(else (lambda (eta-0) (Impossible-TTImp-nextVar arg-1 (TTImp-TTImp-getFC arg-2) eta-0)))))))
-(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Impossible-TTImp-n--6193-5883-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0))))))))))))))))))))
-(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))))))))
+(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Impossible-TTImp-n--6397-6132-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0))))))))))))))))))))
+(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))))))))
 (define Impossible-TTImp-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-4 (vector 0 )))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc1 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2))))))))))
-(define Impossible-TTImp-buildApp (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 (Context-Core-fromIntegerName 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 (Context-Core-fromStringName 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 (Context-Core-fromCharName 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 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") 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 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (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 ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))))))))))))))))))))))))))))))))))))
-(define Transform-Core-case--6671-7836 (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) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Transform-Core-case--6398-7598 (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))) (lambda (eta-0) (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 (Prelude-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 Transform-Core-case--6373-7547 (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 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6398-7598 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp)))))))))
-(define Transform-Core-case--6319-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2)))))))
-(define Transform-Core-case--6215-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))
-(define Transform-Core-case--6196-7393 (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))) (Transform-Core-tryReplace 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))))))
-(define Transform-Core-case--5896-7149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 ))))))
-(define Transform-Core-case--5800-7063 (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-3)) (else (vector 0 ))))))
-(define Transform-Core-case--5781-7020 (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 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--5800-7063 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2))))))))
-(define Transform-Core-case--5686-6958 (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 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6))))))
+(define Impossible-TTImp-buildApp (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 (Context-Core-fromIntegerName 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 (Context-Core-fromStringName 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 (Context-Core-fromCharName 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 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") 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 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (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 ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))))))))))))))))))))))))))))))))))))
+(define Transform-Core-case--6874-7973 (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) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Transform-Core-case--6591-7713 (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))) (lambda (eta-0) (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 (Prelude-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 Transform-Core-case--6565-7662 (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 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6591-7713 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp)))))))))
+(define Transform-Core-case--6511-7612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2)))))))
+(define Transform-Core-case--6406-7549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))
+(define Transform-Core-case--6387-7506 (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))) (Transform-Core-tryReplace 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))))))
+(define Transform-Core-case--6077-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 ))))))
+(define Transform-Core-case--5981-7166 (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-3)) (else (vector 0 ))))))
+(define Transform-Core-case--5962-7123 (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 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--5981-7166 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2))))))))
+(define Transform-Core-case--5867-7061 (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 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6))))))
 (define Transform-Core-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Transform-Core-unload 'erased e-3 (vector 4 e-6 arg-2 e-7))))))))))))
-(define Transform-Core-tryReplace (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))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
-(define Transform-Core-tryApply (lambda (arg-0 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 ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6196-7393 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2)))))))))))
+(define Transform-Core-tryReplace (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))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
+(define Transform-Core-tryApply (lambda (arg-0 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 ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6387-7506 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2)))))))))))
 (define Transform-Core-transLoop (lambda (arg-0 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 (Core-Core-newRef 'erased 'erased (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 ((Transform-Core-trans 'erased arg-1 e-5 arg-3 (vector 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))) (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) ((Transform-Core-transLoop 'erased arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6))))))))))))))))))))))))))
-(define Transform-Core-trans (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) (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))) ((Transform-Core-case--6373-7547 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-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 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5))))))))
-(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--5896-7149 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--5896-7149 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4)))))))
-(define Transform-Core-lookupMatch (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 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5686-6958 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5))))))))))
+(define Transform-Core-trans (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) (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))) ((Transform-Core-case--6565-7662 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-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 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5))))))))
+(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4)))))))
+(define Transform-Core-lookupMatch (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 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5867-7061 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5))))))))))
 (define Transform-Core-applyTransforms (lambda (arg-0 arg-1 arg-2 arg-3) (Transform-Core-transLoop 'erased arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-2 arg-3)))
-(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--6319-7498 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2)))))))))
-(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--5781-7020 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6))))
-(define Termination-Core-case--11780-10782 (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) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))
-(define Termination-Core-case--11749-10757 (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) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (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))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Termination-Core-case--11734-10730 (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 ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 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 (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))) ((Termination-Core-case--11749-10757 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--11661-10673 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-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 (vector 1 e-2)))))))))))))))
-(define Termination-Core-case--11644-10653 (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) (let ((act-24 (Termination-Core-calcPositive arg-2 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-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 (lambda (eta-0) (vector 1 arg-5)))))))
-(define Termination-Core-case--11477-10527 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) 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 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10))))))))
-(define Termination-Core-case--11459-10493 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) 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-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) 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-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--11408-10451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5)))))))
-(define Termination-Core-case--11333-10398 (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) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Termination-Core-case--11322-10369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-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)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5))))))))))))))))
-(define Termination-Core-case--11247-10309 (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) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Termination-Core-case--10953-10245 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0))))))))))))
-(define Termination-Core-case--10953-10189 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-case--10953-10124 (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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3)))))
-(define Termination-Core-case--10967-10068 (lambda (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) (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)))))))
-(define Termination-Core-case--10801-9974 (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 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0))))))))))))
-(define Termination-Core-case--10801-9908 (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 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 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))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0))))))))))))
-(define Termination-Core-case--10756-9864 (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 (Termination-Core-calcTerminating 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 (Context-Core-setTerminating arg-2 arg-1 arg-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 (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Termination-Core-case--10652-9799 (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 ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-5 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))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define Termination-Core-case--10462-9762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10462-9598-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-7 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))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6)))))))))))))))))))))
-(define Termination-Core-case--10532-9681 (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))) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
-(define Termination-Core-case--10484-9656 (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 ((Context-Core-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))) ((Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
-(define Termination-Core-case--10467-9614 (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) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--10484-9656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0))))))))))))
-(define Termination-Core-case--10354-9549 (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 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--9803-9011-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))
-(define Termination-Core-case--9803-9496 (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) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (Termination-Core-n--9803-9005-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (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) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--9803-9011-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))))))))))
-(define Termination-Core-case--10091-9282 (lambda (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) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Termination-Core-case--10050-9254 (lambda (arg-0 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 ((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) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Termination-Core-case--10017-9223 (lambda (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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) 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))) ((Termination-Core-case--10050-9254 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 )))))))))))
-(define Termination-Core-case--9816-9200 (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))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10017-9223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-case--9815-9132 (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) (vector 1 (vector 0 ) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--9803-9007-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
-(define Termination-Core-case--9701-8923 (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))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--9293-8643 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
-(define Termination-Core-case--7402-8522 (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-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-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 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) 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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 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))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define Termination-Core-case--7397-8455 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7397-8056-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--8759-8340 (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) (Termination-Core-n--8759-8232-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 Termination-Core-case--8758-8177 (lambda (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) (vector 1 arg-8)) (else (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
-(define Termination-Core-case--8758-8089 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12)))))))
-(define Termination-Core-case--8561-7923 (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 arg-9)) (else (vector 0 ))))))
-(define Termination-Core-case--7393-7883 (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8561-7923 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Termination-Core-case--8460-7844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))
-(define Termination-Core-case--8424-7799 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 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))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))))))
-(define Termination-Core-case--7391-7768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8424-7799 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
-(define Termination-Core-case--7387-7724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1))))))
-(define Termination-Core-case--7871-7527 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0)))))))
-(define Termination-Core-case--7828-7260 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 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 ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))))
-(define Termination-Core-case--7794-7225 (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 ((Termination-Core-n--7383-6977-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--7828-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Termination-Core-case--7383-7198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7383-6976-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7383-6977-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--7828-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4))))))))))))))))
-(define Termination-Core-case--7652-7107 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
-(define Termination-Core-case--7539-7079 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7652-7107 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
-(define Termination-Core-case--7538-6991 (lambda (arg-0 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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (Termination-Core-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-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--7383-6912 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3)))))))
-(define Termination-Core-case--7208-6756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1))))))
-(define Termination-Core-case--7208-6718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7)))))
-(define Termination-Core-case--7208-6684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5)))))
-(define Termination-Core-case--6481-6424 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 e-6) eta-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)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--6489-6374 (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) (Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6718-6274 (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-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6488-6248 (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 ((Context-Core-lookupCtxtExact arg-0 (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))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6600-6155 (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) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))))
-(define Termination-Core-case--6487-6140 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6600-6155 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6486-6074 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6337-5957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
-(define Termination-Core-case--6316-5906 (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) (vector 1 arg-4)))(else (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
-(define Termination-Core-case--6294-5891 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6316-5906 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Termination-Core-n--8759-8232-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased 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 Termination-Core-n--7397-8054-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--8759-8340 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
-(define Termination-Core-n--7397-8055-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
-(define Termination-Core-n--9803-9007-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)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 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)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))
-(define Termination-Core-n--9803-9008-mkArgs (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--9803-9008-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 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--9815-9132 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--9803-9006-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
-(define Termination-Core-n--7397-8056-matchArgs (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 (TT-Core-getArgs 'erased e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8055-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11)))))))))))))))
-(define Termination-Core-n--7397-8053-lookupTm (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (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))) (Termination-Core-case--8758-8089 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--8758-8177 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6)))))))))))))))
-(define Termination-Core-n--7383-6976-handleCase (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) ((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) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) ((Termination-Core-case--7538-6991 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-n--6481-6034-guardedNF (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) (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-n--6481-6036-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 (Context-Core-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 ((Normalise-Core-nf 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 ((Termination-Core-n--6481-6034-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 ((Context-Core-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))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1))))))))))))))))))))))))))
-(define Termination-Core-n--9803-9010-getWorst (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
-(define Termination-Core-n--9803-9006-getPos (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--9803-9006-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
-(define Termination-Core-n--7383-6874-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-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-n--10953-10051-dropParams (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10967-10068 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-7 arg-8)))))))))
-(define Termination-Core-n--9803-9011-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--9803-9009-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 (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)))))))))
-(define Termination-Core-n--7383-6977-conIfGuarded (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-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-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))) ((Termination-Core-case--7652-7107 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define Termination-Core-n--6481-6035-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--6600-6155 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 Termination-Core-n--9803-9005-checkDesc (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) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--9803-9005-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
-(define Termination-Core-n--9803-9009-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) 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))) ((Termination-Core-case--10017-9223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 ))))))))))))))
-(define Termination-Core-n--6481-6037-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6481-6036-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))))))))
-(define Termination-Core-n--10462-9597-addCasesC-39 (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 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10467-9614 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4)))))))))
-(define Termination-Core-n--10462-9598-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4)))
+(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--6511-7612 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2)))))))))
+(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--5962-7123 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6))))
+(define Termination-Core-case--12100-11153 (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) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))
+(define Termination-Core-case--12067-11127 (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) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (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))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Termination-Core-case--12051-11098 (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 ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 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 (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))) ((Termination-Core-case--12067-11127 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--11974-11037 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-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 (vector 1 e-2)))))))))))))))
+(define Termination-Core-case--11955-11016 (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) (let ((act-24 (Termination-Core-calcPositive arg-2 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-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 (lambda (eta-0) (vector 1 arg-5)))))))
+(define Termination-Core-case--11787-10887 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) 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 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10))))))))
+(define Termination-Core-case--11767-10852 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) 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-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) 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-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--11715-10807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5)))))))
+(define Termination-Core-case--11638-10752 (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) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Termination-Core-case--11626-10722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-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)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5))))))))))))))))
+(define Termination-Core-case--11549-10660 (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) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Termination-Core-case--11250-10594 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0))))))))))))
+(define Termination-Core-case--11250-10537 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-case--11250-10470 (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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3)))))
+(define Termination-Core-case--11264-10413 (lambda (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) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)))))))
+(define Termination-Core-case--11093-10317 (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 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0))))))))))))
+(define Termination-Core-case--11093-10249 (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 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 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))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0))))))))))))
+(define Termination-Core-case--11045-10202 (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 (Termination-Core-calcTerminating 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 (Context-Core-setTerminating arg-2 arg-1 arg-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 (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Termination-Core-case--10936-10133 (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 ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-5 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))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define Termination-Core-case--10742-10094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10742-9926-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-7 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))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6)))))))))))))))))))))
+(define Termination-Core-case--10813-10011 (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))) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
+(define Termination-Core-case--10764-9985 (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 ((Context-Core-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))) ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
+(define Termination-Core-case--10747-9942 (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) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--10764-9985 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0))))))))))))
+(define Termination-Core-case--10633-9877 (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 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))
+(define Termination-Core-case--10078-9823 (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) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (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) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))))))))))
+(define Termination-Core-case--10368-9607 (lambda (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) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Termination-Core-case--10326-9579 (lambda (arg-0 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 ((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) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Termination-Core-case--10293-9547 (lambda (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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) 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))) ((Termination-Core-case--10326-9579 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 )))))))))))
+(define Termination-Core-case--10091-9524 (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))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-case--10090-9455 (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) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10078-9330-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
+(define Termination-Core-case--9971-9243 (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))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--9546-8948 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
+(define Termination-Core-case--7629-8818 (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-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-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 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) 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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 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))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define Termination-Core-case--7624-8750 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7624-8350-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--9010-8634 (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) (Termination-Core-n--9010-8526-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 Termination-Core-case--9009-8471 (lambda (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) (vector 1 arg-8)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
+(define Termination-Core-case--9009-8383 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12)))))))
+(define Termination-Core-case--8812-8217 (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 arg-9)) (else (vector 0 ))))))
+(define Termination-Core-case--7620-8177 (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8812-8217 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Termination-Core-case--8711-8138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))
+(define Termination-Core-case--8675-8093 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 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))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))))))
+(define Termination-Core-case--7618-8062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8675-8093 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
+(define Termination-Core-case--7614-8018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1))))))
+(define Termination-Core-case--8105-7816 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0)))))))
+(define Termination-Core-case--8061-7532 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 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 ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))))
+(define Termination-Core-case--8026-7496 (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 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Termination-Core-case--7610-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7610-7242-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4))))))))))))))))
+(define Termination-Core-case--7884-7377 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
+(define Termination-Core-case--7768-7349 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
+(define Termination-Core-case--7767-7258 (lambda (arg-0 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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (Termination-Core-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-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--7610-7178 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3)))))))
+(define Termination-Core-case--7435-7020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1))))))
+(define Termination-Core-case--7435-6982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7)))))
+(define Termination-Core-case--7435-6948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5)))))
+(define Termination-Core-case--6695-6685 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-6) eta-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)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--6703-6633 (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) (Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6938-6532 (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-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6702-6505 (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 ((Context-Core-lookupCtxtExact arg-0 (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))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6816-6408 (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) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))))
+(define Termination-Core-case--6701-6393 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6816-6408 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6700-6326 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6551-6208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
+(define Termination-Core-case--6530-6157 (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) (vector 1 arg-4)))(else (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
+(define Termination-Core-case--6506-6142 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6530-6157 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Termination-Core-n--9010-8526-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased 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 Termination-Core-n--7624-8348-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--9010-8634 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
+(define Termination-Core-n--7624-8349-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
+(define Termination-Core-n--10078-9330-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)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 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)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))
+(define Termination-Core-n--10078-9331-mkArgs (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-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 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--10090-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
+(define Termination-Core-n--7624-8350-matchArgs (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 (TT-Core-getArgs 'erased e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8349-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11)))))))))))))))
+(define Termination-Core-n--7624-8347-lookupTm (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (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))) (Termination-Core-case--9009-8383 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--9009-8471 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6)))))))))))))))
+(define Termination-Core-n--7610-7242-handleCase (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) ((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) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) ((Termination-Core-case--7767-7258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-n--6695-6285-guardedNF (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) (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-n--6695-6287-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 (Context-Core-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 ((Normalise-Core-nf 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 ((Termination-Core-n--6695-6285-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 ((Context-Core-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))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1))))))))))))))))))))))))))
+(define Termination-Core-n--10078-9333-getWorst (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
+(define Termination-Core-n--10078-9329-getPos (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
+(define Termination-Core-n--7610-7138-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-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-n--11250-10396-dropParams (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--11264-10413 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8)))))))))
+(define Termination-Core-n--10078-9334-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10078-9332-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 (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)))))))))
+(define Termination-Core-n--7610-7243-conIfGuarded (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-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-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))) ((Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define Termination-Core-n--6695-6286-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--6816-6408 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 Termination-Core-n--10078-9328-checkDesc (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) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
+(define Termination-Core-n--10078-9332-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) 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))) ((Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 ))))))))))))))
+(define Termination-Core-n--6695-6288-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6695-6287-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))))))))
+(define Termination-Core-n--10742-9925-addCasesC-39 (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 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10747-9942 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4)))))))))
+(define Termination-Core-n--10742-9926-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4)))
 (define Termination-Core-totRefsIn (lambda (arg-0 arg-1 arg-2 arg-3) (Termination-Core-totRefs arg-1 arg-2 (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-3)))))
-(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (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))) ((Termination-Core-case--6316-5906 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5))))))))))))))))))))))
-(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7391-7768 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5))))
-(define Termination-Core-smaller (lambda (arg-0 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))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7387-7724 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5)))))))))
+(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (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))) ((Termination-Core-case--6530-6157 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5))))))))))))))))))))))
+(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7618-8062 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5))))
+(define Termination-Core-smaller (lambda (arg-0 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))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7614-8018 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5)))))))))
 (define Termination-Core-scEq (lambda (arg-0 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))) (Prelude-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Name-Core-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-46 (vector-ref sc0 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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 Termination-Core-posArg (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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))) (Termination-Core-n--10953-10051-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) 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 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) 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))) (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-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) 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) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) 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))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-posArg (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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))) (Termination-Core-n--11250-10396-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) 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 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) 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))) (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-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) 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) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) 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))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
 (define Termination-Core-nextArg (lambda (arg-0) (b+ arg-0 1 63)))
-(define Termination-Core-nameIn (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased 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-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 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))) (Termination-Core-case--10801-9974 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-nameIn (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased 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-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 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))) (Termination-Core-case--11093-10317 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Termination-Core-mkChange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-mkChange 'erased arg-1 arg-2 (vector 1 (vector 0 e-6 e-11) (vector 1 (vector 0 e-6 e-12) e-3)) arg-4))))(else (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Termination-Core-scEq 'erased arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 1 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-smaller 'erased 1 arg-1 (Termination-Core-asserted 'erased arg-2 arg-4) arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 0 ))))) (vector 0 ))) (Termination-Core-mkChange 'erased arg-1 arg-2 e-3 arg-4)))))))))))))))
 (define Termination-Core-initArgs (lambda (arg-0 arg-1) (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 (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 (Termination-Core-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 ((Termination-Core-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 (vector 1 (vector 1 (vector 0 e-5 (vector 1 ))) e-7)))))))))))))))))))))))
-(define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 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 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SCCall arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SCCall arg-650 arg-651)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8056-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 Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 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 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8350-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 Termination-Core-firstArg (lambda () 0))
-(define Termination-Core-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 ((Context-Core-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 ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name 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 ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 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 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0)))))))))))
-(define Termination-Core-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 ((Termination-Core-n--7383-6874-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 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 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 (List-Prelude-C-43C-43 'erased 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))) (Termination-Core-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))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7383-7198 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7383-7198 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))))))
-(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "        =") e-6 e-11 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 ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 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 ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0))))))))))))))))))))))))))
+(define Termination-Core-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 ((Context-Core-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 ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name 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 ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 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 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0)))))))))))
+(define Termination-Core-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 ((Termination-Core-n--7610-7138-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 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 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 (List-Prelude-C-43C-43 'erased 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))) (Termination-Core-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))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))))))
+(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "        =") e-6 e-11 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 ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 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 ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0))))))))))))))))))))))))))
 (define Termination-Core-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pargs (TT-Core-getArgs 'erased (Termination-Core-delazy 'erased arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseOpts e-2 (Value-Core-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))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (List-Data-zip 'erased 'erased (Prelude-take 'erased (List-Data-length 'erased pargs) (Prelude-rangeFrom_Range__Nat (Prelude-fromInteger_Num__Nat 0))) pargs) (Termination-Core-delazy 'erased arg-1 e-5)) eta-0)))))))))))))))))))
 (define Termination-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Termination-Core-expandToArity e-0 e-3))))) (else (vector 1 (vector 0 ) (Termination-Core-expandToArity e-0 (vector 0 ))))))))))))
 (define Termination-Core-delazy (lambda (arg-0 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 ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-2 tmC-39))(else 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 ((tyC-39 (Termination-Core-delazy 'erased arg-1 e-7))) (let ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-8))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (vector 7 e-5 e-6 tyC-39 tmC-39))(else 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 (Termination-Core-delazy 'erased arg-1 e-12)))(else (Termination-Core-delazy 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-21) (Termination-Core-delazy 'erased 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 (Termination-Core-delazy 'erased arg-1 e-25) (Termination-Core-delazy 'erased 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 (Termination-Core-delazy 'erased arg-1 e-30) (Termination-Core-delazy 'erased arg-1 e-31)))))))(else arg-2)))))
-(define Termination-Core-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))) ((Termination-Core-case--11734-10730 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
-(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Termination-Core-case--10756-9864 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
-(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--9803-9496 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__Int arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) pos arg-5)))))
-(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-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))) ((Termination-Core-case--11644-10653 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0)))))))))))))
+(define Termination-Core-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))) ((Termination-Core-case--12051-11098 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
+(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Termination-Core-case--11045-10202 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
+(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--10078-9823 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__Int arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) pos arg-5)))))
+(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-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))) ((Termination-Core-case--11955-11016 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0)))))))))))))
 (define Termination-Core-checkPosArgs (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 ((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))) (lambda (eta-0) (let ((act-24 ((Termination-Core-posArg arg-0 arg-1 e-8) 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-9) eta-0)))))))(else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-checkIfGuarded (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 (Context-Core-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) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6481-6037-allGuarded arg-2 arg-1 arg-0 e-7) 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))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-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 Termination-Core-checkIfGuarded (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 (Context-Core-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) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6695-6288-allGuarded arg-2 arg-1 arg-0 e-7) 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))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-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 Termination-Core-checkData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-checkCon arg-0 arg-1 arg-2 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) ((Termination-Core-checkData arg-0 arg-1 arg-2 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
 (define Termination-Core-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((Termination-Core-totRefsIn 'erased 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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) 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))) ((Termination-Core-checkPosArgs arg-1 arg-2 e-7) ext-0)))))))(else (vector 1 e-6))))))))))))))))))))
 (define Termination-Core-caseFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) 0) ((4) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-caseFn e-3))) ((0) (let ((e-5 (vector-ref sc0 2))) (Termination-Core-caseFn e-5)))(else 1)))))
 (define Termination-Core-calculateSizeChange (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 ((Context-Core-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))) ((Termination-Core-getSC arg-0 e-5 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Termination-Core-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 ((Context-Core-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10462-9598-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-7)) 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) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-9 e-10) 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))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8))))))))))))))))))))))))))))))
+(define Termination-Core-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 ((Context-Core-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10742-9926-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-7)) 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) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-9 e-10) 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))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8))))))))))))))))))))))))))))))
 (define Termination-Core-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 (Context-Core-lookupDefTyExact 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) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((6) (let ((e-12 (vector-ref sc4 6))) (let ((e-13 (vector-ref sc4 7))) (let ((act-26 ((Termination-Core-totRefsIn 'erased arg-0 e-5 e-7) 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-17 (vector-ref sc5 1))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((act-27 ((Termination-Core-checkData arg-0 e-5 (vector 1 arg-2 e-12) e-13) ext-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-18 (vector-ref sc7 1))) (vector 1 (vector 0 e-18 e-13))))))))(else (vector 1 (vector 0 e-17 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Termination-Core-assertedSmaller (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-scEq 'erased e-1 arg-2)))(else 1)))))
-(define Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7393-7883 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define Coverage-Core-case--9664-10155 (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 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 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 ((Coverage-Core-n--9659-10121-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
-(define Coverage-Core-case--9400-9928 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) 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-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-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 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) 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 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5))))))))))))))))
-(define Coverage-Core-case--9405-9884 (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 (vector 10 arg-7 1) (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
-(define Coverage-Core-case--9049-9650 (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))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9049-9547-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9049-9546-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Coverage-Core-case--9077-9586 (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 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Coverage-Core-case--9055-9571 (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 ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9077-9586 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--8493-9051 (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 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5)))))))
-(define Coverage-Core-case--8397-8960 (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 (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6))))))
-(define Coverage-Core-case--8060-8723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
-(define Coverage-Core-case--8060-8663 (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 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
-(define Coverage-Core-case--8060-8607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7634-8367 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7634-8226-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-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))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7660-8262 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-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 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7652-8236 (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 ((_-0 (vector 1 e-1))) (Coverage-Core-case--7660-8262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7441-8082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-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-15)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--7420-8047 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7441-8082 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-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--7265-7938 (lambda (arg-0 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) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2)))))))))
-(define Coverage-Core-case--7236-7898 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-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))) ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-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 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--6636-7876 (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))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7236-7898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--6648-7803 (lambda (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) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6648-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6648-7627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6686-7445 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6647-7409 (lambda (arg-0 arg-1 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) (let ((act-24 ((Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-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-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6121-7336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3))))))
-(define Coverage-Core-case--6143-7295 (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) 0) (else (Coverage-Core-n--6121-6924-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
-(define Coverage-Core-case--6455-7229 (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) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6121-6923-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
-(define Coverage-Core-case--6426-7205 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6455-7229 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6121-6921-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
-(define Coverage-Core-case--6142-7183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6426-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4)))))))
-(define Coverage-Core-case--6142-7115 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-case--6142-7037 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-case--6141-6973 (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 ((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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-n--9659-10121-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 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 (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 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)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-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 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9659-10121-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
-(define Coverage-Core-n--8688-9207-rep (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))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 )))))))))
-(define Coverage-Core-n--9049-9547-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--9077-9586 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1)))))))))))
-(define Coverage-Core-n--8060-8759-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5))))
-(define Coverage-Core-n--9049-9546-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2)))))))))
-(define Coverage-Core-n--9577-10039-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9577-10039-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9))))))))))
-(define Coverage-Core-n--8060-8707-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
-(define Coverage-Core-n--8060-8647-isDefault (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) 0)(else 1)))))
-(define Coverage-Core-n--6121-6922-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))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6141-6973 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
-(define Coverage-Core-n--7889-8447-emptyRHSalt (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))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased 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 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13))))))))
-(define Coverage-Core-n--8688-9208-dropRep (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
-(define Coverage-Core-n--9400-9868-dropPos (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9405-9884 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-5)))))))))
-(define Coverage-Core-n--6121-6923-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))) (Coverage-Core-case--6142-7037 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased 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))) (Coverage-Core-case--6142-7115 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6142-7183 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
-(define Coverage-Core-n--6636-7366-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 ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) 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))) ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ 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)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (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-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (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))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))
-(define Coverage-Core-n--6636-7365-conflictArgs (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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) 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 ((Normalise-Core-evalClosure (vector 0 ) arg-4 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))) (let ((act-26 ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-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 ((Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) 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))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))
-(define Coverage-Core-n--6121-6924-conflictArgs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6143-7295 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6121-6923-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
-(define Coverage-Core-n--9577-10040-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9577-10039-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
-(define Coverage-Core-n--6121-6921-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-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1)))))
-(define Coverage-Core-n--8787-9292-buildArgsAlt (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--8787-9291-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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))) (let ((act-25 ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) 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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--8787-9291-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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 ((act-25 ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))))))))))
-(define Coverage-Core-n--8787-9291-buildArgAlt (lambda (arg-0 arg-1 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) (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 ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) 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 ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) 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))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13)))))))
-(define Coverage-Core-n--7634-8226-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (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))) ((Coverage-Core-case--7660-8262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (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 Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7620-8177 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define Coverage-Core-case--9906-10303 (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 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 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 ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
+(define Coverage-Core-case--9636-10065 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) 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-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-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 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) 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 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5))))))))))))))))
+(define Coverage-Core-case--9641-10021 (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 (vector 10 arg-7 1) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
+(define Coverage-Core-case--9282-9787 (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))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Coverage-Core-case--9311-9720 (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 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Coverage-Core-case--9288-9705 (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 ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--8711-9168 (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 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5)))))))
+(define Coverage-Core-case--8615-9077 (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 (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6))))))
+(define Coverage-Core-case--8277-8839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
+(define Coverage-Core-case--8277-8779 (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 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
+(define Coverage-Core-case--8277-8723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7849-8482 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-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))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7876-8376 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-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 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7867-8350 (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 ((_-0 (vector 1 e-1))) (Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7656-8195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-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-15)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--7634-8160 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7656-8195 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-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--7477-8050 (lambda (arg-0 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) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2)))))))))
+(define Coverage-Core-case--7448-8008 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-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))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-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 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--6842-7986 (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))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7448-8008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--6854-7912 (lambda (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) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6854-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6854-7736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6895-7552 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6853-7515 (lambda (arg-0 arg-1 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) (let ((act-24 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-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-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6327-7439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3))))))
+(define Coverage-Core-case--6349-7398 (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) 0) (else (Coverage-Core-n--6327-7027-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
+(define Coverage-Core-case--6661-7332 (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) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
+(define Coverage-Core-case--6632-7308 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6661-7332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6327-7024-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
+(define Coverage-Core-case--6348-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6632-7308 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4)))))))
+(define Coverage-Core-case--6348-7218 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-case--6348-7140 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-case--6347-7076 (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 ((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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-n--9901-10267-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 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 (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 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)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-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 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
+(define Coverage-Core-n--8906-9324-rep (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))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 )))))))))
+(define Coverage-Core-n--9282-9680-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1)))))))))))
+(define Coverage-Core-n--8277-8875-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5))))
+(define Coverage-Core-n--9282-9679-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2)))))))))
+(define Coverage-Core-n--9816-10182-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9))))))))))
+(define Coverage-Core-n--8277-8823-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
+(define Coverage-Core-n--8277-8763-isDefault (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) 0)(else 1)))))
+(define Coverage-Core-n--6327-7025-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))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6347-7076 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
+(define Coverage-Core-n--8106-8563-emptyRHSalt (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))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased 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 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13))))))))
+(define Coverage-Core-n--8906-9325-dropRep (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
+(define Coverage-Core-n--9636-10005-dropPos (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9641-10021 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5)))))))))
+(define Coverage-Core-n--6327-7026-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))) (Coverage-Core-case--6348-7140 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased 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))) (Coverage-Core-case--6348-7218 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6348-7286 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
+(define Coverage-Core-n--6842-7469-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 ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) 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))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ 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)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (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-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (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))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))
+(define Coverage-Core-n--6842-7468-conflictArgs (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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) 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 ((Normalise-Core-evalClosure (vector 0 ) arg-4 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))) (let ((act-26 ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-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 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) 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))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))
+(define Coverage-Core-n--6327-7027-conflictArgs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6349-7398 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
+(define Coverage-Core-n--9816-10183-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
+(define Coverage-Core-n--6327-7024-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-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1)))))
+(define Coverage-Core-n--9009-9414-buildArgsAlt (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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))) (let ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) 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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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 ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))))))))))
+(define Coverage-Core-n--9009-9413-buildArgAlt (lambda (arg-0 arg-1 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) (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 ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) 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 ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) 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))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13)))))))
+(define Coverage-Core-n--7849-8339-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (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))) ((Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (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 Coverage-Core-weakenNs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-insertVarNames 'erased 'erased (vector 0 ) arg-2 e-6 'erased) e-7) (Coverage-Core-weakenNs 'erased arg-1 arg-2 e-3))))))))))))
-(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1)))))
+(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1)))))
 (define Coverage-Core-tagIs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-C-61C-61_Eq__Int arg-1 e-2))) ((2) 1) ((1) 1) (else 0)))))
-(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8688-9207-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-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 ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
-(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2)))))))))))
+(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8906-9324-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-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 ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
+(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2)))))))))))
 (define Coverage-Core-match (lambda (arg-0 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))) (Name-Core-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))) (Prelude-C-38C-38 (Coverage-Core-match 'erased e-19 e-51) (lambda () (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased e-25 e-57)))(else (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (TT-Core-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 Coverage-Core-isEmpty (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (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-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-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--7441-8082 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-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 ((Context-Core-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))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9049-9547-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9049-9546-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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) ((19) (Coverage-Core-case--8060-8607 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8060-8663 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8060-8647-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8060-8723 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8060-8707-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-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 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8060-8759-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))))))
+(define Coverage-Core-isEmpty (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (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-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-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--7656-8195 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-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 ((Context-Core-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))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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) ((19) (Coverage-Core-case--8277-8723 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8277-8779 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8763-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8277-8839 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8823-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-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 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8277-8875-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))))))
 (define Coverage-Core-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 ((psIn (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((Coverage-Core-buildArgs arg-0 arg-2 e-5 (vector 0 ) (vector 0 ) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-apply 'erased arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6)))))))))))))))
-(define Coverage-Core-getCons (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7634-8226-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-getCons (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Coverage-Core-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Coverage-Core-freeEnv arg-0 e-3))))))))
-(define Coverage-Core-findTag (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8397-8960 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6))))))))))))
-(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9400-9928 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--7889-8447-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased 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 Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6121-7336 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6121-6924-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3))))))))))))
-(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--7236-7898 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (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 Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9577-10040-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased 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 ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Coverage-Core-match 'erased e-6 e-7))))))))))))))))))))
-(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased 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))) ((Coverage-Core-n--9659-10121-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0))))))))
-(define Coverage-Core-buildArgs (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-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 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 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 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 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 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 ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-findTag (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8615-9077 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6))))))))))))
+(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9636-10065 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8106-8563-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased 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 Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6327-7439 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6327-7027-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3))))))))))))
+(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--7448-8008 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (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 Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9816-10183-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased 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 ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Coverage-Core-match 'erased e-6 e-7))))))))))))))))))))
+(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased 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))) ((Coverage-Core-n--9901-10267-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0))))))))
+(define Coverage-Core-buildArgs (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-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 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 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 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 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 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 ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Coverage-Core-altMatch (lambda (arg-0 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))) (Prelude-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))) (TT-Core-C-61C-61_Eq__Constant e-10 e-22)))(else 1)))))(else 1))))))))
-(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8493-9051 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6))))))))))))
-(define CaseBuilder-Core-with--10294-7435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (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 ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--10293-7260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--10292-6941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--8495-5098 (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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8533-5115 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased 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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8533-5181 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
-(define CaseBuilder-Core-case--14889-11082 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))))))))))
-(define CaseBuilder-Core-case--14977-10915 (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) (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)))))))
-(define CaseBuilder-Core-case--14549-10533 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0)))))))
-(define CaseBuilder-Core-case--14508-10496 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14549-10533 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 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2))))))))
-(define CaseBuilder-Core-case--14470-10464 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14549-10533 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0)))))))))))))))))
-(define CaseBuilder-Core-case--14455-10432 (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 ((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) (lambda (eta-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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14549-10533 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 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0))))))))))
-(define CaseBuilder-Core-case--13990-9974 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) 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 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5)))))))))))))))))))
-(define CaseBuilder-Core-case--13208-9587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0)))))))
-(define CaseBuilder-Core-case--13197-9263 (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 ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0))))))))))))))
-(define CaseBuilder-Core-case--12983-9075 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))
-(define CaseBuilder-Core-case--12907-8995 (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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-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 ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))
-(define CaseBuilder-Core-case--12731-8927 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 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 ((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 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) 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 ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))))))))))
-(define CaseBuilder-Core-case--12762-8859 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0))))))))
-(define CaseBuilder-Core-case--12731-8799 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 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 ((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 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0))))))))))))))))
-(define CaseBuilder-Core-case--12622-8703 (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) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0)))))))
-(define CaseBuilder-Core-case--12050-8357 (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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
-(define CaseBuilder-Core-case--12050-8278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1)))))
-(define CaseBuilder-Core-case--12050-8199 (lambda (arg-0 arg-1 arg-2 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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1)))))
-(define CaseBuilder-Core-case--11640-8080 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 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))) ((CaseBuilder-Core-n--11640-7837-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-case--11677-7982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (CaseBuilder-Core-n--11640-7837-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-case--10295-7537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (CaseBuilder-Core-n--10268-6619-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0)))))))
-(define CaseBuilder-Core-case--10293-7097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))
-(define CaseBuilder-Core-case--10427-6854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1))))))))
-(define CaseBuilder-Core-case--10292-6734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-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 (Context-Core-lookupTyExact arg-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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1)))))))))))))))))))))
-(define CaseBuilder-Core-case--10292-6649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))
-(define CaseBuilder-Core-case--10055-6578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6))))))))
-(define CaseBuilder-Core-case--10078-6522 (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) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2)))))))
-(define CaseBuilder-Core-case--10078-6452 (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 0 arg-9 arg-8 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))))))))
-(define CaseBuilder-Core-case--9931-6373 (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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6)))))))
-(define CaseBuilder-Core-case--9460-6127 (lambda (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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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 ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 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 0 (vector 0 ) (vector 1 e-5))))))))))))))))))
-(define CaseBuilder-Core-case--9521-6007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5))))))))
-(define CaseBuilder-Core-case--9460-5946 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9521-6007 arg-0 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 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3)))))))))))
-(define CaseBuilder-Core-case--9074-5792 (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) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 ))))))))
-(define CaseBuilder-Core-case--9107-5647 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 )))))))(else (vector 3 ))))))
-(define CaseBuilder-Core-case--9074-5573 (lambda (arg-0 arg-1 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))) (CaseBuilder-Core-case--9107-5647 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10)))))))))
-(define CaseBuilder-Core-case--8533-5245 (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 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 )))))))
-(define CaseBuilder-Core-case--8533-5181 (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 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4))))))
-(define CaseBuilder-Core-case--8533-5115 (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 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4)))))))
-(define CaseBuilder-Core-case--8190-4993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15))))))
-(define CaseBuilder-Core-case--8190-4890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 ))))))
-(define CaseBuilder-Core-case--7140-3887 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 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 (vector 1 e-2 e-5)))))))))))))
-(define CaseBuilder-Core-case--6915-3735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20))))))))
-(define CaseBuilder-Core-case--6788-3661 (lambda (arg-0 arg-1 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) (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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 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 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) 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 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) 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))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
-(define CaseBuilder-Core-case--6788-3588 (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9)))))))))
-(define CaseBuilder-Core-case--6768-3553 (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))) (lambda (eta-0) (vector 1 (vector 0 (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 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref 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 ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-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) ((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 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 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 ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) 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))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (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 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
-(define CaseBuilder-Core-case--6637-3478 (lambda (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11))))))))
-(define CaseBuilder-Core-case--6395-3424 (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) (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 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 (vector 1 (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 (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3))))))))
-(define CaseBuilder-Core-case--6443-3329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15))))))))
-(define CaseBuilder-Core-case--6395-3252 (lambda (arg-0 arg-1 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) ((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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-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 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) 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 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) 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))) (vector 1 (vector 1 (let ((sc6 arg-11)) (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-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10))))))))
-(define CaseBuilder-Core-n--13217-9685-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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) 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))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) 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 ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13217-9685-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 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 e-6 e-4 e-5))))))))))))))))))))))))))
-(define CaseBuilder-Core-n--10055-6442-update (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))) (CaseBuilder-Core-case--10078-6452 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10078-6522 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-21 arg-5)))))(else arg-7)))))
-(define CaseBuilder-Core-n--10034-6403-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define CaseBuilder-Core-n--14889-10900-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 (CaseBuilder-Core-n--14889-10899-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--14889-10899-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7))))))))))))
-(define CaseBuilder-Core-n--7323-4044-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
-(define CaseBuilder-Core-n--11640-7837-sameTypeAs (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (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 ((Normalise-Core-nf arg-2 e-7 arg-5 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))) ((CaseBuilder-Core-case--11677-7982 'erased 'erased 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 (CaseBuilder-Core-n--11640-7836-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-n--12024-8172-samePatAs (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) 0)(else (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))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12050-8199 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((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 ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12050-8278 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12050-8357 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (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-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (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 ((sc1 arg-6)) (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) ((5) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1))))))))
-(define CaseBuilder-Core-n--14889-10898-mkSubstEnv (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) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--14889-10898-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5))))))))
-(define CaseBuilder-Core-n--14302-10297-mkPatClausesFrom (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) 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 ((act-25 ((CaseBuilder-Core-n--14302-10297-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define CaseBuilder-Core-n--13975-9900-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (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 (Context-Core-clearDefs e-5 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 ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (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-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (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 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased 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 ((CaseBuilder-Core-n--13975-9900-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 'erased 'erased e-7)) 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))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10))))))))))))))))))))))))))))))))))))
-(define CaseBuilder-Core-n--14889-10897-labelPat (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--14889-10897-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3)))))))))
-(define CaseBuilder-Core-n--11640-7836-headEq (lambda (arg-0 arg-1 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) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(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-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(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-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(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 CaseBuilder-Core-n--14889-10896-getUnreachable (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14977-10915 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-6 arg-7)))))))))
-(define CaseBuilder-Core-n--14302-10298-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14302-10298-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))
-(define CaseBuilder-Core-n--8152-4802-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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))) (CaseBuilder-Core-case--8190-4890 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))
-(define CaseBuilder-Core-n--14889-10816-getArgs (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 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-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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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 ((CaseBuilder-Core-n--14889-10816-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) 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))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseBuilder-Core-n--10268-6623-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6622-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) 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))) ((CaseBuilder-Core-n--10268-6623-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) eta-0))))))))))))))))))))))))
-(define CaseBuilder-Core-n--14812-10745-findRAlts (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 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13)))))))
-(define CaseBuilder-Core-n--12024-8171-dropAs (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 3))) e-2))(else arg-5)))))
-(define CaseBuilder-Core-n--14889-10899-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--14889-10898-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9)))
-(define CaseBuilder-Core-n--8152-4801-clauseTypeC-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 ))))))
-(define CaseBuilder-Core-n--13202-9383-altGroups (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6)))))))))))))))))))))))))
-(define CaseBuilder-Core-n--10268-6622-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (CaseBuilder-Core-n--10268-6622-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 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))) (CaseBuilder-Core-case--10295-7537 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6619-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6619-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 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6620-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))) (CaseBuilder-Core-n--10268-6621-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 CaseBuilder-Core-n--10268-6620-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)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d 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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 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)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10293-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11))))))))
-(define CaseBuilder-Core-n--10268-6621-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10294-7435 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12))))))))
-(define CaseBuilder-Core-n--10268-6619-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10292-6734 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 (Name-Core-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 ((CaseBuilder-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10292-6941 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14))))))))
+(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8711-9168 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6))))))))))))
+(define CaseBuilder-Core-with--10547-7580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (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 ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--10546-7404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--10545-7080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--8739-5216 (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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5233 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased 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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5299 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
+(define CaseBuilder-Core-case--15201-11289 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))))))))))
+(define CaseBuilder-Core-case--15292-11119 (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) (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)))))))
+(define CaseBuilder-Core-case--14856-10725 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0)))))))
+(define CaseBuilder-Core-case--14814-10688 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14856-10725 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 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2))))))))
+(define CaseBuilder-Core-case--14774-10655 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14856-10725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0)))))))))))))))))
+(define CaseBuilder-Core-case--14759-10620 (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 ((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) (lambda (eta-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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14856-10725 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 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0))))))))))
+(define CaseBuilder-Core-case--14281-10151 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) 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 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5)))))))))))))))))))
+(define CaseBuilder-Core-case--13481-9753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0)))))))
+(define CaseBuilder-Core-case--13470-9418 (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 ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0))))))))))))))
+(define CaseBuilder-Core-case--13255-9229 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))
+(define CaseBuilder-Core-case--13178-9148 (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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-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 ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))
+(define CaseBuilder-Core-case--13001-9079 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 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 ((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 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) 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 ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))))))))))
+(define CaseBuilder-Core-case--13032-9011 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0))))))))
+(define CaseBuilder-Core-case--13001-8950 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 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 ((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 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0))))))))))))))))
+(define CaseBuilder-Core-case--12893-8854 (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) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0)))))))
+(define CaseBuilder-Core-case--12321-8508 (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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
+(define CaseBuilder-Core-case--12321-8429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1)))))
+(define CaseBuilder-Core-case--12321-8350 (lambda (arg-0 arg-1 arg-2 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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1)))))
+(define CaseBuilder-Core-case--11907-8230 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 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))) ((CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-case--11944-8131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-case--10548-7683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (CaseBuilder-Core-n--10521-6751-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0)))))))
+(define CaseBuilder-Core-case--10546-7241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))
+(define CaseBuilder-Core-case--10682-6993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1))))))))
+(define CaseBuilder-Core-case--10545-6868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-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 (Context-Core-lookupTyExact arg-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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1)))))))))))))))))))))
+(define CaseBuilder-Core-case--10545-6783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))
+(define CaseBuilder-Core-case--10308-6710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6))))))))
+(define CaseBuilder-Core-case--10331-6654 (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) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2)))))))
+(define CaseBuilder-Core-case--10331-6584 (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 0 arg-9 arg-8 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))))))))
+(define CaseBuilder-Core-case--10184-6505 (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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6)))))))
+(define CaseBuilder-Core-case--9708-6259 (lambda (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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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 ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 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 0 (vector 0 ) (vector 1 e-5))))))))))))))))))
+(define CaseBuilder-Core-case--9774-6139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5))))))))
+(define CaseBuilder-Core-case--9708-6078 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9774-6139 arg-0 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 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3)))))))))))
+(define CaseBuilder-Core-case--9320-5914 (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) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 ))))))))
+(define CaseBuilder-Core-case--9353-5769 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 )))))))(else (vector 3 ))))))
+(define CaseBuilder-Core-case--9320-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--9353-5769 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10)))))))))
+(define CaseBuilder-Core-case--8777-5363 (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 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 )))))))
+(define CaseBuilder-Core-case--8777-5299 (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 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4))))))
+(define CaseBuilder-Core-case--8777-5233 (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 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4)))))))
+(define CaseBuilder-Core-case--8434-5111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15))))))
+(define CaseBuilder-Core-case--8434-5008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 ))))))
+(define CaseBuilder-Core-case--7372-3997 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 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 (vector 1 e-2 e-5)))))))))))))
+(define CaseBuilder-Core-case--7146-3844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20))))))))
+(define CaseBuilder-Core-case--7016-3769 (lambda (arg-0 arg-1 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) (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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 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 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) 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 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) 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))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
+(define CaseBuilder-Core-case--7016-3691 (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9)))))))))
+(define CaseBuilder-Core-case--6996-3656 (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))) (lambda (eta-0) (vector 1 (vector 0 (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 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref 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 ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-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) ((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 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 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 ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) 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))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (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 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
+(define CaseBuilder-Core-case--6863-3581 (lambda (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11))))))))
+(define CaseBuilder-Core-case--6617-3523 (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) (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 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 (vector 1 (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 (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3))))))))
+(define CaseBuilder-Core-case--6665-3428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15))))))))
+(define CaseBuilder-Core-case--6617-3345 (lambda (arg-0 arg-1 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) ((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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-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 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) 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 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) 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))) (vector 1 (vector 1 (let ((sc6 arg-11)) (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-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10))))))))
+(define CaseBuilder-Core-n--13490-9851-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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) 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))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) 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 ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13490-9851-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 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 e-6 e-4 e-5))))))))))))))))))))))))))
+(define CaseBuilder-Core-n--10308-6574-update (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))) (CaseBuilder-Core-case--10331-6584 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10331-6654 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-5)))))(else arg-7)))))
+(define CaseBuilder-Core-n--10287-6535-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define CaseBuilder-Core-n--15201-11104-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7))))))))))))
+(define CaseBuilder-Core-n--7557-4158-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
+(define CaseBuilder-Core-n--11907-7984-sameTypeAs (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (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 ((Normalise-Core-nf arg-2 e-7 arg-5 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))) ((CaseBuilder-Core-case--11944-8131 'erased 'erased 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 (CaseBuilder-Core-n--11907-7983-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-n--12295-8323-samePatAs (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) 0)(else (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))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12321-8350 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((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 ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12321-8429 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12321-8508 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (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-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (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 ((sc1 arg-6)) (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) ((5) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1))))))))
+(define CaseBuilder-Core-n--15201-11102-mkSubstEnv (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) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5))))))))
+(define CaseBuilder-Core-n--14600-10478-mkPatClausesFrom (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) 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 ((act-25 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define CaseBuilder-Core-n--14266-10072-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (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 (Context-Core-clearDefs e-5 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 ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (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-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (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 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased 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 ((CaseBuilder-Core-n--14266-10072-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 'erased 'erased e-7)) 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))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10))))))))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-n--15201-11101-labelPat (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15201-11101-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3)))))))))
+(define CaseBuilder-Core-n--11907-7983-headEq (lambda (arg-0 arg-1 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) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(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-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(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-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(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 CaseBuilder-Core-n--15201-11100-getUnreachable (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--15292-11119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-6 arg-7)))))))))
+(define CaseBuilder-Core-n--14600-10479-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14600-10479-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))
+(define CaseBuilder-Core-n--8396-4920-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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))) (CaseBuilder-Core-case--8434-5008 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))
+(define CaseBuilder-Core-n--15201-11016-getArgs (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 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-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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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 ((CaseBuilder-Core-n--15201-11016-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) 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))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseBuilder-Core-n--10521-6755-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) 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))) ((CaseBuilder-Core-n--10521-6755-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) eta-0))))))))))))))))))))))))
+(define CaseBuilder-Core-n--15124-10945-findRAlts (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 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13)))))))
+(define CaseBuilder-Core-n--12295-8322-dropAs (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 3))) e-2))(else arg-5)))))
+(define CaseBuilder-Core-n--15201-11103-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9)))
+(define CaseBuilder-Core-n--8396-4919-clauseTypeC-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 ))))))
+(define CaseBuilder-Core-n--13475-9539-altGroups (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6)))))))))))))))))))))))))
+(define CaseBuilder-Core-n--10521-6754-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 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))) (CaseBuilder-Core-case--10548-7683 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-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 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6752-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))) (CaseBuilder-Core-n--10521-6753-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 CaseBuilder-Core-n--10521-6752-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)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d 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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 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)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10546-7404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11))))))))
+(define CaseBuilder-Core-n--10521-6753-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10547-7580 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12))))))))
+(define CaseBuilder-Core-n--10521-6751-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10545-6868 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 (Name-Core-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 ((CaseBuilder-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10545-7080 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14))))))))
 (define CaseBuilder-Core-weaken_Weaken__ArgType (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 ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (vector 1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-4)))) (else (vector 2 ))))))
 (define CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 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 (CaseBuilder-Core-weaken_Weaken__ArgType arg-1 arg-2 e-6)))))))))
 (define CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 e-3 arg-3)))))))))
 (define CaseBuilder-Core-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))) (Strings-Prelude-C-43C-43 "Known " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-1) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Stuck " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown")))))
 (define CaseBuilder-Core-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))) (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))))
-(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]"))))
+(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]"))))
 (define CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1 arg-2) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 arg-2)))
 (define CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3)))
 (define CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3)))
-(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3225)))))))
+(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3271)))))))
 (define CaseBuilder-Core-__Impl_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 d x))))))
 (define CaseBuilder-Core-__Impl_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x))))))
 (define CaseBuilder-Core-__Impl_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x))))))
 (define CaseBuilder-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weakenNs 'erased arg-1 arg-2 e-5)))))))))
 (define CaseBuilder-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weaken 'erased arg-1 arg-2 e-5)))))))))
-(define CaseBuilder-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13217-9685-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))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0))))))))
-(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6395-3252 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6)))))))))))))))))
-(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5)))))))))
-(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10034-6403-update eta-0)) ext-0)))
-(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14455-10432 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2)))))))
+(define CaseBuilder-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13490-9851-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))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0))))))))
+(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6617-3345 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6)))))))))))))))))
+(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5)))))))))
+(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10287-6535-update eta-0)) ext-0)))
+(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14759-10620 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2)))))))
 (define CaseBuilder-Core-tail (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-4 (vector-ref sc0 2))) e-4))))
 (define CaseBuilder-Core-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-25 ((CaseBuilder-Core-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4) 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))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))))
-(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--6768-3553 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)))))
+(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--6996-3656 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)))))
 (define CaseBuilder-Core-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))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5)))))))))))))))))))))))
-(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Builtin-fst 'erased 'erased c) 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 ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Builtin-snd 'erased 'erased c) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-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 ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0))))))))))))))))
+(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-fst 'erased 'erased c) 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 ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-snd 'erased 'erased c) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-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 ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0))))))))))))))))
 (define CaseBuilder-Core-shuffleVars (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))) (vector 0 e-2 (CaseBuilder-Core-moveFirst 'erased 'erased 'erased arg-3 'erased e-3) e-4 e-5))))))))
-(define CaseBuilder-Core-sameType (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) (vector 1 (vector 0 )))) (else (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-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))) ((CaseBuilder-Core-case--11640-8080 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0))))))))))))))
-(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12024-8171-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12024-8171-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3)))))))))
-(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--12731-8799 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--12731-8927 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8)))))))))
-(define CaseBuilder-Core-patCompile (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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14302-10298-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14302-10297-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 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))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) 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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 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 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) 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))) (vector 1 (vector 0 ns e-8))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-sameType (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) (vector 1 (vector 0 )))) (else (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-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))) ((CaseBuilder-Core-case--11907-8230 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0))))))))))))))
+(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3)))))))))
+(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--13001-8950 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--13001-9079 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8)))))))))
+(define CaseBuilder-Core-patCompile (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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14600-10479-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 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))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) 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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 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 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) 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))) (vector 1 (vector 0 ns e-8))))))))))))))))))))))))))))))
 (define PatInfo-CaseBuilder-Core-pat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 3))) e-4))))
-(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--8495-5098 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2))))))))
-(define CaseBuilder-Core-nextNames (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) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (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-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 (Context-Core-clearDefs 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))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 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 ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (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))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-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 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (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 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9521-6007 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4))))))))))))))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--8739-5216 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2))))))))
+(define CaseBuilder-Core-nextNames (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) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (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-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 (Context-Core-clearDefs 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))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 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 ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (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))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-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 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (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 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9774-6139 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4))))))))))))))))))))))))))))))))))))))))))
 (define CaseBuilder-Core-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 (b+ 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 CaseBuilder-Core-newPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (vector 1 (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))))) (CaseBuilder-Core-newPats 'erased 'erased 'erased e-3 e-12 e-17))))))))))))))
-(define CaseBuilder-Core-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))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-21 arg-0)))(else 0)))))
-(define CaseBuilder-Core-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))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 ))))))
+(define CaseBuilder-Core-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))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-0)))(else 0)))))
+(define CaseBuilder-Core-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))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 ))))))
 (define CaseBuilder-Core-moveFirst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 1 (CaseBuilder-Core-getPat 'erased 'erased 'erased arg-3 'erased arg-5) (CaseBuilder-Core-dropPat 'erased 'erased 'erased arg-3 'erased arg-5))))
-(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--13975-9900-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 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))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2)))))))
+(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--14266-10072-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 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))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2)))))))
 (define CaseBuilder-Core-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)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-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 ((CaseBuilder-Core-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))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))))) ((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)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-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 (CaseBuilder-Core-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 (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))))))(else (let ((sc0 arg-5)) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))
 (define CaseBuilder-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (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 ((CaseBuilder-Core-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getNPs 'erased 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-1)) arg-7))) (let ((ps (CaseBuilder-Core-partition e-4 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-0 arg-6 clausesC-39))) (let ((act-25 ((CaseBuilder-Core-mixture e-4 arg-0 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-2 arg-3 clausesC-39 arg-4 arg-5 arg-6 ps arg-8) 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))))))))))))))) (else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8)) (else (let ((e-6 (vector-ref sc1 1))) (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)) (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) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))))))))))))))
-(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10268-6623-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 (vector 0 ) arg-8)))
+(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10521-6755-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 (vector 0 ) arg-8)))
 (define CaseBuilder-Core-getScore (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-sameType 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-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 (err) (let ((sc0 err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0)))
 (define CaseBuilder-Core-getPatInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-7 (vector-ref sc1 3))) e-7)) (CaseBuilder-Core-getPatInfo 'erased 'erased e-5)))))))))
 (define CaseBuilder-Core-getPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) e-4)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 2))) (CaseBuilder-Core-getPat 'erased 'erased 'erased e-0 'erased e-10)))))))))
-(define CaseBuilder-Core-getPMDef (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) (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--14889-10816-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 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))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(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 ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--14889-10900-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--14889-10897-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5)))))))))))))))))))))))))
+(define CaseBuilder-Core-getPMDef (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) (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--15201-11016-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 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))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(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 ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15201-11104-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15201-11101-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5)))))))))))))))))))))))))
 (define CaseBuilder-Core-getNPs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
 (define CaseBuilder-Core-getFirstPat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5))))))
 (define CaseBuilder-Core-getFirstArgType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6))))))
-(define CaseBuilder-Core-findReached (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 ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--14812-10745-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 ))))))
+(define CaseBuilder-Core-findReached (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 ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15124-10945-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 ))))))
 (define CaseBuilder-Core-dropPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 2))) e-5)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (CaseBuilder-Core-dropPat 'erased 'erased 'erased e-0 'erased e-10)))))))))))
 (define CaseBuilder-Core-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)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-1)) arg-8) 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))) (let ((act-25 ((CaseBuilder-Core-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) 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-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-6 (vector 4 )) 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-11 (vector-ref sc6 1))) (CaseBuilder-Core-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 'erased e-11 e-10 arg-9 eta-0))))))))))))))))))))))))))))))))
-(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17))))))))))))))))
-(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 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)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (CaseBuilder-Core-case--9074-5573 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (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))) (CaseBuilder-Core-case--9074-5792 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 ))))))
-(define CaseBuilder-Core-caseGroups (lambda (arg-0 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased 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-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5)))))))))
+(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17))))))))))))))))
+(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 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)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (CaseBuilder-Core-case--9320-5695 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (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))) (CaseBuilder-Core-case--9320-5914 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 ))))))
+(define CaseBuilder-Core-caseGroups (lambda (arg-0 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased 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-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5)))))))))
 (define PatInfo-CaseBuilder-Core-argType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-6 (vector-ref sc0 4))) e-6))))
 (define CaseBuilder-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-5 arg-4)))))))))
 (define LengthMatch-Data-checkLengthMatch (lambda (arg-0 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) (vector 1 (vector 0 ))) (else (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (LengthMatch-Data-checkLengthMatch 'erased 'erased e-3 e-11) (lambda (bind-0) (vector 1 (vector 1 bind-0))))))))))))))
 (define ProcessRunElab-TTImp-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 ((Context-Core-resolveName arg-1 (vector 1 "[elaborator script]")) 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-7 e-5 (Reflect-Core-builtin "Unit") 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 (Reflect-Core-appCon arg-0 arg-7 e-5 n (vector 1 e-7 (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 ((act-28 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-6 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-6 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 (let ((act-29 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-10 (vector 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--9967-7571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) 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))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--9905-7387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (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 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) 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 ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (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 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (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))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-29)))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--8245-7343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-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 ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) 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 ((act-26 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 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 ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (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))) (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))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0)))))))
-(define ProcessRecord-TTImp-case--8629-7159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define ProcessRecord-TTImp-case--8629-6997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 ))))))
-(define ProcessRecord-TTImp-case--8629-6833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27)))))))
-(define ProcessRecord-TTImp-case--8629-6651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25)))))
-(define ProcessRecord-TTImp-case--8629-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ProcessRecord-TTImp-case--8271-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (ProcessRecord-TTImp-n--8245-5915-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8629-6320 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 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 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-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 ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) 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 ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) (ProcessRecord-TTImp-n--8245-5911-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 (ProcessRecord-TTImp-n--8245-5908-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-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8245-5912-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) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8629-7159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) 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 ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8629-6997 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8245-5914-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 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8629-6833 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) 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 ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8629-6651 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--8268-6035 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))))
-(define ProcessRecord-TTImp-n--8245-5912-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) (ProcessRecord-TTImp-n--8268-5994-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) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2))))
-(define ProcessRecord-TTImp-n--8245-5908-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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8264-5916-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 ProcessRecord-TTImp-n--8245-5911-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)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8245-5911-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 ProcessRecord-TTImp-n--8264-5916-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
-(define ProcessRecord-TTImp-n--8245-5909-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 ProcessRecord-TTImp-n--8245-5910-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-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 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4))))))))))
-(define ProcessRecord-TTImp-n--8245-5915-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 arg-20) (let ((sc0 arg-20)) (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 ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8271-6242 arg-0 arg-1 arg-2 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-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessRecord-TTImp-n--8245-5913-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 ((conty (ProcessRecord-TTImp-n--8245-5911-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 (ProcessRecord-TTImp-n--8245-5908-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) (ProcessRecord-TTImp-n--8245-5911-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8245-5910-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) (ProcessRecord-TTImp-n--8245-5912-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 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) 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 ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) (ProcessRecord-TTImp-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 ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0)))))))))))))))))))))
-(define ProcessRecord-TTImp-n--8245-5914-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-14 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-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8245-5914-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 'erased e-4)))(else (ProcessRecord-TTImp-n--8245-5914-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 'erased e-4))))))(else 0))))))(else 0)))))
-(define ProcessRecord-TTImp-n--8268-5994-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8268-5994-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 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8268-5994-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 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3)))))))))))))))))
+(define ProcessRecord-TTImp-case--10280-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) 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))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--10217-7652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (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 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) 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 ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (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 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (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))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-29)))))))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--8542-7607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-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 ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) 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 ((act-26 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 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 ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (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))) (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))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0)))))))
+(define ProcessRecord-TTImp-case--8929-7419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define ProcessRecord-TTImp-case--8929-7257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 ))))))
+(define ProcessRecord-TTImp-case--8929-7093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27)))))))
+(define ProcessRecord-TTImp-case--8929-6911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25)))))
+(define ProcessRecord-TTImp-case--8929-6572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ProcessRecord-TTImp-case--8568-6494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (ProcessRecord-TTImp-n--8542-6164-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 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 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-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 ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) 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 ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) (ProcessRecord-TTImp-n--8542-6160-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 (ProcessRecord-TTImp-n--8542-6157-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-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8542-6161-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) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8929-7419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) 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 ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8929-7257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8542-6163-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 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8929-7093 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) 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 ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6911 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--8565-6284 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))))
+(define ProcessRecord-TTImp-n--8542-6161-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) (ProcessRecord-TTImp-n--8565-6243-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) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2))))
+(define ProcessRecord-TTImp-n--8542-6157-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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8561-6165-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 ProcessRecord-TTImp-n--8542-6160-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)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8542-6160-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 ProcessRecord-TTImp-n--8561-6165-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
+(define ProcessRecord-TTImp-n--8542-6158-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 ProcessRecord-TTImp-n--8542-6159-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-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 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4))))))))))
+(define ProcessRecord-TTImp-n--8542-6164-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 arg-20) (let ((sc0 arg-20)) (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 ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8568-6494 arg-0 arg-1 arg-2 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-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessRecord-TTImp-n--8542-6162-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 ((conty (ProcessRecord-TTImp-n--8542-6160-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 (ProcessRecord-TTImp-n--8542-6157-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) (ProcessRecord-TTImp-n--8542-6160-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8542-6159-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) (ProcessRecord-TTImp-n--8542-6161-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 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) 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 ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) (ProcessRecord-TTImp-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 ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0)))))))))))))))))))))
+(define ProcessRecord-TTImp-n--8542-6163-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-14 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-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8542-6163-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 'erased e-4)))(else (ProcessRecord-TTImp-n--8542-6163-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 'erased e-4))))))(else 0))))))(else 0)))))
+(define ProcessRecord-TTImp-n--8565-6243-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8565-6243-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 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8565-6243-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 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3)))))))))))))))))
 (define ProcessRecord-TTImp-projVis (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (vector 2 ))(else (vector 0 ))))))
 (define ProcessRecord-TTImp-processRecord (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-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) (ProcessRecord-TTImp-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 eta-0))))))))))
 (define ProcessRecord-TTImp-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-0 e-10 e-14 (vector 1 e-6) e-15 (ProcessRecord-TTImp-mkDataTy arg-0 e-3))))))))))))))))))
-(define ProcessRecord-TTImp-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 ((Context-Core-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 ((ProcessRecord-TTImp-n--8245-5913-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 (Context-Core-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 ((act-28 (Context-Core-isUndottedRecordProjections 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 ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) 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 ((act-30 (Context-Core-getNS arg-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0)))))))))))))))))))))))))
-(define ProcessParams-TTImp-case--8965-6116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-16)))
-(define ProcessParams-TTImp-case--8860-6027 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" 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 ((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 ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--8860-5933-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) 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 ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))
-(define ProcessParams-TTImp-n--8860-5932-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)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--8860-5932-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))
-(define ProcessParams-TTImp-n--8860-5933-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 ((Context-Core-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 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10))))))))))))))
-(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--8860-5932-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 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased 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))) ((ProcessParams-TTImp-case--8860-6027 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0))))))))))))))))))))
+(define ProcessRecord-TTImp-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 ((Context-Core-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 ((ProcessRecord-TTImp-n--8542-6162-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 (Context-Core-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 ((act-28 (Context-Core-isUndottedRecordProjections 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 ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) 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 ((act-30 (Context-Core-getNS arg-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0)))))))))))))))))))))))))
+(define ProcessParams-TTImp-case--9276-6371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-16)))
+(define ProcessParams-TTImp-case--9168-6279 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" 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 ((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 ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9168-6182-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) 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 ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))
+(define ProcessParams-TTImp-n--9168-6181-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)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9168-6181-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))
+(define ProcessParams-TTImp-n--9168-6182-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 ((Context-Core-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 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10))))))))))))))
+(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9168-6181-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 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased 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))) ((ProcessParams-TTImp-case--9168-6279 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0))))))))))))))))))))
 (define ProcessParams-TTImp-extend (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-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))) (ProcessParams-TTImp-extend 'erased (vector 1 e-2 arg-1) (vector 1 (vector 2 e-6 e-7 e-8) arg-2) (vector 1 arg-3) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-1 arg-4) e-4)))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4))))))))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4))))))))
-(define ProcessData-TTImp-case--10614-9684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-21 eta-0)))))))))))
-(define ProcessData-TTImp-case--11160-9473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-31))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))
-(define ProcessData-TTImp-case--11040-9396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) 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))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) 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 ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
-(define ProcessData-TTImp-case--10614-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11040-9396 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
-(define ProcessData-TTImp-case--10614-9003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5)))))
-(define ProcessData-TTImp-case--10071-8898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11040-9396 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) 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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-7 arg-17 arg-8 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 (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) 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 ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty 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 ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--10614-9003 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-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 ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) 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 ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-13))) (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 ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) 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 ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) 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 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-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 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) 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 ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-42 (Context-Core-addToSave arg-13 arg-14 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 ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-case--10180-8671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-19 eta-0)))))))))))
-(define ProcessData-TTImp-case--10111-8497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) 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 ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) 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 ((act-29 (let ((act-29 (unbox arg-11))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 (Context-Core-addToSave arg-11 arg-12 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty 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 ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-case--10071-8441 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-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 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 (Context-Core-addMutData arg-11 (vector 9 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 ((act-30 (let ((act-30 (unbox arg-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 (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) 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 ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 ((act-33 (Context-Core-addToSave arg-11 arg-12 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 ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-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-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-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 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0)))))))
-(define ProcessData-TTImp-case--10003-8362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 ))))))
-(define ProcessData-TTImp-case--9971-8349 (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))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-case--9826-8219 (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-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))
-(define ProcessData-TTImp-case--9249-8154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4))))))))
-(define ProcessData-TTImp-case--9276-8100 (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 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define ProcessData-TTImp-case--9275-8053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-case--9274-8000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-case--9273-7874 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
-(define ProcessData-TTImp-case--9273-7772 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
-(define ProcessData-TTImp-case--9272-7719 (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 0))) (else (ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
-(define ProcessData-TTImp-case--8821-7419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-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 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-case--8747-7267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Context-Core-resolveName arg-12 arg-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) 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 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 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))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 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 ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-28 (Context-Core-addToSave arg-12 arg-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 ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) 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 ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0))))))(else (vector 1 (vector 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 ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 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 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0)))))))
-(define ProcessData-TTImp-case--8705-7172 (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 ProcessData-TTImp-case--8541-7078 (lambda (arg-0 arg-1 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 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-case--8525-7027 (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) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) 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 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8541-7078 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-case--8467-6975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-n--8694-7163-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))) (ProcessData-TTImp-case--8705-7172 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-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 (ProcessData-TTImp-n--8694-7163-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--8694-7163-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
-(define ProcessData-TTImp-n--9177-7593-getRetType (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-n--9177-7593-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define ProcessData-TTImp-n--9177-7594-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-n--9249-7687-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) 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))) (let ((act-25 ((ProcessData-TTImp-n--9249-7686-allDisjoint arg-0 arg-1 arg-2 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5))))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7683-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7684-disjoint arg-0 arg-1 arg-2 e-1 e-4) 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7684-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))) (ProcessData-TTImp-case--9273-7772 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 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(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))) (ProcessData-TTImp-case--9273-7874 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 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-n--9249-7685-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7684-disjoint arg-0 arg-1 arg-2 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1)))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7686-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7686-allDisjoint arg-0 arg-1 arg-2 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))
-(define ProcessData-TTImp-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 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--8694-7163-updateNSApp arg-2 arg-1 arg-0 arg-2))))))
+(define ProcessData-TTImp-case--10987-9888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0)))))))))))
+(define ProcessData-TTImp-case--11556-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-31))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))
+(define ProcessData-TTImp-case--11436-9595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) 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))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) 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 ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
+(define ProcessData-TTImp-case--10987-9498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
+(define ProcessData-TTImp-case--10987-9186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5)))))
+(define ProcessData-TTImp-case--10418-9074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) 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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-7 arg-17 arg-8 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 (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) 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 ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty 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 ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--10987-9186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-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 ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) 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 ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-13))) (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 ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) 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 ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) 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 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-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 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) 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 ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-42 (Context-Core-addToSave arg-13 arg-14 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 ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-case--10533-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-19 eta-0)))))))))))
+(define ProcessData-TTImp-case--10462-8653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) 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 ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) 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 ((act-29 (let ((act-29 (unbox arg-11))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 (Context-Core-addToSave arg-11 arg-12 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty 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 ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-case--10418-8595 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-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 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 (Context-Core-addMutData arg-11 (vector 9 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 ((act-30 (let ((act-30 (unbox arg-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 (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) 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 ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 ((act-33 (Context-Core-addToSave arg-11 arg-12 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 ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-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-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-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 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0)))))))
+(define ProcessData-TTImp-case--10349-8512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 ))))))
+(define ProcessData-TTImp-case--10314-8498 (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))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-case--10165-8362 (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-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))
+(define ProcessData-TTImp-case--9575-8296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4))))))))
+(define ProcessData-TTImp-case--9602-8239 (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 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define ProcessData-TTImp-case--9601-8190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-case--9600-8136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-case--9599-8006 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
+(define ProcessData-TTImp-case--9599-7901 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
+(define ProcessData-TTImp-case--9598-7848 (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 0))) (else (ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
+(define ProcessData-TTImp-case--9131-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-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 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-case--9052-7379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Context-Core-resolveName arg-12 arg-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) 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 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 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))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 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 ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-28 (Context-Core-addToSave arg-12 arg-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 ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) 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 ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 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 ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 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 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0)))))))
+(define ProcessData-TTImp-case--9010-7279 (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 ProcessData-TTImp-case--8846-7185 (lambda (arg-0 arg-1 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 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-case--8829-7134 (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) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) 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 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8846-7185 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-case--8770-7081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-n--8999-7270-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))) (ProcessData-TTImp-case--9010-7279 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-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 (ProcessData-TTImp-n--8999-7270-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--8999-7270-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
+(define ProcessData-TTImp-n--9499-7717-getRetType (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-n--9499-7717-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define ProcessData-TTImp-n--9499-7718-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-n--9575-7815-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) 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))) (let ((act-25 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5))))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7811-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 e-1 e-4) 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7812-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))) (ProcessData-TTImp-case--9599-7901 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 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(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))) (ProcessData-TTImp-case--9599-8006 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 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-n--9575-7813-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1)))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7814-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))
+(define ProcessData-TTImp-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 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--8999-7270-updateNSApp arg-2 arg-1 arg-0 arg-2))))))
 (define ProcessData-TTImp-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setDetermining arg-0 arg-1 arg-2 e-0 eta-0)))) ((2) (lambda (eta-0) (Context-Core-setUniqueSearch arg-0 arg-1 arg-2 0 eta-0))) ((3) (lambda (eta-0) (Context-Core-setExternal arg-0 arg-1 arg-2 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-processData (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) 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 ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-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 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-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 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-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-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) 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-10 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) 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-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) 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-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-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 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11040-9396 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-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (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-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-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))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (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))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--10614-9003 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-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-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 ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-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 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-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 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-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 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-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 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-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 (Context-Core-addToSave arg-1 e-8 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-getRelevantArg (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 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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))
-(define ProcessData-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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 ((ProcessData-TTImp-n--9177-7593-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))) ((ProcessData-TTImp-n--9177-7594-getPats arg-1 arg-0 e-5 e-7) ext-0))))))))))))))))))
-(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) 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 ((act-25 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))
+(define ProcessData-TTImp-processData (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) 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 ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-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 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-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 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-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-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) 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-10 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) 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-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) 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-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-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 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11436-9595 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-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (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-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-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))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (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))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--10987-9186 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-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-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 ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-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 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-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 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-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 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-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 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-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 (Context-Core-addToSave arg-1 e-8 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-getRelevantArg (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 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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))
+(define ProcessData-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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 ((ProcessData-TTImp-n--9499-7717-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))) ((ProcessData-TTImp-n--9499-7718-getPats arg-1 arg-0 e-5 e-7) ext-0))))))))))))))))))
+(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) 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 ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))
 (define ProcessData-TTImp-findNewtype (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc3 e-1)) (let ((e-3 (vector-ref sc3 4))) e-3))) 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))) ((ProcessData-TTImp-getRelevantArg e-5 0 (vector 0 ) 0 e-6) 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (Context-Core-updateDef arg-0 (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 2))) e-8)) (lambda (d) (let ((sc5 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 ))))) eta-0))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define ProcessData-TTImp-conName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ProcessData-TTImp-checkRetType (lambda (arg-0 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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-checkRetType 'erased arg-1 arg-2 e-9 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3))))))
 (define ProcessData-TTImp-checkIsType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-4 arg-5 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-2 arg-3) eta-0)))))))))
-(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (ProcessData-TTImp-case--8541-7078 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0)))))))))
-(define ProcessData-TTImp-checkCon (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-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 ((Context-Core-inCurrentNS arg-1 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))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) 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 ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) 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 ((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 ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) 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 ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) 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 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) 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 ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) 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 ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0)))))))))))))))))))))))))))))))))))
-(define Parser-TTImp-case--6260-11486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3)))))))
-(define Parser-TTImp-case--10135-11439 (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 Parser-TTImp-case--10167-11392 (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))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3))))))
-(define Parser-TTImp-case--10134-11327 (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) (vector 0 (vector 0 ) (vector 1 arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-TTImp-case--10167-11392 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6260-11293-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
-(define Parser-TTImp-case--9350-10703 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-5 e-7)))))))))))
-(define Parser-TTImp-case--9350-10661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
-(define Parser-TTImp-case--6914-8512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
-(define Parser-TTImp-n--6260-11293-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-case--10134-11327 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
-(define Parser-TTImp-n--8821-10128-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10146) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
-(define Parser-TTImp-n--6929-9710-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--6929-9710-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
-(define Parser-TTImp-n--6260-11294-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))) (Parser-TTImp-case--10135-11439 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-1))))))(else (vector 0 ))))))
-(define Parser-TTImp-n--8818-9881-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))) (Parser-TTImp-n--8818-9881-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--8818-9881-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application"))))))
-(define Parser-TTImp-n--9652-10761-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10787) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
-(define Parser-TTImp-n--6919-8877-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--6919-8877-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
-(define Parser-TTImp-n--6904-7817-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--6904-7817-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 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--6904-7817-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-12 e-13) e-3)))))))))))))))
-(define Parser-TTImp-n--8821-10127-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-TTImp-n--8821-10127-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))))
+(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (ProcessData-TTImp-case--8846-7185 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0)))))))))
+(define ProcessData-TTImp-checkCon (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-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 ((Context-Core-inCurrentNS arg-1 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))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) 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 ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) 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 ((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 ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) 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 ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) 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 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) 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 ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) 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 ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0)))))))))))))))))))))))))))))))))))
+(define Parser-TTImp-case--6501-12060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3)))))))
+(define Parser-TTImp-case--10688-12013 (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 Parser-TTImp-case--10720-11966 (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))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3))))))
+(define Parser-TTImp-case--10687-11901 (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) (vector 0 (vector 0 ) (vector 1 arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-TTImp-case--10720-11966 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6501-11867-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
+(define Parser-TTImp-case--9844-11233 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-5 e-7)))))))))))
+(define Parser-TTImp-case--9844-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
+(define Parser-TTImp-case--7196-8861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
+(define Parser-TTImp-n--6501-11867-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-case--10687-11901 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
+(define Parser-TTImp-n--9271-10617-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10637) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
+(define Parser-TTImp-n--7211-10168-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--7211-10168-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
+(define Parser-TTImp-n--6501-11868-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))) (Parser-TTImp-case--10688-12013 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-1))))))(else (vector 0 ))))))
+(define Parser-TTImp-n--9268-10352-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))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application"))))))
+(define Parser-TTImp-n--10161-11291-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11321) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
+(define Parser-TTImp-n--7201-9258-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--7201-9258-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
+(define Parser-TTImp-n--7186-8120-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--7186-8120-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 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--7186-8120-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-12 e-13) e-3)))))))))))))))
+(define Parser-TTImp-n--9271-10616-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-TTImp-n--9271-10616-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))))
 (define Parser-TTImp-visibility (lambda () (vector 9 0 1 (Parser-TTImp-visOption) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-TTImp-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7414) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7421) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7403) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7392) (vector 0 (vector 0 )))))))))))
+(define Parser-TTImp-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7704) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7712) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7692) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7680) (vector 0 (vector 0 )))))))))))
 (define Parser-TTImp-visOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-TTImp-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-TTImp-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-TTImp-fnDirectOpt) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
-(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9754) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6929-9710-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
-(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9833) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9853) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty)))))))))))))))))))
-(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-7476) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7465) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7454) (vector 0 (vector 1 )))))))))))
+(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-10216) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7211-10168-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
+(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10302) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10325) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty)))))))))))))))))))
+(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-7770) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7758) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7746) (vector 0 (vector 1 )))))))))))
 (define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 7 1 (Parser-TTImp-dataDecl arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-namespaceDecl) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt)) (lambda (visOpts) (vector 8 1 0 (Parser-TTImp-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-TTImp-getRight 'erased 'erased eta-0)) visOpts))) (vector 7 1 (Parser-TTImp-tyDecl arg-0 arg-1) (lambda () (lambda (claim) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (vector 9 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-directive arg-0 arg-1) (lambda () (Parser-TTImp-definition arg-0 arg-1)))))))))))))
-(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8185) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8199) (vector 0 e))))))))))))))))))))))
-(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-9473) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9486) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
-(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-9320) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9328) (vector 8 1 0 (vector 5 ) (lambda (_-9336) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9355) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc)))))))))))))))))))))))))
-(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10618) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10639) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10511) (vector 8 1 0 (vector 5 ) (lambda (_-10519) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10556) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10594) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 ))))))))))))))))
-(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-10929) (vector 8 1 0 (vector 5 ) (lambda (_-10937) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10960) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-10967) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds)))))))))))))))))))))))))))))))))))))
+(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8514) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8530) (vector 0 e))))))))))))))))))))))
+(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-9912) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9927) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
+(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-9746) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9755) (vector 8 1 0 (vector 5 ) (lambda (_-9764) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9785) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc)))))))))))))))))))))))))
+(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-11145) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-11169) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11030) (vector 8 1 0 (vector 5 ) (lambda (_-11039) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-11078) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11120) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 ))))))))))))))))
+(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11476) (vector 8 1 0 (vector 5 ) (lambda (_-11485) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-11511) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-11519) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds)))))))))))))))))))))))))))))))))))))
 (define Parser-TTImp-prog (lambda (arg-0) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (Parser-TTImp-collectDefs ds)))))))
-(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8441) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8454) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8385) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty)))))))))))))))))))))
+(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8786) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8801) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8725) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty)))))))))))))))))))))
 (define Parser-TTImp-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-TTImp-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
 (define Parser-TTImp-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-TTImp-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
-(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10056) (vector 8 1 0 (vector 5 ) (lambda (_-10064) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10077) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-9964) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9979) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9993) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9920) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-9927) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4)))))))))))))))))))
-(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-11049) (vector 8 1 0 (vector 5 ) (lambda (_-11057) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
+(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10540) (vector 8 1 0 (vector 5 ) (lambda (_-10549) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10564) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-10440) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10457) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10473) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-10392) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10400) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4)))))))))))))))))))
+(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-11604) (vector 8 1 0 (vector 5 ) (lambda (_-11613) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
 (define Parser-TTImp-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9048) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9076) (vector 8 1 0 (vector 5 ) (lambda (_-9084) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9097) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9104) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-8983) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8997) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9004) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope)))))))))))))))))))))))
-(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-9660) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-9622) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-9584) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-9546) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm))))))))))))))))))))
-(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-8910) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8924) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-8932) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6919-8877-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
-(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8755) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8769) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8777) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
-(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8010) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8059) (vector 8 1 0 (vector 5 ) (lambda (_-8067) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8081) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8030) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-7957) (vector 8 1 0 (vector 5 ) (lambda (_-7965) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-7979) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
+(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9445) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9478) (vector 8 1 0 (vector 5 ) (lambda (_-9487) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9502) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9510) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9373) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9389) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9397) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope)))))))))))))))))))))))
+(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-10116) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-10074) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-10032) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-9990) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm))))))))))))))))))))
+(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-9294) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9310) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-9319) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7201-9258-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
+(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9125) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9141) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-9150) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
+(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8325) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8378) (vector 8 1 0 (vector 5 ) (lambda (_-8387) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8403) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8347) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-8267) (vector 8 1 0 (vector 5 ) (lambda (_-8276) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8292) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
 (define Parser-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define Parser-TTImp-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-TTImp-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))
 (define Parser-TTImp-getRight (lambda (arg-0 arg-1 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 Parser-TTImp-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
-(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-8639) (vector 8 1 0 (vector 5 ) (lambda (_-8647) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-8683) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
+(define Parser-TTImp-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
+(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-9000) (vector 8 1 0 (vector 5 ) (lambda (_-9009) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-9049) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
 (define Parser-TTImp-fnOpt (lambda () (vector 7 1 (Parser-TTImp-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 7 x)))))))
-(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7595) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7582) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7569) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7556) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7542) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7529) (vector 0 (vector 4 )))))))))))))))))
-(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10856) (vector 8 1 0 (vector 5 ) (lambda (_-10864) (vector 7 0 (Parser-TTImp-n--9652-10761-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10880) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10887) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--9652-10761-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10843) (vector 0 fs))))))))))
-(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9449) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9436) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9449) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9436) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
+(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7896) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7882) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7868) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7854) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7839) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7825) (vector 0 (vector 4 )))))))))))))))))
+(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11394) (vector 8 1 0 (vector 5 ) (lambda (_-11403) (vector 7 0 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11421) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11429) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11380) (vector 0 fs))))))))))
+(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
 (define Parser-TTImp-expr (lambda (ext-0 ext-1) (Parser-TTImp-typeExpr ext-0 ext-1)))
-(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8825) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8839) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
-(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-11083) (vector 8 1 0 (vector 5 ) (lambda (_-11091) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11105) (vector 0 (vector 9 lvl))))))))))))))
+(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9202) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9218) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
+(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-11642) (vector 8 1 0 (vector 5 ) (lambda (_-11651) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11667) (vector 0 (vector 9 lvl))))))))))))))
 (define Parser-TTImp-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) (Builtin-fst 'erased 'erased nd) (vector 1 (Builtin-snd 'erased 'erased nd) (vector 0 )))))))))))))
-(define Parser-TTImp-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10323) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10312) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10289) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns))))))))))))))
-(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-10343) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10358) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10371) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10389) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-10408) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs)))))))))))))))))))))))))))
-(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11807) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-11814) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11777) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-11784) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11747) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-11754) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11706) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-11713) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11676) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-11683) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11646) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-11653) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11616) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-11623) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11595) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-11602) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm)))))))))))))))))))))))
-(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Parser-TTImp-case--6260-11486 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6260-11293-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6260-11294-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))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3))))))))))))
-(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--8821-10128-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--8821-10127-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))
-(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-9158) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9171) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts))))))))))))))))))))
-(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9267) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9274) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9287) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9236) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9243) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3)))))))))))))
+(define Parser-TTImp-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10826) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10814) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10789) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns))))))))))))))
+(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-10849) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10866) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10881) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10900) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-10921) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs)))))))))))))))))))))))))))
+(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12405) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-12413) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12372) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-12380) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12339) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-12347) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12294) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-12302) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12261) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-12269) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12228) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-12236) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12195) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-12203) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12172) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-12180) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm)))))))))))))))))))))))
+(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Parser-TTImp-case--6501-12060 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6501-11867-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6501-11868-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))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3))))))))))))
+(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--9271-10617-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9271-10616-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))
+(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-9568) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9583) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts))))))))))))))))))))
+(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9686) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9694) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9709) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9652) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9660) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3)))))))))))))
 (define Parser-TTImp-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (lhs) (Parser-TTImp-caseRHS arg-0 arg-1 start lhs))))))))
 (define Parser-TTImp-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-explicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-lam arg-0 arg-1) (lambda () (Parser-TTImp-let_ arg-0 arg-1)))))))))))))
-(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-7751) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-7737) (vector 0 (vector 2 )))))))))
-(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8322) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))
-(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8552) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8559) (vector 8 1 0 (vector 5 ) (lambda (_-8567) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8581) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8589) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
-(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7325) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7293) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7260) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7225) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7153) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x)))))))))))))))))))))))))
-(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-8125) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat)))))))))))))))))
-(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-7927) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-7905) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg)))))))))))
-(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6904-7817-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--12013-7110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 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))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (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-3 arg-13))) (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-2 arg-14))) (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 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--11998-7015 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 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 ((act-26 (Context-Core-branch arg-4 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-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (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-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-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-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-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-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (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 ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12013-7110 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define GenerateDef-Interactive-TTImp-case--11783-6837 (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 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))
-(define GenerateDef-Interactive-TTImp-case--11520-6742 (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 (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--11520-6589-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 )))))))))
-(define GenerateDef-Interactive-TTImp-case--11534-6678 (lambda (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 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
-(define GenerateDef-Interactive-TTImp-case--11534-6620 (lambda (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))) (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
-(define GenerateDef-Interactive-TTImp-case--11105-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) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "        = ") e-6 e-7 eta-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 (vector 1 (GenerateDef-Interactive-TTImp-n--10756-5939-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 )))))))))))))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--11005-6221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((e-2 (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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 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 ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10938-6140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (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 ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10895-6088 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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-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 (Context-Core-lookupDefExact (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 ((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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) 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 ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 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 ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 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-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10864-6057 (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)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") 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))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--10756-6035 (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-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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 ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define GenerateDef-Interactive-TTImp-case--10690-5888 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
-(define GenerateDef-Interactive-TTImp-case--10685-5875 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6589-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 GenerateDef-Interactive-TTImp-n--10756-5939-updateRHS (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))) (vector 0 e-0 e-1 arg-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))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9))))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6591-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))) (GenerateDef-Interactive-TTImp-case--11534-6620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11534-6678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (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 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--11520-6591-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))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9)))))
-(define GenerateDef-Interactive-TTImp-n--10719-5903-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (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 (Utils-TTImp-uniqueName e-5 (vector 0 ) 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))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6590-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-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 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 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--11520-6590-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8)))))
-(define GenerateDef-Interactive-TTImp-n--10756-5940-dropLams (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) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (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))) (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9)))))))))))
-(define GenerateDef-Interactive-TTImp-uniqueRHS (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--10719-5903-mkUniqueName e-2 e-1 e-0 arg-0 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--11520-6589-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 )))))))))))))
-(define GenerateDef-Interactive-TTImp-tryAllSplits (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) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0)))))))))))))))))))
+(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8054) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8039) (vector 0 (vector 2 )))))))))
+(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8658) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))
+(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8904) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8912) (vector 8 1 0 (vector 5 ) (lambda (_-8921) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8937) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8946) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
+(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7608) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7573) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7537) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7499) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7420) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x)))))))))))))))))))))))))
+(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-8451) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat)))))))))))))))))
+(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8236) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8213) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg)))))))))))
+(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7186-8120-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--12484-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 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))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (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-3 arg-13))) (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-2 arg-14))) (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 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--12468-7300 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 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 ((act-26 (Context-Core-branch arg-4 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-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (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-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-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-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-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-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (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 ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define GenerateDef-Interactive-TTImp-case--12247-7115 (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 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))
+(define GenerateDef-Interactive-TTImp-case--11983-7019 (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 (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 )))))))))
+(define GenerateDef-Interactive-TTImp-case--11997-6954 (lambda (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 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
+(define GenerateDef-Interactive-TTImp-case--11997-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
+(define GenerateDef-Interactive-TTImp-case--11564-6566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "        = ") e-6 e-7 eta-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 (vector 1 (GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 )))))))))))))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--11460-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((e-2 (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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 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 ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11391-6403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (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 ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11347-6348 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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-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 (Context-Core-lookupDefExact (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 ((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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) 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 ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 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 ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 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-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11316-6316 (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)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") 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))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--11203-6294 (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-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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 ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define GenerateDef-Interactive-TTImp-case--11134-6137 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
+(define GenerateDef-Interactive-TTImp-case--11129-6124 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6865-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 GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS (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))) (vector 0 e-0 e-1 arg-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))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9))))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6867-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))) (GenerateDef-Interactive-TTImp-case--11997-6896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11997-6954 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (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 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--11983-6867-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))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9)))))
+(define GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (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 (Utils-TTImp-uniqueName e-5 (vector 0 ) 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))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6866-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-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 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 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--11983-6866-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8)))))
+(define GenerateDef-Interactive-TTImp-n--11203-6192-dropLams (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) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (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))) (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9)))))))))))
+(define GenerateDef-Interactive-TTImp-uniqueRHS (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName e-2 e-1 e-0 arg-0 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 )))))))))))))
+(define GenerateDef-Interactive-TTImp-tryAllSplits (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) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0)))))))))))))))))))
 (define GenerateDef-Interactive-TTImp-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) ((16) (let ((e-8 (vector-ref sc1 2))) (List-Prelude-C-43C-43 'erased (GenerateDef-Interactive-TTImp-splittableNames e-1) (vector 1 (vector 1 e-8) (vector 0 )))))(else (GenerateDef-Interactive-TTImp-splittableNames e-1))))))) ((9) (let ((e-4 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-splittableNames e-4)))(else (vector 0 ))))))
 (define GenerateDef-Interactive-TTImp-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-expandClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-1 x-1)))) d-0 x-0))))) d 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 ((GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-5) eta-0)))))))))))) ext-0)))
-(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-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-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (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 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (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 ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12013-7110 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))
-(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 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)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0)))))))))))))))))
-(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--10685-5875 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
-(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause 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 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-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))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 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 (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 ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--14241-10472 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) 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-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) 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 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) 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))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--14259-10408 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--14251-10349 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (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))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--14112-10254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13863-10018 (lambda (arg-0 arg-1 arg-2 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) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) 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))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0)))))))))))
-(define ExprSearch-Interactive-TTImp-case--9273-9985 (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-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--13863-10018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))
-(define ExprSearch-Interactive-TTImp-case--13692-9909 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--13684-9838 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--13166-9725 (lambda (arg-0 arg-1 arg-2 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 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13228-9533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13166-9427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-getSearchData arg-11 arg-8 1 arg-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))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13228-9533 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--13007-9381 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (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))) ((ExprSearch-Interactive-TTImp-case--13166-9427 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-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 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-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0))))))))))))
-(define ExprSearch-Interactive-TTImp-case--12166-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 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) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12247-8720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-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))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12247-8610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--12180-8534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) 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))) ((ExprSearch-Interactive-TTImp-case--12247-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) 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))) ((ExprSearch-Interactive-TTImp-case--12247-8720 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12165-8487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12180-8534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15))))))))
-(define ExprSearch-Interactive-TTImp-case--11123-8328 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) 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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-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))) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--11877-8272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11123-7578-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3))))))
-(define ExprSearch-Interactive-TTImp-case--11153-8232 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--11877-8272 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13)))))))
-(define ExprSearch-Interactive-TTImp-case--11152-8050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1)))))
-(define ExprSearch-Interactive-TTImp-case--11152-7920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
-(define ExprSearch-Interactive-TTImp-case--11152-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
-(define ExprSearch-Interactive-TTImp-case--10866-7359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10857-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--10866-7359 arg-0 arg-1 arg-2 arg-3 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 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10543-7187 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--10543-7111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10497-7046 (lambda (arg-0 arg-1 arg-2 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-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 ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base 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 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 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 ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10543-7187 arg-0 arg-1 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-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))
-(define ExprSearch-Interactive-TTImp-case--10459-7013 (lambda (arg-0 arg-1 arg-2 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) (ExprSearch-Interactive-TTImp-case--10497-7046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14)))))))
-(define ExprSearch-Interactive-TTImp-case--10054-6693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-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 ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) t 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))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\u000a"))))))))) cs) 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 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) 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 (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9837-6619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10054-6693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9837-6469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((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 ExprSearch-Interactive-TTImp-case--9793-6432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--9837-6469 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) 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 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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 ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) 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 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10054-6693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9770-6377 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
-(define ExprSearch-Interactive-TTImp-case--9527-6212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10))))))
-(define ExprSearch-Interactive-TTImp-case--9479-6158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 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))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) 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))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-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))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9405-6125 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9479-6158 arg-0 arg-1 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9387-6060 (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) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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-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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((ExprSearch-Interactive-TTImp-case--9479-6158 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9277-5977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)))
-(define ExprSearch-Interactive-TTImp-n--10827-7311-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 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--10866-7359 arg-0 arg-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 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7579-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-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11153-8232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13))))
-(define ExprSearch-Interactive-TTImp-n--14241-10339-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--9273-9828-lookupHoleName (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 ((Context-Core-lookupCtxtExactI arg-9 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--14101-10209-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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) ((3) (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14112-10254 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14112-10254 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
-(define ExprSearch-Interactive-TTImp-n--12132-8469-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12132-8468-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-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (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 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (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 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (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))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (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 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (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))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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 ExprSearch-Interactive-TTImp-n--12132-8468-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 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12180-8534 arg-0 arg-1 arg-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 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7577-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-11 arg-12 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))) (Name-Core-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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7578-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-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 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 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 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) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11152-7790 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 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) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11152-7920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))
+(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-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-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (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 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (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 ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))
+(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 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)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0)))))))))))))))))
+(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--11129-6124 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
+(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause 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 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-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))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 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 (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 ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--14668-10851 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) 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-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) 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 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) 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))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--14687-10784 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--14678-10724 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (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))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--14536-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--14280-10380 (lambda (arg-0 arg-1 arg-2 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) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) 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))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0)))))))))))
+(define ExprSearch-Interactive-TTImp-case--9605-10347 (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-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--14280-10380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))
+(define ExprSearch-Interactive-TTImp-case--14106-10268 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--14097-10196 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--13573-10080 (lambda (arg-0 arg-1 arg-2 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 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--13636-9887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--13573-9779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-getSearchData arg-11 arg-8 1 arg-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))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13636-9887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--13403-9732 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (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))) ((ExprSearch-Interactive-TTImp-case--13573-9779 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-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 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-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0))))))))))))
+(define ExprSearch-Interactive-TTImp-case--12538-9280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12620-9030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-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))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12620-8920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--12553-8842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) 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))) ((ExprSearch-Interactive-TTImp-case--12620-8920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) 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))) ((ExprSearch-Interactive-TTImp-case--12620-9030 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12537-8795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15))))))))
+(define ExprSearch-Interactive-TTImp-case--11491-8631 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) 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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-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))) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--12245-8572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11491-7878-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3))))))
+(define ExprSearch-Interactive-TTImp-case--11521-8532 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--12245-8572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13)))))))
+(define ExprSearch-Interactive-TTImp-case--11520-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1)))))
+(define ExprSearch-Interactive-TTImp-case--11520-8220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
+(define ExprSearch-Interactive-TTImp-case--11520-8090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
+(define ExprSearch-Interactive-TTImp-case--11230-7655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--11220-7618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-1 arg-2 arg-3 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 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10902-7482 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--10902-7406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10856-7335 (lambda (arg-0 arg-1 arg-2 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-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 ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base 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 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 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 ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10902-7482 arg-0 arg-1 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-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))
+(define ExprSearch-Interactive-TTImp-case--10817-7302 (lambda (arg-0 arg-1 arg-2 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) (ExprSearch-Interactive-TTImp-case--10856-7335 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14)))))))
+(define ExprSearch-Interactive-TTImp-case--10401-6966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-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 ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) t 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))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\u000a"))))))))) cs) 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 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) 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 (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10179-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) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--10179-6731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((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 ExprSearch-Interactive-TTImp-case--10132-6694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--10179-6731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) 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 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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 ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) 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 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10109-6635 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define ExprSearch-Interactive-TTImp-case--9861-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10))))))
+(define ExprSearch-Interactive-TTImp-case--9813-6410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 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))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) 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))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-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))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--9737-6377 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--9719-6309 (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) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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-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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--9609-6226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)))
+(define ExprSearch-Interactive-TTImp-n--11190-7606-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 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-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 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7879-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-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11521-8532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13))))
+(define ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName (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 ((Context-Core-lookupCtxtExactI arg-9 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--14525-10580-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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) ((3) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
+(define ExprSearch-Interactive-TTImp-n--12504-8776-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12504-8775-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-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (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 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (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 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (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))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (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 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (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))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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 ExprSearch-Interactive-TTImp-n--12504-8775-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 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-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 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7877-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-11 arg-12 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))) (Name-Core-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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7878-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-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 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 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 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) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 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) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8220 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))
 (define ExprSearch-Interactive-TTImp-usableLocal (lambda (arg-0 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 ExprSearch-Interactive-TTImp-tryRecursive (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (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 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (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-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 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-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 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7))))))))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-tryRecursive (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (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 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (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-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 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-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 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7))))))))))))))))))))))))))))))))
 (define ExprSearch-Interactive-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) 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 (vector 1 (vector 1 e-5) e-6))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (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 (vector 0 err) e-5))))))))) eta-0)))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (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))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (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 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) 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 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 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 ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (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 ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11)))))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--10827-7311-visible arg-0 e-2 e-3 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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0)))))))))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (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 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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))) ((ExprSearch-Interactive-TTImp-case--9793-6432 arg-0 e-2 e-3 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 (Context-Core-visibleInAny (vector 1 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)))) eta-0))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-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) (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) 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))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12132-8469-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0)))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (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))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (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 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) 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 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 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 ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (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 ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11)))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--11190-7606-visible arg-0 e-2 e-3 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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0)))))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (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 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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))) ((ExprSearch-Interactive-TTImp-case--10132-6694 arg-0 e-2 e-3 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 (Context-Core-visibleInAny (vector 1 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)))) eta-0))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) 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))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0)))))))))))))))))))))))))))
 (define ExprSearch-Interactive-TTImp-searchLocal (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 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (List-Data-reverse 'erased (ExprSearch-Interactive-TTImp-getAllEnv arg-0 arg-4 (vector 0 ) arg-7)) arg-8 arg-9 arg-10) ext-0)))))))
-(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9387-6060 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
+(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9719-6309 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
 (define ExprSearch-Interactive-TTImp-searchHole (lambda (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 (Normalise-Core-normalise (vector 0 ) arg-10 (vector 0 ) (let ((sc0 arg-11)) (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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((ExprSearch-Interactive-TTImp-searchType (vector 0 ) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-9 arg-8 e-5) ext-0))))))))))))
-(define ExprSearch-Interactive-TTImp-search (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 (ExprSearch-Interactive-TTImp-n--9273-9828-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--13863-10018 arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-search (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 (ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--14280-10380 arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))))))))))))
 (define RecData-ExprSearch-Interactive-TTImp-recname (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-recOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ExprSearch-Interactive-TTImp-mkCandidates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__List 'erased arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-2 (lambda (arg) (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-1 (vector 4 arg-1 arg-2 arg) e-3))))))))))
 (define RecData-ExprSearch-Interactive-TTImp-lhsapp (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-holesOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ExprSearch-Interactive-TTImp-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 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 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))) ((ExprSearch-Interactive-TTImp-case--10459-7013 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0))))))))
-(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) 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 (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS e-2 arg-0 'erased e-5))))))))))))))
-(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9277-5977 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased)))))))))))))
-(define ExprSearch-Interactive-TTImp-exprSearch (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 (ExprSearch-Interactive-TTImp-n--14241-10339-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-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))) (Metadata-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 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 ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) 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))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0))))))))))))))))
-(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--9770-6377 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) 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 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0)))))))))
+(define ExprSearch-Interactive-TTImp-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 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 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))) ((ExprSearch-Interactive-TTImp-case--10817-7302 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0))))))))
+(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) 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 (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS e-2 arg-0 'erased e-5))))))))))))))
+(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9609-6226 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased)))))))))))))
+(define ExprSearch-Interactive-TTImp-exprSearch (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 (ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-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))) (Metadata-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 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 ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) 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))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0))))))))))))))))
+(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--10109-6635 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) 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 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0)))))))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-depth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define CaseSplit-Interactive-TTImp-case--11466-9039 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 )))))))))
-(define CaseSplit-Interactive-TTImp-case--11266-8905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) 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 ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0)))))))
-(define CaseSplit-Interactive-TTImp-case--11231-8854 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-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-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) 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 ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11266-8905 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-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3)))))))))
-(define CaseSplit-Interactive-TTImp-case--10993-8666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define CaseSplit-Interactive-TTImp-case--10861-8622 (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) (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-4))) (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 ((Normalise-Core-nf e-0 e-6 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-6 e-2 e-4) 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))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-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 ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define CaseSplit-Interactive-TTImp-case--10861-8543 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (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 ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (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 ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) 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 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) 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 ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 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 ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10)))))))))))))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10630-8371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1)))))))
-(define CaseSplit-Interactive-TTImp-case--10630-8316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))
-(define CaseSplit-Interactive-TTImp-case--10579-8286 (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) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24)))))))))
-(define CaseSplit-Interactive-TTImp-case--10563-8241 (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) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10579-8286 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10491-8198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1)))))))
-(define CaseSplit-Interactive-TTImp-case--10404-8103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) 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 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10233-7970 (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) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0))))))))
-(define CaseSplit-Interactive-TTImp-case--10220-7950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10233-7970 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0))))))))
-(define CaseSplit-Interactive-TTImp-case--10147-7890 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
-(define CaseSplit-Interactive-TTImp-case--9990-7776 (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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-case--9744-7652 (lambda (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) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define CaseSplit-Interactive-TTImp-case--9743-7544 (lambda (arg-0 arg-1 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 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--9733-7508-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
-(define CaseSplit-Interactive-TTImp-case--9645-7449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5)))))
-(define CaseSplit-Interactive-TTImp-case--9475-7311 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))
-(define CaseSplit-Interactive-TTImp-case--9434-7272 (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 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-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)) (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-8 (vector-ref sc3 7))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--9425-7233 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-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 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))))))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--9382-7205 (lambda (arg-0 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 CaseSplit-Interactive-TTImp-case--9207-7067 (lambda (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-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-case--9179-7035 (lambda (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) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 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))) (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 (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7))))))
-(define CaseSplit-Interactive-TTImp-n--9645-7434-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 (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6)))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7508-lookupName (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-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 ((Context-Core-getFullName arg-5 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))) ((CaseSplit-Interactive-TTImp-case--9743-7544 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7510-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7509-findNames (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--9733-7508-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))))))))
+(define CaseSplit-Interactive-TTImp-case--11916-9215 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 )))))))))
+(define CaseSplit-Interactive-TTImp-case--11712-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) 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 ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0)))))))
+(define CaseSplit-Interactive-TTImp-case--11674-9023 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-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-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) 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 ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 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-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3)))))))))
+(define CaseSplit-Interactive-TTImp-case--11432-8830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define CaseSplit-Interactive-TTImp-case--11289-8782 (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) (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-4))) (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 ((Normalise-Core-nf e-0 e-6 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-6 e-2 e-4) 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))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-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 ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define CaseSplit-Interactive-TTImp-case--11289-8697 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (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 ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (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 ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) 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 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) 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 ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 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 ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10)))))))))))))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--11051-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1)))))))
+(define CaseSplit-Interactive-TTImp-case--11051-8457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))
+(define CaseSplit-Interactive-TTImp-case--10999-8427 (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) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24)))))))))
+(define CaseSplit-Interactive-TTImp-case--10982-8381 (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) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
+(define CaseSplit-Interactive-TTImp-case--10908-8336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1)))))))
+(define CaseSplit-Interactive-TTImp-case--10820-8239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) 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 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--10642-8099 (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) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0))))))))
+(define CaseSplit-Interactive-TTImp-case--10629-8079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10642-8099 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0))))))))
+(define CaseSplit-Interactive-TTImp-case--10552-8017 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
+(define CaseSplit-Interactive-TTImp-case--10391-7899 (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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-case--10141-7771 (lambda (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) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define CaseSplit-Interactive-TTImp-case--10140-7662 (lambda (arg-0 arg-1 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 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
+(define CaseSplit-Interactive-TTImp-case--10042-7564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5)))))
+(define CaseSplit-Interactive-TTImp-case--9871-7426 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))
+(define CaseSplit-Interactive-TTImp-case--9828-7386 (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 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-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)) (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-8 (vector-ref sc3 7))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--9819-7344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-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 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))))))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--9776-7316 (lambda (arg-0 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 CaseSplit-Interactive-TTImp-case--9600-7178 (lambda (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-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-case--9572-7145 (lambda (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) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 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))) (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 (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7))))))
+(define CaseSplit-Interactive-TTImp-n--10042-7549-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 (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6)))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7623-lookupName (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-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 ((Context-Core-getFullName arg-5 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))) ((CaseSplit-Interactive-TTImp-case--10140-7662 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7625-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7624-findNames (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))))))))
 (define CaseSplit-Interactive-TTImp-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))) (Strings-Prelude-C-43C-43 "Can't split on " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-1 ")"))))))) (else "No clause to split here")))))
 (define CaseSplit-Interactive-TTImp-showPrec_Show__SplitError (lambda (arg-0 arg-1) (CaseSplit-Interactive-TTImp-show_Show__SplitError arg-1)))
 (define CaseSplit-Interactive-TTImp-__Impl_Show_SplitError (lambda () (vector 0 (lambda (x) (CaseSplit-Interactive-TTImp-show_Show__SplitError x)) (lambda (d) (lambda (x) (CaseSplit-Interactive-TTImp-showPrec_Show__SplitError d x))))))
 (define Updates-CaseSplit-Interactive-TTImp-updates (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--10220-7950 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((CaseSplit-Interactive-TTImp-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 ((CaseSplit-Interactive-TTImp-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))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0))))))))
+(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--10629-8079 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((CaseSplit-Interactive-TTImp-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 ((CaseSplit-Interactive-TTImp-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))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0))))))))
 (define CaseSplit-Interactive-TTImp-update (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))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 0 e-0 e-5))))))))))) (else (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 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 1 e-2 e-3 e-5))))))))))))))))
-(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--9645-7434-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--9645-7449 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 var) arg-3))))))))))
+(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--10042-7549-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--10042-7564 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 var) arg-3))))))))))
 (define CaseSplit-Interactive-TTImp-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-7 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-7 e-4)))) ((4) (let ((e-11 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-11 e-4))))(else (vector 3 e-1 e-2 e-3 (CaseSplit-Interactive-TTImp-substLets (vector 1 e-2 arg-0) e-4))))))))))(else arg-1)))))
 (define CaseSplit-Interactive-TTImp-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 ((nupdates (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (vector 0 arg-1 (Builtin-snd 'erased 'erased x)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (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 (vector 1 (vector 0 arg-2 (Utils-TTImp-substNames (vector 0 ) nupdates arg-3)) e-1)))))))) (vector 1 act-25))))))))))
-(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10404-8103 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 )))))
+(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10820-8239 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 )))))
 (define Updates-CaseSplit-Interactive-TTImp-namemap (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Context-Core-branch 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 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-1 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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) 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 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 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 ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((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))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (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 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-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))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) 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 ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Context-Core-branch 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 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-1 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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) 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 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 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 ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((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))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (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 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-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))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) 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 ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0))))))))))))))))))
 (define CaseSplit-Interactive-TTImp-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "TTImp.Interactive.CaseSplit.UPD" ) (vector 0 (vector 0 ) (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 ((act-25 ((CaseSplit-Interactive-TTImp-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 (vector-ref sc3 2))) e-1)))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 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 ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased 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 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 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 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 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 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11266-8905 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-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 CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 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 ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased 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 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 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 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 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 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-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 CaseSplit-Interactive-TTImp-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-1 arg-0 arg-2 e-7 e-9 e-10 arg-4) ext-0))))))))) (else (vector 1 (vector 0 (vector 2 )))))))))))))
 (define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-getFnArgs e-1 (vector 1 (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))) (let ((e-6 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getFnArgs e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-1)))))))(else (vector 0 arg-0 arg-1))))))
 (define CaseSplit-Interactive-TTImp-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 arg-1 (vector 0 ) (vector 0 ) arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-5 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-2 1))) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 arg-1 e-0 e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))
-(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9382-7205 'erased arg-1 (TT-Core-getFn 'erased arg-1)))))))
+(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9776-7316 'erased arg-1 (TT-Core-getFn 'erased arg-1)))))))
 (define CaseSplit-Interactive-TTImp-getArgNames (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 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))) (lambda (eta-0) (let ((act-24 (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 e-8 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))) (vector 1 (vector 1 e-5 (vector 0 )))))))))(else (vector 1 (vector 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 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-1 1))) 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-1 arg-2 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-5) arg-3) arg-4 e-9) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--9733-7509-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-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 (CaseSplit-Interactive-TTImp-n--9733-7510-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4)))))))))
-(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) 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) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-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 ))) ((CaseSplit-Interactive-TTImp-case--10579-8286 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 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 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))
-(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--9179-7035 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9425-7233 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2))))
+(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7624-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-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 (CaseSplit-Interactive-TTImp-n--10130-7625-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4)))))))))
+(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) 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) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-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 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 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 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))
+(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--9572-7145 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9819-7344 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2))))
 (define CaseSplit-Interactive-TTImp-findAllVars (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) ((3) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((1) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((4) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4)))(else (vector 0 ))))))))(else (vector 0 ))))))
 (define CaseSplit-Interactive-TTImp-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 (Context-Core-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 e-5 arg-2 (vector 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 (TTImp-TTImp-apply (vector 0 arg-1 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-1 eta-0)) e-8))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
 (define CaseSplit-Interactive-TTImp-defaultNames (lambda () (vector 1 "x" (vector 1 "y" (vector 1 "z" (vector 1 "w" (vector 1 "v" (vector 1 "s" (vector 1 "t" (vector 1 "u" (vector 0 )))))))))))
 (define CaseSplit-Interactive-TTImp-combine (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) (vector 0 (vector 0 )))(else (vector 1 (List-Data-reverse 'erased arg-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CaseSplit-Interactive-TTImp-combine e-3 arg-1))(else (CaseSplit-Interactive-TTImp-combine e-3 (vector 1 e-2 arg-1))))))))))))
 (define CaseSplit-Interactive-TTImp-apply (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-apply (vector 8 e-4 arg-0 e-5) e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-apply (vector 9 e-6 arg-0 e-7 e-8) e-2)))))))))) (else arg-0)))))
-(define AutoSearch-Core-case--12517-5118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7331-4695-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-24 arg-8 arg-9 arg-10 arg-11 (vector 0 ) arg-20 (let ((sc1 arg-22)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
-(define AutoSearch-Core-case--12429-5011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-8)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7331-4695-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--12517-5118 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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 defaults e (AutoSearch-Core-n--7331-4694-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0)))))))
-(define AutoSearch-Core-case--12367-4942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-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 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-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 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-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 (let ((e-7 (vector-ref sc3 1))) (let ((sc4 arg-8)) (cond ((equal? sc4 0) ((AutoSearch-Core-n--7331-4695-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-21 (let ((sc5 e-6)) (let ((e-1 (vector-ref sc5 2))) e-1))) eta-0)) (else (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--12517-5118 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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-6 e-7 defaults e (AutoSearch-Core-n--7331-4694-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))))))
-(define AutoSearch-Core-case--7331-4901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12367-4942 arg-0 arg-1 arg-2 arg-3 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-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0)))))))))))
-(define AutoSearch-Core-case--12149-4790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7331-4695-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 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15))))))
-(define AutoSearch-Core-case--11990-4597 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2))))))
-(define AutoSearch-Core-case--11777-4405 (lambda (arg-0 arg-1 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 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-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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 ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0))))))))))))
-(define AutoSearch-Core-case--11745-4375 (lambda (arg-0 arg-1 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) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 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 ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0))))))))))))))))
-(define AutoSearch-Core-case--11338-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-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-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 ((Normalise-Core-evalClosure 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 ((AutoSearch-Core-n--11338-4012-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 ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0)))))))))))))))))))))
-(define AutoSearch-Core-case--11362-4183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--11362-4080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--10949-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18))))))
-(define AutoSearch-Core-case--10993-3746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--10984-3705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--10993-3746 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--10695-3516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-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))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--10447-3456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) 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))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--10695-3516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
-(define AutoSearch-Core-case--10447-3264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((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 AutoSearch-Core-case--9951-2933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--9430-2776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 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))) (let ((act-26 (Context-Core-isPairType arg-13 arg-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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 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))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 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 ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))))))))))))
-(define AutoSearch-Core-case--9612-2539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9403-2272-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-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))
-(define AutoSearch-Core-case--9521-2478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate 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 ((envC-39 (AutoSearch-Core-n--9403-2272-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-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 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--9429-2405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 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 ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9521-2478 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
-(define AutoSearch-Core-case--9094-2021 (lambda (arg-0 arg-1 arg-2 arg-3 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) (AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
-(define AutoSearch-Core-case--9078-1971 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-evalClosure 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))) ((AutoSearch-Core-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) ((AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11))))))
-(define AutoSearch-Core-case--8897-1811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7)))
-(define AutoSearch-Core-case--8850-1784 (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) (AutoSearch-Core-case--8897-1811 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7)))))
-(define AutoSearch-Core-case--8625-1631 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-5 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-6 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 (Context-Core-commit arg-6 eta-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)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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-5 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))
-(define AutoSearch-Core-case--8625-1555 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
-(define AutoSearch-Core-case--8519-1472 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
-(define AutoSearch-Core-case--8050-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
-(define AutoSearch-Core-case--7855-1010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) 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))) (let ((ok 1)) ((AutoSearch-Core-case--8050-1119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
-(define AutoSearch-Core-case--7855-930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define AutoSearch-Core-case--7804-846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-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 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) 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))) ((AutoSearch-Core-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) 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) 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 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) 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 ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-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 ((ok 1)) ((AutoSearch-Core-case--8050-1119 arg-0 arg-1 arg-2 arg-3 arg-4 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 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--7758-811 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--7804-846 arg-0 arg-1 arg-2 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
-(define AutoSearch-Core-case--7717-739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0)))))
-(define AutoSearch-Core-case--7546-662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3))))))))
-(define AutoSearch-Core-case--7487-601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) 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 ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4))))))))))))))))))))
-(define AutoSearch-Core-n--10949-3694-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 ((Context-Core-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))) ((AutoSearch-Core-case--10993-3746 arg-0 arg-1 arg-2 arg-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 (Context-Core-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 AutoSearch-Core-n--9028-1955-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9078-1971 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-10 arg-11)))))))))
-(define AutoSearch-Core-n--7331-4695-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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0)))))))))))))
-(define AutoSearch-Core-n--8625-1605-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-3 e-2 eta-0)))))))))
-(define AutoSearch-Core-n--7712-731-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--7717-739 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define AutoSearch-Core-n--9403-2274-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9403-2273-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-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9430-2776 arg-0 arg-1 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 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9403-2270-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 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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 AutoSearch-Core-n--9403-2273-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 ((AutoSearch-Core-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 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 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9521-2478 arg-0 arg-1 arg-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-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0)))))))))))))))))))))))))))
-(define AutoSearch-Core-n--11338-4012-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((AutoSearch-Core-n--11338-4012-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-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11338-4012-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11338-4012-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-n--9403-2271-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased 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 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9403-2271-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 'erased 'erased e-0 'erased arg-18 e-10)))))))))))
-(define AutoSearch-Core-n--9403-2272-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))) (AutoSearch-Core-n--9403-2271-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 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15)))))
-(define AutoSearch-Core-n--9403-2270-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 AutoSearch-Core-n--7331-4694-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 AutoSearch-Core-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))) (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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (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 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (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 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not 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-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9028-1955-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 (vector-ref sc2 1))) e-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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 (Extra-Bool-Data-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))) (let ((sc1 e-19)) (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-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 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-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define AutoSearch-Core-case--13042-5432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7569-4986-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
+(define AutoSearch-Core-case--12951-5318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (AutoSearch-Core-n--7569-4986-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--13042-5432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (AutoSearch-Core-n--7569-4985-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 e))) eta-0)))))))
+(define AutoSearch-Core-case--12889-5244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-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 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-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 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-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 (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--12951-5318 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-6 e-7 (Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))))))
+(define AutoSearch-Core-case--7569-5203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12889-5244 arg-0 arg-1 arg-2 arg-3 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-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0)))))))))))
+(define AutoSearch-Core-case--12662-5087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7569-4986-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 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15))))))
+(define AutoSearch-Core-case--12499-4886 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2))))))
+(define AutoSearch-Core-case--12279-4685 (lambda (arg-0 arg-1 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 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-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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 ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0))))))))))))
+(define AutoSearch-Core-case--12245-4655 (lambda (arg-0 arg-1 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) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 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 ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0))))))))))))))))
+(define AutoSearch-Core-case--11701-4548 (lambda (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) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-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 ((Normalise-Core-evalClosure 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 ((AutoSearch-Core-n--11701-4169-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 ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0)))))))))))))))))))))
+(define AutoSearch-Core-case--11726-4458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--11726-4354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--11725-4189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-12 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))))))
+(define AutoSearch-Core-case--11309-4073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18))))))
+(define AutoSearch-Core-case--11354-3899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--11344-3858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--11049-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-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))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--10789-3601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) 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))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--11049-3662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
+(define AutoSearch-Core-case--10789-3396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((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 AutoSearch-Core-case--10274-3052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--9740-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 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))) (let ((act-26 (Context-Core-isPairType arg-13 arg-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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 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))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 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 ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))))))))))))
+(define AutoSearch-Core-case--9928-2639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9713-2363-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-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))
+(define AutoSearch-Core-case--9834-2577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate 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 ((envC-39 (AutoSearch-Core-n--9713-2363-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-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 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--9739-2499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 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 ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
+(define AutoSearch-Core-case--9394-2103 (lambda (arg-0 arg-1 arg-2 arg-3 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) (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
+(define AutoSearch-Core-case--9378-2050 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-evalClosure 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))) ((AutoSearch-Core-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) ((AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11))))))
+(define AutoSearch-Core-case--9197-1890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7)))
+(define AutoSearch-Core-case--9150-1863 (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) (AutoSearch-Core-case--9197-1890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7)))))
+(define AutoSearch-Core-case--8891-1680 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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 (Context-Core-commit arg-7 eta-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)))))))))))))))(else (lambda (eta-0) (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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-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 (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (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 (Normalise-Core-quote_Quote__NF 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-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))
+(define AutoSearch-Core-case--8891-1599 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))))))
+(define AutoSearch-Core-case--8785-1516 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
+(define AutoSearch-Core-case--8304-1150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
+(define AutoSearch-Core-case--8103-1040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) 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))) (let ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
+(define AutoSearch-Core-case--8103-960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define AutoSearch-Core-case--8052-870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-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 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) 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))) ((AutoSearch-Core-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) 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) 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 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) 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 ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-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 ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 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 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--8004-835 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--8052-870 arg-0 arg-1 arg-2 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
+(define AutoSearch-Core-case--7963-761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0)))))
+(define AutoSearch-Core-case--7789-684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3))))))))
+(define AutoSearch-Core-case--7725-619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) 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 ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4))))))))))))))))))))
+(define AutoSearch-Core-n--11309-3846-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 ((Context-Core-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))) ((AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-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 (Context-Core-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 AutoSearch-Core-n--9328-2034-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9378-2050 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-10 arg-11)))))))))
+(define AutoSearch-Core-n--7569-4986-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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0)))))))))))))
+(define AutoSearch-Core-n--8891-1653-normRes (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0)))))))))
+(define AutoSearch-Core-n--7958-753-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--7963-761 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define AutoSearch-Core-n--9713-2365-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9713-2364-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-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9740-2884 arg-0 arg-1 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 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9713-2361-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 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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 AutoSearch-Core-n--9713-2364-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 ((AutoSearch-Core-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 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 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-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-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0)))))))))))))))))))))))))))
+(define AutoSearch-Core-n--11701-4168-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-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11725-4189 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-12 arg-13)))))))))
+(define AutoSearch-Core-n--11701-4169-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((AutoSearch-Core-n--11701-4169-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 (Context-Core-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 ((argsC-39 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11701-4169-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)))))))) argsC-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 (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11701-4169-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-n--9713-2362-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased 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 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9713-2362-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 'erased 'erased e-0 'erased arg-18 e-10)))))))))))
+(define AutoSearch-Core-n--9713-2363-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))) (AutoSearch-Core-n--9713-2362-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 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15)))))
+(define AutoSearch-Core-n--9713-2361-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 AutoSearch-Core-n--7569-4985-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 AutoSearch-Core-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))) (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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (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 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (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 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not 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-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9328-2034-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 (vector-ref sc2 1))) e-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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 (Extra-Bool-Data-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))) (let ((sc1 e-19)) (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-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 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-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
 (define AutoSearch-Core-successful (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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-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 (Context-Core-branch arg-1 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (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 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 e-7 (vector 0 e-9 e-8))) e-12))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) 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 (vector 1 (vector 0 err) e-9))))))))))))))))) eta-0)))))))))))))))))))
-(define AutoSearch-Core-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) (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))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) 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 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) 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 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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 ((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 ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--12367-4942 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 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) 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))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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) ((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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12367-4942 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 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0))))))))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--10949-3694-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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-12)) (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 (let ((act-25 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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 (Prelude-not (Context-Core-visibleInAny (vector 1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-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 ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10447-3264 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 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) 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 ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 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 ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) 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))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--10695-3516 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 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-11)) (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 ((Normalise-Core-nf arg-0 e-5 arg-10 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))) ((AutoSearch-Core-n--9403-2274-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-1) eta-1) e-6 arg-12) eta-0)))))))))))))))))
-(define AutoSearch-Core-searchLocal (lambda (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 ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs))))
-(define AutoSearch-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((AutoSearch-Core-case--7804-846 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))))))))))))))))))))))
+(define AutoSearch-Core-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) (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))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) 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 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) 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 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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 ((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 ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--12889-5244 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 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) 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))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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) ((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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12889-5244 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 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0))))))))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11309-3846-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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-12)) (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 (let ((act-25 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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 (Prelude-not (Context-Core-visibleInAny (vector 1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-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 ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10789-3396 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 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) 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 ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 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 ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) 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))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--11049-3662 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 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-11)) (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 ((Normalise-Core-nf arg-0 e-5 arg-10 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))) ((AutoSearch-Core-n--9713-2365-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-1) eta-1) e-6 arg-12) eta-0)))))))))))))))))
+(define AutoSearch-Core-searchLocal (lambda (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 ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-11 elabs))))
+(define AutoSearch-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((AutoSearch-Core-case--8052-870 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))))))))))))))))))))))
 (define ArgInfo-AutoSearch-Core-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
 (define AutoSearch-Core-mkArgs (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-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))) (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 (Context-Core-clearDefs 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 (UnifyState-Core-genName arg-1 arg-2 "sa" 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))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (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))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc6 act-28)) (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))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 9 e-14) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-30)) (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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16) eta-0)))))))) (let ((sc9 act-30)) (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 ((sc10 e-16)) (let ((e-18 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6))))))))
 (define ArgInfo-AutoSearch-Core-metaApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
 (define AutoSearch-Core-isPairNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Context-Core-isPairType arg-1 e-2 eta-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) (lambda (eta-0) (let ((act-24 (((e-10 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-7 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))) ((AutoSearch-Core-isPairNF 'erased arg-1 arg-2 e-5 arg-4) eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--7712-731-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--7712-731-impl 'erased arg-1 'erased eta-0)) arg-1))))
+(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0)) arg-1))))
 (define ArgInfo-AutoSearch-Core-holeID (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--8850-1784 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-2)))))))))))))))
-(define AutoSearch-Core-exactlyOne (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-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-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--8625-1631 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8625-1631 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0))))))))))))
-(define AutoSearch-Core-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11338-4273 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-7 arg-8))))))))))
-(define AutoSearch-Core-checkConcreteDets (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) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 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 ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) 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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) 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 ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--9150-1863 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2)))))))))))))))
+(define AutoSearch-Core-exactlyOne (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0))))))))))))
+(define AutoSearch-Core-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11701-4548 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8))))))))))
+(define AutoSearch-Core-checkConcreteDets (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) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 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 ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) 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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) 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 ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define ArgInfo-AutoSearch-Core-argType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
 (define ArgInfo-AutoSearch-Core-argRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define AutoSearch-Core-anyOne (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-2 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 e-2 (AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))))))
 (define AutoSearch-Core-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-2 arg-3 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0)) (else ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3) eta-0))))))))))))))))))))))
 (define InitPrimitives-Core-addPrimitives (lambda (arg-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (InitPrimitives-Core-addPrim arg-0 eta-0 eta-1))) (Primitives-Core-allPrimitives))))
 (define InitPrimitives-Core-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-addBuiltin (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) arg-0 (Primitives-Core-opName 'erased (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 (CompileExpr-Compiler-compileDef arg-0 (Primitives-Core-opName 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define CompileExpr-Compiler-case--11888-7873 (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 ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0)))))))))
-(define CompileExpr-Compiler-case--11872-7861 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--11888-7873 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
-(define CompileExpr-Compiler-case--11813-7807 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) 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))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
-(define CompileExpr-Compiler-case--11417-7634 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11417-7582-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11417-7583-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))))
-(define CompileExpr-Compiler-case--11417-7562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3))))))))
-(define CompileExpr-Compiler-case--11417-7506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) 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-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11417-7456-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11417-7457-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))))))))))
-(define CompileExpr-Compiler-case--11039-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) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 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 (vector 0 e-2 e-6))))))))))))))))))
-(define CompileExpr-Compiler-case--10842-7072 (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 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (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))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) 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 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 11 e-6)))))))))))))))))))
-(define CompileExpr-Compiler-case--10704-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 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))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))
-(define CompileExpr-Compiler-case--10577-6680 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11))))))))
-(define CompileExpr-Compiler-case--10558-6642 (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-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 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-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CompileExpr-Compiler-case--10547-6627 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (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 ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (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 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10398-6522 (lambda (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))
-(define CompileExpr-Compiler-case--10378-6489 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) 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-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) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10367-6473 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10378-6489 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10314-6434 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3)))))))
-(define CompileExpr-Compiler-case--9076-6280 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13))))))))
-(define CompileExpr-Compiler-case--9905-6106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17))))))))))
-(define CompileExpr-Compiler-case--9076-6054 (lambda (arg-0 arg-1 arg-2 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) (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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 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))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) 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 ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--9905-6106 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define CompileExpr-Compiler-case--9067-5847 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-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))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CompileExpr-Compiler-case--9526-5747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-14 (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12)))))))
-(define CompileExpr-Compiler-case--9230-5511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16))))))))
-(define CompileExpr-Compiler-case--9153-5465 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) 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 ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-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))) ((CompileExpr-Compiler-case--9230-5511 arg-0 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 (CompileExpr-Compiler-n--9061-5352-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)))) eta-0)))))))))))))))))
-(define CompileExpr-Compiler-case--9120-5400 (lambda (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) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((CompileExpr-Compiler-case--9153-5465 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 (CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9153-5465 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 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))
-(define CompileExpr-Compiler-case--9061-5377 (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))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9120-5400 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 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-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 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 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7)))))))))))))))))))))))
-(define CompileExpr-Compiler-case--8932-5245 (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-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))
-(define CompileExpr-Compiler-case--8484-5203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) 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))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 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 ((CompileExpr-Compiler-numArgs 'erased e-6 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 (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 ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))))))))))))))))))))))))))
-(define CompileExpr-Compiler-case--8481-5139 (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 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 )))))))))
-(define CompileExpr-Compiler-case--8328-4741 (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))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
-(define CompileExpr-Compiler-case--8252-4572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
-(define CompileExpr-Compiler-case--7859-4220 (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 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6)))))))
-(define CompileExpr-Compiler-case--7829-4199 (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))) (CompileExpr-Compiler-case--7859-4220 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-3)))))))
-(define CompileExpr-Compiler-case--7736-4105 (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) (CompileExpr-Compiler-n--7717-4091-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--7717-4091-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))))
-(define CompileExpr-Compiler-case--7608-4007 (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-6) (else (CompileExpr-Compiler-n--7599-3985-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))
-(define CompileExpr-Compiler-case--7168-3602 (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) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-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)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((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 CompileExpr-Compiler-case--7140-3587 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7168-3602 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0))))))))
-(define CompileExpr-Compiler-n--8328-4633-toBool (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 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-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define CompileExpr-Compiler-n--11417-7582-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC))))
-(define CompileExpr-Compiler-n--11417-7456-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC))))
-(define CompileExpr-Compiler-n--9067-5721-mkSubst (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9526-5747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13)))))))))
-(define CompileExpr-Compiler-n--7400-3806-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
-(define CompileExpr-Compiler-n--7400-3807-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (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 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5)))))))))
-(define CompileExpr-Compiler-n--7599-3986-keepArg (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-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 (CompileExpr-Compiler-n--7599-3986-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7599-3985-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2)))))))
-(define CompileExpr-Compiler-n--7599-3985-keep (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 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7608-4007 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3)))))))))
-(define CompileExpr-Compiler-n--11417-7583-getVars (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 (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11417-7583-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
-(define CompileExpr-Compiler-n--11417-7457-getVars (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-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11417-7457-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
-(define CompileExpr-Compiler-n--7717-4091-drop (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7736-4105 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-5)))))))))
-(define CompileExpr-Compiler-n--9061-5352-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 CompileExpr-Compiler-n--7496-3904-applyAll (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7496-3904-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3))))))))
-(define CompileExpr-Compiler-n--7496-3926-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 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--12190-8093 (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 ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0)))))))))
+(define CompileExpr-Compiler-case--12172-8081 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--12190-8093 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
+(define CompileExpr-Compiler-case--12109-8023 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) 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))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
+(define CompileExpr-Compiler-case--11702-7843 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7791-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))))
+(define CompileExpr-Compiler-case--11702-7771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3))))))))
+(define CompileExpr-Compiler-case--11702-7711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) 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-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7661-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))))))))))
+(define CompileExpr-Compiler-case--11311-7335 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 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 (vector 0 e-2 e-6))))))))))))))))))
+(define CompileExpr-Compiler-case--11107-7259 (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 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (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))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) 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 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 11 e-6)))))))))))))))))))
+(define CompileExpr-Compiler-case--10967-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 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))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))
+(define CompileExpr-Compiler-case--10838-6858 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11))))))))
+(define CompileExpr-Compiler-case--10819-6818 (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-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 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-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--10807-6803 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (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 ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (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 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10657-6697 (lambda (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))
+(define CompileExpr-Compiler-case--10637-6663 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) 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-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) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10625-6647 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10637-6663 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10572-6607 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3)))))))
+(define CompileExpr-Compiler-case--9315-6453 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13))))))))
+(define CompileExpr-Compiler-case--10158-6277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17))))))))))
+(define CompileExpr-Compiler-case--9315-6221 (lambda (arg-0 arg-1 arg-2 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) (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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 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))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) 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 ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define CompileExpr-Compiler-case--9306-6012 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-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))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--9775-5909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-14 (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12)))))))
+(define CompileExpr-Compiler-case--9472-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 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16))))))))
+(define CompileExpr-Compiler-case--9394-5620 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) 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 ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-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))) ((CompileExpr-Compiler-case--9472-5668 arg-0 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 (CompileExpr-Compiler-n--9300-5503-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)))) eta-0)))))))))))))))))
+(define CompileExpr-Compiler-case--9361-5554 (lambda (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) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((CompileExpr-Compiler-case--9394-5620 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 (CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9394-5620 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 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))
+(define CompileExpr-Compiler-case--9300-5531 (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))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9361-5554 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 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-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 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 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7)))))))))))))))))))))))
+(define CompileExpr-Compiler-case--9165-5396 (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-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))
+(define CompileExpr-Compiler-case--8709-5346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) 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))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 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 ((CompileExpr-Compiler-numArgs 'erased e-6 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 (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 ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))))))))))))))))))))))))))
+(define CompileExpr-Compiler-case--8706-5282 (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 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 )))))))))
+(define CompileExpr-Compiler-case--8553-4873 (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))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
+(define CompileExpr-Compiler-case--8477-4704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
+(define CompileExpr-Compiler-case--8084-4352 (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 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6)))))))
+(define CompileExpr-Compiler-case--8054-4331 (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))) (CompileExpr-Compiler-case--8084-4352 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-3)))))))
+(define CompileExpr-Compiler-case--7961-4237 (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) (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))))
+(define CompileExpr-Compiler-case--7833-4139 (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-6) (else (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))
+(define CompileExpr-Compiler-case--7393-3734 (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) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-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)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((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 CompileExpr-Compiler-case--7364-3719 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7393-3734 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0))))))))
+(define CompileExpr-Compiler-n--8553-4765-toBool (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 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-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define CompileExpr-Compiler-n--11702-7791-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC))))
+(define CompileExpr-Compiler-n--11702-7661-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC))))
+(define CompileExpr-Compiler-n--9306-5883-mkSubst (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9775-5909 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13)))))))))
+(define CompileExpr-Compiler-n--7625-3938-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
+(define CompileExpr-Compiler-n--7625-3939-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (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 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5)))))))))
+(define CompileExpr-Compiler-n--7824-4118-keepArg (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-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 (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2)))))))
+(define CompileExpr-Compiler-n--7824-4117-keep (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 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7833-4139 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3)))))))))
+(define CompileExpr-Compiler-n--11702-7792-getVars (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 (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
+(define CompileExpr-Compiler-n--11702-7662-getVars (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-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
+(define CompileExpr-Compiler-n--7942-4223-drop (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7961-4237 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-5)))))))))
+(define CompileExpr-Compiler-n--9300-5503-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 CompileExpr-Compiler-n--7721-4036-applyAll (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3))))))))
+(define CompileExpr-Compiler-n--7721-4058-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 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 ))))))))
 (define CompileExpr-Compiler-weakenVar (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2)))
 (define CompileExpr-Compiler-tryZBranch (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "Z") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (vector 1 e-4))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 ))))))
 (define CompileExpr-Compiler-trySBranch (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "S") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (let ((fc (CompileExpr-Core-getFC 'erased arg-1))) (vector 1 (vector 3 fc e-13 0 (vector 4 fc (vector 1 fc (vector 1 "prim__sub_Integer")) (vector 1 arg-1 (vector 1 (vector 12 fc (vector 1 1)) (vector 0 )))) e-4))))(else (vector 0 )))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 ))))))
-(define CompileExpr-Compiler-toCExpTreeC-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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 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 ((alts (vector 1 (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 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 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 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 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 ))) ((CompileExpr-Compiler-case--9905-6106 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9076-6280 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2))))))))))
+(define CompileExpr-Compiler-toCExpTreeC-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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 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 ((alts (vector 1 (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 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 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 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 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 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9315-6453 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2))))))))))
 (define CompileExpr-Compiler-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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (vector 1 e-10 (vector 1 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 fc e-11 0 (vector 8 fc (vector 0 e-2 (TT-Core-getLoc 'erased e-4))) (vector 3 fc e-10 0 (vector 13 fc) e-6))))))))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))
-(define CompileExpr-Compiler-toCExpTm (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-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))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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) (vector 0 )))))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) 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))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) 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 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) 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 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) 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 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (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 ((CompileExpr-Compiler-toCExp 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 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 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 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 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-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8481-5139 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 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 0 ) (vector 0 ))))))))))
-(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8484-5203 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))
-(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-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))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11417-7506 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (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))) (CompileExpr-Compiler-case--11417-7634 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 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 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3)))))))))))))))))
-(define CompileExpr-Compiler-numArgs (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7168-3602 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))
-(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 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-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) 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 (vector 10 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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (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))) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))
-(define CompileExpr-Compiler-natHackTree (lambda (arg-0 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))) (CompileExpr-Compiler-case--8252-4572 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1)))))
+(define CompileExpr-Compiler-toCExpTm (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-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))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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) (vector 0 )))))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) 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))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) 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 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) 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 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) 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 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (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 ((CompileExpr-Compiler-toCExp 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 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 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 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 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-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8706-5282 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 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 0 ) (vector 0 ))))))))))
+(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8709-5346 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))
+(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-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))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11702-7711 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (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))) (CompileExpr-Compiler-case--11702-7843 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 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 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3)))))))))))))))))
+(define CompileExpr-Compiler-numArgs (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7393-3734 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))
+(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 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-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) 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 (vector 10 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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (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))) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))
+(define CompileExpr-Compiler-natHackTree (lambda (arg-0 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))) (CompileExpr-Compiler-case--8477-4704 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1)))))
 (define CompileExpr-Compiler-natHack (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((sc3 e-16)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-17)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-19 (vector-ref sc5 1))) (let ((sc6 e-19)) (cond ((equal? sc6 "Z") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 12 e-1 (vector 1 0)))(else arg-1)))) ((equal? sc6 "S") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (case (vector-ref sc8 0) ((0) (vector 4 e-1 (vector 1 e-1 (vector 1 "prim__add_Integer")) (vector 1 (vector 12 e-1 (vector 1 1)) (vector 1 e-22 (vector 0 )))))(else arg-1))))))(else arg-1))))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((4) (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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((sc4 e-31)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 1))) (let ((sc7 e-34)) (cond ((equal? sc7 "natToInteger") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((0) e-36)(else arg-1))))))(else arg-1)))) ((equal? sc7 "integerToNat") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 1))) (let ((e-41 (vector-ref sc8 2))) (let ((sc9 e-41)) (case (vector-ref sc9 0) ((0) e-40)(else arg-1))))))(else arg-1)))) ((equal? sc7 "plus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__add_Integer")) e-8)) ((equal? sc7 "mult") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__mul_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1)))) ((equal? sc4 "Nat") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-44 (vector-ref sc5 1))) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-44)) (cond ((equal? sc6 "Data") (let ((sc7 e-45)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((1) (let ((e-47 (vector-ref sc8 1))) (let ((sc9 e-47)) (cond ((equal? sc9 "minus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__sub_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 2 e-10 e-11 (CompileExpr-Compiler-natHack 'erased e-12))))))(else arg-1)))))
 (define CompileExpr-Compiler-natBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (CompileExpr-Compiler-isNatCon e-1)))))
-(define CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--11888-7873 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
-(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7829-4199 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3)))))))))
-(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10314-6434 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0))))))))
+(define CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--12190-8093 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
+(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8054-4331 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3)))))))))
+(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10572-6607 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0))))))))
 (define CompileExpr-Compiler-isNatCon (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-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Prelude") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (cond ((equal? sc5 "Z") 0) ((equal? sc5 "S") 0)(else 1)))))(else 1))))(else 1))))(else 1))))))(else 1))))))(else 1)))))
 (define CompileExpr-Compiler-getZBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-tryZBranch 'erased e-2) (CompileExpr-Compiler-getZBranch 'erased e-3)))))))))
 (define CompileExpr-Compiler-getSBranch (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))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-trySBranch 'erased arg-1 e-2) (CompileExpr-Compiler-getSBranch 'erased arg-1 e-3)))))))))
-(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((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))) ((CompileExpr-Compiler-case--10378-6489 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
-(define CompileExpr-Compiler-getNewType (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 ((e-3 (vector-ref sc0 2))) (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 (Context-Core-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)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9067-5721-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((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))) ((CompileExpr-Compiler-case--10637-6663 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
+(define CompileExpr-Compiler-getNewType (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 ((e-3 (vector-ref sc0 2))) (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 (Context-Core-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)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
 (define CompileExpr-Compiler-getNArgs (lambda (arg-0 arg-1 arg-2) (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) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "IORes") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 6 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Ptr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "AnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCAnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Buffer") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Unit") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Struct") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-23 (vector-ref sc4 1))) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 e-20) eta-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-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) ((6) (let ((e-6 (vector-ref sc8 1))) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-23 eta-0))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))
 (define CompileExpr-Compiler-getFieldArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-12 ext-0))) (let ((sc6 act-25)) (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-26 (CompileExpr-Compiler-getPArgs arg-0 e-10 ext-0))) (let ((sc7 act-26)) (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 ((sc8 e-14)) (let ((e-16 (vector-ref sc8 1))) (let ((e-15 (vector-ref sc8 2))) (vector 1 (vector 1 (vector 0 e-16 e-15) e-13))))))))))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
 (define CompileExpr-Compiler-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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) ((9) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))))))
 (define CompileExpr-Compiler-getCFTypes (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 ((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))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-8) 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 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (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 (((e-4 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 1 e-5 arg-1) e-10) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) 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 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 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))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))
-(define CompileExpr-Compiler-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) (CompileExpr-Compiler-n--7496-3904-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7496-3926-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 )))))))))))))))
-(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7400-3807-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7400-3806-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4))))))))))
+(define CompileExpr-Compiler-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) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7721-4058-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 )))))))))))))))
+(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7625-3939-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7625-3938-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4))))))))))
 (define CompileExpr-Compiler-eraseConArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-dropPos 'erased arg-2 fnC-39))))
-(define CompileExpr-Compiler-dropPos (lambda (arg-0 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 (CompileExpr-Compiler-dropPos 'erased arg-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))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--7717-4091-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2)))))
+(define CompileExpr-Compiler-dropPos (lambda (arg-0 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 (CompileExpr-Compiler-dropPos 'erased arg-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))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--7942-4223-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2)))))
 (define CompileExpr-Compiler-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((9) (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-5 e-7) e-8)))))))))))))))))))(else (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3)))))))))))
-(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9120-5400 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 ((Context-Core-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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3)))))))))))
+(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9361-5554 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 ((Context-Core-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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3)))))))))))
 (define CompileExpr-Compiler-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 0 ) arg-0 (vector 1 "main") 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))) (vector 1 e-5))))))))
-(define CompileExpr-Compiler-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 ((Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (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))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) 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))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
-(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 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 ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8328-4633-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 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 CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7599-3986-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
-(define Directory-Core-case--5955-1138 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--5955-1016-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5992-1088 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--5955-1016-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5968-1050 (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 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--5992-1088 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1)))))))
-(define Directory-Core-case--5956-1029 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--5968-1050 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5903-977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 (Directory-System-closeDir e-2 eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Directory-Core-case--5860-937 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5787-873 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3)) e-5) eta-0))))))))
-(define Directory-Core-case--5717-819 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0))))))))
-(define Directory-Core-case--5650-782 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Directory-System-createDir arg-0 eta-0)))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2))))))
-(define Directory-Core-case--5650-758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Directory-Core-case--5628-737 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5650-758 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Directory-System-createDir arg-0 eta-0))(else act-24)))))(else act-24))))))))))
-(define Directory-Core-case--5621-715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5650-758 arg-0 exist (Path-Utils-parent arg-0)) eta-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) (Directory-System-createDir arg-0 eta-0))(else act-25)))))(else act-25))))))))))))))
-(define Directory-Core-case--5582-682 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-System-closeDir e-2 eta-0))) 0)))) (else (lambda (eta-0) 1))))))
-(define Directory-Core-case--5495-622 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4))))))))))))
-(define Directory-Core-case--5495-600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3)))))
-(define Directory-Core-case--5404-538 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0)))))))
-(define Directory-Core-case--5333-471 (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) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0)))))))))
-(define Directory-Core-case--5274-419 (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 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0)))))))
-(define Directory-Core-case--5183-335 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Directory-Core-case--5164-315 (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) (let ((act-24 (let ((act-24 (File-System-readFile e-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0)))))))
-(define Directory-Core-case--5115-270 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile e-2 eta-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 (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1))))))
-(define Directory-Core-n--5955-1016-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-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))) ((Directory-Core-case--5968-1050 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 )))))))
-(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable 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))) (let ((act-26 (let ((act-26 (File-System-readFile e-1 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 ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0)))))))))))))))))
-(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5495-600 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5495-622 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2))))))
+(define CompileExpr-Compiler-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 ((Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (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))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) 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))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
+(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 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 ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8553-4765-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 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 CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
+(define Directory-Core-case--6179-1188 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6217-1135 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6179-1061-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6192-1097 (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 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--6217-1135 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1)))))))
+(define Directory-Core-case--6180-1075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--6192-1097 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6124-1021 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Directory-Core-case--6078-977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6010-910 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Directory-Core-case--5938-859 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0))))))))
+(define Directory-Core-case--5868-817 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2))))))
+(define Directory-Core-case--5868-793 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Directory-Core-case--5846-772 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-24)))))(else act-24))))))))))
+(define Directory-Core-case--5839-750 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-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) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-25)))))(else act-25))))))))))))))
+(define Directory-Core-case--5795-714 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
+(define Directory-Core-case--5708-651 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4))))))))))))
+(define Directory-Core-case--5708-629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3)))))
+(define Directory-Core-case--5614-567 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0)))))))
+(define Directory-Core-case--5541-497 (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) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0)))))))))
+(define Directory-Core-case--5480-442 (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 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0)))))))
+(define Directory-Core-case--5385-356 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Directory-Core-case--5364-332 (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) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0)))))))
+(define Directory-Core-case--5310-282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1))))))
+(define Directory-Core-n--6179-1061-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-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))) ((Directory-Core-case--6192-1097 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 )))))))
+(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable 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))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0)))))))))))))))))
+(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5708-629 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5708-651 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2))))))
 (define Directory-Core-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((fnameOrig (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fnameBase (Prelude-maybe 'erased 'erased (lambda () fnameOrig) (lambda () (lambda (srcdir) (Path-Utils-C-60C-47C-62 srcdir fnameOrig))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (ext) (Path-Utils-C-60C-46C-62 fnameBase ext)) (vector 1 ".idr" (vector 1 ".lidr" (vector 1 ".yaff" (vector 1 ".org" (vector 1 ".md" (vector 0 ))))))))) (let ((act-25 ((Directory-Core-firstAvailable 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-2) ext-0)))))))))))))))))))
 (define Directory-Core-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((fnameBase (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p (Path-Utils-C-60C-46C-62 fnameBase "ttc"))) (vector 1 (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc") (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8)))))) (let ((act-25 ((Directory-Core-firstAvailable 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 51 arg-1 arg-2))))))))))))))))))))
-(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5621-715 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath)))))
-(define Directory-Core-makeExecDirectory (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-7) ext-0)))))))))))))))))
+(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5839-750 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath)))))
 (define Directory-Core-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((bdir (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc"))) (let ((ns (List-Data-reverse 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (List-Data-tailC-39 'erased arg-1))))) (let ((ndir (Path-Utils-joinPath ns))) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (Path-Utils-C-60C-47C-62 bdir 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) ndir) e-7) ext-0))))))))))))))))))))
 (define Directory-Core-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((Directory-Core-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 ((fname (Path-Utils-C-60C-46C-62 (Path-Utils-joinPath (List-Data-reverse 'erased e-7)) arg-2))) (let ((bdir (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (vector 1 (Path-Utils-C-60C-47C-62 bdir (Path-Utils-C-60C-47C-62 "ttc" fname)))))))))))))))))))))
-(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-dirEntry arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 )))))))
-(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-openFile e-2 (vector 0 ) 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))) (let ((act-25 (let ((act-25 (File-System-closeFile e-4 eta-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 (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0)))))))))))))))))
+(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 )))))))
+(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2 (vector 0 )) 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))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-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 (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0)))))))))))))))))
 (define Directory-Core-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Path-Utils-C-60C-47C-62 x "lib")) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8))))))) (let ((act-25 ((Directory-Core-firstAvailable 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-1)) ext-0)))))))))))))))))
-(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 (Directory-System-currentDir ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--5955-1016-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 )))))))
-(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-openDir arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-System-closeDir e-2 ext-0))) 0))) (else 1))))))
-(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-openDir arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 (Directory-System-closeDir e-2 ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 )))))))
+(define Directory-Core-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Directory-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1))))))
+(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define IdrisPaths-yprefix (lambda () "__PREFIX__"))
-(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "4848cc1a7")))
-(define Version-Idris-with--1649-5882 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3))))))))))
-(define Version-Idris-case--1666-5952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1666-5908-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
-(define Version-Idris-case--1682-5912 (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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
-(define Version-Idris-n--1666-5908-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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
+(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "ebc413ede")))
+(define Version-Idris-with--1694-6131 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3))))))))))
+(define Version-Idris-case--1711-6201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1711-6157-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
+(define Version-Idris-case--1727-6161 (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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
+(define Version-Idris-n--1711-6157-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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
 (define Version-Version-Idris-versionTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Version-Idris-version (lambda () (Version-Idris-with--1649-5882 (IdrisPaths-idrisVersion))))
-(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1666-5908-showTag e-4 e-8 e-9 e-1 arg-0)) (else "")))))))))))))))
+(define Version-Idris-version (lambda () (Version-Idris-with--1694-6131 (IdrisPaths-idrisVersion))))
+(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1711-6157-showTag e-4 e-8 e-9 e-1 arg-0)) (else "")))))))))))))))
 (define Version-Version-Idris-semVer (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Syntax-Idris-case--10078-5548 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
-(define Syntax-Idris-case--10077-5511 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
-(define Syntax-Idris-case--9733-5158 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0)))))))
-(define Syntax-Idris-case--9021-4555 (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 Syntax-Idris-case--9020-4503 (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 Syntax-Idris-case--8243-4176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}"))))))))))
-(define Syntax-Idris-n--8243-4046-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))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible")))))))
-(define Syntax-Idris-n--8243-3983-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
-(define Syntax-Idris-n--9982-5437-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) 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))) ((Syntax-Idris-n--9982-5437-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
-(define Syntax-Idris-n--9981-5398-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) 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))) ((Syntax-Idris-n--9981-5398-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
-(define Syntax-Idris-n--10208-5611-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 3 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Syntax-Idris-n--10208-5615-goPairedPTerms (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (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-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
-(define Syntax-Idris-n--10208-5625-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5608-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5625-goPTypeDecls arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5608-goPTypeDecl (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5614-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (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))))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-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 ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--10208-5603-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 (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--10208-5622-goPFieldUpdates arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--10208-5603-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))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))))) ((10) (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 (Prelude-map_Functor__IO 'erased 'erased (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 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--10208-5603-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))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-44 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm 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))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 15 e-50 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--10208-5607-goPDecl arg-0 eta-1)) 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))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-56 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-58 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (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)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (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-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-78 e-79 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (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-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 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))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-84 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 31 e-87 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-89 e-5))))))) (Syntax-Idris-n--10208-5618-goPDos 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)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-91 e-5))))))) (Syntax-Idris-n--10208-5603-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)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-93 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (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-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-95 e-5))))))) (Syntax-Idris-n--10208-5614-goPTerms arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (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-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--10208-5618-goPDos arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (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))))))))))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--10208-5613-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--10208-5613-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (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-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 (Prelude-map_Functor__IO 'erased 'erased (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 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--10208-5603-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))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-125 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (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-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (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 Syntax-Idris-n--10208-5624-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5612-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5624-goPFnOpts arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5612-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-1) eta-0))))))))
-(define Syntax-Idris-n--10208-5623-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5610-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5623-goPFields arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5622-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5604-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5622-goPFieldUpdates arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5604-goPFieldUpdate (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5610-goPField (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-4) eta-0))))))))))
-(define Syntax-Idris-n--10208-5618-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5605-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5618-goPDos arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5605-goPDo (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm 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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-4) 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-8) eta-0))))))) ((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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-13) eta-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 ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-19 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-21 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-22) eta-0)))))))))
-(define Syntax-Idris-n--10208-5621-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5607-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5607-goPDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5624-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--10208-5608-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-6) eta-0))))) ((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) (Prelude-map_Functor__IO 'erased 'erased (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-7 e-8 e-5))))))) (Syntax-Idris-n--10208-5609-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-10 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-13 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-16 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-0))))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--10208-5616-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--10208-5620-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5617-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--10208-5623-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-50 e-51 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-52) eta-0)))))) ((12) (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-57 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Syntax-Idris-n--10208-5609-goPDataDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--10208-5625-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-0))))))))))
-(define Syntax-Idris-n--10208-5619-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5606-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5606-goPClause (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-3) eta-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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-10) eta-0)))))))))
-(define Syntax-Idris-n--10208-5613-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-0))))))))
-(define Syntax-Idris-n--10208-5620-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-2) eta-0))))))))
-(define Syntax-Idris-n--10208-5617-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (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 (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--10208-5617-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
-(define Syntax-Idris-n--10208-5616-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (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-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--10208-5616-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
-(define Syntax-Idris-n--7707-3286-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Syntax-Idris-n--8243-4489-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 ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--9020-4503 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4)))))
-(define Syntax-Idris-n--8243-4490-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 ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--9021-4555 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4)))))
-(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Syntax-Idris-toBuf_TTC__Fixity arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0)))))))))))))))))))
-(define Syntax-Idris-toBuf_TTC__IFaceInfo (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTC-Core-toBuf_TTC__TotalReq arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8248 eta-1)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8248) (lambda (arg-8249) (Binary-Utils-toBuf_TTC__Bool arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8248 eta-1)))) (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-1))))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-5)))) arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-5)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-5))))) arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8245 eta-3)))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
+(define Syntax-Idris-case--10870-5979 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
+(define Syntax-Idris-case--10869-5941 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
+(define Syntax-Idris-case--10503-5566 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0)))))))
+(define Syntax-Idris-case--9780-4949 (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 Syntax-Idris-case--9779-4897 (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 Syntax-Idris-case--9000-4570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}"))))))))))
+(define Syntax-Idris-n--9000-4440-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))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible")))))))
+(define Syntax-Idris-n--9000-4377-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
+(define Syntax-Idris-n--10768-5862-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) 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))) ((Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
+(define Syntax-Idris-n--10767-5821-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) 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))) ((Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
+(define Syntax-Idris-n--11004-6042-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Syntax-Idris-n--11004-6046-goPairedPTerms (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (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-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
+(define Syntax-Idris-n--11004-6056-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6039-goPTypeDecl (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6045-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (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))))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-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 ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--11004-6034-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 (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--11004-6034-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))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))))) ((10) (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 (Prelude-map_Functor__IO 'erased 'erased (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 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--11004-6034-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))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-44 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm 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))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 15 e-50 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--11004-6038-goPDecl arg-0 eta-1)) 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))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-56 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-58 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (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)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (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-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-78 e-79 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (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-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 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))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-84 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 31 e-87 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-89 e-5))))))) (Syntax-Idris-n--11004-6049-goPDos 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)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-91 e-5))))))) (Syntax-Idris-n--11004-6034-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)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-93 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (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-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-95 e-5))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (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-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (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))))))))))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (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-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 (Prelude-map_Functor__IO 'erased 'erased (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 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--11004-6034-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))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-125 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (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-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (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 Syntax-Idris-n--11004-6055-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6043-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6043-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-1) eta-0))))))))
+(define Syntax-Idris-n--11004-6054-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6041-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6053-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6035-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6035-goPFieldUpdate (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6041-goPField (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) eta-0))))))))))
+(define Syntax-Idris-n--11004-6049-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6036-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6036-goPDo (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm 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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0))))))) ((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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-13) eta-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 ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-19 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-21 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-0)))))))))
+(define Syntax-Idris-n--11004-6052-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6038-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6038-goPDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-6) eta-0))))) ((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) (Prelude-map_Functor__IO 'erased 'erased (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-7 e-8 e-5))))))) (Syntax-Idris-n--11004-6040-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-10 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-13 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-16 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-0))))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--11004-6051-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-50 e-51 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-52) eta-0)))))) ((12) (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-57 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Syntax-Idris-n--11004-6040-goPDataDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-0))))))))))
+(define Syntax-Idris-n--11004-6050-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6037-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6037-goPClause (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-10) eta-0)))))))))
+(define Syntax-Idris-n--11004-6044-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-0))))))))
+(define Syntax-Idris-n--11004-6051-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-2) eta-0))))))))
+(define Syntax-Idris-n--11004-6048-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (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 (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
+(define Syntax-Idris-n--11004-6047-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (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-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
+(define Syntax-Idris-n--8459-3673-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Syntax-Idris-n--9000-4883-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 ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--9779-4897 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4)))))
+(define Syntax-Idris-n--9000-4884-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 ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--9780-4949 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4)))))
+(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0)))))))))))))))))))
+(define Syntax-Idris-toBuf_TTC__IFaceInfo (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-1)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-5)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5))))) arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-3)))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
 (define Syntax-Idris-toBuf_TTC__Fixity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
 (define Syntax-Idris-show_Show__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showimplicits = " (Prelude-show_Show__Bool e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shownamespace = " (Prelude-show_Show__Bool e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showtypes = " (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "eval = " (Syntax-Idris-show_Show__REPLEval e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "editor = " (Prelude-show_Show__String e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "cg = " e-5)))))))
 (define Syntax-Idris-show_Show__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "typecheck") ((1) "normalise") (else "execute")))))
 (define Syntax-Idris-show_Show__PTerm (lambda (arg-0) (Syntax-Idris-showPrec_Show__PTerm (vector 0 ) arg-0)))
-(define Syntax-Idris-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))) (Name-Core-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) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--8243-3983-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-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))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8243-4046-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >>  } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((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))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--8243-4176 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <<declaration>> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--8243-4489-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--8243-4490-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132)))))))))))
-(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
+(define Syntax-Idris-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))) (Name-Core-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) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--9000-4377-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-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))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9000-4440-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >>  } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((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))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--9000-4570 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <<declaration>> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--9000-4883-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--9000-4884-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132)))))))))))
+(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
 (define Syntax-Idris-resolved_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--9982-5437-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
-(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
+(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
+(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
 (define Syntax-Idris-full_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--9981-5398-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
-(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Syntax-Idris-toBuf_TTC__Fixity arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9)))))))))))))))))))))))))))))
-(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTC-Core-toBuf_TTC__TotalReq arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-8248 eta-0)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8248) (lambda (arg-8249) (Binary-Utils-toBuf_TTC__Bool arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8248 eta-0)))) (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-0))))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-4)))) arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-4))))) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
+(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9)))))))))))))))))))))))))))))
+(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-0)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4))))) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 Syntax-Idris-fromBuf_TTC__Fixity (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Fixity" ext-0)))))))))))
-(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-0))))))
-(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))))
-(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8243 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2106 eta-0))))))
 (define Syntax-Idris-__Impl_Show_PTerm (lambda () (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x))))))
-(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-11959 arg-11960 eta-0)))))))
-(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 eta-0)))))))
-(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
+(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-0)))))))
+(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 eta-0)))))))
+(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
 (define Syntax-Idris-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 SyntaxInfo-Syntax-Idris-usingImpl (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Syntax-Idris-typePass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 1 ))))))
 (define SyntaxInfo-Syntax-Idris-startExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Syntax-Idris-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))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-0) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-2) (Strings-Prelude-C-43C-43 " $= " (Syntax-Idris-show_Show__PTerm e-3))))))))))
-(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >>  }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22))))))))
-(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
+(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >>  }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22))))))))
+(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
 (define Syntax-Idris-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>;") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
 (define Import-Syntax-Idris-reexport (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define SyntaxInfo-Syntax-Idris-prefixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
@@ -6137,7 +6185,7 @@
 (define Import-Syntax-Idris-nameAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Module-Syntax-Idris-moduleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define IFaceInfo-Syntax-Idris-methods (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--10208-5603-goPTerm arg-0 ext-0)))
+(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--11004-6034-goPTerm arg-0 ext-0)))
 (define Import-Syntax-Idris-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Syntax-Idris-initSyntax (lambda () (vector 0 (StringMap-Data-insert 'erased "=" (vector 0 (vector 2 ) 0) (StringMap-Data-empty 'erased)) (StringMap-Data-insert 'erased "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (StringMap-Data-empty 'erased)) (ANameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (vector 0 (vector 0 "(default)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")))))
 (define SyntaxInfo-Syntax-Idris-infixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -6145,1016 +6193,349 @@
 (define SyntaxInfo-Syntax-Idris-ifaces (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define IFaceInfo-Syntax-Idris-iconstructor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Module-Syntax-Idris-headerloc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Syntax-Idris-getPTypeDeclLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Syntax-Idris-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)) ((9) (let ((e-35 (vector-ref sc0 1))) e-35)) ((10) (let ((e-39 (vector-ref sc0 1))) e-39)) ((11) (let ((e-42 (vector-ref sc0 1))) e-42)) ((12) (let ((e-44 (vector-ref sc0 1))) e-44)) ((13) (let ((e-46 (vector-ref sc0 1))) e-46)) ((14) (let ((e-48 (vector-ref sc0 1))) e-48)) ((15) (let ((e-50 (vector-ref sc0 1))) e-50)) ((16) (let ((e-52 (vector-ref sc0 1))) e-52)) ((17) (let ((e-54 (vector-ref sc0 1))) e-54)) ((18) (let ((e-56 (vector-ref sc0 1))) e-56)) ((19) (let ((e-58 (vector-ref sc0 1))) e-58)) ((20) (let ((e-60 (vector-ref sc0 1))) e-60)) ((21) (let ((e-63 (vector-ref sc0 1))) e-63)) ((22) (let ((e-64 (vector-ref sc0 1))) e-64)) ((23) (let ((e-67 (vector-ref sc0 1))) e-67)) ((24) (let ((e-69 (vector-ref sc0 1))) e-69)) ((25) (let ((e-70 (vector-ref sc0 1))) e-70)) ((26) (let ((e-71 (vector-ref sc0 1))) e-71)) ((27) (let ((e-75 (vector-ref sc0 1))) e-75)) ((28) (let ((e-78 (vector-ref sc0 1))) e-78)) ((29) (let ((e-81 (vector-ref sc0 1))) e-81)) ((30) (let ((e-84 (vector-ref sc0 1))) e-84)) ((31) (let ((e-87 (vector-ref sc0 1))) e-87)) ((32) (let ((e-89 (vector-ref sc0 1))) e-89)) ((33) (let ((e-91 (vector-ref sc0 1))) e-91)) ((34) (let ((e-93 (vector-ref sc0 1))) e-93)) ((35) (let ((e-95 (vector-ref sc0 1))) e-95)) ((36) (let ((e-97 (vector-ref sc0 1))) e-97)) ((37) (let ((e-100 (vector-ref sc0 1))) e-100)) ((38) (let ((e-104 (vector-ref sc0 1))) e-104)) ((39) (let ((e-105 (vector-ref sc0 1))) e-105)) ((40) (let ((e-109 (vector-ref sc0 1))) e-109)) ((41) (let ((e-112 (vector-ref sc0 1))) e-112)) ((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-127 (vector-ref sc0 1))) e-127)) (else (let ((e-130 (vector-ref sc0 1))) e-130))))))
+(define Syntax-Idris-getPDeclLoc (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-5 (vector-ref sc0 1))) e-5)) ((2) (let ((e-7 (vector-ref sc0 1))) e-7)) ((3) (let ((e-10 (vector-ref sc0 1))) e-10)) ((4) (let ((e-13 (vector-ref sc0 1))) e-13)) ((5) (let ((e-16 (vector-ref sc0 1))) e-16)) ((6) (let ((e-18 (vector-ref sc0 1))) e-18)) ((7) (let ((e-27 (vector-ref sc0 1))) e-27)) ((8) (let ((e-38 (vector-ref sc0 1))) e-38)) ((9) (let ((e-44 (vector-ref sc0 1))) e-44)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) ((11) (let ((e-50 (vector-ref sc0 1))) e-50)) ((12) (let ((e-53 (vector-ref sc0 1))) e-53)) ((13) (let ((e-57 (vector-ref sc0 1))) e-57)) (else (let ((e-59 (vector-ref sc0 1))) e-59))))))
+(define Syntax-Idris-getPDataDeclLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) (else (let ((e-5 (vector-ref sc0 1))) e-5))))))
+(define Syntax-Idris-getPClauseLoc (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-4 (vector-ref sc0 1))) e-4)) (else (let ((e-9 (vector-ref sc0 1))) e-9))))))
 (define Syntax-Idris-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-5 (vector-ref sc0 1))) e-5)) ((3) (let ((e-9 (vector-ref sc0 1))) e-9)) ((4) (let ((e-14 (vector-ref sc0 1))) e-14)) ((5) (let ((e-19 (vector-ref sc0 1))) e-19)) (else (let ((e-21 (vector-ref sc0 1))) e-21))))))
-(define Syntax-Idris-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))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--7707-3286-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 ))))))))
+(define Syntax-Idris-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))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8459-3673-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 ))))))))
 (define Syntax-Idris-definedIn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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-22 (vector-ref sc2 2))) (vector 1 e-22 (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))) ((2) (let ((e-11 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedInData e-11) (Syntax-Idris-definedIn e-3)))) ((3) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-14) (Syntax-Idris-definedIn e-3)))) ((4) (let ((e-17 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-17) (Syntax-Idris-definedIn e-3)))) ((11) (let ((e-20 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-20) (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))))))))
 (define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Syntax-Idris-defPass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 2 ))))))
 (define Module-Syntax-Idris-decls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define ANameMap-Data-case--2506-3228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2417-3124-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
-(define ANameMap-Data-case--2417-3198 (lambda (arg-0 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))) (ANameMap-Data-case--2506-3228 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
-(define ANameMap-Data-case--2426-3148 (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 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2417-3124-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
-(define ANameMap-Data-case--2327-3092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2291-3006-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
-(define ANameMap-Data-case--2327-3050 (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))) (vector 1 (vector 0 arg-2 e-2) (vector 0 ))))))))
-(define ANameMap-Data-case--2291-3037 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2327-3050 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2327-3092 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3))))))))))
-(define ANameMap-Data-n--2417-3124-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2426-3148 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2))))))))))
-(define ANameMap-Data-n--2291-3006-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
-(define ANameMap-Data-n--2665-3343-insertFrom (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2665-3343-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7))))))))))))
-(define ANameMap-Data-n--2615-3295-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2615-3295-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3)))))))))))
+(define ANameMap-Data-case--2558-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
+(define ANameMap-Data-case--2469-3213 (lambda (arg-0 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))) (ANameMap-Data-case--2558-3243 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
+(define ANameMap-Data-case--2478-3163 (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 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
+(define ANameMap-Data-case--2379-3107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2343-3021-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
+(define ANameMap-Data-case--2379-3065 (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))) (vector 1 (vector 0 arg-2 e-2) (vector 0 ))))))))
+(define ANameMap-Data-case--2343-3052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2379-3065 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2379-3107 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3))))))))))
+(define ANameMap-Data-n--2469-3139-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2478-3163 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2))))))))))
+(define ANameMap-Data-n--2343-3021-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
+(define ANameMap-Data-n--2717-3358-insertFrom (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2717-3358-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7))))))))))))
+(define ANameMap-Data-n--2667-3310-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3)))))))))))
 (define ANameMap-Data-toList (lambda (arg-0 arg-1) (NameMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))))
-(define ANameMap-Data-mergeAs (lambda (arg-0 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))) (ANameMap-Data-n--2665-3343-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3))))))
-(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2291-3037 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1))))
+(define ANameMap-Data-mergeAs (lambda (arg-0 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))) (ANameMap-Data-n--2717-3358-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3))))))
+(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2343-3052 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1))))
 (define ANameMap-Data-lookupExact (lambda (arg-0 arg-1 arg-2) (NameMap-Data-lookup 'erased arg-1 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)))))
 (define ANameMap-ANameMap-Data-hierarchy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2615-3295-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0)))
+(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0)))
 (define ANameMap-ANameMap-Data-exactNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define ANameMap-Data-empty (lambda (arg-0) (vector 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased))))
-(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2417-3198 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1))))
+(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2469-3213 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1))))
 (define ANameMap-Data-addName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dictC-39 (NameMap-Data-insert 'erased arg-1 arg-2 e-1))) (let ((hierC-39 (ANameMap-Data-addToHier 'erased arg-1 arg-2 e-2))) (vector 0 dictC-39 hierC-39))))))))
-(define SetOptions-Idris-case--10260-7988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0)))))))))))))))
-(define SetOptions-Idris-case--10260-7947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7828 (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-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 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7646 (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) (let ((act-24 (Context-Core-setCG arg-3 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 ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "No such code generator" 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 ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) 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 ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))
-(define SetOptions-Idris-case--10260-7633 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7548 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7429 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (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 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (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 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--10260-7646 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (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 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-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 (vector 1 1))))))))))))) ((25) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (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 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (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-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (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))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3)))))))))))
-(define SetOptions-Idris-postOptions (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))) ((23) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
-(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) 0)(else (SetOptions-Idris-ideModeSocket e-3)))))))))))
-(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (SetOptions-Idris-ideMode e-3)))))))))))
-(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))) eta-0))) (vector 1 act-24))))))
+(define SetOptions-Idris-case--10758-8562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0)))))))))))))))
+(define SetOptions-Idris-case--10758-8519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8394 (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-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 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8150 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 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 ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "No such code generator") 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 ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) 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 ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))
+(define SetOptions-Idris-case--10758-8128 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8077 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8038 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7913 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (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 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (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 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((18) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((12) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--10758-8150 e-6 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-6)) eta-0))))))))) ((14) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((5) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-11 (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 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-11) 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))))))))))))) ((28) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((29) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-11 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((27) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (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 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (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-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-14 e-12 e-4 e-11 e-6 (vector 1 e-13) e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((23) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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-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 e-6 e-7 (vector 1 e-14) e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((24) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 (vector 1 e-15) 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((25) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-16))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3)))))))))))
+(define SetOptions-Idris-postOptions (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))) ((26) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) 0)(else (SetOptions-Idris-ideModeSocket e-3)))))))))))
+(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) 0)(else (SetOptions-Idris-ideMode e-3)))))))))))
+(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24))))))
 (define SetOptions-Idris-addPkgDir (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))) (Context-Core-addExtraDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) arg-1)) ext-0))))))))
-(define REPL-Idris-case--25696-14580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
-(define REPL-Idris-case--25689-14454 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
-(define REPL-Idris-case--25683-14384 (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 (let ((act-24 (PrimIO-putStrLn "" 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 (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 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))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0))))))))))))
-(define REPL-Idris-case--25588-14236 (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) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0))))))))))))
-(define REPL-Idris-case--25484-14203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2))))))))
-(define REPL-Idris-case--25487-14147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--25484-14121-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--25484-14122-fnameCmd arg-0 arg-3 arg-4))))))
-(define REPL-Idris-case--23850-13961 (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))) (vector 0 e-0 1 e-2))))))
-(define REPL-Idris-case--23850-13882 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args))))))))))))
-(define REPL-Idris-case--23850-13830 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))))))))))
-(define REPL-Idris-case--23850-13660 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 16 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn 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 ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960)))) e-6 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))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--24815-13548 (lambda (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) 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))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) 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 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9))))))))
-(define REPL-Idris-case--23850-13492 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 15 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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 ((bind-0 arg-7)) ((REPL-Idris-case--24815-13548 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--23850-13370 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 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-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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-8 (vector-ref sc5 1))) (vector 1 (vector 14 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--23850-13282 (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 10 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-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 (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))))))
-(define REPL-Idris-case--23850-13239 (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-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))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--23850-13169 (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 10 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))
-(define REPL-Idris-case--23850-13113 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
-(define REPL-Idris-case--23850-13031 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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))) (vector 1 (vector 6 e-6 e-8))))))))))))))))))))))))))))
-(define REPL-Idris-case--23850-12949 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
-(define REPL-Idris-case--23981-12800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Normalise-Core-getTerm 'erased 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 (let ((act-25 ((((arg-16 arg-14) (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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) 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 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 )))))))))
-(define REPL-Idris-case--23893-12730 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (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))) (let ((norm (REPL-Idris-n--23850-12611-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) 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 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 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 ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--23981-12800 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 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--23850-12645 (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) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 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 (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) 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 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 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 ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--23850-12610-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (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 (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 ((norm (REPL-Idris-n--23850-12611-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 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 ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--23981-12800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--23715-12522 (lambda (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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 9 arg-0 arg-9))))))))
-(define REPL-Idris-case--23689-12480 (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 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-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))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 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 ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 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 ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 9 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource 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 (vector 1 (vector 8 arg-0 e-5)))))))))))))
-(define REPL-Idris-case--23582-12399 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-6 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))) (Common-Compiler-compile arg-6 e-6 e-5 arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 12 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 13 eta-1))))) e-6) eta-0))))))))))))))))
-(define REPL-Idris-case--23450-12277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG 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))) (Common-Compiler-execute arg-4 e-6 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 (vector 1 (vector 2 arg-0))))))))))))))))
-(define REPL-Idris-case--19904-12167 (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 (eta-0) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
-(define REPL-Idris-case--23026-11943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23))))))))
-(define REPL-Idris-case--22947-11880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23))))))))))
-(define REPL-Idris-case--22746-11826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((_-0 (vector 1 e-1))) (REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
-(define REPL-Idris-case--22746-11728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
-(define REPL-Idris-case--22681-11665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 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 ((act-25 (Resugar-Idris-pterm arg-7 arg-5 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))) (let ((act-26 (let ((act-26 (unbox arg-3))) (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 ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--19904-11614 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (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-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-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-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (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))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-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 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (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 ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition"))))))))
-(define REPL-Idris-case--22269-11305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23))))))))
-(define REPL-Idris-case--22208-11243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) 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 ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))))))
-(define REPL-Idris-case--22146-11201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
-(define REPL-Idris-case--22071-11155 (lambda (arg-0 arg-1 arg-2 arg-3 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-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-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 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-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)))))))
-(define REPL-Idris-case--22016-11091 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (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 ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))
-(define REPL-Idris-case--19904-11045 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-25)) (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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (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 ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1))))))))))))
-(define REPL-Idris-case--21568-10839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 ))))))))))
-(define REPL-Idris-case--21568-10736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25)))))
-(define REPL-Idris-case--21451-10667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-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-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))
-(define REPL-Idris-case--20725-10571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--21451-10667 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18))))))))
-(define REPL-Idris-case--20725-10462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))))))))))
-(define REPL-Idris-case--20936-10342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 ))))))))))
-(define REPL-Idris-case--20936-10247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
-(define REPL-Idris-case--20818-10150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))
-(define REPL-Idris-case--20725-10052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))
-(define REPL-Idris-case--19904-9972 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) 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 ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (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-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--20725-10462 arg-0 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-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (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))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--20725-10571 arg-0 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-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))
-(define REPL-Idris-case--20533-9819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 ))))))))))
-(define REPL-Idris-case--19904-9798 (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 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here")))))))))
-(define REPL-Idris-case--20373-9696 (lambda (arg-0 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12))))))))
-(define REPL-Idris-case--19904-9655 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))))))))))
-(define REPL-Idris-case--19904-9582 (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) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0)))))))
-(define REPL-Idris-case--19904-9521 (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) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) 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))) (vector 1 (Name-Core-showSep "\u000a" e-5)))))))))))))
-(define REPL-Idris-case--19956-9438 (lambda (arg-0 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 (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 ))))))))))
-(define REPL-Idris-case--19956-9329 (lambda (arg-0 arg-1 arg-2 arg-3 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 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-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))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
-(define REPL-Idris-case--19904-9290 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--19956-9329 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-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--19956-9438 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))
-(define REPL-Idris-case--19792-9165 (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) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--19785-9140-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
-(define REPL-Idris-case--19719-9082 (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) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--19710-9075-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4)))))))))
-(define REPL-Idris-case--19579-8962 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-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 ((act-25 (let ((act-25 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-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 (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0))))))))
-(define REPL-Idris-case--19566-8942 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-readFile e-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-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 ((act-26 (let ((act-26 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-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 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
-(define REPL-Idris-case--19414-8789 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) (else (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit))))))))
-(define REPL-Idris-case--19199-8725 (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))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0)))))))
-(define REPL-Idris-case--19199-8714 (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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8683 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8652 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8621 (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))) (vector 0 e-0 e-1 arg-0))))))
-(define REPL-Idris-case--19199-8601 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2))))))
-(define REPL-Idris-case--19107-8518 (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))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition"))))))))
-(define REPL-Idris-case--18610-8188 (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (vector 1 act-24)))))))))
-(define REPL-Idris-n--19710-9075-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--19719-9082 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6)))))))
-(define REPL-Idris-n--25683-14348-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 REPL-Idris-n--23850-12611-nfun (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) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3))))))))))
-(define REPL-Idris-n--25702-14692-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
-(define REPL-Idris-n--19785-9140-insertInBlank (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 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--19792-9165 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) "")))))))))
-(define REPL-Idris-n--25484-14121-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3))))))
-(define REPL-Idris-n--25484-14122-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--25487-14147 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
-(define REPL-Idris-n--23540-12324-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0))))))))
-(define REPL-Idris-n--23850-12610-emode (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 (vector 2 ))))))
-(define REPL-Idris-n--19904-9892-dropLams (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (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))) (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13)))))))))))
-(define REPL-Idris-n--25702-14693-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--25702-14692-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--25702-14692-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
-(define REPL-Idris-n--25702-14694-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "   " (REPL-Idris-n--25702-14693-col (+ 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 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7))))))))))
-(define REPL-Idris-n--19785-9141-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) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--19785-9140-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--19785-9141-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8))))))))))
-(define REPL-Idris-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))) ((REPL-Idris-case--19566-8942 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
-(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (vector 1 act-25))))))))) (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 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-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-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-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 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (vector 1 act-27)))) (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (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-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (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-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--18610-8188 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) 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 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) 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-14 (vector-ref sc9 1))) (let ((act-32 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (vector 1 act-32))))))))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (vector 1 act-33))))))))) (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (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 ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-11957 arg-11958 eta-3)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-11959 arg-11960 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-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 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (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))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (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 (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-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--19199-8725 e-5 arg-1 arg-0 (Options-Core-getCG e-5))))))))
+(define REPL-Idris-case--27259-8813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
+(define REPL-Idris-case--27252-8671 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
+(define REPL-Idris-case--27246-8596 (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 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") 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 (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 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))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0))))))))))))
+(define REPL-Idris-case--27146-8429 (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) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0))))))))))))))))
+(define REPL-Idris-case--27042-8396 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2))))))))
+(define REPL-Idris-case--27045-8340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--27042-8314-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--27042-8315-fnameCmd arg-0 arg-3 arg-4))))))
+(define REPL-Idris-case--25292-8140 (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))) (vector 0 e-0 1 e-2))))))
+(define REPL-Idris-case--25292-8056 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args))))))))))))
+(define REPL-Idris-case--25292-8004 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))))))))))
+(define REPL-Idris-case--25292-7819 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn 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 ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-6 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))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--26334-7703 (lambda (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) 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))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) 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 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9))))))))
+(define REPL-Idris-case--25292-7645 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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 ((bind-0 arg-7)) ((REPL-Idris-case--26334-7703 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--25292-7518 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 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-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--25292-7423 (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 ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line)))) eta-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 (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))))))
+(define REPL-Idris-case--25292-7350 (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-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 (vector 1 arg-0) e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--25292-7276 (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))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))
+(define REPL-Idris-case--25292-7218 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
+(define REPL-Idris-case--25292-7128 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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))) (vector 1 (vector 6 e-6 e-8))))))))))))))))))))))))))))
+(define REPL-Idris-case--25292-7042 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
+(define REPL-Idris-case--25430-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) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (let ((act-25 ((((arg-16 arg-14) (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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) 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 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 )))))))))
+(define REPL-Idris-case--25336-6812 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (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))) (let ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) 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 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 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 ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 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 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--25292-6721 (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) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 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 (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) 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 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 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 ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--25292-6685-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (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 (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 ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 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 ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--25153-6596 (lambda (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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 11 arg-0 arg-9))))))))
+(define REPL-Idris-case--25122-6551 (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 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-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))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 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 ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 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 ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 11 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource 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 (vector 1 (vector 10 arg-0 e-5)))))))))))))
+(define REPL-Idris-case--25008-6461 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-2 arg-6 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))) (Common-Compiler-compile arg-6 e-6 e-5 arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 14 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 15 eta-1))))) e-6) eta-0))))))))))))))))
+(define REPL-Idris-case--24861-6327 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-1 arg-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))) (Common-Compiler-execute arg-5 e-6 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 (vector 1 (vector 2 arg-0))))))))))))))))
+(define REPL-Idris-case--21269-6210 (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 (eta-0) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
+(define REPL-Idris-case--24434-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23))))))))
+(define REPL-Idris-case--24355-5922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23))))))))))
+(define REPL-Idris-case--24150-5868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((_-0 (vector 1 e-1))) (REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
+(define REPL-Idris-case--24150-5769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
+(define REPL-Idris-case--24084-5703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 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 ((act-25 (Resugar-Idris-pterm arg-7 arg-5 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))) (let ((act-26 (let ((act-26 (unbox arg-3))) (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 ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--21269-5651 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (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-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-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-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (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))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-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 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (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 ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition"))))))))
+(define REPL-Idris-case--23667-5338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23))))))))
+(define REPL-Idris-case--23606-5275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) 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 ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))))))
+(define REPL-Idris-case--23543-5233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
+(define REPL-Idris-case--23463-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) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-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-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 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-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)))))))
+(define REPL-Idris-case--23407-5117 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) arg-12 eta-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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (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 ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))
+(define REPL-Idris-case--21269-5070 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) e-9 eta-1))) (let ((sc7 act-25)) (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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (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 ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1))))))))))))
+(define REPL-Idris-case--22952-4858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 ))))))))))
+(define REPL-Idris-case--22952-4755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25)))))
+(define REPL-Idris-case--22835-4685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-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-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))
+(define REPL-Idris-case--22104-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--22835-4685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18))))))))
+(define REPL-Idris-case--22104-4480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))))))))))
+(define REPL-Idris-case--22320-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 ))))))))))
+(define REPL-Idris-case--22320-4265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
+(define REPL-Idris-case--22202-4168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))
+(define REPL-Idris-case--22104-4070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))
+(define REPL-Idris-case--21269-3985 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) 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 ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (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-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--22104-4480 arg-0 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-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (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))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--22104-4589 arg-0 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-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))
+(define REPL-Idris-case--21908-3828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 ))))))))))
+(define REPL-Idris-case--21269-3807 (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 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here")))))))))
+(define REPL-Idris-case--21746-3704 (lambda (arg-0 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12))))))))
+(define REPL-Idris-case--21269-3662 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))))))))))
+(define REPL-Idris-case--21269-3588 (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) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0)))))))
+(define REPL-Idris-case--21269-3526 (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) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) 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))) (vector 1 (Name-Core-showSep "\u000a" e-5)))))))))))))
+(define REPL-Idris-case--21326-3443 (lambda (arg-0 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 (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 ))))))))))
+(define REPL-Idris-case--21326-3333 (lambda (arg-0 arg-1 arg-2 arg-3 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 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-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))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
+(define REPL-Idris-case--21269-3294 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--21326-3333 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-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--21326-3443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))
+(define REPL-Idris-case--21157-3164 (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) (vector 1 (Strings-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--21150-3139-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
+(define REPL-Idris-case--21084-3081 (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) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--21075-3074-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4)))))))))
+(define REPL-Idris-case--20934-2955 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-3 "~") e-2) eta-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 ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-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 (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0))))))))
+(define REPL-Idris-case--20920-2931 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-1 "~") e-2) eta-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 ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-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 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
+(define REPL-Idris-case--20708-2755 (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 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " arg-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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))
+(define REPL-Idris-case--20694-2711 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-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))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " e-0)) eta-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 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))))))))
+(define REPL-Idris-case--20454-2638 (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) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0)))))))
+(define REPL-Idris-case--20454-2619 (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))) (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 arg-0 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2551 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2517 (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))) (vector 0 e-0 e-1 arg-0))))))
+(define REPL-Idris-case--20454-2496 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2))))))
+(define REPL-Idris-case--20360-2410 (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))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Name-Core-showSep "\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition"))))))))
+(define REPL-Idris-case--19827-2069 (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24)))))))))
+(define REPL-Idris-n--21075-3074-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--21084-3081 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6)))))))
+(define REPL-Idris-n--27246-8548-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 REPL-Idris-n--25292-6686-nfun (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) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3))))))))))
+(define REPL-Idris-n--27265-8925-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
+(define REPL-Idris-n--21150-3139-insertInBlank (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 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\u000a")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--21157-3164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) "")))))))))
+(define REPL-Idris-n--27042-8314-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3))))))
+(define REPL-Idris-n--27042-8315-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--27045-8340 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
+(define REPL-Idris-n--24963-6380-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0))))))))
+(define REPL-Idris-n--25292-6685-emode (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 (vector 2 ))))))
+(define REPL-Idris-n--21269-3901-dropLams (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (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))) (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13)))))))))))
+(define REPL-Idris-n--27265-8926-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
+(define REPL-Idris-n--27265-8927-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "   " (REPL-Idris-n--27265-8926-col (+ 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 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7))))))))))
+(define REPL-Idris-n--21150-3140-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) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--21150-3139-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--21150-3140-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8))))))))))
+(define REPL-Idris-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))) ((REPL-Idris-case--20920-2931 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
+(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-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-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-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 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (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-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (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-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--19827-2069 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) 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 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) 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-14 (vector-ref sc9 1))) (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-32 (arg-3664 eta-1))) ((arg-3665 act-32) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (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 ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-3)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-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 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-35 (arg-3664 eta-2))) ((arg-3665 act-35) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-2 e-1 e-10 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-0 e-3 e-2 e-10 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (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 (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-9 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (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-6 (vector-ref sc1 1))) ((REPL-Idris-case--20454-2638 e-5 arg-1 arg-0 e-6 (Options-Core-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5)) eta-0)))))))))))))
 (define REPL-Idris-rtrim (lambda (arg-0) (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse arg-0)))))
 (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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 ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))
-(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (let ((act-26 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--25683-14348-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) 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 ((act-27 (let ((act-27 (PrimIO-getLine 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 ((act-28 (File-System-fEOF (File-System-stdin) 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 ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 (PrimIO-putStrLn "" ext-0))) (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 (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0)))))))))))))))))))))))))))))))))))
-(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--19710-9075-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
-(define REPL-Idris-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 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) 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 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) 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 (Name-Core-showSep "\u000a" e-7)))))))))))) (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 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--19956-9329 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--19956-9438 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) 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 ((find (REPL-Idris-case--19904-9582 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased 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 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-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 (CaseSplit-IDEMode-Idris-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " 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))) (let ((e-14 (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 (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (Context-Core-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (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 ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--20725-10462 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--19904-9892-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) 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-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--20725-10571 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((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 (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 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 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 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-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 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (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 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--22208-11243 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (REPL-Idris-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (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) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (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)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-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 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-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 (Resugar-Idris-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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-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 (vector 0 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))) ((REPL-Idris-case--22947-11880 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (lambda (eta-0) (vector 1 (vector 1 "Not implemented yet")))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-4 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))))) (else (vector 1 (vector 1 "Source line not available"))))))))))))))))))
-(define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (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 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((act-30 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))) (lambda (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 (Error-Idris-display arg-0 arg-2 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 REPL-Idris-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) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 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))) ((REPL-Idris-case--23850-12645 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 2))) e-8))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-17 (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-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-16 e-17) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 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 ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (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-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (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 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (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 ((Context-Core-lookupCtxtName 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (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))) ((REPL-Idris-case--23850-13169 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)))))))) ((5) (let ((e-4 (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 ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-8 e-7 e-6))))))))))) (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 (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((14) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 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 ((act-25 (Context-Core-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-7 (vector-ref sc2 1))) (vector 1 (vector 11 e-7)))))))))))))) ((15) (lambda (eta-0) (let ((act-24 (Context-Core-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 11 e-5))))))))) ((6) (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))) ((REPL-Idris-case--23850-13282 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)))))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-7 eta-0))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-8 eta-0)))) ((9) (lambda (eta-0) (vector 1 (vector 3 )))) ((10) (let ((e-9 (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 (Context-Core-lookupTyName 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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-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-12 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 14 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (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 ((Context-Core-lookupCtxtName e-10 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 15 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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 ((bind-0 e-6)) ((REPL-Idris-case--24815-13548 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (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 ((Context-Core-lookupCtxtName e-11 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 16 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn 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 ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960)))) e-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))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((11) (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 (let ((act-25 ((Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 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 (vector 1 (vector 0 )))))))))))))) ((12) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 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 (vector 1 (vector 0 ))))))))) ((13) (lambda (eta-0) (let ((act-24 (REPL-Idris-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 18 e-5))))))))) ((18) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 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 19 e-14))))))))) ((19) (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 ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n 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 ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--23850-13830 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) 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 17 e-8))))))))))))))))))))))))))) ((20) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-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 23 e-7))))))))))))))))))))))) ((22) (lambda (eta-0) (vector 1 (vector 22 )))) ((23) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 20 (Version-Idris-version)))))))))
+(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (let ((act-26 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (REPL-Idris-n--27246-8548-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) 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 ((act-27 (let ((act-27 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (File-System-stdin)) 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 ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") ext-0))) (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 (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0)))))))))))))))))))))))))))))))))))
+(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--21075-3074-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
+(define REPL-Idris-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 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) 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 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) 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 (Name-Core-showSep "\u000a" e-7)))))))))))) (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 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--21326-3333 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--21326-3443 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) 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 ((find (REPL-Idris-case--21269-3588 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased 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 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-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 (CaseSplit-IDEMode-Idris-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " 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))) (let ((e-14 (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 (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (Context-Core-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (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 ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--22104-4480 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--21269-3901-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) 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-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--22104-4589 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((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 (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 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) 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 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-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 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) e-9 eta-1))) (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 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (REPL-Idris-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (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) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (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)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-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 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-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 (Resugar-Idris-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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-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 (vector 0 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))) ((REPL-Idris-case--24355-5922 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (lambda (eta-0) (vector 1 (vector 1 "Not implemented yet")))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-4 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))))) (else (vector 1 (vector 1 "Source line not available"))))))))))))))))))
+(define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (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 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((act-30 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))) (lambda (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 (Error-Idris-display arg-0 arg-2 arg-4 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 REPL-Idris-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) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 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))) ((REPL-Idris-case--25292-6721 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-18 (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-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-17 e-18) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 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 ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (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-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (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 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (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 ((Context-Core-lookupCtxtName 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (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))) ((REPL-Idris-case--25292-7276 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)))))))) ((5) (let ((e-4 (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 ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-10 e-9 e-6 e-7 e-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 (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) 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 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((15) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-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 ((act-25 (Context-Core-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-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((16) (lambda (eta-0) (let ((act-24 (Context-Core-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))))))))) ((7) (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))) ((REPL-Idris-case--25292-7423 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)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (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 (Context-Core-lookupTyName e-10 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-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))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (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 ((Context-Core-lookupCtxtName e-11 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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 ((bind-0 e-6)) ((REPL-Idris-case--26334-7703 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (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 ((Context-Core-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)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn 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 ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-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))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((12) (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 (let ((act-25 ((Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 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 (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 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 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-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))))))))) ((19) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 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 (vector 1 (vector 21 e-15))))))))) ((20) (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 ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n 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 ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--25292-8004 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) 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))))))))))))))))))))))))))) ((21) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-16) 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 (Context-Core-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 25 e-7))))))))))))))))))))))) ((23) (lambda (eta-0) (vector 1 (vector 24 )))) ((24) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 22 (Version-Idris-version)))))))))
 (define REPL-Idris-printClause (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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 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))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 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))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) ")\u000a"))))) (Name-Core-showSep "\u000a" e-10))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 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 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible"))))))))))))))))
-(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--25484-14203 arg-0 (REPL-Idris-n--25484-14122-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 14 eta-0))) (vector 0 )))) arg-0))))
+(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--27042-8396 arg-0 (REPL-Idris-n--27042-8315-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))) arg-0))))
 (define REPL-Idris-parseEmptyCmd (lambda () (vector 8 1 1 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-eoi)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (vector 0 (vector 0 )))))))
-(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-14110) (vector 0 (vector 1 c))))))))
+(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8304) (vector 0 (vector 1 c))))))))
 (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0)))
-(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext 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 ((act-25 (let ((act-25 (File-System-readFile arg-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 ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) 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 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) 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 ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 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 ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 9 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource 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 (vector 1 (vector 8 arg-5 e-7)))))))))))))))))))))
-(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--25588-14236 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5))))
-(define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((22) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 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 (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)))))))))))
+(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext 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 ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-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 ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) 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 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) 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 ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 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 ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource 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 (vector 1 (vector 10 arg-5 e-7)))))))))))))))))))))
+(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--27146-8429 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5))))
+(define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((24) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 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 (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)))))))))))
 (define REPL-Idris-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered")))))))
 (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 )))))))))))))))))))
-(define REPL-Idris-findCG (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))) ((REPL-Idris-case--19414-8789 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
-(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 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 (vector 1 (vector 2 arg-4))))))))))))))))))))))))))))))
-(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--23540-12324-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 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 (vector 1 (vector 21 ))))))))
+(define REPL-Idris-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))) ((REPL-Idris-case--20694-2711 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
+(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-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 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 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 (vector 1 (vector 2 arg-5))))))))))))))))))))))))))))))
+(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--24963-6380-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 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 (vector 1 (vector 23 ))))))))
 (define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))))))))))) (lambda () (lambda (num) (lambda (eta-0) (Holes-IDEMode-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (Holes-IDEMode-Idris-isHole e-7)))))))))
 (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) 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 (Syntax-Idris-show_Show__PTerm e-5)))))))))
-(define REPL-Idris-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) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-23 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-23))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-26)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-16)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-16)))) eta-0))))))) ((19) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-17)) eta-0)))) ((20) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-18) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((23) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-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))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\u000a")))) e-34) eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((18) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--19107-8518 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)))))))))))
+(define REPL-Idris-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) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-26))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Imported module " 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 ((Error-Idris-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))) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading module " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ": " e-5))) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-10 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-12) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-14 "'")) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-15 " written")) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-29)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) eta-0))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-21) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((25) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((0) (let ((e-32 (vector-ref sc1 1))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" e-32) eta-0))))))) ((1) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-33 eta-0)))) ((2) (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) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-34 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-35) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-36) "\u000a")))) e-37) eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-23)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--20360-2410 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)))))))))))
 (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 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))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) 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 (Syntax-Idris-show_Show__PTerm e-5)))))))))
-(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--25702-14694-cmdInfo eta-0)) (Parser-Idris-help)))))
-(define REPL-Idris-displayErrors (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))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--27265-8927-cmdInfo eta-0)) (Parser-Idris-help)))))
+(define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 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))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 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))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 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))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 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))) (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8))))))))))))))))))))))))))
-(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) 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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 12 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 13 eta-0))))) e-9) ext-0))))))))))))))))))))))))))))))
+(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) 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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-9) ext-0))))))))))))))))))))))))))))))
 (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 ))))))))))))
 (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2)))
-(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--19785-9141-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5))))
+(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--21150-3140-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5))))
 (define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 )))))))))))
 (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1)))))
-(define MakeLemma-Interactive-TTImp-case--7559-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2)))))))))
-(define MakeLemma-Interactive-TTImp-case--7272-6345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 arg-13))(else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-case--7087-6300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (MakeLemma-Interactive-TTImp-case--7272-6345 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13))))))
-(define MakeLemma-Interactive-TTImp-case--7087-6190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1 )) (else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-case--7024-6148 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7087-6300 arg-0 arg-1 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-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7087-6190 arg-0 arg-1 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-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3))))))))))
-(define MakeLemma-Interactive-TTImp-case--6821-5898 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1)))))
-(define MakeLemma-Interactive-TTImp-n--7522-6516-getArg (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) ext-0))))
+(define MakeLemma-Interactive-TTImp-case--7783-6830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2)))))))))
+(define MakeLemma-Interactive-TTImp-case--7495-6604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 arg-13))(else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-case--7310-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (MakeLemma-Interactive-TTImp-case--7495-6604 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13))))))
+(define MakeLemma-Interactive-TTImp-case--7310-6449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1 )) (else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-case--7240-6407 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-0 arg-1 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-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-0 arg-1 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-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3))))))))))
+(define MakeLemma-Interactive-TTImp-case--7037-6147 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1)))))
+(define MakeLemma-Interactive-TTImp-n--7746-6778-getArg (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) ext-0))))
 (define MakeLemma-Interactive-TTImp-mkType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 1 arg-0 e-18 e-14 e-10 e-19 (MakeLemma-Interactive-TTImp-mkType arg-0 e-3 arg-2))))))))))))))))))))
-(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--7522-6516-getArg arg-2 arg-1 arg-0 eta-0)) arg-2))))
+(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--7746-6778-getArg arg-2 arg-1 arg-0 eta-0)) arg-2))))
 (define MakeLemma-Interactive-TTImp-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((MakeLemma-Interactive-TTImp-getArgs (vector 0 ) arg-1 (vector 0 ) 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-2 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-2 arg-3 e-2)))))))))))))
 (define MakeLemma-Interactive-TTImp-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 MakeLemma-Interactive-TTImp-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 (Normalise-Core-normalise 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))) ((Unelab-TTImp-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 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 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))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) 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 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) 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))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-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 ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7087-6300 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7087-6190 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) 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 0 (vector 0 ) e-7)))))))))))))))))))))(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 (Normalise-Core-normalise arg-0 e-5 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 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 ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))))))))))
+(define MakeLemma-Interactive-TTImp-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 (Normalise-Core-normalise 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))) ((Unelab-TTImp-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 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 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))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) 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 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) 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))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-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 ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) 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 0 (vector 0 ) e-7)))))))))))))))))))))(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 (Normalise-Core-normalise arg-0 e-5 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 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 ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))))))))))
 (define MakeLemma-Interactive-TTImp-bindableArg (lambda (arg-0 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-8 (vector-ref sc1 3))) (Prelude-C-124C-124 (MakeLemma-Interactive-TTImp-bindable 'erased arg-1 e-8) (lambda () (MakeLemma-Interactive-TTImp-bindableArg 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4)))))(else 1))))))(else 1)))))
-(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--6821-5898 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define REPLCommon-Idris-case--10381-6556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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)))))))))))))))))))))))))))))
-(define REPLCommon-Idris-case--10306-6461 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6))))))))))
-(define REPLCommon-Idris-case--10306-6429 (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-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6))))))))))
-(define REPLCommon-Idris-case--10228-6388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 0 ))))))))))))))))))))))))))))))
-(define REPLCommon-Idris-case--10066-6225 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10030-6156-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10030-6156-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
-(define REPLCommon-Idris-case--10030-6184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 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 (PrimIO-putStrLn e-5 eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-0) 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))) ((REPLCommon-Idris-case--10066-6225 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0)))))))))))))))
-(define REPLCommon-Idris-case--9868-6047 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--9832-5978-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--9832-5978-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
-(define REPLCommon-Idris-case--9832-6006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 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 (PrimIO-putStrLn e-5 eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-0) 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))) ((REPLCommon-Idris-case--9868-6047 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0)))))))))))))))
-(define REPLCommon-Idris-case--9780-5943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn arg-0 eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPLCommon-Idris-case--9713-5881 (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))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn arg-0 eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
-(define REPLCommon-Idris-n--10030-6156-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
-(define REPLCommon-Idris-n--9832-5978-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
-(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (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 (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-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (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-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-9 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-9 e-8 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6))))))))))) (vector 1 act-25))))))))))))))
+(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--7037-6147 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define REPLCommon-Idris-case--10881-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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)))))))))))))))))))))))))))))
+(define REPLCommon-Idris-case--10800-6742 (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))) (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 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6 e-7 e-8))))))))))))
+(define REPLCommon-Idris-case--10800-6707 (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-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 0 ) e-6 e-7 e-8))))))))))))
+(define REPLCommon-Idris-case--10720-6663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 0 ))))))))))))))))))))))))))))))
+(define REPLCommon-Idris-case--10551-6498 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
+(define REPLCommon-Idris-case--10514-6450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 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 ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) 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))) ((REPLCommon-Idris-case--10551-6498 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0)))))))))))))))
+(define REPLCommon-Idris-case--10345-6312 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
+(define REPLCommon-Idris-case--10308-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 arg-1 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 ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) 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))) ((REPLCommon-Idris-case--10345-6312 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0)))))))))))))))
+(define REPLCommon-Idris-case--10252-6197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPLCommon-Idris-case--10181-6131 (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))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
+(define REPLCommon-Idris-n--10514-6421-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
+(define REPLCommon-Idris-n--10308-6235-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
+(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (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 (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-6 (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 e-4 (vector 0 ) e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (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-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-11 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))))))))
 (define REPLCommon-Idris-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((InitPrimitives-Core-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 (UnifyState-Core-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 (Syntax-Idris-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 (Metadata-Core-initMetadata)))) (vector 1 act-29)))))))))))))))))))))))))
-(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--9780-5943 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--10252-6197 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define REPLCommon-Idris-printResult (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "ok" arg-1 ext-0)))
 (define REPLCommon-Idris-printError (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "error" arg-1 ext-0)))
-(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--9713-5881 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--10181-6131 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define REPLCommon-Idris-getFCLine (lambda (arg-0) (Builtin-fst 'erased 'erased (FC-Core-startPos arg-0))))
 (define REPLCommon-Idris-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPLCommon-Idris-emitWarning arg-0 arg-1 arg-2 eta-0 eta-1))) (List-Data-reverse 'erased (let ((sc1 e-5)) (let ((e-25 (vector-ref sc1 26))) e-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 (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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (vector 0 ))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))
-(define REPLCommon-Idris-emitWarning (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))) ((REPLCommon-Idris-case--10030-6184 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
-(define REPLCommon-Idris-emitError (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))) ((REPLCommon-Idris-case--9832-6006 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
-(define REPLOpts-Idris-case--7981-8331 (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-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6))))))))))
-(define REPLOpts-Idris-case--7948-8301 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6))))))))))
-(define REPLOpts-Idris-case--7903-8261 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 arg-0))))))))))
-(define REPLOpts-Idris-n--8026-8348-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--8026-8348-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
+(define REPLCommon-Idris-emitWarning (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))) ((REPLCommon-Idris-case--10514-6450 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-emitError (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))) ((REPLCommon-Idris-case--10308-6264 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLOpts-Idris-case--9179-2401 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8))))))))))))
+(define REPLOpts-Idris-case--9093-2322 (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-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 arg-0 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPLOpts-Idris-case--9057-2289 (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-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 arg-0 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPLOpts-Idris-case--9008-2245 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (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 arg-0 e-7 e-8))))))))))))
+(define REPLOpts-Idris-n--9142-2340-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--9142-2340-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
 (define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define REPLOpts-REPLOpts-Idris-showTypes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define REPLOpts-Idris-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-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))
-(define REPLOpts-Idris-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-7 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 arg-1))))))))))) (vector 1 act-25)))))))))
-(define REPLOpts-Idris-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-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-4 (vector-ref sc1 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-9 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 arg-1 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-9 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 arg-1 e-8))))))))))))) (vector 1 act-25)))))))))
 (define REPLOpts-Idris-replFC (lambda () (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0))))
 (define REPLOpts-REPLOpts-Idris-mainfile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
-(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-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 (REPLOpts-Idris-n--8026-8348-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5))))))))))
+(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-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 (REPLOpts-Idris-n--9142-2340-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5))))))))))
 (define REPLOpts-Idris-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-3 (vector-ref sc1 4))) e-3))))))))))
 (define REPLOpts-Idris-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-6 (vector-ref sc1 7))) e-6))))))))))
+(define REPLOpts-Idris-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-7 (vector-ref sc1 8))) e-7))))))))))
+(define REPLOpts-Idris-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 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))))
+(define REPLOpts-REPLOpts-Idris-extraCodegens (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define REPLOpts-REPLOpts-Idris-evalMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define REPLOpts-REPLOpts-Idris-errorLine (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1)))
-(define Commands-IDEMode-Idris-case--3092-9148 (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))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 )))))))))
-(define Commands-IDEMode-Idris-case--2035-8428 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-case--2035-8325 (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 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2035-8316-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-case--2035-8276 (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 6 arg-0 arg-1 e-1 1))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-n--2035-8316-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all")))
-(define Commands-IDEMode-Idris-n--2929-8961-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 )))))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__String (lambda (ext-0) (vector 1 ext-0)))
-(define Commands-IDEMode-Idris-toSExp_SExpable__SExp (lambda (ext-0) ext-0))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Nat (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Nat_Integer ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Name (lambda (ext-0) (vector 4 (Name-Core-show_Show__Name ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Integer (lambda (ext-0) (vector 3 ext-0)))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Int (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Int_Integer ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Bool (lambda (ext-0) (vector 2 ext-0)))
-(define Commands-IDEMode-Idris-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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3092-9148 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3)))))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (arg-1 arg-3)) arg-2))))
-(define Commands-IDEMode-Idris-show_Show__SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" e-4)))))))
-(define Commands-IDEMode-Idris-showPrec_Show__SExp (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)))
-(define Commands-IDEMode-Idris-__Impl_Show_SExp (lambda () (vector 0 (lambda (x) (Commands-IDEMode-Idris-show_Show__SExp x)) (lambda (d) (lambda (x) (Commands-IDEMode-Idris-showPrec_Show__SExp d x))))))
-(define Commands-IDEMode-Idris-__Impl_SExpable_SExp (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp ext-0)))
-(define Commands-IDEMode-Idris-__Impl_SExpable_Int (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int ext-0)))
-(define Commands-IDEMode-Idris-__Impl_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-0 arg-1 arg-2 ext-0) (Commands-IDEMode-Idris-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 'erased 'erased arg-2 ext-0)))
-(define Commands-IDEMode-Idris-__Impl_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased arg-1 ext-0)))
-(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-9039) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-9039)) (lambda (arg-9039) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-9040) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-9040)) (lambda (arg-9040) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-9040))) arg-9039))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1)))))
-(define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0)))
-(define Commands-IDEMode-Idris-sendLine (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (lambda (eta-0) (File-System-fPutStr arg-0 arg-1 eta-0)) ext-0)))
-(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-hex arg-2 (Prelude-cast_Cast__Nat_Int (Prelude-length 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 (Commands-IDEMode-Idris-sendLine arg-2 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 (File-System-fflush arg-2 eta-0))) (vector 1 act-26))))))))))))))
-(define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-hex (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-prim__printfHex arg-0 "%06x" arg-1 ext-0)))
-(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2035-8276 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2035-8325 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (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)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--2929-8961-escapeChar eta-0))) (Prelude-unpack ext-0)))))
-(define Error-Idris-case--9458-8912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-5 arg-4 e-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-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " e-5))))))))))))))))
-(define Error-Idris-case--9458-8675 (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))) (Error-Idris-perror arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-8600-pAlterror arg-0 arg-1 arg-2 eta-1)) 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 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\u000a" (Name-Core-showSep "\u000a" e-5))))))))))))))
-(define Error-Idris-case--9458-8542 (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))) (vector 0 e-0 e-1 0))))))
-(define Error-Idris-case--9458-8432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " is not accessible in this context")) (else (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8395-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8396-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0) " context")))))))))))
-(define Error-Idris-case--9458-8337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
-(define Error-Idris-n--9458-8792-tshow (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-6 arg-5 arg-4 arg-7 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5))))))))))))))
-(define Error-Idris-n--9458-8395-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
-(define Error-Idris-n--9458-8396-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
-(define Error-Idris-n--9458-8140-showPVar (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) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--9458-8140-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0)))(else (Name-Core-show_Show__Name arg-7))))))
-(define Error-Idris-n--9458-9299-showMod (lambda (arg-0 arg-1 arg-2 arg-3) (Name-Core-showSep "." (List-Data-reverse 'erased arg-3))))
-(define Error-Idris-n--9458-8964-showHoles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\u000a" (Error-Idris-n--9458-8964-showHoles arg-0 arg-1 arg-2 e-3)))))))))))))))
-(define Error-Idris-n--9458-8600-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName 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))) (let ((act-25 ((Error-Idris-perror arg-2 arg-1 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-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\u000a")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-2 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\u000a\u0009" e-5))))))))))))))))
-(define Error-Idris-n--9458-8847-dropEnv (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-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) (Error-Idris-n--9458-8847-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-2 arg-6) (vector 1 e-3 arg-7) e-4)) ((1) (Error-Idris-n--9458-8847-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-2 arg-6) (vector 1 e-3 arg-7) e-4))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))
-(define Error-Idris-n--9458-8601-allUndefined (lambda (arg-0 arg-1 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--9458-8601-allUndefined arg-0 arg-1 arg-2 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 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 (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5))))))))))))))
-(define Error-Idris-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 (Resugar-Idris-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 (Syntax-Idris-show_Show__PTerm e-6)))))))))))))
-(define Error-Idris-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 (let ((act-25 (Normalise-Core-normaliseHoles 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))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 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 (Syntax-Idris-show_Show__PTerm e-6))))))))))))))
-(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 e-0))) ((1) (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))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Mismatch between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (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 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" e-11)))))))))))))))))))) ((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) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 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 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8140-showPVar e-11 e-12 e-15 e-14 e-13 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\u000a\u0009" e-5)))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (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 ((Context-Core-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " e-6)))))))))))))))))))) ((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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-perror arg-0 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 (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a" e-7)))))))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-196 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-196 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 (Strings-Prelude-C-43C-43 e-5 " is not a valid impossible case")))))))))) (else (let ((e-199 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 e-199) 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 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\u000a" e-5)))))))))))))))) ((7) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (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-201 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-201)) " is not explicitly imported")))))))) (else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-203 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-203) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering. Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-6))))))))))))))))) (else (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering:\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc3 e-204)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-204)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-204))))))))))))))))))))))) ((12) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\u000a\u0009" (TT-Core-show_Show__PartialReason e-46))))))))))))) ((13) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Resugar-Idris-sugarName 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))) (lambda (eta-0) (vector 1 (Error-Idris-case--9458-8432 e-53 e-52 e-51 e-50 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-52))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (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 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 " so must be fully applied")))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " borrows, so must return a concrete type")))))))))))) ((17) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-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 ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration. Possible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7)))) (let ((act-27 (Context-Core-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 res))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Multiple solutions found in search. Possible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-5))))))))))))) ((20) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-75) 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 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)))))))))))))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Error-Idris-case--9458-8675 e-76 arg-1 arg-0 (Error-Idris-n--9458-8601-allUndefined e-76 arg-1 arg-0 e-76)))) ((22) (lambda (eta-0) (vector 1 "Can't infer type for this record update"))) ((23) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")))) (else (let ((e-207 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-207) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type"))))) ((25) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 3))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (let ((sc1 e-90)) (case (vector-ref sc1 0) ((1) (let ((e-209 (vector-ref sc1 1))) (let ((e-210 (vector-ref sc1 2))) (let ((sc2 e-209)) (case (vector-ref sc2 0) ((1) (let ((e-212 (vector-ref sc2 1))) (let ((sc3 e-210)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-212) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))))))))))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (let ((e-95 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-8792-tshow e-92 e-93 e-95 e-94 arg-1 arg-0 e-92 e-94 eta-1)) e-95) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Name-Core-showSep ", " e-5)))))))))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-96 arg-0 arg-1 e-98 e-100 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 " here. Try binding explicitly.")))))))))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (Error-Idris-case--9458-8912 e-101 e-102 e-104 e-103 arg-1 arg-0 (Error-Idris-n--9458-8847-dropEnv e-101 e-102 e-104 e-103 arg-1 arg-0 e-101 e-103 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 5))) (let ((e-110 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-105 arg-0 arg-1 e-109 e-110 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Name-Core-show_Show__Name e-107))))))))))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\u000a" (Error-Idris-n--9458-8964-showHoles e-111 arg-1 arg-0 e-111)))))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 3))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-112 arg-0 arg-1 e-114 e-117 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Name-Core-show_Show__Name e-116)))))))))))))))))))) ((33) (let ((e-118 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 3))) (let ((e-121 (vector-ref sc0 4))) (let ((e-122 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-118 arg-0 arg-1 e-120 e-122 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) (Strings-Prelude-C-43C-43 " has been solved by unification\u000a" (Strings-Prelude-C-43C-43 "Result: " e-5)))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-125 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-127 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 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Resugar-Idris-sugarName e-6)))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Non linear pattern " (Resugar-Idris-sugarName e-129)))))) ((36) (let ((e-131 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-133 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-135 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined"))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 3))) (let ((e-139 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-136 arg-0 arg-1 e-138 e-139 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " is not a function type")))))))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 3))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-143 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-144 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 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " e-6)))))))))))))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 3))) (let ((e-148 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-145 arg-0 arg-1 e-147 e-148 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " is not a rewrite rule type")))))))))))) ((42) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " have differing numbers of arguments")))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " require matching on different types")))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Can't infer type to match in " e-5))))))))) ((3) (let ((e-214 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-214 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 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " is not fully applied"))))))))))) (else (let ((e-215 (vector-ref sc1 1))) (let ((sc2 e-215)) (let ((e-218 (vector-ref sc2 1))) (let ((e-219 (vector-ref sc2 2))) (let ((sc3 e-219)) (let ((e-222 (vector-ref sc3 1))) (let ((e-223 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-218 arg-0 arg-1 e-222 e-223 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 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " e-6)))))))))))))))))))))))))))) ((44) (let ((e-152 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 3))) (let ((e-155 (vector-ref sc0 4))) (let ((e-156 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-152 arg-0 arg-1 e-154 e-156 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-155) ")")))))))))))))))) ((43) (let ((e-158 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 3))) (let ((e-161 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-158 arg-0 arg-1 e-160 e-161 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 " as it has a polymorphic type"))))))))))))) ((45) (let ((e-163 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-163 (Strings-Prelude-C-43C-43 "\u000a" "Try making it a bound implicit."))))))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 3))) (let ((e-167 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-164 arg-0 arg-1 e-166 e-167 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Bad elaborator script " e-5)))))))))))) ((47) (let ((e-169 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-169)))) ((48) (let ((e-170 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170)))))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-172))))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176)))))) ((51) (let ((e-178 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found"))))) ((52) (let ((e-179 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-9299-showMod e-179 arg-1 arg-0 eta-1)) e-179))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180))))) ((55) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-181))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-183) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 e-184) 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 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 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))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 e-187) 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 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((58) (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-perror arg-0 arg-1 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 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) (else (let ((e-191 (vector-ref sc0 1))) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-perror arg-0 arg-1 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 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-191) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))))))))))))))))))))))
-(define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Error-Idris-pwarning 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))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-2)) e-5)))))))))
-(define Error-Idris-display (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Error-Idris-perror 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))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-2)) e-5)))))))))
-(define Resugar-Idris-case--11157-5068 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11157-4990-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
-(define Resugar-Idris-case--11161-4994 (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))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
-(define Resugar-Idris-case--9592-4895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11)))))))))))))))
-(define Resugar-Idris-case--9586-4723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-n--9586-4653-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
-(define Resugar-Idris-case--10523-4483 (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-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0))))))
-(define Resugar-Idris-case--9568-4432 (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 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) 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 (Resugar-Idris-showFullEnv arg-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 ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0)))))))))))))))))))
-(define Resugar-Idris-case--9565-4343 (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) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3))))))
-(define Resugar-Idris-case--9562-4115 (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) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8))))))
-(define Resugar-Idris-case--9907-3907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17)))))
-(define Resugar-Idris-case--9562-3831 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
-(define Resugar-Idris-case--9562-3760 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
-(define Resugar-Idris-case--9562-3696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Resugar-Idris-case--9562-3622 (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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) 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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0))))))
-(define Resugar-Idris-case--9526-3547 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0)))))))))
-(define Resugar-Idris-case--9190-3494 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 ))))))
-(define Resugar-Idris-case--9205-3394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9205-3291 (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-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9190-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9205-3291 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9205-3394 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9128-3177 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 ))))))
-(define Resugar-Idris-case--9037-3113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Resugar-Idris-case--8972-3090 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0)))))
-(define Resugar-Idris-case--8889-2988 (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) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4)))))))))
-(define Resugar-Idris-n--8972-3040-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0)))))
-(define Resugar-Idris-n--9562-3873-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)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (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)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--9907-3907 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 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7)))))
-(define Resugar-Idris-n--9586-4653-mapPiInfo (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Resugar-Idris-n--11157-4990-cleanNode (lambda (arg-0 arg-1 arg-2) (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (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 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5 e-11))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-12 e-13 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Resugar-Idris-n--11157-4989-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))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
-(define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (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 Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0)))))
-(define Resugar-Idris-tyPrec (lambda () (+ 1 0)))
-(define Resugar-Idris-toPTypeDecl (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 0 e-0 e-1 "" e-5))))))))))))))
-(define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) 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 ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (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 ((Context-Core-lookupCtxtExact 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))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) 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-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 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-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0))))))))))))
-(define Resugar-Idris-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))) (Resugar-Idris-toPRef 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))) (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) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) 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 ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) 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))) (let ((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 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--9562-3873-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 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 (Resugar-Idris-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) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) 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 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0))))))))))
-(define Resugar-Idris-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 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1)))))))))
-(define Resugar-Idris-toPRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (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 ((Resugar-Idris-n--9586-4653-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (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 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-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 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6)))))))))))))))))))))))
-(define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-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))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2))))))))
-(define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-2 e-5)))))))))))))))
-(define Resugar-Idris-toPField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) 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 0 e-0 e-1 e-6 e-3 e-5)))))))))))))))))))))
-(define Resugar-Idris-toPDecl (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFnOpt arg-0 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 ((Resugar-Idris-toPTypeDecl arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPData 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) (Builtin-snd 'erased 'erased ntm)) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 3 e-11 e-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPRecord arg-0 arg-1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 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))) (vector 1 (vector 1 (vector 11 e-18 e-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-24) 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 1 (vector 12 e-21 (Name-Core-show_Show__Name e-22) e-5 e-6))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 1 (vector 13 e-25 e-5)))))))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Resugar-Idris-toPData (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTypeDecl arg-0 arg-1 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-5 e-6 e-8))))))))))))))))
-(define Resugar-Idris-toPClause (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (vector 1 (vector 0 e-0 e-5 e-6 (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 2 e-8 e-5)))))))))))))))
-(define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) (Resugar-Idris-cleanPTerm arg-0 e-5 ext-0))))))))
-(define Resugar-Idris-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (Resugar-Idris-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (Name-Core-show_Show__Name arg-0))))))
-(define Resugar-Idris-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-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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9190-3243 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 ))))))
-(define Resugar-Idris-sugarApp (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () arg-0) (Resugar-Idris-sugarAppM arg-0))))
-(define Resugar-Idris-startPrec (lambda () 0))
-(define Resugar-Idris-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
-(define Resugar-Idris-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
-(define Resugar-Idris-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (Resugar-Idris-toCleanPTerm arg-0 arg-1 (Resugar-Idris-startPrec) arg-2 ext-0)))
-(define Resugar-Idris-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))) (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))) (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-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--8889-2988 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0)))))))))))))))))))))))))))
-(define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-0 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 ))))))
-(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-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 ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11157-4990-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0)))))))))))
-(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) ((Resugar-Idris-case--9037-3113 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0))))))))
-(define Resugar-Idris-argPrec (lambda () (Prelude-fromInteger_Num__Nat 1000)))
-(define Resugar-Idris-appPrec (lambda () (Prelude-fromInteger_Num__Nat 999)))
-(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--8972-3090 arg-1 arg-0 (Resugar-Idris-n--8972-3040-needed arg-1 arg-0 arg-1))))
-(define Parser-Idris-case--20495-19246 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
-(define Parser-Idris-case--20440-19204 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10))))))))))))
-(define Parser-Idris-case--19267-17968 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option")))))))
-(define Parser-Idris-case--9288-17444 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3)))))))
-(define Parser-Idris-case--18715-17397 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3))))))
-(define Parser-Idris-case--18682-17336 (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 (vector 0 ) (vector 1 arg-5 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-Idris-case--18715-17397 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9288-17302-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
-(define Parser-Idris-case--9287-17209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Parser-Idris-case--17607-16422 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7)))))))))))
-(define Parser-Idris-case--17607-16380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
-(define Parser-Idris-case--17403-15986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Parser-Idris-case--15136-13431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--15134-13416-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define Parser-Idris-case--14616-12886 (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 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3)))))))
-(define Parser-Idris-case--9785-11706 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable"))))))
-(define Parser-Idris-case--9773-10854 (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 3 arg-9 (vector 1 arg-3) arg-2 arg-5 arg-6) (Parser-Idris-buildDoLets arg-8 arg-7))) (else (vector 1 (vector 4 arg-9 (vector 0 arg-4 (vector 1 arg-3)) arg-5 arg-6 (vector 0 )) (Parser-Idris-buildDoLets arg-8 arg-7)))))))
-(define Parser-Idris-case--9763-10074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
-(define Parser-Idris-case--9756-9114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4))))))
-(define Parser-Idris-case--9749-8327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8344) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8352) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed"))))))
-(define Parser-Idris-case--10016-7925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 1)))))
-(define Parser-Idris-case--9746-7882 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-7895) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-7903) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here")))))))
-(define Parser-Idris-case--9746-7855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4)))))))
-(define Parser-Idris-case--9318-7093 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
-(define Parser-Idris-n--9288-17302-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--18682-17336 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
-(define Parser-Idris-n--9748-8113-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 ))))))))
-(define Parser-Idris-n--9781-11468-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name))))))))
-(define Parser-Idris-n--14341-12743-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12761) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
-(define Parser-Idris-n--20224-18953-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18960) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18967) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n))))))))))))))))
-(define Parser-Idris-n--20178-18900-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18907) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18914) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
-(define Parser-Idris-n--20135-18852-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18859) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-18866) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt)))))))))))))
-(define Parser-Idris-n--20091-18801-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18808) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18815) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
-(define Parser-Idris-n--20047-18751-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18758) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18765) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
-(define Parser-Idris-n--20003-18701-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18708) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18715) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
-(define Parser-Idris-n--19967-18660-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18667) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18674) (vector 0 arg-1)))))))))
-(define Parser-Idris-n--20224-18952-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20178-18899-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20135-18851-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
-(define Parser-Idris-n--20091-18800-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20047-18750-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20003-18700-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--19967-18659-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--9748-8114-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8139) (vector 8 1 0 (vector 5 ) (lambda (_-8147) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8167) (vector 0 ns))))))))))))))
-(define Parser-Idris-n--9790-12285-mkPi (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--9790-12285-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
-(define Parser-Idris-n--9755-8909-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--9755-8909-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
-(define Parser-Idris-n--9288-17303-isClause (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 2))) (vector 1 e-1)))(else (vector 0 ))))))
-(define Parser-Idris-n--9781-11467-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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 Parser-Idris-n--17400-15954-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--17403-15986 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16035) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns))))))))))))))))))))))
-(define Parser-Idris-n--15134-13416-drop (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))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--15136-13431 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
-(define Parser-Idris-n--17910-16480-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-16487) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-16501) (vector 0 n)))))))))))
-(define Parser-Idris-n--9762-9899-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-9911) (vector 0 "_"))))))))
-(define Parser-Idris-n--9770-10570-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--9770-10570-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
-(define Parser-Idris-n--9745-7659-applyExpImp (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Parser-Idris-n--9745-7659-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))) (let ((e-6 (vector-ref sc1 2))) (Parser-Idris-n--9745-7659-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5 e-6) e-3)))) (else (let ((e-7 (vector-ref sc1 1))) (Parser-Idris-n--9745-7659-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-7) e-3))))))))))))
-(define Parser-Idris-n--14341-12742-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-Idris-n--14341-12742-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3)))))))))))
-(define Parser-Idris-show_Show__CmdArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") ((1) "<name>") ((2) "<expr>") ((3) "<decls>") ((4) "<number>") ((5) "<option>") (else "<filename>")))))
-(define Parser-Idris-with_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-8193) (vector 8 1 0 (vector 5 ) (lambda (_-8201) (vector 7 0 (vector 9 0 0 (Parser-Idris-n--9748-8113-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--9748-8114-nameList arg-1 arg-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rhs) (vector 0 (vector 47 (vector 0 arg-0 start end) ns rhs)))))))))))))))))))
-(define ParseOpts-Parser-Idris-withOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Parser-Idris-withFlags (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-pragma "syntactic") (lambda () (lambda (_-12543) (vector 8 1 1 (Parser-Idris-withFlags) (lambda (fs) (vector 0 (vector 1 (vector 0 ) fs))))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-whereBlock (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7441) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))
-(define Parser-Idris-visibility (lambda () (vector 9 0 1 (Parser-Idris-visOption) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-12427) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-12434) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-12416) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-12405) (vector 0 (vector 0 )))))))))))
-(define Parser-Idris-visOpt (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-Idris-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-Idris-fnDirectOpt arg-0) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
-(define Parser-Idris-validPatternVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-case--9785-11706 e-0 (Parser-Idris-lowerFirst e-0))))(else (vector 4 1 "Not a pattern variable"))))))
-(define Parser-Idris-usingDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-14681) (vector 8 1 0 (vector 5 ) (lambda (_-14689) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-14697) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 1 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14732) (vector 0 (vector 1 (vector 1 x)))))))))) (lambda (n) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 n ty)))))))) (lambda (us) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-14766) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 4 (vector 0 arg-0 start end) us (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))
-(define Parser-Idris-typeExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-12330) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9790-12285-mkPi arg-2 arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
-(define Parser-Idris-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12482) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12506) (vector 0 (vector 0 (vector 0 arg-0 start end) n doc ty))))))))))))))))))))))
-(define Parser-Idris-tuple (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Parser-Text-some 'erased 'erased (vector 7 0 (Source-Rule-Parser-symbol ",") (lambda () (lambda (_-8997) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (estart) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (el) (vector 0 (vector 0 estart el))))))))))) (lambda () (lambda (rest) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8970) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 36 (vector 0 arg-0 arg-1 end) arg-3 (Parser-Idris-n--9755-8909-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8942) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 arg-1 end) arg-3)))))))))))
-(define Parser-Idris-transformDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "transform") (lambda () (lambda (_-14377) (vector 7 0 (Source-Rule-Parser-strLit) (lambda () (lambda (n) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-14397) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) n lhs rhs)))))))))))))))))))))))
-(define Parser-Idris-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-13555) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-13543) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-13532) (vector 0 (vector 1 )))))))))))
-(define Parser-Idris-topDecl (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))))) (vector 7 1 (Parser-Idris-dataDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))) (vector 7 1 (Parser-Idris-claim arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (vector 7 1 (Parser-Idris-definition arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (Parser-Idris-fixDecl arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))) (vector 7 1 (Parser-Idris-ifaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))) (vector 7 1 (Parser-Idris-implDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))) (vector 7 1 (Parser-Idris-recordDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 1 (Parser-Idris-namespaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 1 (Parser-Idris-mutualDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))) (vector 7 1 (Parser-Idris-paramDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))) (vector 7 1 (Parser-Idris-usingDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))) (vector 7 1 (Parser-Idris-runElabDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 7 1 (Parser-Idris-transformDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 7 1 (Parser-Idris-directiveDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (vector 1 "Expected CG directive" (lambda (x) (Parser-Idris-case--9287-17209 arg-1 arg-0 start x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda () (lambda (dstr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (let ((cgrest (Strings-Data-span (lambda (eta-0) (Prelude-isAlphaNum eta-0)) dstr))) (vector 14 (vector 0 arg-0 start end) (vector 10 (Builtin-fst 'erased 'erased cgrest) (Parser-Idris-stripBraces (Strings-Data-trim (Builtin-snd 'erased 'erased cgrest)))))) (vector 0 )))))))))) (lambda () (vector 4 0 "Couldn't parse declaration")))))))))))))))))))))))))))))))))
-(define Parser-Idris-stripBraces (lambda (arg-0) (Prelude-pack (Parser-Idris-n--15134-13416-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--15134-13416-drop arg-0 #\} (List-Data-reverse 'erased (Prelude-unpack arg-0))))))))
-(define Parser-Idris-simplerExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-9726) (vector 8 1 0 (vector 5 ) (lambda (_-9734) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (expr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 22 (vector 0 arg-0 start end) (vector 1 x) expr))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-atom arg-0) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-binder arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-record_ arg-0 arg-1) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-9659) (vector 8 1 0 (vector 5 ) (lambda (_-9667) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9681) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 23 (vector 0 arg-0 start end) e))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`(") (lambda () (lambda (_-9609) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9623) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 15 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`{{") (lambda () (lambda (_-9557) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "}}") (lambda () (lambda (_-9572) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) n))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`[") (lambda () (lambda (_-9495) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9511) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ns))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "~") (lambda () (lambda (_-9455) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 18 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9435) (Parser-Idris-bracketedExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-9415) (Parser-Idris-listExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-9375) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 33 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[|") (lambda () (lambda (_-9325) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol "|]") (lambda () (lambda (_-9339) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 34 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-9285) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-9236) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 46 (vector 0 arg-0 start end) lvl e)))))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-simpleExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-recField)) (lambda () (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 45 (vector 0 arg-0 start end) recFields))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simplerExpr arg-0 arg-1) (lambda () (lambda (root) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-recField)) (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((sc0 recFields)) (case (vector-ref sc0 0) ((0) root)(else (vector 44 (vector 0 arg-0 start end) root recFields))))))))))))))))))
-(define Parser-Idris-simpleData (lambda (arg-0 arg-1 arg-2 arg-3) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-name)) (lambda (params) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (let ((tyfc (vector 0 arg-0 arg-1 tyend))) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-13026) (let ((conRetTy (Syntax-Idris-papply tyfc (vector 0 tyfc arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 tyfc eta-0)) params)))) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "|") (Parser-Idris-simpleCon arg-0 conRetTy arg-3)) (lambda () (lambda (cons) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-2 (Parser-Idris-mkTyConType tyfc params) (vector 0 ) cons))))))))))))))))))
-(define Parser-Idris-simpleCon (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (cdoc) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (cname) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr (Parser-Idris-plhs) arg-0 arg-2)) (lambda (params) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-12971) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((cfc (vector 0 arg-0 start end))) (vector 0 cfc cname cdoc (Parser-Idris-mkDataConType cfc arg-1 params)))))))))))))))))))
-(define Parser-Idris-setVarOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "eval") (lambda () (lambda (_-17900) (vector 7 1 (Parser-Idris-parseMode) (lambda () (lambda (mode) (vector 0 (vector 3 mode)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-exactIdent "editor") (lambda () (lambda (_-17882) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (e) (vector 0 (vector 4 e)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "cg") (lambda () (lambda (_-17864) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (c) (vector 0 (vector 5 c))))))))))))))
-(define Parser-Idris-setOption (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "showimplicits") (lambda () (lambda (_-17961) (vector 0 (vector 0 arg-0))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "shownamespace") (lambda () (lambda (_-17950) (vector 0 (vector 1 arg-0))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "showtypes") (lambda () (lambda (_-17939) (vector 0 (vector 2 arg-0))))) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))))))))
-(define Parser-Idris-runParseCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-replCmd e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-keyword e-1))) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-exactIdent e-2)))))))
-(define Parser-Idris-runElabDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-14444) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) tm))))))))))))))
-(define Parser-Idris-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-11606) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11619) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 41 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
-(define Parser-Idris-replCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 1 "Unrecognised command")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 9 0 0 (Source-Rule-Parser-exactIdent e-2) (lambda () (vector 9 0 0 (Source-Rule-Parser-symbol e-2) (lambda () (Parser-Idris-replCmd e-3))))))))))))
-(define Parser-Idris-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11404) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11412) (vector 8 1 0 (vector 5 ) (lambda (_-11420) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11439) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 6 (vector 0 arg-0 start end) fs))))))))))))))))))))))
-(define Parser-Idris-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16337) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16358) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16229) (vector 8 1 0 (vector 5 ) (lambda (_-16237) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-16267) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16312) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 25 (vector 0 arg-0 start end))))) (vector 0 ))))))))))))))))
-(define Parser-Idris-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-16547) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-16570) (vector 8 1 1 (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--17910-16480-ctor arg-1 arg-0 eta-0)) (lambda (eta-0) (Parser-Idris-fieldDecl arg-0 eta-0))) (lambda (dcflds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 8 (vector 0 arg-0 start end) vis n params (Builtin-fst 'erased 'erased dcflds) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Builtin-snd 'erased 'erased dcflds))))))))))))))))))))))))))))))
-(define Parser-Idris-progHdr (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-17705) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (vector 0 )))))))))))))))
-(define Parser-Idris-prog (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-17608) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
-(define Parser-Idris-pnowith (lambda () (vector 0 0 1)))
-(define Parser-Idris-pnoeq (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
-(define Parser-Idris-plhs (lambda () (vector 0 1 1)))
-(define Parser-Idris-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-n--9762-9899-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10007) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10020) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-n--9762-9899-binderName arg-2 arg-1 arg-0) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9949) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))))))
-(define Parser-Idris-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-Idris-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
-(define Parser-Idris-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-Idris-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
-(define Parser-Idris-pdef (lambda () (vector 0 0 0)))
-(define Parser-Idris-patAlt (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12080) (Parser-Idris-caseAlt arg-0 arg-1))))))
-(define Parser-Idris-parserCommandsForHelp (lambda () (vector 1 (Parser-Idris-exprArgCmd (vector 0 (vector 1 "t" (vector 1 "type" (vector 0 )))) (lambda (eta-0) (vector 2 eta-0)) "Check the type of an expression") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "printdef" (vector 0 ))) (lambda (eta-0) (vector 3 eta-0)) "Show the definition of a function") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "s" (vector 1 "search" (vector 0 )))) (lambda (eta-0) (vector 10 eta-0)) "Search for values by type") (vector 1 (Parser-Idris-nameArgCmd (vector 2 "di") (lambda (eta-0) (vector 11 eta-0)) "Show debugging information for a name") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "q" (vector 1 "quit" (vector 1 "exit" (vector 0 ))))) (vector 22 ) "Exit the Idris system") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "cwd" (vector 0 ))) (vector 15 ) "Displays the current working directory") (vector 1 (Parser-Idris-optArgCmd (vector 2 "set") (lambda (eta-0) (vector 12 eta-0)) 0 "Set an option") (vector 1 (Parser-Idris-optArgCmd (vector 2 "unset") (lambda (eta-0) (vector 12 eta-0)) 1 "Unset an option") (vector 1 (Parser-Idris-compileArgsCmd (vector 0 (vector 1 "c" (vector 1 "compile" (vector 0 )))) (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "Compile to an executable") (vector 1 (Parser-Idris-exprArgCmd (vector 2 "exec") (lambda (eta-0) (vector 8 eta-0)) "Compile to an executable and run") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "r" (vector 1 "reload" (vector 0 )))) (vector 4 ) "Reload current file") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "e" (vector 1 "edit" (vector 0 )))) (vector 6 ) "Edit current file using $EDITOR or $VISUAL") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "miss" (vector 1 "missing" (vector 0 )))) (lambda (eta-0) (vector 16 eta-0)) "Show missing clauses") (vector 1 (Parser-Idris-nameArgCmd (vector 1 "total") (lambda (eta-0) (vector 17 eta-0)) "Check the totality of a name") (vector 1 (Parser-Idris-numberArgCmd (vector 0 (vector 1 "log" (vector 1 "logging" (vector 0 )))) (lambda (eta-0) (vector 18 eta-0)) "Set logging level") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "m" (vector 1 "metavars" (vector 0 )))) (vector 19 ) "Show remaining proof obligations (metavariables or holes)") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "version" (vector 0 ))) (vector 21 ) "Display the Idris version") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "?" (vector 1 "h" (vector 1 "help" (vector 0 ))))) (vector 9 ) "Display this help text") (vector 1 (Parser-Idris-declsArgCmd (vector 1 "let") (lambda (eta-0) (vector 0 eta-0)) "Define a new value") (vector 0 ))))))))))))))))))))))
-(define Parser-Idris-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12683) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-4) (lambda () (lambda (rhs) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Idris-whereBlock arg-1 arg-3)) (lambda (ws) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-12711) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 arg-2 end) arg-5 rhs ws))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-12617) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 8 1 0 (Parser-Idris-withFlags) (lambda (flags) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-12638) (vector 7 0 (Parser-Idris-bracketedExpr arg-1 wstart arg-4) (lambda () (lambda (wval) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-1 arg-2 end) arg-5 wval flags ws)))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-12587) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-12594) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-1 arg-2 end) arg-5)))))))))))))))
-(define Parser-Idris-parseMode (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 1 (Source-Rule-Parser-exactIdent "typecheck") (lambda () (lambda (_-17840) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "tc") (lambda () (lambda (_-17829) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "normalise") (lambda () (lambda (_-17818) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "normalize") (lambda () (lambda (_-17807) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "execute") (lambda () (lambda (_-17796) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "exec") (lambda () (lambda (_-17785) (vector 0 (vector 2 )))))))))))))))))
-(define Parser-Idris-paramDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "parameters") (lambda () (lambda (_-14551) (vector 8 1 0 (vector 5 ) (lambda (_-14559) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-14567) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14592) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 (vector 1 x) ty)))))))))))) (lambda (ps) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-14618) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 3 (vector 0 arg-0 start end) ps (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))
-(define Parser-Idris-optArgCmd (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (Parser-Idris-n--20135-18851-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-3 (Parser-Idris-n--20135-18852-parse arg-3 arg-2 arg-1 arg-0))))))
-(define Parser-Idris-opExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-appExpr arg-0 arg-1 arg-2) (lambda () (lambda (l) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 1)) (Parser-Idris-case--9749-8327 arg-2 arg-1 arg-0 start l (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8285) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (middle) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (r) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 start end) op l r)))))))))))))) (lambda () (vector 0 l))))))))))))
-(define Parser-Idris-onoff (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "on") (lambda () (lambda (_-13479) (vector 0 0)))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "off") (lambda () (lambda (_-13468) (vector 0 1))))))))
-(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20178-18899-names arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-2 (Parser-Idris-n--20178-18900-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-nonEmptyCommand (lambda () (Parser-Text-choice 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))) (Parser-Idris-parserCommandsForHelp)))))
-(define Parser-Idris-noArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--19967-18659-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--19967-18660-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-namespaceHead (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-14271) (vector 8 1 0 (vector 5 ) (lambda (_-14279) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
-(define Parser-Idris-namespaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Parser-Idris-namespaceHead) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (vector 11 (vector 0 arg-0 start end) ns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))
-(define Parser-Idris-nameArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20003-18700-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--20003-18701-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-mutualDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "mutual") (lambda () (lambda (_-14486) (vector 8 1 0 (vector 5 ) (lambda (_-14494) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 9 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))
-(define Parser-Idris-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-mkTyConType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 21 arg-0)) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) (vector 21 arg-0) (Parser-Idris-mkTyConType arg-0 e-3))))))))
-(define Parser-Idris-mkDataConType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) e-4 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Parser-Idris-case--14616-12886 e-9 e-8 e-5 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) e-5 e-6 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))))))) (else (vector 24 arg-0)))))))))))
-(define Parser-Idris-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
-(define Parser-Idris-listRange (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8757) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 43 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (y) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8719) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 42 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate) y)))))))))))))))))
-(define Parser-Idris-listExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-2) (lambda () (lambda (ret) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8859) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-doAct arg-0 arg-2)) (lambda () (lambda (conds) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8878) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 40 (vector 0 arg-0 arg-1 end) ret ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) conds))))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda (xs) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "..") (lambda () (lambda (_-8842) (Parser-Idris-listRange arg-0 arg-1 arg-2 xs)))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8819) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 35 (vector 0 arg-0 arg-1 end) xs)))))))))))))))
-(define Parser-Idris-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11028) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda () (lambda (res) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11043) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-buildLets arg-0 res scope)))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-10952) (vector 8 1 0 (vector 5 ) (lambda (_-10960) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-10975) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)) scope))))))))))))))))))))))))
-(define Parser-Idris-letBinder (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (vector 0 arg-0 start tyend)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10698) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10709) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 start (vector 0 end (vector 0 rig (vector 0 pat (vector 0 ty (vector 0 val alts))))))))))))))))))))))))))))))))
-(define Parser-Idris-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-12230) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-12192) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-12154) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-12116) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) tm))))))))))))))))))))
-(define Parser-Idris-lambdaCase (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "\\")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "case")))) (lambda () (lambda (_-11142) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 8 1 1 (vector 5 ) (lambda (_-11157) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts)))))))))))))))))) (else (vector 7 1 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "\\")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "case")))) (lambda () (lambda (_-11142) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 8 1 1 (vector 5 ) (lambda (_-11157) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts))))))))))))))))))))))))
-(define Parser-Idris-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-10601) (vector 7 0 (Parser-Idris-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10615) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-10623) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9770-10570-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
-(define Parser-Idris-import_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "import") (lambda () (lambda (_-17490) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 1 (vector 7 1 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-17507) (vector 0 0))))) (lambda (reexp) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 ns (vector 7 0 (Source-Rule-Parser-exactIdent "as") (lambda () (lambda (_-17536) (Source-Rule-Parser-namespacedIdent))))) (lambda (nsAs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17554) (vector 0 (vector 0 (vector 0 arg-0 start end) reexp ns nsAs))))))))))))))))))))
-(define Parser-Idris-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10513) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10527) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10535) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
-(define Parser-Idris-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8014) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8072) (vector 8 1 0 (vector 5 ) (lambda (_-8080) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8094) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8043) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-7961) (vector 8 1 0 (vector 5 ) (lambda (_-7969) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-7983) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
-(define Parser-Idris-implDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Source-Rule-Parser-keyword "implementation")) (lambda (_-15752) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-15770) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (iname) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-15785) (vector 0 (vector 1 iname)))))))))))) (lambda (iname) (vector 8 1 0 (Parser-Idris-implBinds arg-0 arg-1) (lambda (impls) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda (params) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-15841) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (names) (vector 0 names)))))))) (lambda (nusing) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-15875) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))))))) (lambda (body) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15886) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) vis opts (vector 0 ) impls cons n params iname nusing (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) eta-0))) body)))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-implBinds (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-15311) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15339) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-15353) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-15361) (vector 8 1 1 (Parser-Idris-implBinds arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 n (vector 0 rig tm)) more)))))))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-ifaceParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15449) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15464) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15478) (vector 0 (vector 0 n tm))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 n (vector 25 (vector 0 arg-0 start end)))))))))))))))
-(define Parser-Idris-ifaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "interface") (lambda () (lambda (_-15536) (vector 8 1 0 (vector 5 ) (lambda (_-15544) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-ifaceParam arg-0 arg-1)) (lambda (params) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (vector 0 ) (vector 7 1 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-15582) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)))))) (lambda (det) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-15599) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-15616) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n-0) (vector 0 (vector 1 n-0))))))))) (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (body) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 6 (vector 0 arg-0 start end) vis cons n doc params det dc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) body)))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-if_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "if") (lambda () (lambda (_-11326) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (x) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "then") (lambda () (lambda (_-11339) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "else") (lambda () (lambda (_-11352) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11365) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 39 (vector 0 arg-0 start end) x t e))))))))))))))))))))))))))))
-(define Parser-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
-(define Parser-Idris-iOperator (lambda () (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7522) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7537) (vector 0 n))))))))))))))
-(define Parser-Idris-help (lambda () (vector 1 (vector 0 (vector 1 "<expr>" (vector 0 )) (vector 0 (vector 0 ) "Evaluate an expression")) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-0) (Strings-Prelude-C-43C-43 ":" arg-0)) e-2) (vector 0 e-6 e-10))))))))))) (Parser-Idris-parserCommandsForHelp)))))
-(define Parser-Idris-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-Idris-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))
-(define Parser-Idris-getRight (lambda (arg-0 arg-1 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 Parser-Idris-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
-(define Parser-Idris-getInitRange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 e-1 (vector 0 )))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 0 (vector 0 e-1 (vector 1 e-5))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax"))))))
-(define Parser-Idris-gadtData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-13291) (vector 8 1 0 (vector 5 ) (lambda (_-13299) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-4) (lambda () (lambda (ty) (Parser-Idris-dataBody arg-0 arg-1 arg-2 arg-3 arg-4 ty)))))))))))
-(define Parser-Idris-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-10397) (vector 8 1 0 (vector 5 ) (lambda (_-10405) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 24 nfc)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-10441) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
-(define Parser-Idris-fnOpt (lambda () (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 0 (vector 7 x))))))))
-(define Parser-Idris-fnDirectOpt (lambda (arg-0) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-15035) (vector 0 (vector 0 (vector 2 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-15022) (vector 0 (vector 0 (vector 3 1)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-15009) (vector 0 (vector 0 (vector 3 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-14984) (vector 8 1 1 (vector 5 ) (lambda (_-14992) (vector 0 (vector 0 (vector 0 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "tcinline") (lambda () (lambda (_-14959) (vector 8 1 1 (vector 5 ) (lambda (_-14967) (vector 0 (vector 0 (vector 1 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-14946) (vector 0 (vector 0 (vector 4 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "macro") (lambda () (lambda (_-14932) (vector 0 (vector 0 (vector 8 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "spec") (lambda () (lambda (_-14906) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda (ns) (vector 0 (vector 0 (vector 9 ns)))))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "foreign") (lambda () (lambda (_-14882) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 eta-0))) (lambda (cs) (vector 0 (vector 1 cs)))))))))))))))))))))))))
-(define Parser-Idris-fixDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-fix) (lambda () (lambda (fixity) (vector 8 1 0 (vector 5 ) (lambda (_-16802) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (prec) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-iOperator)) (lambda () (lambda (ops) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 10 (vector 0 arg-0 start end) fixity (Prelude-fromInteger_Num__Nat prec) eta-0)) ops)))))))))))))))))))
-(define Parser-Idris-fix (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-keyword "infixl") (lambda () (lambda (_-14260) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "infixr") (lambda () (lambda (_-14249) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "infix") (lambda () (lambda (_-14238) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "prefix") (lambda () (lambda (_-14227) (vector 0 (vector 3 )))))))))))))
-(define Parser-Idris-fieldDecl (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16128) (vector 8 1 0 (vector 5 ) (lambda (_-16136) (vector 7 0 (Parser-Idris-n--17400-15954-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16152) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16159) (vector 0 fs)))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-n--17400-15954-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16103) (vector 0 fs))))))))))))
-(define Parser-Idris-field (lambda (arg-0 arg-1) (vector 7 0 (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 1)) eta-2 eta-3))))) (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Parser-Idris-n--9781-11467-fieldName arg-1 arg-0 eta-1)) eta-0)) (vector 8 (Prelude-C-124C-124 1 (lambda () 0)) 1 (vector 8 1 0 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (Parser-Idris-n--9781-11468-recFieldCompat arg-1 arg-0)))))) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11543) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-11530) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11543) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-11530) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
-(define Parser-Idris-extractNames (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-1 (vector-ref sc0 1))) (vector 1 e-1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (vector 0 ))))))))
-(define Parser-Idris-extension (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "ElabReflection") (lambda () (lambda (_-13508) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "Borrowing") (lambda () (lambda (_-13497) (vector 0 (vector 1 )))))))))
-(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20047-18750-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--20047-18751-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-expr (lambda (ext-0 ext-1 ext-2) (Parser-Idris-typeExpr ext-0 ext-1 ext-2)))
-(define Parser-Idris-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10149) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10163) (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
-(define Parser-Idris-eval (lambda () (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm)))))))
-(define ParseOpts-Parser-Idris-eqOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Parser-Idris-editCmd (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "typeat" (vector 0 ))) (lambda () (lambda (_-18582) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 0 line col n)))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "cs" (vector 0 ))) (lambda () (lambda (_-18509) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18527) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 upd line col n)))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ac" (vector 0 ))) (lambda () (lambda (_-18447) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18465) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ps" (vector 1 "proofsearch" (vector 0 )))) (lambda () (lambda (_-18383) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18401) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 1))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "psall" (vector 0 ))) (lambda () (lambda (_-18316) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18334) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 0))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "gd" (vector 0 ))) (lambda () (lambda (_-18254) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18272) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ml" (vector 1 "makelemma" (vector 0 )))) (lambda () (lambda (_-18192) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18210) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Parser-Idris-replCmd (vector 1 "mc" (vector 1 "makecase" (vector 0 )))) (lambda () (lambda (_-18127) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18145) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 upd line n))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-replCmd (vector 1 "mw" (vector 1 "makewith" (vector 0 )))) (lambda () (lambda (_-18062) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18080) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 upd line n))))))))))))) (lambda () (vector 4 0 "Unrecognised command")))))))))))))))))))))
-(define Parser-Idris-dpair (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8465) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8486) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) (vector 0 (vector 0 arg-0 arg-1 loc) (vector 1 x)) ty rest))))))))))))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (l) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8418) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) l (vector 24 (vector 0 arg-0 arg-1 end)) rest)))))))))))))))))))
-(define Parser-Idris-doBlock (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "do") (lambda () (lambda (_-11660) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-0 eta-0))) (lambda (actions) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 32 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) actions))))))))))))))
-(define Parser-Idris-doAct (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Idris-validPatternVar n) (lambda (_-11995) (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12003) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12016) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 1 (vector 0 arg-0 start end) n val) (vector 0 )))))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11951) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11965) (vector 0 (Parser-Idris-buildDoLets arg-0 res))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11907) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11928) (vector 0 (vector 1 (vector 5 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) res)) (vector 0 )))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-11859) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11872) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 6 (vector 0 arg-0 start end) rule) (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (e) (vector 9 1 (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11825) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 (vector 0 arg-0 start end) e) (vector 0 ))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-11775) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11795) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 2 (vector 0 arg-0 start end) e val alts) (vector 0 ))))))))))))))))))))))))))))))))
-(define Parser-Idris-directiveDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 1 (Parser-Idris-directive arg-0 arg-1) (lambda () (lambda (d) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) d))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-16882) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16902) (vector 0 (vector 5 (vector 0 arg-0 start end) tm))))))))))))))))))
-(define Parser-Idris-directive (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "hide") (lambda () (lambda (_-14179) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14193) (vector 0 (vector 0 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-14147) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14161) (vector 0 (vector 1 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_lazy") (lambda () (lambda (_-14119) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14132) (vector 0 (vector 2 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "unbound_implicits") (lambda () (lambda (_-14091) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14104) (vector 0 (vector 3 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "undotted_record_projections") (lambda () (lambda (_-14063) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14076) (vector 0 (vector 16 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "ambiguity_depth") (lambda () (lambda (_-14031) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14045) (vector 0 (vector 4 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_implicit_depth") (lambda () (lambda (_-13999) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (dpt) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14013) (vector 0 (vector 17 (Prelude-fromInteger_Num__Nat dpt))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "pair") (lambda () (lambda (_-13951) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (ty) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (f) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (s) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13979) (vector 0 (vector 5 ty f s)))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "rewrite") (lambda () (lambda (_-13912) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (eq) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (rw) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13933) (vector 0 (vector 6 eq rw))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "integerLit") (lambda () (lambda (_-13882) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13896) (vector 0 (vector 7 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "stringLit") (lambda () (lambda (_-13852) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13866) (vector 0 (vector 8 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-pragma "charLit") (lambda () (lambda (_-13822) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13836) (vector 0 (vector 9 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-pragma "name") (lambda () (lambda (_-13780) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13805) (vector 0 (vector 11 n ns))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-pragma "start") (lambda () (lambda (_-13752) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13765) (vector 0 (vector 12 e)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-pragma "allow_overloads") (lambda () (lambda (_-13722) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13736) (vector 0 (vector 13 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-pragma "language") (lambda () (lambda (_-13694) (vector 7 1 (Parser-Idris-extension) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13707) (vector 0 (vector 14 e)))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "default") (lambda () (lambda (_-13666) (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (tot) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13679) (vector 0 (vector 15 tot))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) (vector 1 nd (vector 0 )))))))))))))))
-(define Parser-Idris-defaultImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10302) (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10309) (vector 8 1 0 (vector 5 ) (lambda (_-10317) (vector 7 0 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10337) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10345) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 3 t) binders scope)))))))))))))))))))))))))))))))
-(define Parser-Idris-declsArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20091-18800-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--20091-18801-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-13160) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-13149) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-13126) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "external") (lambda () (lambda (_-13115) (vector 0 (vector 3 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "noNewtype") (lambda () (lambda (_-13104) (vector 0 (vector 4 )))))))))))))))
-(define Parser-Idris-dataDeclBody (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-13335) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 9 0 0 (Parser-Idris-simpleData arg-0 start n arg-1) (lambda () (Parser-Idris-gadtData arg-0 col start n arg-1)))))))))))))))
-(define Parser-Idris-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 7 1 (Parser-Idris-dataDeclBody arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) vis dat)))))))))))))))
-(define Parser-Idris-dataBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 1 0 (vector 8 1 1 (Source-Rule-Parser-atEndIndent arg-4) (lambda (_-13263) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 arg-2 end) arg-3 arg-5)))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-13184) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-13202) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-13221) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 arg-5 opts cs)))))))))))))))
-(define Parser-Idris-continueWith (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7508) (Source-Rule-Parser-symbol arg-1)))))
-(define Parser-Idris-constraints (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 7 0 (Parser-Idris-appExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-15270) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 0 ) tm) more)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15190) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15205) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15219) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-15227) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 1 n) tm) more)))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))))
-(define Parser-Idris-compileArgsCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20224-18952-names arg-2 arg-1 arg-0) (vector 0 (vector 6 ) (vector 0 arg-2 (Parser-Idris-n--20224-18953-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-commitKeyword (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7475) (vector 7 1 (Source-Rule-Parser-keyword arg-1) (lambda () (lambda (_-7482) (Source-Rule-Parser-mustContinue arg-0 (vector 0 )))))))))
-(define Parser-Idris-command (lambda () (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-19340) (vector 0 (vector 23 )))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (Parser-Idris-nonEmptyCommand) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 1 (Source-Rule-Parser-symbol ":?") (lambda () (lambda (_-19328) (vector 0 (vector 9 ))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-19308) (vector 7 1 (Parser-Idris-editCmd) (lambda () (lambda (cmd) (vector 0 (vector 20 cmd)))))))) (lambda () (Parser-Idris-eval)))))))))))
-(define Parser-Idris-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Parser-Idris-case--9288-17444 e-5 e-4 e-3 (Parser-Idris-n--9288-17302-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--9288-17303-isClause e-5 e-4 e-3 eta-0)) e-3))))) ((11) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 1 (vector 11 e-6 e-7 (Parser-Idris-collectDefs e-8)) (Parser-Idris-collectDefs e-3)))))) ((9) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 1 (vector 9 e-9 (Parser-Idris-collectDefs e-10)) (Parser-Idris-collectDefs e-3)))))(else (vector 1 e-2 (Parser-Idris-collectDefs e-3))))))))))))
-(define Parser-Idris-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-n--14341-12743-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-Idris-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS arg-0 arg-1 start col arg-2 (Parser-Idris-n--14341-12742-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))))
-(define Parser-Idris-claim (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 1 (Parser-Idris-tyDecl arg-0 arg-1) (lambda () (lambda (cl) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) rig vis opts cl))))))))))))))))))))))
-(define Parser-Idris-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11083) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Parser-Idris-commitKeyword arg-1 "of") (lambda () (lambda (_-11096) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 4 (vector 0 arg-0 start end) scr alts)))))))))))))))))))
-(define Parser-Idris-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11270) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-2 (vector 0 )) (lambda (_-11278) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11291) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-3 rhs (vector 0 ))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-11239) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11246) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-1 end) arg-3)))))))))))))
-(define Parser-Idris-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (Parser-Idris-caseRHS arg-0 start arg-1 lhs))))))))
-(define Parser-Idris-buildLets (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 3 fc e-14 e-18 e-22 e-26 (Parser-Idris-buildLets arg-0 e-3 arg-2) e-27)))))))))))))))))))))))))))
-(define Parser-Idris-buildDoLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((sc7 e-19)) (case (vector-ref sc7 0) ((0) (let ((e-33 (vector-ref sc7 1))) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-37 (vector-ref sc8 1))) (let ((e-38 (vector-ref sc8 2))) (let ((sc9 e-38)) (case (vector-ref sc9 0) ((0) (let ((fc (vector 0 arg-0 e-6 e-10))) (Parser-Idris-case--9773-10854 e-6 e-10 e-14 e-30 e-28 e-33 e-37 e-3 arg-0 fc (Parser-Idris-lowerFirst e-30))))(else (let ((sc9 e-19)) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-23)) (let ((e-26 (vector-ref sc10 1))) (let ((e-27 (vector-ref sc10 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((sc9 e-23)) (let ((e-26 (vector-ref sc9 1))) (let ((e-27 (vector-ref sc9 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (let ((e-26 (vector-ref sc8 1))) (let ((e-27 (vector-ref sc8 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3))))))))))))))(else (let ((sc6 e-19)) (let ((e-22 (vector-ref sc6 1))) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (let ((e-26 (vector-ref sc7 1))) (let ((e-27 (vector-ref sc7 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))))))))))))))))))
-(define Parser-Idris-bracketedExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8611) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 arg-1 end) op e))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8578) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 38 (vector 0 arg-0 arg-1 end)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-dpair arg-0 arg-1 arg-2) (lambda () (lambda (p) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8565) (vector 0 p))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 9 0 0 (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8647) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 arg-1 end) e op)))))))))) (lambda () (Parser-Idris-tuple arg-0 arg-1 arg-2 e))))))))))))))
-(define Parser-Idris-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-Idris-let_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-defaultImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-explicitPi arg-0 arg-1) (lambda () (Parser-Idris-lam arg-0 arg-1)))))))))))))))
-(define Parser-Idris-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10128) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10114) (vector 0 (vector 2 )))))))))
-(define Parser-Idris-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-2) (lambda () (lambda (pat) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 25 (vector 0 arg-0 arg-1 arg-1)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9870) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 pat ty)))))))))))))))
-(define Parser-Idris-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10214) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-10221) (vector 8 1 0 (vector 5 ) (lambda (_-10229) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10243) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10251) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
-(define Parser-Idris-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7415) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7321) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 24 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7288) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 25 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) 1 x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7225) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) (vector 9 )))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7192) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) (vector 19 )))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7157) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-argExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-7841) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (arg) (let ((sc0 arg)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg)))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-7819) (vector 7 1 (Parser-Idris-implicitArg arg-1 arg-2) (lambda () (lambda (arg) (vector 0 (vector 1 (Builtin-fst 'erased 'erased arg) (Builtin-snd 'erased 'erased arg)))))))) (Parser-Idris-case--9746-7882 arg-2 arg-1 arg-0 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))
-(define Parser-Idris-appExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Parser-Idris-case_ arg-1 arg-2) (lambda () (vector 9 0 0 (Parser-Idris-lambdaCase arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-lazy arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-if_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-with_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-doBlock arg-1 arg-2) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr arg-0 arg-1 arg-2)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9745-7659-applyExpImp arg-2 arg-1 arg-0 start end f args))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (arg) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-1 start end) op arg)))))))))))) (lambda () (vector 4 1 "Expected 'case', 'if', 'do', application or operator expression")))))))))))))))))))
-(define ModTree-Idris-case--13442-9385 (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 (Context-Core-clearCtxt 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 ((act-25 ((InitPrimitives-Core-addPrimitives arg-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 (let ((act-26 (set-box! arg-3 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttc" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-8) (Strings-Prelude-C-43C-43 " from " arg-0)))) 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 (ProcessIdr-Idris-readAsMain arg-5 arg-2 arg-4 e-8 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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttm" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String 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 ((act-32 (Metadata-Core-readFromTTM arg-3 e-11 eta-0))) (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 0 ))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define ModTree-Idris-case--13361-9315 (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) (ModTree-Idris-buildMods arg-7 arg-6 arg-5 arg-4 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) arg-2 arg-1))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define ModTree-Idris-case--12799-9192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-2))) (vector 1 arg-17 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-18)))))))))
-(define ModTree-Idris-case--12908-8963 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))(else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-25) 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 (List-Prelude-C-43C-43 'erased arg-14 arg-25))))))))))))))))
-(define ModTree-Idris-case--12799-8892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (cond ((equal? sc0 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 arg-23 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-process arg-6 arg-21 arg-20 arg-5 arg-4 msg 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-14) eta-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-14))))))))))(else (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 (List-Prelude-C-43C-43 'erased arg-14 e-5))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))))))
-(define ModTree-Idris-case--12605-8794 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ModTree-Idris-fnameModified arg-12 eta-1))) (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-5)))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) 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 ((act-25 (ModTree-Idris-fnameModified arg-11 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 ((Core-Core-traverse 'erased 'erased (lambda (f) (lambda (eta-1) (let ((act-26 (ModTree-Idris-fnameModified f eta-1))) (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 f e-7))))))))) e-3) 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 ((needsBuilding (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) 0) (else (let ((e-4 (vector-ref sc4 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-4))) (vector 1 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7))))))))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 (let ((act-29 (set-box! arg-5 (Syntax-Idris-initSyntax)))) (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 ((showMod (Name-Core-showSep "." (List-Data-reverse 'erased (let ((sc7 arg-0)) (let ((e-1 (vector-ref sc7 2))) e-1)))))) (let ((sc7 needsBuilding)) (cond ((equal? sc7 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 showMod (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (let ((act-30 (ProcessIdr-Idris-process arg-6 e-9 e-8 arg-5 arg-4 msg 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 ((e-11 (vector-ref sc8 1))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))(else (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-11) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (List-Prelude-C-43C-43 'erased e-2 e-11)))))))))))))))))))) (else (let ((act-30 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))))))))))))))))))))))))))))
-(define ModTree-Idris-case--12616-8715 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 arg-9 e-3)))))))
-(define ModTree-Idris-case--12616-8663 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-9 e-2) e-3))))))
-(define ModTree-Idris-case--12537-8579 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))))))
-(define ModTree-Idris-case--12527-8564 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-fileModifiedTime e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define ModTree-Idris-case--12408-8471 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((ModTree-Idris-mkModTree arg-4 arg-5 arg-2 (vector 0 ) 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))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.DoneMod" ) (StringMap-Data-empty 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.BuildOrder" ) (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 ((act-27 ((ModTree-Idris-mkBuildMods e-6 e-7 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 ((act-28 (let ((act-28 (unbox e-7))) (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))) (vector 1 (List-Data-reverse 'erased e-9))))))))))))))))))))))))))))))))
-(define ModTree-Idris-case--12301-8355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkBuildMods arg-2 arg-1 eta-1)) (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-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 (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 (vector 1 (vector 0 arg-3 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) (let ((sc3 arg-0)) (let ((e-2 (vector-ref sc3 3))) e-2)))) 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 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-2 (StringMap-Data-insert 'erased arg-3 (vector 0 ) e-8)))) (vector 1 act-28))))))))))))))))))))))))))
-(define ModTree-Idris-case--12104-8244 (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 (Directory-Core-nsToSource arg-4 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 ((act-25 (ProcessIdr-Idris-readHeader arg-4 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 ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-2 (vector-ref sc3 3))) e-2))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkModTree arg-4 arg-3 arg-2 (vector 1 arg-0 arg-1) eta-1)) imps) 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 ((mt (vector 0 arg-0 (vector 1 e-5) e-7))) (let ((act-27 (let ((act-27 (unbox arg-3))) (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 (let ((act-28 (set-box! arg-3 (vector 1 (vector 0 arg-0 mt) e-8)))) (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 (vector 1 mt))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define ModTree-Idris-case--12104-8193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((52) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))))
-(define ModTree-Idris-case--12090-8151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 52 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 arg-0 (vector 0 )))) eta-0))) (else (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (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))) ((ModTree-Idris-case--12104-8244 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-0 e-5)) eta-1))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((52) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))) eta-0)))))))
-(define ModTree-Idris-n--12605-8633-getEithers (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) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (ModTree-Idris-case--12616-8663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--12605-8633-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (ModTree-Idris-case--12616-8715 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--12605-8633-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
-(define ModTree-Idris-n--13604-9511-dropLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (ModTree-Idris-n--13604-9511-dropLater arg-0 arg-1 arg-2 arg-3 (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (let ((sc1 x)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-3))))))))))
-(define ModTree-ModTree-Idris-sourceFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define ModTree-ModTree-Idris-nspace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ModTree-Idris-mkModTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (ModTree-Idris-case--12090-8151 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-4 arg-3))))
-(define ModTree-Idris-mkBuildMods (lambda (arg-0 arg-1 arg-2) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (sf) (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))) ((ModTree-Idris-case--12301-8355 arg-2 arg-1 arg-0 sf e-5 (StringMap-Data-lookup 'erased sf e-5)) eta-0))))))))) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
-(define BuildMod-ModTree-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define ModTree-Idris-getBuildMods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.AllMods" ) (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 ((act-25 (Context-Core-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 ((Directory-Core-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-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))) ((ModTree-Idris-case--12408-8471 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-1 (vector-ref sc3 2))) e-1))) arg-3))) ext-0))))))))))))))))))
-(define ModTree-Idris-getAllBuildMods (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-2 arg-3 arg-4 e-2 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))) ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased e-5 arg-4) e-3) eta-0))))))))))))))
-(define ModTree-Idris-fnameModified (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (File-System-openFile 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 (File-System-fileModifiedTime 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 (File-System-closeFile 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (File-System-closeFile 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) ext-0)))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
-(define ModTree-ModTree-Idris-deps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define BuildMod-ModTree-Idris-buildNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define ModTree-Idris-buildMods (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-buildMod arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-5 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
-(define ModTree-Idris-buildMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-clearCtxt 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 ((InitPrimitives-Core-addPrimitives 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 (Context-Core-lazyActive arg-0 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 (Context-Core-setUnboundImplicits arg-0 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 ((src (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-28 (Directory-Core-getTTCFileName arg-0 src "ttc" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Directory-Core-nsToPath arg-0 arg-3 eta-0 eta-1))) (let ((sc5 arg-6)) (let ((e-2 (vector-ref sc5 3))) e-2))) 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))) ((ModTree-Idris-case--12605-8794 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 src e-9 e-10 (ModTree-Idris-n--12605-8633-getEithers arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 'erased e-10)) ext-0))))))))))))))))))))))))))))))))))
-(define BuildMod-ModTree-Idris-buildFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ModTree-Idris-buildDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-4 (FC-Core-toplevelFC) (vector 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 ((ModTree-Idris-buildMods arg-0 arg-1 arg-4 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased e-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) ((0) (let ((act-26 (Context-Core-clearCtxt 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 ((act-27 ((InitPrimitives-Core-addPrimitives 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 ((act-28 (let ((act-28 (set-box! arg-2 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttc" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-10) (Strings-Prelude-C-43C-43 " from " arg-5)))) 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 (ProcessIdr-Idris-readAsMain arg-0 arg-3 arg-1 e-10 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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttm" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String e-13))) 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 (Metadata-Core-readFromTTM arg-2 e-13 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))(else (vector 1 e-6))))))))))))))))
-(define ModTree-Idris-buildAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (vector 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 ((modsC-39 (ModTree-Idris-n--13604-9511-dropLater arg-3 arg-2 arg-1 arg-0 e-5))) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased modsC-39) modsC-39) ext-0)))))))))
-(define ProcessIdr-Idris-case--16332-9966 (lambda (arg-0 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 (eta-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 (Context-Core-getDirs 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-6 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 ((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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1))))) arg-6 arg-4 e-9 arg-9 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 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" 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 (Metadata-Core-writeToTTM arg-6 arg-5 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10)))))))
-(define ProcessIdr-Idris-case--16275-9940 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--16332-9966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessIdr-Idris-case--16255-9890 (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 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" 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 ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 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 ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--16332-9966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 ))))))))))
-(define ProcessIdr-Idris-case--15761-9721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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))) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define ProcessIdr-Idris-case--15761-9605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-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 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) 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 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-22)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-20)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define ProcessIdr-Idris-case--15611-9441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Bool arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Bool arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Bool arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Bool arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Bool arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Bool arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Bool arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-985) (lambda (arg-986) (Prelude-min_Ord__String arg-985 arg-986)))) arg-983 arg-984)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__Int arg-983 arg-984)))) arg-981 arg-982)))) arg-979 arg-980)))) arg-12)) 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 (UnifyState-Core-resetNextVar arg-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-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15761-9605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-11) 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 ((act-29 (Context-Core-setNS arg-8 arg-20 eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (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-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (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))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--15362-9305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-setNS arg-8 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 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 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-9428) (vector 0 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Bool arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Bool arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Bool arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Bool arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Bool arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Bool arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Bool arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-985) (lambda (arg-986) (Prelude-min_Ord__String arg-985 arg-986)))) arg-983 arg-984)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__Int arg-983 arg-984)))) arg-981 arg-982)))) arg-979 arg-980)))) arg-12)) 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))) (let ((act-28 (UnifyState-Core-resetNextVar arg-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 ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15761-9605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-11) 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 (Context-Core-setNS arg-8 arg-20 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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-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-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (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 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 ))))))))))))))))))))))))
-(define ProcessIdr-Idris-case--15362-9111 (lambda (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 (ProcessIdr-Idris-addPrelude (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))
-(define ProcessIdr-Idris-case--15258-8991 (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))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define ProcessIdr-Idris-case--15223-8976 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15258-8991 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15223-8945-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define ProcessIdr-Idris-case--15227-8950 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1)))))
-(define ProcessIdr-Idris-case--15097-8842 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 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 (vector 1 0)))))))))))
-(define ProcessIdr-Idris-case--15087-8827 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-fileModifiedTime e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define ProcessIdr-Idris-case--15060-8807 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0)))))
-(define ProcessIdr-Idris-case--14869-8746 (lambda (arg-0 arg-1 arg-2 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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9)))))))))))))
-(define ProcessIdr-Idris-case--14849-8610 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 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 ((act-26 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 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 ((act-27 (let ((act-27 (unbox arg-2))) (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-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) 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 (Context-Core-getSession arg-3 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 ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 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 (unbox arg-2))) (vector 1 act-30)))) (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 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (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-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (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 ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0)))))))
-(define ProcessIdr-Idris-case--14743-8511 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash 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 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
-(define ProcessIdr-Idris-case--14497-8313 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 ((act-26 (Context-Core-getNS arg-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-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--14457-8278 (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))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (Context-Core-getNS arg-8 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-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
-(define ProcessIdr-Idris-case--14403-8246 (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 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-8 arg-4 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)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-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-8))) (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 (Context-Core-getNS arg-8 eta-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-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--14302-8160 (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 1 arg-6 (vector 0 )))(else arg-8)))))
-(define ProcessIdr-Idris-case--14274-8111 (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 (ProcessDecls-TTImp-getTotalityErrors 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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--14302-8160 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5)))))))))))
-(define ProcessIdr-Idris-n--15223-8945-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--15227-8950 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0)))))))
-(define ProcessIdr-Idris-readModule (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))) ((ProcessIdr-Idris-case--14403-8246 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Bool arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
-(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-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-1 (vector-ref sc0 2))) e-1)) (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 (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (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 ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (File-System-readFile 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 ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--15258-8991 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15223-8945-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
-(define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-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 (Binary-Core-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 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0))))))))))))
-(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (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)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 (Desugar-Idris-extendAs arg-2 e-8 e-8 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 m 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 (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 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 (Context-Core-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 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 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 (Context-Core-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 (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0)))))))))))
-(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-readHeader arg-0 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession 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 ((imps (ProcessIdr-Idris-case--15362-9111 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-124C-124 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) 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 (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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc4 e-8)) (let ((e-15 (vector-ref sc4 16))) e-15))))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7)))))) 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 ((act-30 (Binary-Core-readImportHashes arg-6 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 ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) e-11)))))) 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 (ProcessIdr-Idris-modTime arg-5 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))) (let ((act-33 (ProcessIdr-Idris-modTime arg-6 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 ((ns (let ((sc10 e-5)) (let ((e-1 (vector-ref sc10 2))) e-1)))) ((ProcessIdr-Idris-case--15362-9305 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 imps e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) e-11)) (lambda () (Prelude-C-60C-61_Ord__Integer e-13 e-14)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0)))
-(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-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 (UnifyState-Core-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 (ProcessDecls-TTImp-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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (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))) (ProcessIdr-Idris-case--14302-8160 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))))))))))))))))))))
-(define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) 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 (err) (lambda (eta-0) (let ((act-24 (Unify-Core-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 err)))))))) ext-0)))
-(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (File-System-readFile 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-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 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-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))) ((ProcessIdr-Idris-case--16332-9966 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 ))))))))))))))
-(define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )))))
-(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (File-System-openFile 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 (File-System-fileModifiedTime 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 (File-System-closeFile 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 (File-System-closeFile 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 ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC))))))
-(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7066) (Hash-Core-hash_Hashable__String arg-7066)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067)))) arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7068) (lambda (arg-7069) (Hash-Core-hashWithSalt_Hashable__String arg-7068 arg-7069)))) arg-7066 arg-7067)))) 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 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Int arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Int arg-7066 arg-7067)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15060-8807 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0))))))
-(define Desugar-Idris-case--12770-11438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11457) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-5 arg-1 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11502) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-5 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-5 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-11535) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-5 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11562) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-5 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11589) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-5 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11616) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-5 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11643) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-5 arg-1 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11670) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-5 arg-1 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11697) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-5 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11724) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-5 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11751) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-5 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11778) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-5 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11805) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-5 arg-1 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11832) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11862) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-5 arg-1 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11890) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-5 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption 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 (vector 1 (vector 0 )))))))))))))
-(define Desugar-Idris-case--12770-11381 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-8 arg-7 arg-5 arg-6 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) arg-0 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 1 (vector 6 arg-3 (vector 1 arg-2) e-3 e-5) (vector 0 ))))))))))))))
-(define Desugar-Idris-case--12770-11266 (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-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 0 (StringMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 e-2 e-3 e-4 e-5))))))))))
-(define Desugar-Idris-case--12770-11213 (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-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 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5))))))))))
-(define Desugar-Idris-case--18169-11094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
-(define Desugar-Idris-case--17724-11030 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-11 (vector-ref sc3 2))) e-11))))))) arg-11))) (else (vector 0 ))))))
-(define Desugar-Idris-case--18015-10969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 4 arg-5 (vector 1 (Name-Core-nameRoot arg-3)) arg-4 (vector 0 arg-5 arg-3 arg-18 arg-22 arg-20)) (vector 0 )))))
-(define Desugar-Idris-case--17926-10916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((conname (Prelude-maybe 'erased 'erased (lambda () (Desugar-Idris-n--12770-10522-mkConName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-3)) (lambda () (lambda (eta-0) eta-0)) arg-1))) (lambda (eta-0) (Desugar-Idris-case--18015-10969 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 conname conname eta-0)))))
-(define Desugar-Idris-case--17777-10843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Desugar-Idris-desugarField arg-10 arg-9 arg-8 arg-7 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--12770-10521-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) 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))) ((Desugar-Idris-case--17926-10916 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5) ext-0))))))))
-(define Desugar-Idris-case--17777-10778 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))))
-(define Desugar-Idris-case--17724-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))) arg-11))) (lambda (eta-0) (Desugar-Idris-case--17777-10843 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 paramsb paramsb eta-0)))))
-(define Desugar-Idris-case--17678-10692 (lambda (arg-0 arg-1 arg-2 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 (Context-Core-isUnboundImplicits 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 ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-11 (vector-ref sc4 2))) e-11))))))) arg-11))) (else (vector 0 )))))) ((Desugar-Idris-case--17724-10732 arg-0 arg-1 arg-2 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 bnames bnames) ext-0)))))))))
-(define Desugar-Idris-case--12770-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) (let ((fnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--12770-10521-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) arg-0))) (lambda (eta-0) (Desugar-Idris-case--17678-10692 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 fnames fnames eta-0)))))
-(define Desugar-Idris-case--12770-10592 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-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))) (let ((act-25 ((Desugar-Idris-n--12770-10523-mapDesugarPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
-(define Desugar-Idris-case--16850-10387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 ))))))
-(define Desugar-Idris-case--17040-10266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (b) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-15 arg-14 arg-13 arg-12 arg-11 eta-1)) b) 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 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) 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 1 (vector 8 (lambda (vars-10344) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-10344 arg-14 arg-13 arg-15 arg-12 arg-10 arg-9 arg-16 arg-7 env nest arg-26 arg-28 arg-4 arg-25 arg-2 arg-1 e-5))))) (vector 0 ))))))))))
-(define Desugar-Idris-case--17040-10197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))))
-(define Desugar-Idris-case--16850-10131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))) arg-19))) (lambda (eta-0) (Desugar-Idris-case--17040-10266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 consb consb eta-0)))))
-(define Desugar-Idris-case--16850-10058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind arg-24 e-7)))))))))))
-(define Desugar-Idris-case--16775-9990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 (Context-Core-isUnboundImplicits arg-14 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 )))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind bnames eta-0)) arg-21))) (let ((isb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind bnames e-7)))))))))) arg-17))) ((Desugar-Idris-case--16850-10131 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 bnames paramsb isb isb) ext-0)))))))))))
-(define Desugar-Idris-case--16628-9933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 eta-0 eta-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))) (Desugar-Idris-case--16775-9990 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5 ext-0))))))))
-(define Desugar-Idris-case--16628-9874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))))
-(define Desugar-Idris-case--12770-9824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))) 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))) (Desugar-Idris-case--16628-9933 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5 ext-0))))))))
-(define Desugar-Idris-case--12770-9761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
-(define Desugar-Idris-case--12770-9379 (lambda (arg-0 arg-1 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-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))) (vector 0 e-0 e-1 e-2 e-3 arg-9 e-5)))))))))
-(define Desugar-Idris-case--12770-9347 (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)) (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))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-5)))))))))
-(define Desugar-Idris-case--12749-8623 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-6) arg-2 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 1 arg-4 e-3 e-5 arg-1 arg-11)))))))))))))
-(define Desugar-Idris-case--15159-8525 (lambda (arg-0 arg-1 arg-2 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) ((0) arg-14)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
-(define Desugar-Idris-case--12749-8483 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-9 arg-8 arg-6 arg-7 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-5) arg-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))) (vector 1 (vector 0 arg-3 e-3 (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) e-5)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))))))))))))))
-(define Desugar-Idris-case--12733-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-12 arg-13 arg-11 arg-9 arg-10 arg-8 arg-7 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-12 arg-11 arg-10 arg-9 arg-7 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-7))) (let ((act-26 ((Desugar-Idris-expandDo arg-12 arg-11 arg-10 arg-9 arg-8 psC-39 arg-6 arg-5) 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-13))) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)) (vector 4 arg-4 e-5 arg-15 (vector 1 (vector 0 arg-4 e-3 e-7) e-6)))))))))))))))))))))))))))))))
-(define Desugar-Idris-case--12733-8009 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-11 arg-10 arg-8 arg-9 arg-7 arg-6 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-11 arg-10 arg-9 arg-8 arg-6 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-6))) (let ((act-26 ((Desugar-Idris-expandDo arg-11 arg-10 arg-9 arg-8 arg-7 psC-39 arg-5 arg-4) 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 8 arg-3 (vector 8 arg-3 (vector 0 arg-3 (vector 1 ">>=")) e-5) (vector 2 arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 4 arg-3 (vector 0 arg-3 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 1 (vector 0 arg-3 e-3 e-7) e-6)))))))))))))))))))))))))))
-(define Desugar-Idris-case--12733-7896 (lambda (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) ((4) (vector 0 arg-1 (vector 1 "Unit")))(else (vector 31 arg-1 1))))))
-(define Desugar-Idris-case--12715-7691 (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)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFrom")) arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFromThen")) arg-1) e-2))))))))
-(define Desugar-Idris-case--12715-7633 (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-1)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromTo")) arg-2) arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromThenTo")) arg-2) e-2) arg-0))))))))
-(define Desugar-Idris-case--12715-7323 (lambda (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 arg-11 (vector 0 arg-1 arg-9)) e-1)))))))
-(define Desugar-Idris-case--12715-7222 (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-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 0 e-0 e-1 e-2 (vector 1 (vector 1 arg-0) e-3) e-4 e-5))))))))))
-(define Desugar-Idris-case--12715-7083 (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) (vector 1 (vector 27 arg-1 (vector 7 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 7 arg-0)))))))))))
-(define Desugar-Idris-case--12715-7029 (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) (vector 1 (vector 27 arg-1 (vector 6 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 6 arg-0)))))))))))
-(define Desugar-Idris-case--12715-6965 (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) (vector 1 (vector 12 arg-1 (vector 2 (vector 27 arg-1 (vector 1 arg-0))) (vector 1 (vector 27 arg-1 (vector 1 arg-0)) (vector 1 (vector 27 arg-1 (vector 0 arg-0)) (vector 0 ))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 1 arg-0)))))))))))
-(define Desugar-Idris-case--12715-6872 (lambda (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) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 arg-2 (vector 2 "arg" 0)) (vector 24 arg-2) (vector 26 arg-2 arg-1 (vector 0 arg-2 (vector 2 "arg" 0)) arg-0)))) (else (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 27 arg-2 arg-1 arg-0)))))))
-(define Desugar-Idris-case--12361-6114 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-5 "' is not a prefix operator"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-3 arg-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))) (vector 1 (vector 1 (vector 0 arg-2 arg-1 (vector 3 e-2)) e-5))))))))))))))
-(define Desugar-Idris-case--12384-5975 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Unknown operator '" (Strings-Prelude-C-43C-43 arg-6 "'"))) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 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))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-n--12361-5934-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))))))))))))))
-(define Desugar-Idris-case--12361-5950 (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) (Desugar-Idris-case--12384-5975 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-6 "' is a prefix operator"))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 arg-0) 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-mkPrec e-5 e-6)) e-7)))))))))))))))))))))
-(define Desugar-Idris-case--12308-5910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 1))) e-11)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-10 (vector-ref sc1 2))) e-10)) e-1) (ANameMap-Data-mergeAs 'erased arg-2 arg-1 (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 3))) e-9)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-8 (vector-ref sc1 4))) e-8)) e-3) e-4 e-5))))))))))
-(define Desugar-Idris-n--12715-7588-toPure (lambda (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 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "pure")) arg-10))))
-(define Desugar-Idris-n--12770-9022-toIDef (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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-0 e-5 (vector 1 (vector 0 e-0 e-1 e-2) (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 2 e-3 e-8 (vector 1 (vector 1 e-3 e-4 e-5 e-6 e-7) (vector 0 )))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-8 e-5 (vector 1 (vector 2 e-8 e-9) (vector 0 )))))))))))))))))
-(define Desugar-Idris-n--12770-9421-pairToCons (lambda (arg-0 arg-1 arg-2 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) ((36) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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) (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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)))))(else (vector 1 arg-14 (vector 0 )))))))
-(define Desugar-Idris-n--12764-8828-mkRecType (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 21 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-5 e-10 e-14 (vector 1 e-6) e-15 (Desugar-Idris-n--12764-8828-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))))))
-(define Desugar-Idris-n--12770-10522-mkConName (lambda (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) (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))) (vector 0 e-0 (vector 4 e-2 (vector 2 (Strings-Prelude-C-43C-43 "__mk" e-2) 0)))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0))))))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0)))))))
-(define Desugar-Idris-n--12770-10523-mapDesugarPiInfo (lambda (arg-0 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) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-11 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Desugar-Idris-n--12715-7587-guard (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 7 e-0 (vector 0 e-0 (vector 1 "guard")) e-1)))))(else arg-10)))))
-(define Desugar-Idris-n--12770-9021-getFn (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 2))) (lambda (eta-0) (vector 1 e-1)))) ((8) (let ((e-3 (vector-ref sc0 2))) (Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-7) " is not a function application")) eta-0)))))))
-(define Desugar-Idris-n--12770-10521-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) (let ((sc0 arg-11)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Desugar-Idris-n--12770-9422-expandConstraint (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-5) e-3) (vector 0 )))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (vector 0 ) x)) (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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 Desugar-Idris-n--12361-5934-backtickPrec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 2 (+ 1 0))))
-(define Desugar-Idris-toTokList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((26) (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))) (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 ((op (Name-Core-nameRoot e-1))) ((Desugar-Idris-case--12361-5950 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 1))) e-10)))) eta-0))))))))))))) ((27) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (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-7 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-5))) ((Desugar-Idris-case--12361-6114 e-6 e-5 e-4 arg-0 e-7 op (StringMap-Data-lookup 'erased op (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-1) (vector 0 )))))))))
-(define Desugar-Idris-pairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "Pair"))))
-(define BangData-Desugar-Idris-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Desugar-Idris-mkpairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "MkPair"))))
-(define Desugar-Idris-mkdpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "MkDPair"))))
-(define Desugar-Idris-mkPrec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 arg-1)) ((1) (vector 1 arg-1)) ((2) (vector 2 arg-1)) (else (vector 3 arg-1))))))
-(define Desugar-Idris-initBangs (lambda () (vector 0 0 (vector 0 ))))
-(define Desugar-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
-(define Desugar-Idris-idiomise (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (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 arg-0 (vector 8 arg-0 (vector 0 arg-0 (vector 1 "<*>")) (Desugar-Idris-idiomise e-0 e-1)) e-2)))))(else (vector 8 arg-0 (vector 0 arg-0 (vector 1 "pure")) arg-1))))))
-(define Desugar-Idris-getDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (let ((e-76 (vector-ref sc0 5))) (let ((e-77 (vector-ref sc0 6))) (let ((e-78 (vector-ref sc0 7))) (let ((e-79 (vector-ref sc0 8))) (let ((e-80 (vector-ref sc0 9))) (let ((e-81 (vector-ref sc0 10))) (let ((e-82 (vector-ref sc0 11))) (vector 1 (vector 7 e-72 e-73 e-74 arg-0 e-76 e-77 e-78 e-79 e-80 e-81 e-82))))))))))))) ((11) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (let ((e-85 (vector-ref sc0 3))) (vector 1 (vector 11 e-83 e-84 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-85)))))))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 arg-1)) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (vector 1 (vector 2 e-11 e-12 (vector 1 e-35 e-36 e-37)))))))(else (vector 0 )))))))) ((6) (vector 1 arg-1)) ((8) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-27 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (vector 1 (vector 2 e-23 e-24 (vector 1 e-23 e-25 (Desugar-Idris-n--12764-8828-mkRecType e-27 e-28 e-26 e-25 e-24 e-23 arg-1 e-26))))))))))) ((10) (vector 1 arg-1)) ((14) (vector 1 arg-1))(else (vector 0 ))))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((2) (let ((e-47 (vector-ref sc1 3))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (vector 1 arg-1))(else (vector 1 arg-1)))))) ((6) (vector 0 )) ((8) (vector 1 arg-1)) ((10) (vector 0 )) ((14) (vector 0 ))(else (vector 1 arg-1)))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 3 e-0 e-1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-2))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 4 e-3 e-4 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-5)))))))(else (let ((sc0 arg-0)) (vector 1 arg-1)))))))))))))
-(define Desugar-Idris-extendAs (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-6 (vector-ref sc1 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-12 (vector-ref sc2 1))) e-12)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-11 (vector-ref sc2 2))) e-11)) e-1) (ANameMap-Data-mergeAs 'erased arg-1 arg-2 (let ((sc2 arg-3)) (let ((e-10 (vector-ref sc2 3))) e-10)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc2 arg-3)) (let ((e-9 (vector-ref sc2 4))) e-9)) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))))
-(define Desugar-Idris-expandList (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 arg-7 (vector 1 "Nil"))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-2) 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 ((act-25 ((Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-7 (vector 1 "::")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))))))))
-(define Desugar-Idris-expandDo (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Do block cannot be empty") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-29 eta-0)))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((ty (let ((sc5 e-6)) (case (vector-ref sc5 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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)) (let ((e-7 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) eta-0))) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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))) (vector 1 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((e-17 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 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-7 (vector-ref sc5 1))) (let ((act-27 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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-8 (vector-ref sc6 1))) (let ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox e-5))) (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 ((e-9 (vector-ref sc7 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc8 e-9)) (let ((e-1 (vector-ref sc8 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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-6 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 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-7 (vector-ref sc5 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (let ((e-9 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc8 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc9 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc10 act-30)) (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-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc11 act-31)) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc12 e-13)) (let ((e-1 (vector-ref sc12 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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))) (vector 1 (vector 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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))) (vector 1 (vector 13 e-25 e-6 e-5))))))))))))))))))))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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 ((ty (let ((sc4 e-6)) (case (vector-ref sc4 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-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 (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) 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))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((e-17 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-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 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox 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 ((e-9 (vector-ref sc6 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-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 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (let ((e-9 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc7 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc8 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc10 act-31)) (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 (Desugar-Idris-bindBangs (let ((sc11 e-13)) (let ((e-1 (vector-ref sc11 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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 13 e-25 e-6 e-5)))))))))))))))))))))))))))))))
-(define Desugar-Idris-dpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "DPair"))))
-(define Desugar-Idris-desugarUpdate (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) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 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 (vector 1 e-2 e-5)))))))))))))))
-(define Desugar-Idris-desugarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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))) (vector 1 (vector 0 e-0 e-1 e-7))))))))))))))))))))))))
-(define Desugar-Idris-desugarTree (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))) (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)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((sc2 e-14)) (cond ((equal? sc2 "=") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-2 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "===")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "~=~")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 0 ))))))))))))))))) ((equal? sc2 "$") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-2 e-6 e-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-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))) (vector 1 (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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 ((Desugar-Idris-desugarTree 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 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) 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))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (cond ((equal? sc2 "-") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-5 (vector-ref sc3 1))) (vector 1 (vector 8 e-8 (vector 0 e-8 (vector 1 "negate")) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5))))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-13)))))))
-(define Desugar-Idris-desugarFnOpt (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) (vector 1 e-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))))))))
-(define Desugar-Idris-desugarField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-2))) e-2) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc4 e-5)) (let ((e-9 (vector-ref sc4 5))) e-9)) arg-4 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 (vector 0 e-0 e-1 e-6 e-3 e-8)))))))))))))))))))))))))))))))
-(define Desugar-Idris-desugarDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (vector 0 e-0 e-1 e-2 e-5 e-6) (vector 0 )))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 1 eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--12770-9022-toIDef e-6 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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-8 (vector-ref sc2 1))) (vector 1 (Parser-TTImp-collectDefs 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 ((Desugar-Idris-desugarData 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))) (vector 1 (vector 1 (vector 1 e-7 e-8 e-5) (vector 0 ))))))))))))) ((3) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-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-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((pnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind pnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (vector 1 (vector 1 (vector 3 e-10 paramsb ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (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 ((oldu (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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 (BindImplicits-TTImp-bindTypeNames arg-1 oldu arg-4 e-6 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 (vector 0 (Builtin-fst 'erased 'erased ntm) e-7)))))))))))))) 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))) (let ((act-26 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased e-6 oldu) 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 (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-15) 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-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 ((act-29 (let ((act-29 (set-box! arg-0 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (vector 0 e-0 e-1 e-2 e-3 oldu e-10)))))))))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))))))))))))))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-16 "Reflection not implemented yet") eta-0)))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (let ((cons ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--12770-9422-expandConstraint e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) e-20))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23)) (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-5))))))))) cons) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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))) (let ((mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS eta-1)) (Syntax-Idris-definedIn e-26)))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((bnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (let ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-5))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) eta-1)) e-26) 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 1 (vector 8 (lambda (vars-9647) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-9647 arg-1 arg-2 arg-0 arg-3 e-18 e-19 env nest consb e-21 paramsb e-24 e-25 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8) eta-1)))))) (vector 0 ))))))))))))))))))))))))))))))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-8)))))))))))))))) 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))) (Desugar-Idris-case--12770-9824 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-6 eta-0)))))))))))))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-11 eta-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))) (let ((act-25 ((Desugar-Idris-n--12770-10523-mapDesugarPiInfo e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-10) eta-1))) (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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-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))) ((Desugar-Idris-case--12770-10656 e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-5) eta-0)))))))))))))) ((10) (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 ((sc1 e-45)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 e-0 (StringMap-Data-insert 'erased e-62 e-46 e-1) e-2 e-3 e-4 e-6))))))))))) (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 (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0)))))))))(else (let ((sc1 e-47)) (case (vector-ref sc1 0) ((1) (let ((e-61 (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 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0))))))))))))) ((9) (let ((e-49 (vector-ref sc0 2))) (let ((mds (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 1 ) eta-0)) e-49) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 2 ) eta-0)) e-49)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) mds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (vector 1 (vector 1 (vector 5 e-50 e-51 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))) ((12) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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))) (BindImplicits-TTImp-bindNames arg-1 1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-56 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 1 (vector 6 e-53 (vector 1 e-54) e-3 e-6) (vector 0 )))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) 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))) (vector 1 (vector 1 (vector 7 e-57 e-5) (vector 0 )))))))))))) (else (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((sc1 e-60)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11457) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-1 e-59 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11502) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-1 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-1 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-11535) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-1 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11562) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-1 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11589) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-1 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11616) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-1 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11643) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-1 e-59 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11670) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-1 e-59 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11697) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-1 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11724) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-1 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11751) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-1 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11778) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-1 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11805) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-1 e-59 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11832) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11862) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-1 e-59 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11890) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-1 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption arg-1 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 (vector 1 (vector 0 ))))))))))))))))))
-(define Desugar-Idris-desugarData (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))) (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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 5))) e-8)) arg-4 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 (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-4) 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 (vector 0 e-0 e-1 e-7 e-3 e-8))))))))))))))))))))))))))))) (else (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 (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-8 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-10))))))))))))))))))))))))))
-(define Desugar-Idris-desugarClause (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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-1 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))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-6 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-7 arg-4) e-2 eta-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 0 e-0 e-4 (let ((sc5 e-5)) (case (vector-ref sc5 0) ((0) e-8)(else (vector 5 e-0 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-8)))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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-10 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 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-10 (vector-ref sc2 1))) (let ((sc3 e-10)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-6 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 (vector 1 e-4 e-3 e-11 e-7 e-9))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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 (BindImplicits-TTImp-bindNames arg-1 arg-5 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 (vector 2 e-9 (Builtin-snd 'erased 'erased e-6)))))))))))))))))))))
-(define Desugar-Idris-desugarB (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) (vector 1 (vector 0 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))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((psC-39 (Prelude-maybe 'erased 'erased (lambda () arg-6) (lambda () (lambda (arg-8) (vector 1 arg-8 arg-6))) e-5))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 eta-1 eta-2))) e-4) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 psC-39 e-7) 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 ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-3 e-8 e-5 e-9 e-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) ((0) (let ((e-134 (vector-ref sc1 2))) (let ((sc2 e-134)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (vector 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 0 )))))))))))))))))))))))))) ((24) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 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 2 e-8 e-9 e-5 (vector 0 ) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 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))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-140 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-140 arg-6) e-19 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))) (vector 1 (vector 3 e-14 e-15 e-140 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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 4 e-14 e-5 e-6 e-7)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Desugar-Idris-desugarB 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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-14 e-5 e-6 e-7))))))))))))))))))))))))))))) ((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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) 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 (vector 31 e-21 1) e-6))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((psC-39 (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-25) arg-6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 psC-39 eta-1)) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 e-26 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-24 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-6)))))))))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((6) (let ((e-143 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarUpdate arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 eta-1)) e-143) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) 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 7 e-27 e-5 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-27 e-5 e-6)))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-30 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-30 (vector 2 "rec" 0)) (vector 24 e-30) (vector 7 e-30 (vector 6 e-30 e-31) (vector 0 e-30 (vector 2 "rec" 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 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 10 e-32 e-5 e-6))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 9 e-35 e-5 e-37 e-6)))))))))))))))))) ((10) (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 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 19 e-39 e-40 e-5)))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 20 e-42 e-5))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 21 e-44 e-5))))))))))) ((30) (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 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-46 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "===")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "~=~")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 0 )))))))))))))))))))) ((31) (let ((e-50 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-50))) ((26) (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 ((Desugar-Idris-toTokList arg-0 (vector 26 e-51 e-52 e-53 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))) (let ((act-25 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0))))))))))))))))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-0 (vector 27 e-55 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 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0)))))))))))))))) ((28) (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 (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))) ((Desugar-Idris-case--12715-6872 e-60 e-59 e-58 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-59) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))) ((29) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-61 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-61 (vector 2 "arg" 0)) (vector 24 e-61) (vector 26 e-61 e-63 e-62 (vector 0 e-61 (vector 2 "arg" 0))))))))) ((13) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 11 e-64 e-65)))))) ((14) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((sc1 e-67)) (case (vector-ref sc1 0) ((1) (let ((e-144 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromIntegerName arg-2 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) ((0) (vector 1 (vector 12 e-66 (vector 2 (vector 27 e-66 (vector 1 e-144))) (vector 1 (vector 27 e-66 (vector 1 e-144)) (vector 1 (vector 27 e-66 (vector 0 e-144)) (vector 0 )))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 1 e-144)))))))))))))))) ((6) (let ((e-145 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromStringName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 6 e-145)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 6 e-145)))))))))))))))) ((7) (let ((e-146 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromCharName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 7 e-146)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 7 e-146))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 27 e-66 e-67))))))))) ((15) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 22 e-68 e-5))))))))))) ((16) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 23 e-70 e-71)))))) ((17) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 arg-6 eta-1)) 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 24 e-72 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))) ((18) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 25 e-74 e-5))))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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 26 e-76 e-5))))))))))) ((20) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-79)) (cond ((equal? sc1 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 (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-6 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 e-80) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))) (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 (vector 1 (vector 29 e-78 e-80))))))))))) ((21) (let ((e-81 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 28 e-81))))) ((22) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 17 e-82 (vector 1 ) e-83 e-5)))))))))))) ((23) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 18 e-85 (vector 4 ) e-5))))))))))) ((24) (let ((e-87 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-87 0))))) ((25) (let ((e-88 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-88 1))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (Desugar-Idris-expandDo arg-0 arg-2 arg-4 arg-3 arg-5 arg-6 e-89 e-90)))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (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 ((bn (vector 2 "bind" (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 bn (vector 0 e-91 e-5)) e-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 (vector 1 (vector 0 e-91 bn))))))))))))))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Desugar-Idris-idiomise e-93 e-5))))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-95 e-96)))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-6 (vector-ref sc2 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-mkpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))) (vector 1 (vector 12 e-97 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-pairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 pval (vector 0 ))))))))))))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-101)) (case (vector-ref sc1 0) ((0) (let ((e-148 (vector-ref sc1 1))) (let ((e-149 (vector-ref sc1 2))) (let ((sc2 e-149)) (case (vector-ref sc2 0) ((1) (let ((e-150 (vector-ref sc2 1))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 ((pval (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 (vector 0 e-148 (vector 1 e-150)) (vector 1 e-5 (vector 0 )))))) (vector 1 (vector 12 e-100 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 (vector 31 e-148 1) (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) (vector 31 e-148 1) e-5) (vector 0 )))) (vector 1 pval (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-102) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 e-5 (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) e-5 e-6) (vector 0 )))))))))))))))))))))(else (let ((sc2 e-102)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0)))))))))))(else (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0))))))))))))) ((38) (let ((e-104 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 12 e-104 (vector 2 (vector 0 e-104 (vector 1 "MkUnit"))) (vector 1 (vector 0 e-104 (vector 1 "Unit")) (vector 1 (vector 0 e-104 (vector 1 "MkUnit")) (vector 0 )))))))) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-106) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-108 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-105 e-5 (vector 0 e-105 (vector 1 "Bool")) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "True")) e-6) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "False")) e-7) (vector 0 )))))))))))))))))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 32 e-109 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--12715-7587-guard e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-111) (vector 1 (Desugar-Idris-n--12715-7588-toPure e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-110) (vector 0 ))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 13 e-112 e-5 e-6))))))))))))))))) ((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))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromTo")) e-116) e-118))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromThenTo")) e-116) e-2) e-118))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFrom")) e-120))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFromThen")) e-120) e-2)))))))))) ((46) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 30 e-122 e-123 e-5)))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-125 (vector 0 e-125 f) r))) e-126 e-127)))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-128 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-128 (vector 2 "rec" 0)) (vector 24 e-128) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-128 (vector 0 e-128 f) r))) (vector 0 e-128 (vector 2 "rec" 0)) e-129)))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-130 e-131 e-5))))))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-132) eta-0))))))))))
-(define Desugar-Idris-desugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 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 ((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 (Desugar-Idris-bindBangs (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-6)))))))))))))))))))
-(define Desugar-Idris-bindBangs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Desugar-Idris-bindBangs e-3 (vector 8 e-10 (vector 8 e-10 (vector 0 e-10 (vector 1 ">>=")) e-11) (vector 2 e-10 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) (vector 31 e-10 1) arg-1))))))))))))))))
-(define BangData-Desugar-Idris-bangNames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Shunting-Utils-case--2352-1232 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-1)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))
-(define Shunting-Utils-case--2215-985 (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) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-9 (vector 0 arg-3 arg-4 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 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-9 arg-6 arg-7 arg-8) eta-0))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-4 arg-5)) arg-6))))))))
-(define Shunting-Utils-case--2022-866 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-3))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-5) arg-4))))))))
-(define Shunting-Utils-case--2022-797 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-2))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat arg-3 (Shunting-Utils-getPrec arg-5)))))))))
-(define Shunting-Utils-n--2352-1138-sprec (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) e-7))))))
-(define Shunting-Utils-n--2352-1137-sop (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
-(define Shunting-Utils-n--2352-1136-sloc (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) e-2))))))
-(define Shunting-Utils-shunt (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 arg-4 e-2) eta-0)))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 arg-4 e-10 e-11) 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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11)) e-5) e-2) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (s) (lambda (eta-1) (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 (Shunting-Utils-n--2352-1136-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2352-1137-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2352-1138-sprec 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s)) eta-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 (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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 e-1))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))))))
-(define Shunting-Utils-processStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-higher 'erased arg-2 e-6 e-10 e-11 arg-5 arg-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 (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (let ((act-25 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 e-6 e-10 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 e-3 arg-5 arg-6) eta-0)))))) (else (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) e-3))))))))))))))))))))))))
-(define Shunting-Utils-parseOps (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Shunting.Out" ) (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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 e-5 (vector 0 ) arg-3) ext-0))))))))
-(define Shunting-Utils-output (lambda (arg-0 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-22 e-23 e-5) e-6))))(else (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))(else (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))
-(define Shunting-Utils-isLAssoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0)(else 1)))))
-(define Shunting-Utils-higher (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) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (Shunting-Utils-case--2022-797 'erased arg-1 arg-3 e-1 arg-5 arg-6 arg-2 (Prelude-C-61C-61_Eq__Nat e-1 (Shunting-Utils-getPrec arg-6)))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Shunting-Utils-case--2022-866 'erased arg-1 arg-3 arg-5 e-0 arg-4 arg-2 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) e-0))))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Shunting-Utils-isLAssoc arg-4))))))))))))))))))
-(define Shunting-Utils-getPrec (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
-(define Shunting-Utils-emit (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))) (let ((act-25 ((Shunting-Utils-output 'erased 'erased e-5 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 (set-box! arg-2 e-6))) (vector 1 act-26))))))))))))))
-(define Interface-Elab-Idris-case--12862-2526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 0 e-14 (vector 0 e-6 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))))
-(define Interface-Elab-Idris-case--12886-2247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 0 e-5 e-14)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-15 (Strings-Prelude-C-43C-43 "No method named " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-17) (Strings-Prelude-C-43C-43 " in interface " (Name-Core-show_Show__Name arg-4))))) eta-0)))))))
-(define Interface-Elab-Idris-case--12886-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 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ity (TTImp-TTImp-apply (vector 0 arg-15 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-15 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-3))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-24 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (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 n (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 0 arg-15 e-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19)) 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 ((dty (Utils-TTImp-substNames arg-6 e-5 e-3))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19) arg-6) (Interface-Elab-Idris-bindIFace arg-15 ity dty) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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 ((dtydecl (vector 0 arg-15 e-2 arg-9 (vector 0 ) (vector 0 arg-15 arg-21 e-6)))) (let ((act-27 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21 eta-1)) arg-18))) (let ((act-28 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) 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 ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 arg-15 arg-21 csC-39)) eta-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 (vector 0 arg-17 arg-18))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-case--13202-1912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-21 arg-22)) (else (vector 0 arg-21 arg-20))))))
-(define Interface-Elab-Idris-case--12738-1525 (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)) (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 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-5 arg-10 e-2) e-3 e-4 e-5))))))))))
-(define Interface-Elab-Idris-case--12192-1076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 )))))))
-(define Interface-Elab-Idris-case--12002-780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)) (else (vector 1 arg-18 arg-17 arg-16 arg-15 arg-14 (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)))))))
-(define Interface-Elab-Idris-case--11642-627 (lambda (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) (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 0 )))) (else (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 1 (vector 0 arg-1) (vector 0 )))))))))
-(define Interface-Elab-Idris-n--12738-1449-totMeth (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((treq (Interface-Elab-Idris-n--12738-1448-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 treq e-11)))))))))))))))))
-(define Interface-Elab-Idris-n--11962-767-stripParams (lambda (arg-0 arg-1 arg-2 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-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))) (Interface-Elab-Idris-case--12002-780 'erased 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-4 e-3 e-2 e-1 e-0 arg-13 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-13))) e-3)))))))))(else arg-14)))))
-(define Interface-Elab-Idris-n--12884-1596-notData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 0 1 e-3)))))))
-(define Interface-Elab-Idris-n--12862-1561-nameCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 "__con" (Prelude-show_Show__Int arg-15))) e-7) (Interface-Elab-Idris-n--12862-1561-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-3)))))))))))
-(define Interface-Elab-Idris-n--11642-448-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-9 e-10 arg-11 e-6 e-11 (Interface-Elab-Idris-n--11642-448-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 e-3 arg-13)))))))))))))))
-(define Interface-Elab-Idris-n--12192-965-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 2 arg-1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-2) (vector 31 arg-1 1) (Interface-Elab-Idris-n--12192-965-mkLam arg-0 arg-1 arg-2 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-3 arg-16)))))))))
-(define Interface-Elab-Idris-n--12192-967-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 1 (Interface-Elab-Idris-n--12192-966-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15))))
-(define Interface-Elab-Idris-n--11642-445-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) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
-(define Interface-Elab-Idris-n--12192-964-getExplicitArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 3))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 2 "arg" arg-15) (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-5)))(else (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-0 arg-1 arg-2 arg-3 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)))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-n--12738-1448-findSetTotal (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--12738-1448-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))))
-(define Interface-Elab-Idris-n--12862-1563-elabMethods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethToplevel arg-6 arg-14 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) arg-16 arg-3 eta-0)) 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 ((fns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Top level methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) fns))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-0)) fns) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-0) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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 (Context-Core-setFlag arg-14 arg-10 e-8 (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 ((act-29 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Context-Core-setFlag arg-14 arg-10 e-8 (vector 2 ) eta-0)))))))))))))))) arg-16) ext-0)))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1564-elabDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((dn_in (vector 1 (Strings-Prelude-C-43C-43 "Default implementation of " (Name-Core-show_Show__Name e-10))))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-14 dn_in) 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))) (let ((act-25 ((Interface-Elab-Idris-case--12886-2247 arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 dn_in e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-10 arg-15)) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-26 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc6 act-26)) (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 0 n (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 (vector 0 e-2 e-12) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15)) eta-0))) (let ((sc6 act-26)) (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))) (let ((dty (Utils-TTImp-substNames arg-6 e-12 e-4))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15) arg-6) (Interface-Elab-Idris-bindIFace e-2 ity dty) eta-0))) (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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-13))))) 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 ((dtydecl (vector 0 e-2 e-9 arg-9 (vector 0 ) (vector 0 e-2 e-5 e-13)))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 e-5 eta-1)) e-11))) (let ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 e-2 e-5 csC-39)) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (vector 1 (vector 0 e-10 e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1565-elabConstraintHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((nconstraints (Interface-Elab-Idris-n--12862-1561-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 0 arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-getConstraintHint arg-6 arg-14 arg-10 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) nconstraints) arg-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3) eta-1)) nconstraints) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraint hints from " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-1 x-1)))) d-0 x-0))))) d 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 (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-1)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Builtin-snd 'erased 'erased eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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))) (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-5)) eta-0))))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1562-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 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) 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 ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Method declarations: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (vector 0 arg-10 (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12884-1596-notData arg-0 arg-1 arg-2 arg-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 'erased 'erased eta-0)) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Interface-Elab-Idris-mkIfaceData arg-6 arg-14 arg-10 arg-9 arg-8 e-7 arg-4 arg-15 arg-3 arg-2 e-5) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-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 ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making interface data type " (TTImp-TTImp-show_Show__ImpDecl e-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 ((act-31 (ProcessDecls-TTImp-processDecls arg-6 arg-14 arg-11 arg-13 arg-7 arg-8 (vector 1 e-9 (vector 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 (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-n--12500-1229-constName (lambda (arg-0 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 (Interface-Elab-Idris-n--12500-1228-bindName arg-0 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 Interface-Elab-Idris-n--12886-1887-changeNameTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Interface-Elab-Idris-case--13202-1912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 e-0 arg-20 (Name-Core-C-61C-61_Eq__Name arg-17 e-1))))) ((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 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) e-7 e-8))))))(else arg-21)))))
-(define Interface-Elab-Idris-n--12886-1888-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1) 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))) (vector 1 e-3 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4) e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 eta-0)) e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)))))))))
-(define Interface-Elab-Idris-n--11642-446-bname (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 1 e-2) (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
-(define Interface-Elab-Idris-n--12192-962-bindPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-getFC e-7) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--12192-962-bindPs arg-0 arg-1 arg-2 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-3 arg-16))))))))))))
-(define Interface-Elab-Idris-n--12500-1228-bindName (lambda (arg-0 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12500-1228-bindName 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)))(else (Name-Core-show_Show__Name arg-12))))))
-(define Interface-Elab-Idris-n--12192-966-bindName (lambda (arg-0 arg-1 arg-2 arg-3 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12192-966-bindName arg-0 arg-1 arg-2 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-2)))(else (Name-Core-show_Show__Name arg-15))))))
-(define Interface-Elab-Idris-n--11642-447-bhere (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
-(define Interface-Elab-Idris-n--12886-1886-applyParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) arg-20) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 9 arg-15 arg-20 (vector 1 (vector 1 e-4)) (vector 16 arg-15 e-4)) e-3)))(else (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)))))))))))
-(define Interface-Elab-Idris-n--12192-963-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 0 arg-15 (vector 9 arg-1 (vector 0 arg-1 arg-15) (vector 1 (vector 1 "__con")) (vector 0 arg-1 (vector 1 "__con"))))))
-(define Interface-Elab-Idris-updateIfaceSyn (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12738-1449-totMeth arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((info (vector 0 arg-3 arg-4 arg-5 e-6 arg-7))) (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 (ANameMap-Data-addName 'erased arg-2 info e-2) e-3 e-4 e-7))))))))))) (vector 1 act-26)))))))))))))))
-(define Interface-Elab-Idris-namePis (lambda (arg-0 arg-1) (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 ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 2 ) (vector 1 (vector 2 "i_con" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 0 ) (vector 1 (vector 2 "i_imp" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5))))))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))))))))) ((15) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 15 e-6 e-7 (Interface-Elab-Idris-namePis arg-0 e-8))))))(else arg-1)))))
-(define Interface-Elab-Idris-mkIfaceData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((opts (Interface-Elab-Idris-case--11642-627 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (List-Data-isNil 'erased arg-9)))) (let ((retty (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((conty (Interface-Elab-Idris-n--11642-448-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-445-jname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-8) (Interface-Elab-Idris-n--11642-448-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 1 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-447-bhere arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-446-bname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-10)) retty)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) 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 ((con (vector 0 arg-2 arg-7 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) (Interface-Elab-Idris-mkDataTy arg-2 arg-8) 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 arg-2 arg-3 (vector 0 arg-2 arg-6 e-6 opts (vector 1 con (vector 0 ))))))))))))))))))))))
-(define Interface-Elab-Idris-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-mkDataTy arg-0 e-3))))))))))))
-(define Interface-Elab-Idris-mkCon (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-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-0 (vector 4 (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" e-2))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1))))))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1)))))))))
-(define Interface-Elab-Idris-getSig (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 1 (vector 0 e-8 (vector 0 e-1 (vector 0 e-3 (vector 0 e-9 (vector 0 1 (Interface-Elab-Idris-namePis 0 e-10)))))))))))(else (vector 0 )))))))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (vector 1 (vector 0 e-11 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 6 ) (vector 0 )) (vector 0 e-12 (vector 0 0 (Interface-Elab-Idris-namePis 0 e-13)))))))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-getMethToplevel (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 e-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((ty_constr (Interface-Elab-Idris-n--12192-962-bindPs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-8 (Utils-TTImp-substNames arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12192-963-applyCon arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-0)) arg-7) e-19)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (Interface-Elab-Idris-bindIFace e-2 ity ty_constr) 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 ((act-25 ((Context-Core-inCurrentNS arg-1 e-14) eta-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-8 (vector-ref sc6 1))) (let ((tydecl (vector 0 e-2 e-6 arg-3 (let ((sc7 e-18)) (cond ((equal? sc7 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 ))))) (vector 0 e-2 e-8 e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 e-2 arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 e-2 0)) arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12192-966-bindName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-1)) arg-7)))))) (let ((argns (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 0 e-19))) (let ((fnclause (vector 0 e-2 (vector 9 e-2 (vector 0 e-2 e-8) (vector 1 (vector 1 "__con")) conapp) (Interface-Elab-Idris-n--12192-965-mkLam arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 argns (TTImp-TTImp-apply (vector 0 e-2 (Interface-Elab-Idris-n--12192-967-methName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 e-14)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) argns)))))) (let ((fndef (vector 2 e-2 e-8 (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-getMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-2 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) (List-Prelude-C-43C-43 'erased arg-6 arg-1)) e-19 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 (vector 0 e-14 (vector 0 e-6 (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-2 e-2 e-6 e-10 e-14 e-18 e-19 arg-6 arg-5 arg-1 arg-4 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) e-5)))))))))))))))))))))))))))
-(define Interface-Elab-Idris-getDefault (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))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) (vector 0 e-1 e-2))))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-getConstraintHint (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 ((ity (TTImp-TTImp-apply (vector 0 arg-2 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) arg-9)))) (let ((fty (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ity e-3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased arg-8 arg-0) fty 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 ((hintname (vector 4 (Strings-Prelude-C-43C-43 "Constraint " (TTImp-TTImp-show_Show__RawImp e-3)) (vector 1 (Strings-Prelude-C-43C-43 "__" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 "_" (TTImp-TTImp-show_Show__RawImp e-3)))))))) (let ((tydecl (vector 0 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-4 (vector 1 (vector 0 ) (vector 1 (vector 2 1) (vector 0 ))) (vector 0 arg-2 hintname e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12500-1228-bindName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 eta-1)) arg-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 arg-2 0)) arg-8))))) (let ((fnclause (vector 0 arg-2 (vector 8 arg-2 (vector 0 arg-2 hintname) conapp) (vector 0 arg-2 (Interface-Elab-Idris-n--12500-1229-constName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 e-2))))) (let ((fndef (vector 2 arg-2 hintname (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 0 hintname (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))
-(define Interface-Elab-Idris-elabInterface (lambda (arg-0 arg-1 arg-2 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 ((Context-Core-getFullName arg-1 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 ((conName_in (Prelude-maybe 'erased 'erased (lambda () (Interface-Elab-Idris-mkCon arg-5 e-5)) (lambda () (lambda (eta-0) eta-0)) arg-13))) (let ((act-25 ((Context-Core-inCurrentNS arg-1 conName_in) 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 ((meth_sigs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getSig eta-0)) arg-14))) (let ((meth_decls (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (vector 0 e-14 (vector 0 e-8 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))) meth_sigs))) (let ((meth_names (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) meth_decls))) (let ((defaults (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getDefault eta-0)) arg-14))) (let ((act-26 (Interface-Elab-Idris-n--12862-1562-elabAsData arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Interface-Elab-Idris-n--12862-1565-elabConstraintHints arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names) 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 (Interface-Elab-Idris-n--12862-1563-elabMethods arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12862-1564-elabDefault arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 meth_decls eta-0)) defaults) 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 ((Core-Core-traverse 'erased 'erased (lambda (mt) (lambda (eta-0) (let ((act-30 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) 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))) (vector 1 (vector 0 e-11 (Builtin-snd 'erased 'erased mt)))))))))) meth_decls) 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 ((Context-Core-inCurrentNS arg-1 e-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))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-12 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-11) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-9) e-11 e-10 ext-0)))))))))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-bindIFace (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-2)) (case (vector-ref sc1 0) ((0) (vector 1 e-0 e-1 (vector 0 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5))) ((2) (vector 1 e-0 e-1 (vector 2 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5)))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2)))))))))))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2))))))
-(define Implementation-Elab-Idris-case--14552-9258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-48)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added defaults: body is " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-2))) 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Missing methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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 ((act-26 (let ((act-26 (unbox arg-17))) (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 ((e-7 (vector-ref sc3 1))) (let ((hs (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (let ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Open hints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 1 arg-19 arg-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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-28 (Context-Core-checkUnambig arg-17 arg-13 n 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))) (Context-Core-addOpenHint arg-17 e-9 eta-1)))))))) arg-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 ((act-29 (let ((act-29 (unbox arg-17))) (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 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 ) arg-19 arg-46 arg-29 (let ((sc7 arg-23)) (let ((e-1 (vector-ref sc7 2))) e-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7171-mkTopMethDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-1)) e-11)) 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 ((con (let ((sc9 arg-23)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-19) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-46))))) (let ((act-32 (let ((act-32 (unbox arg-17))) (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 (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-13 (vector 0 ) arg-27 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 ((e-14 (vector-ref sc10 1))) (let ((fldTys (Implementation-Elab-Idris-n--12297-7161-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-14))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field types " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d x-4)))) x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-3) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-3 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-4) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-4 x-4)))) d-3 x-3))))) d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x)))) fldTys))) 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 ((irhs (TTImp-TTImp-apply (vector 0 arg-13 con) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 11 arg-13 (Prelude-fromInteger_Num__Nat 500))) (let ((sc12 arg-23)) (let ((e-17 (vector-ref sc12 3))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7165-mkMethField arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-46 fldTys eta-1)) e-11))))) (let ((impFn (vector 2 arg-13 arg-19 (vector 1 (vector 0 arg-13 ilhs irhs) (vector 0 ))))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation record: " (TTImp-TTImp-show_Show__ImpDecl impFn))) 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 ((act-36 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (x) (lambda (eta-1) (Context-Core-addOpenHint arg-17 arg-19 eta-1)))) arg-2) eta-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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 5 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (vector 1 impFn (vector 0 ))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 5 ) 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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 3 ) eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 4 (vector 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 ((upds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7172-methNameUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased eta-1)) e-11))) (let ((act-42 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7176-updateBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 upds eta-1)) e-2) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation body: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-23))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) e-23) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7177-addTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 upds eta-1)) (let ((sc22 arg-23)) (let ((e-26 (vector-ref sc22 4))) e-26))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 3 ) 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 ((act-47 (Context-Core-setOpenHints arg-17 hs 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 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-case--14089-9112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-44)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((_-0 (vector 1 e-1))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 e-5 e-6 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-1))) (let ((sc3 arg-23)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 arg-23)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-42)) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-0)))))))
-(define Implementation-Elab-Idris-case--14089-8949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-35)) (else (vector 0 ))))))
-(define Implementation-Elab-Idris-case--14004-8702 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-5)))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) arg-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))) (let ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc2 arg-23)) (let ((e-6 (vector-ref sc2 2))) e-6))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc2 arg-23)) (let ((e-2 (vector-ref sc2 3))) e-2))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc2 arg-23)) (let ((e-3 (vector-ref sc2 4))) e-3))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0))) "\u000a")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-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 ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-28 (Context-Core-isUnboundImplicits arg-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 ((e-9 (vector-ref sc5 1))) (let ((paramBinds (let ((sc6 e-9)) (cond ((equal? sc6 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 (let ((sc7 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc7 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 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 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc8 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-31 (let ((act-31 (unbox arg-17))) (vector 1 act-31)))) (let ((sc9 act-31)) (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-32 (Context-Core-lookupTyExact arg-19 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) e-0)) eta-1))) (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 ((_-0 (vector 1 e-1))) (let ((sc11 e-13)) (case (vector-ref sc11 0) ((1) (let ((e-2 (vector-ref sc11 1))) (let ((act-33 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-2) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-14))) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-1 (vector 1 e-2))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 impsp e-5 e-6 e-7 e-8 opts initTy e-9 paramBinds impTy impTyDecl e-10 e-11 body_in e-12 e-2 _-1 e-14 e-15 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc14 arg-23)) (let ((e-3 (vector-ref sc14 4))) e-3))) (let ((sc14 arg-23)) (let ((e-4 (vector-ref sc14 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
-(define Implementation-Elab-Idris-case--13917-8642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-24)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) e-1 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc4 arg-23)) (let ((e-8 (vector-ref sc4 2))) e-8))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc4 arg-23)) (let ((e-7 (vector-ref sc4 3))) e-7))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc4 arg-23)) (let ((e-3 (vector-ref sc4 4))) e-3))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-23)) (let ((e-0 (vector-ref sc4 1))) e-0))) "\u000a")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-2 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))) (let ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-29 (Context-Core-isUnboundImplicits arg-17 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 ((paramBinds (let ((sc8 e-10)) (cond ((equal? sc8 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((sc9 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc9 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (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 ((sc10 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc10 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-32 (let ((act-32 (unbox arg-17))) (vector 1 act-32)))) (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))) (let ((act-33 (Context-Core-lookupTyExact arg-19 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((act-34 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-3) eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-15))) eta-1))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-2 (vector 1 e-3))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 impsp e-6 e-7 e-8 e-9 opts initTy e-10 paramBinds impTy impTyDecl e-11 e-12 body_in e-13 e-3 _-2 e-15 e-16 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc16 arg-23)) (let ((e-17 (vector-ref sc16 4))) e-17))) (let ((sc16 arg-23)) (let ((e-4 (vector-ref sc16 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc3 arg-23)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-22) eta-0)))))))
-(define Implementation-Elab-Idris-case--12297-8575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((cn (Builtin-fst 'erased 'erased e-1))) (let ((cdata (Builtin-snd 'erased 'erased e-1))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact cn (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-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))) (let ((act-26 (Context-Core-lookupTyExact (let ((sc5 cdata)) (let ((e-0 (vector-ref sc5 1))) e-0)) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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-7 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-3))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name cn))) e-3 eta-0))) (let ((sc7 act-27)) (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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc8 cdata)) (let ((e-12 (vector-ref sc8 2))) e-12))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc8 cdata)) (let ((e-11 (vector-ref sc8 3))) e-11))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc8 cdata)) (let ((e-10 (vector-ref sc8 4))) e-10))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc8 cdata)) (let ((e-0 (vector-ref sc8 1))) e-0))) "\u000a")))))))))))) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 eta-0))) (let ((sc9 act-29)) (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-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) eta-0))) (let ((sc10 act-30)) (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))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-31 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((paramBinds (let ((sc12 e-12)) (cond ((equal? sc12 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-32 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) eta-0))) (let ((sc12 act-32)) (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-33 (let ((sc13 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc13 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((sc14 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc14 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-17))) (vector 1 act-34)))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-15 (vector-ref sc15 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc15 1))) (let ((act-35 (Context-Core-lookupTyExact arg-19 (let ((sc16 e-15)) (let ((e-0 (vector-ref sc16 1))) e-0)) eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-16 (vector-ref sc16 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-4))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((1) (let ((e-17 (vector-ref sc17 1))) (let ((act-36 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-17) eta-1))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-18 (vector-ref sc18 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-37 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-18))) eta-1))) (let ((sc19 act-37)) (case (vector-ref sc19 0) ((0) (let ((e-19 (vector-ref sc19 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc19 1))) (let ((_-2 (vector 1 e-17))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 cn cdata e-5 e-3 _-0 e-4 _-1 impsp e-8 e-9 e-10 e-11 opts initTy e-12 paramBinds impTy impTyDecl e-13 e-14 body_in e-15 e-17 _-2 e-18 e-19 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc20 cdata)) (let ((e-21 (vector-ref sc20 4))) e-21))) (let ((sc20 cdata)) (let ((e-20 (vector-ref sc20 5))) e-20)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 cn) eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-4) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))
-(define Implementation-Elab-Idris-case--12337-8386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((rhs (vector 0 arg-13 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp rhs)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (UnifyState-Core-handleUnify 'erased arg-17 arg-16 (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 (vector 6 arg-13 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-24)))) arg-26 rhs)) (lambda (err) (lambda (eta-1) (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Can't add transform " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp rhs) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error err))))))) eta-1))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Implementation-Elab-Idris-case--12333-8138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-19 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " is not a method of " (Name-Core-show_Show__Name arg-4)))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Implementation-Elab-Idris-case--12330-8013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-3 arg-25) arg-24 arg-23 arg-22 arg-21 arg-20 arg-19) 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 1 e-2 e-5)))))))))))))
-(define Implementation-Elab-Idris-case--12717-7761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-29 (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-29) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-46))) (vector 0 )))))))
-(define Implementation-Elab-Idris-case--12329-7535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-28 e-2))) (let ((mbase (Implementation-Elab-Idris-n--12297-7168-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-26 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_in))))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-29) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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))) (let ((act-26 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "    (initially " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) ")"))) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-28))) 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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) 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 ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Name updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0))))) d x)))) e-3))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Param names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-24))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) ibound))) 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 ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-26))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--12717-7761 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 mty_in mbase ibound e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ibinds (List-Data-isNil 'erased ibinds)))) (vector 1 (vector 0 (vector 0 arg-18 (vector 0 arg-29 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-5))))) methupdsC-39)))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-case--12109-6992 (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) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 arg-5 arg-8) arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((mupdates (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 9 arg-4 (vector 0 arg-4 n) (vector 1 (vector 1 "__con")) (vector 0 arg-4 arg-3)))) arg-2))) (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause (vector 0 ) mupdates eta-0)) e-2))) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-6 (vector 1 (vector 2 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-4 eta-0)) csC-39)) arg-7))))))))))
-(define Implementation-Elab-Idris-n--12297-7175-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) (let ((sc0 arg-19)) (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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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 0 e-0 e-5 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))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-8 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7175-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-1)) 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 1 e-3 e-8 e-5 e-6 e-9))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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 2 e-8 e-5)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7176-updateBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((2) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7175-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (let ((act-25 ((Implementation-Elab-Idris-n--12297-7173-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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))) (vector 1 (vector 2 e-0 e-6 e-5)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-13 "Implementation body can only contain definitions") eta-0)))))))
-(define Implementation-Elab-Idris-n--12297-7174-updateApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7173-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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))))))))))) ((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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 1 (vector 8 e-2 e-5 e-4)))))))))))) ((9) (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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-9 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-8)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-19) "Invalid method definition") eta-0)))))))
-(define Implementation-Elab-Idris-n--12297-7170-topMethTypes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7169-topMethType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-4 arg-18) arg-19 arg-20 arg-21 arg-22 arg-23 e-3) eta-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))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7169-topMethType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Implementation-Elab-Idris-n--12297-7167-applyCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 eta-1 eta-2))) arg-23) 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-8 (vector-ref sc5 1))) (let ((updsC-39 e-8)) (let ((mty_in (Utils-TTImp-substNames arg-7 updsC-39 e-15))) ((Implementation-Elab-Idris-case--12329-7535 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-15 arg-23 arg-22 arg-21 arg-20 arg-19 arg-18 e-5 e-8 updsC-39 mty_in (State-Monad-Control-runState 'erased 'erased (BindImplicits-TTImp-renameIBinds arg-21 (TTImp-TTImp-findImplicits mty_in) mty_in) (vector 0 ))) eta-0))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7171-mkTopMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () arg-11) (lambda () (lambda (t) (vector 1 (vector 7 t) arg-11))) e-18))) (vector 0 arg-13 e-14 arg-12 opts (vector 0 arg-13 e-6 e-19))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7165-mkMethField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((argns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Implementation-Elab-Idris-n--12325-7349-applyUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-18 e-19 arg-19 arg-18 eta-0)) (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) eta-0)) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Name-Core-dropNS e-2) arg-19))))) (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-18))) (Implementation-Elab-Idris-n--12297-7163-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 argns (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-13 (vector 0 arg-13 e-6) argns) (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 0 arg-13 (vector 1 (Name-Core-show_Show__Name n))))) imps))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7163-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-13 e-10 e-11 (vector 1 e-6) (vector 31 arg-13 1) (Implementation-Elab-Idris-n--12297-7163-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7172-methNameUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (vector 0 (vector 1 (Name-Core-nameRoot e-2)) e-6))))))))
-(define Implementation-Elab-Idris-n--12297-7166-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)))(else (vector 4 (Name-Core-show_Show__Name arg-18) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) arg-2) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-3)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7162-impsApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) arg-18) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 9 arg-13 arg-18 (vector 1 e-6) e-7) e-3)))))))))))
-(define Implementation-Elab-Idris-n--12297-7161-getFieldArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-2 (Implementation-Elab-Idris-n--12321-7188-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-1 e-8 e-7 e-6 e-2 e-4 'erased e-8)) (Implementation-Elab-Idris-n--12297-7161-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-4))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define Implementation-Elab-Idris-n--12321-7188-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (vector 0 e-6 (TT-Core-forgetDef 'erased 'erased e-7))) (Implementation-Elab-Idris-n--12321-7188-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 'erased e-4)))))(else (vector 0 ))))))))(else (vector 0 ))))))
-(define Implementation-Elab-Idris-n--12297-7173-findMethName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Implementation-Elab-Idris-case--12333-8138 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-19 arg-18 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-20 arg-18))))
-(define Implementation-Elab-Idris-n--12103-6971-extendBody (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) (vector 0 arg-7 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Implementation-Elab-Idris-case--12109-6992 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 arg-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))))))
-(define Implementation-Elab-Idris-n--12103-6972-dropGot (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12103-6972-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 e-5)) arg-5) e-3)))(else (Implementation-Elab-Idris-n--12103-6972-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
-(define Implementation-Elab-Idris-n--12297-7168-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 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-13 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-n--12297-7168-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
-(define Implementation-Elab-Idris-n--12325-7349-applyUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 (vector 1 e-4) (vector 0 e-7 e-8))) (lambda () (lambda (nC-39) (vector 0 (vector 1 nC-39) (vector 0 e-7 e-8)))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
-(define Implementation-Elab-Idris-n--12297-7164-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 8 arg-18 arg-19 (vector 0 arg-18 e-6)) e-3)) ((2) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) ((0) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) (else (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7167-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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)) ext-0))) (let ((sc0 act-24)) (case (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 (Name-Core-dropNS arg-19) (vector 0 arg-13 e-5))))))))))
-(define Implementation-Elab-Idris-n--12297-7177-addTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Adding transform for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-15) (Strings-Prelude-C-43C-43 "\u000a\u0009for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) arg-19))))))))) 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))) (let ((lhs (vector 9 arg-13 (vector 0 arg-13 e-2) (vector 1 (vector 1 "__con")) (vector 0 arg-13 arg-18)))) ((Implementation-Elab-Idris-case--12337-8386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-14 e-10 e-6 e-2 e-15 arg-19 arg-18 e-5 lhs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Name-Core-dropNS e-2) arg-19)) eta-0))))))))))))))))))))))
-(define Implementation-Elab-Idris-mkImpl (lambda (arg-0 arg-1 arg-2) (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " implementation at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__Impl_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-2)))))))))
-(define Implementation-Elab-Idris-getMethImps (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-0 arg-1 arg-2 e-8 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 ((Implementation-Elab-Idris-getMethImps (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 2 e-6 (vector 0 ) e-8) arg-2) e-4) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Implementation-Elab-Idris-elabImplementation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((impName_in (Prelude-maybe 'erased 'erased (lambda () (Implementation-Elab-Idris-mkImpl arg-5 arg-13 arg-14)) (lambda () (lambda (eta-0) eta-0)) arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 impName_in) 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-3))) (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))) ((Implementation-Elab-Idris-case--12297-8575 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 impName_in e-5 e-6 (ANameMap-Data-lookupName 'erased arg-13 (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) eta-0)))))))))))))))
-(define Implementation-Elab-Idris-bindImpls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-bindImpls arg-0 e-3 arg-2)))))))))))))))
-(define Implementation-Elab-Idris-bindConstraints (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-6 e-7 (Implementation-Elab-Idris-bindConstraints arg-0 arg-1 e-3 arg-3))))))))))))
-(define Implementation-Elab-Idris-addDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((missing (Implementation-Elab-Idris-n--12103-6972-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
-(define Inline-Compiler-case--9913-3905 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Inline-Compiler-case--9846-3846 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9830-3834 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9846-3846 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9766-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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9750-3764 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9766-3776 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9686-3706 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9670-3694 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9686-3706 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9640-3662 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))))))))
-(define Inline-Compiler-case--9484-3525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs))))))))))))
-(define Inline-Compiler-case--8918-2988 (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 ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
-(define Inline-Compiler-case--8894-2970 (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))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--8918-2988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
-(define Inline-Compiler-case--6984-2867 (lambda (arg-0 arg-1 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) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-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 Inline-Compiler-case--8532-2678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 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))) (vector 1 (vector 1 e-5)))))))))))))))
-(define Inline-Compiler-case--6977-2637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Inline-Compiler-case--8532-2678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11))))))
-(define Inline-Compiler-case--6965-2506 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-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 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5))))))))))))))
-(define Inline-Compiler-case--6960-2462 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3)))))))))
-(define Inline-Compiler-case--6954-2318 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Inline-Compiler-case--6954-2212 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) 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 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Inline-Compiler-case--6954-2114 (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) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9)))))))))
-(define Inline-Compiler-case--6954-1889 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 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))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 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))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) 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))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6))))))))))))))))))))))))
-(define Inline-Compiler-case--7389-1644 (lambda (arg-0 arg-1 arg-2 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 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 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))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--7352-1605 (lambda (arg-0 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 ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7389-1644 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 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--6954-1579 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7352-1605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--6949-1382 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--6942-1294 (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-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4)))))))
-(define Inline-Compiler-case--6444-1150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6)))
-(define Inline-Compiler-case--6441-832 (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) 1000) (else arg-8)))))
-(define Inline-Compiler-case--6441-739 (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) 1) (else 0)))))
-(define Inline-Compiler-case--6379-686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3))))))
-(define Inline-Compiler-case--6247-574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3)))))))
-(define Inline-Compiler-n--8894-3156-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 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 ((Inline-Compiler-n--8894-3156-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define Inline-Compiler-n--9910-3889-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 ((Context-Core-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 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1))))))))))))))))
-(define Inline-Compiler-n--6977-2600-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) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1)))))
-(define Inline-Compiler-n--8894-3324-fixArityConstAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define Inline-Compiler-n--8894-3267-fixArityAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
-(define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2)))))
-(define Inline-Compiler-usedCon (lambda (arg-0 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))) (Inline-Compiler-case--6444-1150 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2)))))))))
-(define Inline-Compiler-used (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))) (Inline-Compiler-case--6441-739 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased 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 ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6441-832 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0)))))
-(define Inline-Compiler-unloadApp (lambda (arg-0 arg-1 arg-2 arg-3) (Inline-Compiler-unload 'erased (List-Data-drop 'erased arg-1 arg-2) (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (List-Data-take 'erased arg-1 arg-2)))))
-(define Inline-Compiler-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-unload 'erased e-3 (vector 4 (CompileExpr-Core-getFC 'erased arg-2) arg-2 (vector 1 e-2 (vector 0 )))))))))))
-(define Inline-Compiler-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))) (Inline-Compiler-case--6949-1382 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))
-(define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3)))
-(define Inline-Compiler-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)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--6984-2867 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 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (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))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--6977-2637 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--6977-2600-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3)))))))))
-(define Inline-Compiler-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))) (Inline-Compiler-case--9484-3525 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1))))))
-(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9846-3846 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 Inline-Compiler-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))) (Inline-Compiler-case--9640-3662 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6379-686 'erased 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9686-3706 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 Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 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 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9)))))))))))))))
-(define Inline-Compiler-getLams (lambda (arg-0 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))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4)))))))
-(define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Data-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Data-length 'erased e-6))) (else 0)))))
-(define Inline-Compiler-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 (b+ 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--8918-2988 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 (Inline-Compiler-unload 'erased 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 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 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-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 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 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 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))) (vector 1 (CompileExpr-Compiler-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 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased 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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--8894-3156-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) 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 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) 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 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--8894-3267-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--8894-3324-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) 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 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))
-(define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 ))))
-(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9766-3776 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 Inline-Compiler-fixArity (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 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 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))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (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))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Inline-Compiler-extendLoc (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 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" 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 ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4))))))))))))))))))))))))
-(define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16)))))))))))))
-(define Inline-Compiler-evalLocal (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-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 e-7)))(else (Inline-Compiler-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CompileExpr-Core-weakenNs_Weaken__CExp arg-2 e-3 e-7))))))(else (let ((e-9 (- arg-9 1))) (Inline-Compiler-evalLocal 'erased e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9 'erased))))))))))))))
-(define Inline-Compiler-evalConstAlt (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0)))))))
-(define Inline-Compiler-evalAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-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 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8))))))))))))))))))))))))
-(define Inline-Compiler-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-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (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 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) 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))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-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-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (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-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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-62 (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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (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 ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))))
-(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-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 Inline-Compiler-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 ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--9910-3889-nonErased arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) 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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))))))))))))))))))))))))))))))))))))))
-(define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.CompileExpr.CExp" arg-0))))
-(define Holes-IDEMode-Idris-case--8583-8957 (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) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (premise) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 premise)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 premise)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-tidy (let ((sc0 premise)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm (let ((sc0 premise)) (let ((e-1 (vector-ref sc0 2))) e-1))) "\u000a")))))) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))))))))
-(define Holes-IDEMode-Idris-case--8497-8918 (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))
-(define Holes-IDEMode-Idris-case--8394-8869 (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 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))))))
-(define Holes-IDEMode-Idris-case--8408-8810 (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) (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)) (else (vector 1 arg-8 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)))))))
-(define Holes-IDEMode-Idris-case--8243-8699 (lambda (arg-0 arg-1 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (vector 1 arg-13 e-2))))))))
-(define Holes-IDEMode-Idris-case--8154-8648 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise arg-0 arg-8 arg-7 (TT-Core-binderType 'erased 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))) (Resugar-Idris-resugar arg-0 arg-10 arg-9 arg-7 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))) (let ((premise (vector 0 arg-2 e-5 (TT-Core-multiplicity 'erased arg-4) (Holes-IDEMode-Idris-n--8154-8595-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4)))) (vector 1 (let ((sc2 arg-11)) (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 (vector 1 premise e-2))))))))))))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Holes-IDEMode-Idris-case--8049-8489 (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 Holes-IDEMode-Idris-case--8046-8468 (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))) (Holes-IDEMode-Idris-case--8049-8489 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) ((0) (vector 1 0))(else (vector 0 ))))))
-(define Holes-IDEMode-Idris-n--8154-8595-implicitBind (lambda (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) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1)))))
-(define Holes-IDEMode-Idris-n--8394-8788-dropShadows (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Holes-IDEMode-Idris-case--8408-8810 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) e-3))))))))))
-(define HolePremise-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define HoleData-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define HolePremise-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HoleData-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HolePremise-Holes-IDEMode-Idris-rf--multiplicity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define HolePremise-Holes-IDEMode-Idris-rf--isImplicit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define HoleData-Holes-IDEMode-Idris-rf--context (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Holes-IDEMode-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0))))))
-(define Holes-IDEMode-Idris-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 Holes-IDEMode-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Holes-IDEMode-Idris-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))) ((Holes-IDEMode-Idris-case--8583-8957 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 Holes-IDEMode-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) " 0 " " 1 " (lambda (eta-0) "   ") ext-0)))
-(define Holes-IDEMode-Idris-sexpPremise (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Holes-IDEMode-Idris-tidy (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))
-(define Holes-IDEMode-Idris-sexpHole (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpPremise eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (vector 1 (vector 0 (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))) (vector 0 )))))))
-(define HolePremise-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HoleData-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Holes-IDEMode-Idris-isHole (lambda (arg-0) (Holes-IDEMode-Idris-case--8046-8468 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
-(define Holes-IDEMode-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}")))))))
-(define Holes-IDEMode-Idris-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Holes-IDEMode-Idris-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 (Context-Core-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 (Holes-IDEMode-Idris-case--8394-8869 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 Holes-IDEMode-Idris-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 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))(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-8 (vector-ref sc1 2))) (Holes-IDEMode-Idris-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-24 ((Holes-IDEMode-Idris-extractHoleData (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 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))) ((Holes-IDEMode-Idris-case--8154-8648 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (Holes-IDEMode-Idris-showName e-3)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))))))))))
-(define MakeClause-IDEMode-Idris-case--2701-7164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-length e-2) e-3))))))
-(define MakeClause-IDEMode-Idris-case--2636-7150 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((isrc (MakeClause-IDEMode-Idris-case--2701-7164 arg-0 arg-1 e-2 e-3 (Strings-Data-span (lambda (eta-0) (Prelude-isSpace eta-0)) e-3)))) (let ((indent (Builtin-fst 'erased 'erased isrc))) (let ((src (Builtin-snd 'erased 'erased isrc))) (let ((lhs (Prelude-pack (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7091-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7092-mkWithPat arg-0 arg-1 e-2 indent lhs) "\u000a"))))))))))))
-(define MakeClause-IDEMode-Idris-case--2611-7076 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
-(define MakeClause-IDEMode-Idris-n--2636-7089-readLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 #\=) (vector 0 ))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (cond ((equal? sc3 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (cond ((equal? sc2 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 ))))))))(else (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 ((sc1 e-1)) (cond ((equal? sc1 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
-(define MakeClause-IDEMode-Idris-n--2636-7090-pref (lambda (arg-0 arg-1 arg-2 arg-3) (Unlit-Parser-relit arg-2 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )))))
-(define MakeClause-IDEMode-Idris-n--2636-7092-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7090-pref arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0)))) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 "| with_pat = ?" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-showRHSName arg-1) "_rhs"))))))
-(define MakeClause-IDEMode-Idris-n--2636-7091-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7090-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
-(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2611-7076 arg-0 fn ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack fn))))))
-(define MakeClause-IDEMode-Idris-makeWith (lambda (arg-0 arg-1) (MakeClause-IDEMode-Idris-case--2636-7150 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
-(define CaseSplit-IDEMode-Idris-case--10948-8902 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-n--10829-8764-indent arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 0 arg-11) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-16) (Strings-Prelude-C-43C-43 " " arg-16)) arg-12)) (Strings-Prelude-C-43C-43 " = ?" (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 1 arg-11) "_rhs"))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10889-8870 (lambda (arg-0 arg-1 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))) (let ((_-0 (vector 1 e-1))) (CaseSplit-IDEMode-Idris-case--10948-8902 arg-0 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-case--10829-8819 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-5 (vector 0 ) e-14) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 arg-5 e-13 e-8) 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 ((act-26 (REPLOpts-Idris-getSourceLine arg-2 arg-1 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-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--10948-8902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-case--10800-8747 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
-(define CaseSplit-IDEMode-Idris-case--10795-8734 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
-(define CaseSplit-IDEMode-Idris-case--10598-8610 (lambda (arg-0 arg-1 arg-2 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) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CaseSplit-IDEMode-Idris-showImpossible arg-5 arg-4 arg-3 eta-0 eta-1))) arg-13)) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-IDEMode-Idris-getReplaces arg-5 arg-4 arg-3 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (let ((stok (TokenLine-IDEMode-Idris-tokens arg-10))) (let ((act-25 (let ((act-25 (unbox arg-5))) (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 (Core-Core-newRef 'erased 'erased (vector "Idris.IDEMode.CaseSplit.UPD" ) (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))) ((CaseSplit-IDEMode-Idris-updateAll e-7 e-6 stok e-5) eta-0)))))))))))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10561-8551 (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline (vector 1 e-2))) (CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 thisline valid bad (List-Data-isNil 'erased valid)))))))))))
-(define CaseSplit-IDEMode-Idris-case--10508-8523 (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-2 (vector-ref sc0 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-2) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-2))) (let ((sc1 thisline)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-3 (vector-ref sc1 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline-0 (vector 1 e-3))) (CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 _-0 e-3 thisline-0 valid bad (List-Data-isNil 'erased valid))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-7 e-5) eta-0))))))))
-(define CaseSplit-IDEMode-Idris-case--10471-8476 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No file loaded") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-readFile e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-3) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-3))) (let ((sc3 thisline)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0)) (else (let ((e-4 (vector-ref sc3 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((thisline-0 (vector 1 e-4))) ((CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-4 thisline-0 valid bad (List-Data-isNil 'erased valid)) eta-0)))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-2 e-6) eta-0)))))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10099-8274 (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) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 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))) (vector 1 (vector 1 (vector 1 arg-0) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-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 1 (vector 6 e-2) e-5))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10161-8176 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (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 ((sc3 e-5)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-3) (vector 1 (vector 4 ) e-6))) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7)))))))))))) ((5) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))
-(define CaseSplit-IDEMode-Idris-case--10099-8148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 3 ) e-2) e-5))))))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-5) (vector 1 (vector 4 ) e-6))) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8)))))))))))) ((5) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))) eta-0)))))))
-(define CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (vector 0 (vector 0 ) (vector 1 (vector 4 ) e-3))) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-mapFst 'erased 'erased 'erased (lambda (arg-5) (let ((w (vector 0 e-4))) (vector 1 w arg-5))) (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))(else (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
-(define CaseSplit-IDEMode-Idris-n--10829-8764-indent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unlit-Parser-relit (vector 1 e-1) (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Prelude-max_Ord__Int 0 (Prelude-C-45_Neg__Int (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6)) 1))) #\ ))))) (else (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6))) #\ )))))))
-(define CaseSplit-IDEMode-Idris-n--10471-8448-getValid (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 e-1)))(else (vector 0 ))))))
-(define CaseSplit-IDEMode-Idris-n--10471-8449-getBad (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-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define CaseSplit-IDEMode-Idris-n--10034-8037-bracket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-4) ((35) arg-4) ((36) arg-4) ((38) arg-4) ((40) arg-4) ((14) arg-4)(else (vector 31 (FC-Core-emptyFC) arg-4))))))
-(define CaseSplit-IDEMode-Idris-updateCase (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))) ((CaseSplit-IDEMode-Idris-case--10471-8476 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
-(define CaseSplit-IDEMode-Idris-updateAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 e-2 arg-2) 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 ((act-25 ((CaseSplit-IDEMode-Idris-updateAll arg-0 arg-1 arg-2 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))) (vector 1 (vector 1 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-1) (TokenLine-IDEMode-Idris-toString eta-1))) e-5) e-6))))))))))))))))))))
-(define CaseSplit-IDEMode-Idris-toStrUpdate (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-3 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 (vector 1 (vector 0 e-4 (Syntax-Idris-show_Show__PTerm (CaseSplit-IDEMode-Idris-n--10034-8037-bracket e-4 e-3 arg-1 arg-0 e-5))) (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-showImpossible (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Resugar-Idris-pterm 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 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))
-(define CaseSplit-IDEMode-Idris-getReplaces (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-toStrUpdate arg-0 arg-1 eta-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))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))
-(define CaseSplit-IDEMode-Idris-getClause (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 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-3 1) p))) 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getFullName arg-0 e-9) 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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-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-12 (vector-ref sc7 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 e-13 e-12) ext-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-12 (vector-ref sc7 1))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-2 arg-3 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-15 (vector-ref sc8 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-2 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--10948-8902 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-13 e-14 _-0 e-11 e-12 e-2 _-1 (Unlit-Parser-isLitLine e-2)) ext-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define CaseSplit-IDEMode-Idris-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-IDEMode-Idris-case--10795-8734 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (CaseSplit-IDEMode-Idris-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
-(define CaseSplit-IDEMode-Idris-doUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (CaseSplit-IDEMode-Idris-case--10099-8148 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--10099-8274 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-4 arg-2)))) ((2) (let ((e-5 (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-6 (vector-ref sc2 1))) (let ((act-25 (Utils-TTImp-uniqueName arg-1 e-6 e-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 (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (vector 1 e-7 e-6)))) (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 ((act-27 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) 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-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-7) e-9))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5))))))))))))))))))
-(define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4))))))))))))
-(define TokenLine-IDEMode-Idris-case--1808-360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 6 arg-4) (vector 0 )))))))
-(define TokenLine-IDEMode-Idris-case--1803-330 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) e-2) (TokenLine-IDEMode-Idris-case--1808-360 arg-0 e-2 e-6 e-10 e-11 (Prelude-C-61C-61_Eq__String e-11 ""))))))))))))))
-(define TokenLine-IDEMode-Idris-tokens (lambda (arg-0) (TokenLine-IDEMode-Idris-case--1803-330 arg-0 (Core-Lexer-Text-lex 'erased (TokenLine-IDEMode-Idris-srcTokens) arg-0))))
-(define TokenLine-IDEMode-Idris-toString (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "?" e-2))) ((3) "{") ((4) "}") ((5) "=") (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
-(define TokenLine-IDEMode-Idris-srcTokens (lambda () (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (vector 1 eta-0))) (vector 1 (vector 0 (TokenLine-IDEMode-Idris-holeIdent) (lambda (x) (vector 2 (substring x 1 (string-length x))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 0 eta-0))) (vector 1 (vector 0 (Lexer-Text-is #\{) (lambda (eta-0) (vector 3 ))) (vector 1 (vector 0 (Lexer-Text-is #\}) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Lexer-Text-is #\=) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 6 eta-0))) (vector 0 ))))))))))
-(define TokenLine-IDEMode-Idris-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Common-Compiler-case--10680-2531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Common-Compiler-case--10658-2514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-writeToFile arg-0 e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--10645-2492 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Binary-Utils-writeToFile arg-0 e-2 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Common-Compiler-case--10539-2401 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix))))))))
-(define Common-Compiler-case--10532-2380 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--10539-2401 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6))))))))))))))))
-(define Common-Compiler-case--10409-2306 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10409-2260-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
-(define Common-Compiler-case--10413-2272 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10409-2260-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
-(define Common-Compiler-case--10369-2232 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile e-2 eta-0))) 0)))) (else (lambda (eta-0) 1))))))
-(define Common-Compiler-case--9614-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9934-1928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF 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 (vector 0 e-2 e-5)))))))))))))
-(define Common-Compiler-case--9614-1863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-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 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9614-1739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9421-1577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) 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 ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1863 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 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 ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-2060 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) 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 ((act-28 (let ((act-28 (unbox arg-2))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " f) eta-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 (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f) eta-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 ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f) eta-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 ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " f) eta-1))) (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 ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-case--9426-1390 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Common-Compiler-case--9352-1346 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9283-1281 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9214-1216 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9068-1147 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9090-1092 (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9068-1047-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a")))))))))))
-(define Common-Compiler-case--9073-1067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9090-1092 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
-(define Common-Compiler-case--8937-947 (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))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 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 (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))))))))))))))
-(define Common-Compiler-case--8921-925 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--8937-947 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
-(define Common-Compiler-case--8732-783 (lambda (arg-0 arg-1 arg-2 arg-3 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 (let ((act-24 ((IOArray-Data-writeArray 'erased arg-4 arg-0 (vector 0 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 ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-1 eta-2))) (NameMap-Data-keys 'erased 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))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
-(define Common-Compiler-case--8679-744 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 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 ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
-(define Common-Compiler-case--8653-698 (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) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) 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-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
-(define Common-Compiler-case--8631-677 (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 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (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 ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) 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-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
-(define Common-Compiler-case--8270-365 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Common-Compiler-case--8271-351 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Common-Compiler-n--8265-400-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0)))))
-(define Common-Compiler-n--9421-1374-nonErased (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))) (let ((act-25 ((Context-Core-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))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0))))))))))))))))
-(define Common-Compiler-n--10409-2260-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10413-2272 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
-(define Common-Compiler-n--9352-1308-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9283-1243-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9214-1178-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9068-1047-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3))))))
-(define Common-Compiler-n--9352-1309-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9352-1308-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a"))))))))
-(define Common-Compiler-n--9283-1244-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9283-1243-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a"))))))))
-(define Common-Compiler-n--9214-1179-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9214-1178-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a"))))))))
-(define Common-Compiler-n--9068-1048-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) ((Common-Compiler-case--9090-1092 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 Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8271-351 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1))))
-(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8270-365 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1))))
-(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8265-400-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8265-400-tag arg-1 arg-0 arg-1))))
-(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Common-Compiler-C-61C-61_Eq__UsePhase arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Common-Compiler-C-47C-61_Eq__UsePhase arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Common-Compiler-compare_Ord__UsePhase arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Common-Compiler-C-60_Ord__UsePhase arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Common-Compiler-C-62_Ord__UsePhase arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Common-Compiler-C-60C-61_Ord__UsePhase arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Common-Compiler-C-62C-61_Ord__UsePhase arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Common-Compiler-max_Ord__UsePhase arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Common-Compiler-min_Ord__UsePhase arg-979 arg-980))))))
-(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Common-Compiler-C-61C-61_Eq__UsePhase arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Common-Compiler-C-47C-61_Eq__UsePhase arg-650 arg-651))))))
+(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1 "" arg-2)))
+(define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
+(define Common-Compiler-case--11207-2656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Common-Compiler-case--11184-2638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-writeToFile arg-0 e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--11171-2615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Binary-Utils-writeToFile arg-0 e-2 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Common-Compiler-case--11065-2523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix))))))))
+(define Common-Compiler-case--11058-2502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--11065-2523 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6))))))))))))))))
+(define Common-Compiler-case--10933-2428 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
+(define Common-Compiler-case--10937-2393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
+(define Common-Compiler-case--10890-2350 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
+(define Common-Compiler-case--10112-2164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--10442-2031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF 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 (vector 0 e-2 e-5)))))))))))))
+(define Common-Compiler-case--10112-1964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-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 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--10112-1840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--9896-1668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) 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 ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 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 ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) 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 ((act-28 (let ((act-28 (unbox arg-2))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-29 (arg-3664 eta-2))) ((arg-3665 act-29) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-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 (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-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 ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-31 (arg-3664 eta-2))) ((arg-3665 act-31) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-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 ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-32 (arg-3664 eta-2))) ((arg-3665 act-32) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (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 ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-case--9901-1460 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Common-Compiler-case--9823-1414 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9750-1345 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9677-1276 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9526-1203 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9549-1144 (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9526-1098-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a")))))))))))
+(define Common-Compiler-case--9531-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9549-1144 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
+(define Common-Compiler-case--9395-997 (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))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 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 (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))))))))))))))
+(define Common-Compiler-case--9377-975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9395-997 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
+(define Common-Compiler-case--9183-826 (lambda (arg-0 arg-1 arg-2 arg-3 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 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4 arg-0 (vector 0 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 ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-1 eta-2))) (NameMap-Data-keys 'erased 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))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
+(define Common-Compiler-case--9129-786 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 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 ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
+(define Common-Compiler-case--9102-739 (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) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) 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-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
+(define Common-Compiler-case--9077-717 (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 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (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 ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) 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-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
+(define Common-Compiler-case--8695-385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Common-Compiler-case--8696-371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Common-Compiler-n--8690-420-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0)))))
+(define Common-Compiler-n--9896-1442-nonErased (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))) (let ((act-25 ((Context-Core-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))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0))))))))))))))))
+(define Common-Compiler-n--10933-2380-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10937-2393 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
+(define Common-Compiler-n--9823-1372-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9750-1303-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9677-1234-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9526-1098-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3))))))
+(define Common-Compiler-n--9823-1373-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9823-1372-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a"))))))))
+(define Common-Compiler-n--9750-1304-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9750-1303-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a"))))))))
+(define Common-Compiler-n--9677-1235-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9677-1234-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a"))))))))
+(define Common-Compiler-n--9526-1099-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) ((Common-Compiler-case--9549-1144 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 Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8696-371 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1))))
+(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8695-385 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1))))
+(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-1))))
+(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Common-Compiler-compare_Ord__UsePhase arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Common-Compiler-C-60_Ord__UsePhase arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Common-Compiler-C-62_Ord__UsePhase arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Common-Compiler-C-60C-61_Ord__UsePhase arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Common-Compiler-C-62C-61_Ord__UsePhase arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Common-Compiler-max_Ord__UsePhase arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Common-Compiler-min_Ord__UsePhase arg-787 arg-788))))))
+(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431))))))
 (define Common-Compiler-C-62_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2)))
 (define Common-Compiler-C-62C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0)))
 (define Common-Compiler-C-61C-61_Eq__UsePhase (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 Common-Compiler-C-60_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0)))
 (define Common-Compiler-C-60C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2)))
 (define Common-Compiler-C-47C-61_Eq__UsePhase (lambda (arg-0 arg-1) (Prelude-not (Common-Compiler-C-61C-61_Eq__UsePhase arg-0 arg-1))))
-(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Common-Compiler-replaceEntry (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-0 (vector 9 e-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 (vector 1 (vector 0 ))))))))))))))))
-(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10409-2306 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0)))))))
+(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10933-2428 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0)))))))
 (define Common-Compiler-natHackNames (lambda () (vector 1 (vector 1 "prim__add_Integer") (vector 1 (vector 1 "prim__sub_Integer") (vector 1 (vector 1 "prim__mul_Integer") (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "natToInteger")) (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "integerToNat")) (vector 0 ))))))))
 (define CompileData-Common-Compiler-namedDefs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define CompileData-Common-Compiler-mainExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--10532-2380 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 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 (vector 0 fname e-5)))))))))))
-(define Common-Compiler-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 ((Context-Core-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))) ((Common-Compiler-case--8937-947 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 Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-8243 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))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-3))))) arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-3))))) arg-8244 eta-2)))) arg-8243 eta-1)))) 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC 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 ((act-28 (TTC-Core-fromBuf_TTC__RigCount 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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 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 ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-getCompileData (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 (Context-Core-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 ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-0 eta-1))) (Common-Compiler-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 (Context-Core-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 (IOArray-Data-newArray 'erased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 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 ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-0 eta-1))) 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9421-1374-nonErased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) 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 (CompileExpr-Compiler-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))) ((Inline-Compiler-fixArityExp (vector 0 ) 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 ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) 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 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-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 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1739 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1863 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-2060 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " 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 (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " 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 ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " 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 ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " 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 ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((IOArray-Data-readArray 'erased 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 ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry 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) ((Common-Compiler-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 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-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 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 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 ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--8732-783 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3)))))))))))
-(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-closeFile e-2 ext-0))) 0))) (else 1))))))
+(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--11058-2502 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 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 (vector 0 fname e-5)))))))))))
+(define Common-Compiler-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 ((Context-Core-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))) ((Common-Compiler-case--9395-997 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 Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2106 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))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-3))))) arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-3))))) arg-2107 eta-2)))) arg-2106 eta-1)))) 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC 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 ((act-28 (TTC-Core-fromBuf_TTC__RigCount 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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 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 ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-getCompileData (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 (Context-Core-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 ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) (Common-Compiler-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 (Context-Core-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 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9896-1442-nonErased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) 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 (CompileExpr-Compiler-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))) ((Inline-Compiler-fixArityExp (vector 0 ) 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 ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) 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 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-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 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-44 (arg-3664 eta-1))) ((arg-3665 act-44) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " 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 (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-45 (arg-3664 eta-1))) ((arg-3665 act-45) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " 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 ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-46 (arg-3664 eta-1))) ((arg-3665 act-46) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " 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 ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-47 (arg-3664 eta-1))) ((arg-3665 act-47) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " 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 ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry 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) ((Common-Compiler-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 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-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 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 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 ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--9183-826 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3)))))))))))
+(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1))))))
 (define Codegen-Common-Compiler-executeExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-makeExecDirectory 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 (Context-Core-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 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) ((((e-1 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) 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 Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so")))
-(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9352-1309-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9214-1179-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9068-1048-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 (File-System-writeFile arg-1 (Strings-Data-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0)))))))))))))))))
-(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9283-1244-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--10645-2492 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3)))))))
+(define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((tmpDir (Options-Core-execBuildDir e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists 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 (vector-ref sc2 2))) ((((e-1 arg-0) 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 Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so")))
+(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9823-1373-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9677-1235-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9526-1099-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 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Strings-Data-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0)))))))))))))))))
+(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9750-1304-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--11171-2615 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3)))))))
 (define Codegen-Common-Compiler-compileExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Directory-Core-makeExecDirectory 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 (Context-Core-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))) (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) ((((e-0 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) arg-2) arg-3))) ext-0))))))))))))
-(define VMCode-Compiler-case--6380-4356 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))))
-(define VMCode-Compiler-case--6307-4296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6304-4281-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6304-4281-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
-(define VMCode-Compiler-case--5585-3707 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
-(define VMCode-Compiler-n--5905-4037-toVMConstAlt (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))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1)))))))
-(define VMCode-Compiler-n--5905-3973-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-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3)))))))))))))
-(define VMCode-Compiler-n--5905-3972-projectArgs (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3)))))))))
-(define VMCode-Compiler-n--6109-4167-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
-(define VMCode-Compiler-n--6109-4218-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
-(define VMCode-Compiler-n--6304-4281-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6307-4296 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 arg-2)))))))))
-(define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36))))))))
+(define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((tmpDir (Options-Core-execBuildDir e-5))) (let ((outputDir (Options-Core-outputDirWithDefault e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists 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 (Directory-Core-ensureDirectoryExists 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 (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) (((((e-0 arg-0) tmpDir) outputDir) arg-2) arg-3))) ext-0))))))))))))))))))
+(define VMCode-Compiler-case--6597-4522 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))))
+(define VMCode-Compiler-case--6524-4460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
+(define VMCode-Compiler-case--5772-3847 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
+(define VMCode-Compiler-n--6101-4201-toVMConstAlt (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))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1)))))))
+(define VMCode-Compiler-n--6101-4137-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-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3)))))))))))))
+(define VMCode-Compiler-n--6101-4136-projectArgs (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3)))))))))
+(define VMCode-Compiler-n--6326-4331-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
+(define VMCode-Compiler-n--6326-4382-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
+(define VMCode-Compiler-n--6521-4445-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6524-4460 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-2)))))))))
+(define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36))))))))
 (define VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-2))))))))
 (define VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "DISCARD")))))
 (define VMCode-Compiler-showPrec_Show__VMInst (lambda (arg-0 arg-1) (VMCode-Compiler-show_Show__VMInst arg-1)))
 (define VMCode-Compiler-__Impl_Show_VMInst (lambda () (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x))))))
 (define VMCode-Compiler-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 (VMCode-Compiler-declareVars e-0 (VMCode-Compiler-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (VMCode-Compiler-declareVars (vector 0 ) (VMCode-Compiler-toVM 0 (vector 0 ) e-2))))))(else (vector 0 ))))))
-(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(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-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 1 (vector 3 arg-1 e-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 ))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (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 ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-41 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-41) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--5905-3973-toVMConAlt e-41 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (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 ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--5905-4037-toVMConstAlt e-42 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))))
+(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(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-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (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) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (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 ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4137-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (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 ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4201-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))))
 (define VMCode-Compiler-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 VMCode-Compiler-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))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6109-4167-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6109-4218-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6304-4281-declareAll arg-1 arg-0 arg-0 vs))))
+(define VMCode-Compiler-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))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4331-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4382-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6521-4445-declareAll arg-1 arg-0 arg-0 vs))))
 (define VMCode-Compiler-allDefs (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))) ext-0)))
-(define ANF-Compiler-case--6808-1538 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) 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 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5)))))))))))))
-(define ANF-Compiler-case--6702-1505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6702-1414-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-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))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7))))))))))))))))))))))
-(define ANF-Compiler-case--6707-1451 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3)))))))))
-(define ANF-Compiler-case--6237-1375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) 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 arg-4 arg-3 e-2 e-5)))))))))))))
-(define ANF-Compiler-case--6558-1328 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3)))))))))
-(define ANF-Compiler-case--6234-1167 (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) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2)))))))
-(define ANF-Compiler-case--6234-1078 (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))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)"))))))
-(define ANF-Compiler-n--5863-667-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4))))
-(define ANF-Compiler-n--6126-904-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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 (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
-(define ANF-Compiler-n--6702-1414-bindArgs (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) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 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 ((act-25 ((ANF-Compiler-n--6702-1414-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
-(define ANF-Compiler-n--6237-1297-bindArgs (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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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))) (let ((act-25 ((ANF-Compiler-n--6237-1297-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
+(define ANF-Compiler-case--7047-1594 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) 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 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5)))))))))))))
+(define ANF-Compiler-case--6937-1560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-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))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7))))))))))))))))))))))
+(define ANF-Compiler-case--6942-1504 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3)))))))))
+(define ANF-Compiler-case--6452-1423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) 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 arg-4 arg-3 e-2 e-5)))))))))))))
+(define ANF-Compiler-case--6788-1375 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3)))))))))
+(define ANF-Compiler-case--6449-1203 (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) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2)))))))
+(define ANF-Compiler-case--6449-1109 (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))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)"))))))
+(define ANF-Compiler-n--6063-683-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4))))
+(define ANF-Compiler-n--6338-930-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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 (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
+(define ANF-Compiler-n--6937-1464-bindArgs (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) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 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 ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
+(define ANF-Compiler-n--6452-1341-bindArgs (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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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))) (let ((act-25 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
 (define ANF-Compiler-show_Show__AVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "[__]")))))
 (define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (ANF-Compiler-show_Show__ANF e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Prelude-show_Show__Nat e-3))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-5) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-6)))))))))) (else (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (ANF-Compiler-show_Show__ANF e-7))))))))
 (define ANF-Compiler-show_Show__ANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ANF-Compiler-show_Show__AVar e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-4)) ")")))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " underapp " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-7) (Strings-Prelude-C-43C-43 ">(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-8)) ")")))))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-10) (Strings-Prelude-C-43C-43 " @ (" (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-11) ")")))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%let v" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANF e-14) (Strings-Prelude-C-43C-43 " in " (ANF-Compiler-show_Show__ANF e-15)))))))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%con " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-19)) ")"))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%op " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-22) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-23))) ")"))))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%extprim " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-25) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-26)) ")"))))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-28) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)) e-29)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-30)))))))))) ((9) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-32) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-34)))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-36))) ((11) "___") (else (let ((e-39 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%CRASH(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-39) ")"))))))))
 (define ANF-Compiler-show_Show__AConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-0) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-1)))))))))
-(define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--5863-667-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3)))))))))))))
+(define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6063-683-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3)))))))))))))
 (define ANF-Compiler-showPrec_Show__ANF (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__ANF arg-1)))
 (define ANF-Compiler-showPrec_Show__AConstAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)))
 (define ANF-Compiler-showPrec_Show__AConAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)))
@@ -7162,29 +6543,29 @@
 (define ANF-Compiler-__Impl_Show_AConstAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConstAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConstAlt d x))))))
 (define ANF-Compiler-__Impl_Show_AConAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConAlt d x))))))
 (define ANF-Compiler-toVect (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 )))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (ANF-Compiler-toVect 'erased e-0 e-4) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-3 xsC-39)))))))(else (vector 0 ))))))))))
-(define ANF-Compiler-toANF (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((act-25 ((ANF-Compiler-n--6702-1414-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 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 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6702-1414-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) 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 ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-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 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 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))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) 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-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))))))))))))))
+(define ANF-Compiler-toANF (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 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 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) 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 ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-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 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 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))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) 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-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))))))))))))))
 (define ANF-Compiler-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 (b+ 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 ANF-Compiler-mlet (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))) (lambda (eta-0) (vector 1 (arg-3 e-1)))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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 (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5)))))))))))))))
 (define ANF-Compiler-lookup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-8 (vector-ref sc0 2))) (ANF-Compiler-lookup 'erased 'erased e-0 'erased e-8)))))))))
-(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-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 (ANF-Compiler-n--6126-904-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5)))))))))
+(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-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 (ANF-Compiler-n--6338-930-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5)))))))))
 (define ANF-Compiler-bindArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 )) e-6)))))))))) ((11) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 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))) (vector 1 (vector 1 (vector 0 (vector 1 ) (vector 0 )) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 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 ((act-25 ((ANF-Compiler-bindArgs arg-0 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))) (vector 1 (vector 1 (vector 0 (vector 0 e-5) (vector 1 e-2)) e-6)))))))))))))))))))))))
 (define ANF-Compiler-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6237-1297-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-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 (vector 0 e-1 e-2 e-7 e-8)))))))))))))))))))))))
+(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-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 (vector 0 e-1 e-2 e-7 e-8)))))))))))))))))))))))
 (define ANF-Compiler-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ANF-Compiler-anf arg-0 arg-1 arg-3 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))) (ANF-Compiler-letBind arg-1 arg-2 e-5 arg-5 ext-0))))))))
-(define ANF-Compiler-anf (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))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((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 (ANF-Compiler-nextVar 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 ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 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-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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) 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))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--6234-1167 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((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) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (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 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) 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))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) 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))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54))))))))))
-(define LambdaLift-Compiler-case--6581-1549 (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))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LambdaLift-Compiler-case--6565-1537 (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 ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6581-1549 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LambdaLift-Compiler-case--6469-1504 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3))))))))
-(define LambdaLift-Compiler-case--6469-1451 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3))))))))
-(define LambdaLift-Compiler-case--5952-1060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2)))))))
-(define LambdaLift-Compiler-case--5979-999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3)))
-(define LambdaLift-Compiler-case--5881-915 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63)))))))
-(define LambdaLift-Compiler-n--5956-1207-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-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))) (let ((act-25 ((LambdaLift-Compiler-n--5956-1207-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define LambdaLift-Compiler-n--5881-878-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 (LambdaLift-Compiler-n--5881-878-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))) (LambdaLift-Compiler-n--5881-878-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
-(define LambdaLift-Compiler-n--5956-1343-liftConstAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define LambdaLift-Compiler-n--5956-1298-liftConAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
-(define LambdaLift-Compiler-n--5952-962-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--5952-961-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
-(define LambdaLift-Compiler-n--5952-961-allPrfs (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--5952-961-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))
+(define ANF-Compiler-anf (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))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((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 (ANF-Compiler-nextVar 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 ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 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-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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) 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))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--6449-1203 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((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) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (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 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) 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))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) 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))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54))))))))))
+(define LambdaLift-Compiler-case--6797-1604 (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))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LambdaLift-Compiler-case--6779-1592 (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 ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6797-1604 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LambdaLift-Compiler-case--6681-1556 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3))))))))
+(define LambdaLift-Compiler-case--6681-1502 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3))))))))
+(define LambdaLift-Compiler-case--6143-1089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2)))))))
+(define LambdaLift-Compiler-case--6170-1023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3)))
+(define LambdaLift-Compiler-case--6070-939 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63)))))))
+(define LambdaLift-Compiler-n--6147-1243-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-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))) (let ((act-25 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define LambdaLift-Compiler-n--6070-900-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 (LambdaLift-Compiler-n--6070-900-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))) (LambdaLift-Compiler-n--6070-900-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
+(define LambdaLift-Compiler-n--6147-1386-liftConstAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
+(define LambdaLift-Compiler-n--6147-1338-liftConAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
+(define LambdaLift-Compiler-n--6143-986-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
+(define LambdaLift-Compiler-n--6143-985-allPrfs (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))
 (define LambdaLift-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (List-Data-reverse 'erased e-1)) (Strings-Prelude-C-43C-43 ": " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased 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))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-3) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-4) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat 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))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-7) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-8)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (vector 0 ) e-9))))))))
 (define LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-1) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-2)))))))))
 (define LambdaLift-Compiler-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-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) e-4))))))))))))
@@ -7197,90 +6578,789 @@
 (define LambdaLift-Compiler-__Impl_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedC-32C-36vsC-41 arg-0 d x))))))
 (define LambdaLift-Compiler-unload (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LambdaLift-Compiler-unload 'erased arg-1 (vector 3 arg-1 arg-2 e-2) e-3))))))))
 (define LDefs-LambdaLift-Compiler-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 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 (LambdaLift-Compiler-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 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) 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-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--5952-962-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1))))))))))))))))))))))))))))
-(define LambdaLift-Compiler-liftExp (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))) (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 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) 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 ((LambdaLift-Compiler-liftExp arg-0 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 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) 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-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))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) 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 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 5 e-23 e-24 e-25 e-5))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--5956-1207-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased 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 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--5956-1298-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) 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-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--5956-1343-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59))))))))))
+(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 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 (LambdaLift-Compiler-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 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) 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-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--6143-986-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1))))))))))))))))))))))))))))
+(define LambdaLift-Compiler-liftExp (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))) (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 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) 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 ((LambdaLift-Compiler-liftExp arg-0 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 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) 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-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))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) 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 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 5 e-23 e-24 e-25 e-5))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased 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 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1338-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) 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-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1386-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59))))))))))
 (define LambdaLift-Compiler-liftBody (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-1 (vector 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 ((act-25 ((LambdaLift-Compiler-liftExp 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 ((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 (vector 0 e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)))))))))))))))))))))
 (define LambdaLift-Compiler-lambdaLiftDef (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 (LambdaLift-Compiler-liftBody e-0 arg-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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 0 e-0 (vector 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 1 e-2 e-3 e-4)) (vector 0 )))))))) ((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) (vector 1 (vector 1 (vector 0 arg-0 (vector 2 e-5 e-6 e-7)) (vector 0 )))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody (vector 0 ) arg-0 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 3 e-2)) e-3)))))))))))))))))
-(define LambdaLift-Compiler-lambdaLift (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 ((Context-Core-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))) ((LambdaLift-Compiler-case--6581-1549 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 LambdaLift-Compiler-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 ((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 (b+ 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 (LambdaLift-Compiler-n--5881-878-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i))))))))))))))
+(define LambdaLift-Compiler-lambdaLift (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 ((Context-Core-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))) ((LambdaLift-Compiler-case--6797-1604 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 LambdaLift-Compiler-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 ((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 (b+ 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 (LambdaLift-Compiler-n--6070-900-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i))))))))))))))
 (define LDefs-LambdaLift-Compiler-defs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define LDefs-LambdaLift-Compiler-basename (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Gambit-Scheme-Compiler-case--10307-2517 (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 e-1 eta-1))) (vector 1 act-24))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Gambit-Scheme-Compiler-case--10202-2457 (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) (vector 1 (vector 1 (Path-Utils-C-60C-47C-62 arg-2 arg-0))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Gambit-Scheme-Compiler-case--10000-2326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Gambit-Scheme-Compiler-case--9812-2104 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-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 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-11) (Strings-Prelude-C-43C-43 arg-12 (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-9)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\u000a"))))))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-case--9678-1969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--9678-1926-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-c-struct " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")\u000a")))))))))))))))))))))
-(define Gambit-Scheme-Compiler-case--9434-1715 (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) (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 0 e-7 ""))))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9434-1707-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-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-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 1 e-15) e-7))))))))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9434-1707-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 1 e-15) e-7)))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Gambit-Scheme-Compiler-case--9389-1667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Gambit-Scheme-Compiler-case--8787-1538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet arg-9 arg-18) arg-15))(else (vector 0 arg-18 arg-15))))))
-(define Gambit-Scheme-Compiler-case--8805-1395 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (vector 1 (vector 0 arg-11 arg-12 e-2 e-6 e-7)))))))))))))
-(define Gambit-Scheme-Compiler-case--8801-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) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 " " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (i) (Strings-Prelude-C-43C-43 "farg-" (Prelude-show_Show__Integer i))) (Prelude-rangeFromTo_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Integer arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Integer arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Integer arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Integer arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Integer arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Integer arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Integer arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Integer arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Integer arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Integer arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Integer arg-2904 arg-2905)))))) 0 (Prelude-C-45_Neg__Integer (List-Data-length 'erased arg-9) 1)))))) (else "")))))
-(define Gambit-Scheme-Compiler-case--7930-285 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Gambit-Scheme-Compiler-n--9678-1926-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1101-replaceChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (Prelude-pack (List-Data-replaceOn 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) arg-8 arg-9 (Prelude-unpack ext-0)))))
-(define Gambit-Scheme-Compiler-n--8787-1099-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1104-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
-(define Gambit-Scheme-Compiler-n--8554-924-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8554-924-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8554-924-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 "(function (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8481-849-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8481-849-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8481-849-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cType arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cType arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (*)(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-6) ")"))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--9434-1707-fnWrapName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 arg-7 "-cFunWrap")))))
-(define Gambit-Scheme-Compiler-n--8787-1105-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8787-1105-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) args)) 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 ((Gambit-Scheme-Compiler-cftySpec arg-5 arg-10) 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 0 (Gambit-Scheme-Compiler-n--8787-1104-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (vector 0 e-5 e-6))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1102-buildCWrapperDefs (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-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 ((box (Strings-Prelude-C-43C-43 e-1 "-box"))) (let ((setBox (Strings-Prelude-C-43C-43 "\u000a (set-box! " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 ")")))))) (let ((cWrapName (Gambit-Scheme-Compiler-n--8787-1101-replaceChar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 #\- #\_ e-1))) (let ((boxDef (Strings-Prelude-C-43C-43 "\u000a(define " (Strings-Prelude-C-43C-43 box " (box #f))\u000a")))) (let ((args (Gambit-Scheme-Compiler-case--8801-1191 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 e-3 e-2 e-1 e-0 box setBox cWrapName boxDef (Prelude-C-62_Ord__Nat (List-Data-length 'erased e-3) 0)))) (let ((cWrapDef (Strings-Prelude-C-43C-43 "\u000a(c-define " (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-3) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-4 (Strings-Prelude-C-43C-43 " \"" (Strings-Prelude-C-43C-43 cWrapName (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 " \"\"" (Strings-Prelude-C-43C-43 "\u000a ((unbox " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" "\u000a)\u000a"))))))))))))))))))))) (vector 0 setBox boxDef cWrapDef)))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1103-buildCFunWrapDeclaration (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Strings-Prelude-C-43C-43 "\u000a(c-declare #<<c-declare-end\u000a" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " arg-10) (Strings-Prelude-C-43C-43 ");" "\u000ac-declare-end\u000a)\u000a")))))))))
-(define Gambit-Scheme-Compiler-n--8787-1106-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((arg (Common-Scheme-Compiler-schName e-2))) (let ((schemeWrap (arg-3 arg))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-n--8787-1105-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg (vector 1 e-4 (vector 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 schemeWrap (vector 1 (vector 0 arg schemeWrap e-8 e-10 e-9)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (Common-Scheme-Compiler-schName e-2) (vector 0 ))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1100-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
+(define Inline-Compiler-case--10175-3980 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Inline-Compiler-case--10107-3918 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10089-3906 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10107-3918 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10024-3845 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10006-3833 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10024-3845 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9941-3772 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9923-3760 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9941-3772 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9893-3726 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))))))))
+(define Inline-Compiler-case--9730-3581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs))))))))))))
+(define Inline-Compiler-case--9161-3039 (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 ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
+(define Inline-Compiler-case--9135-3021 (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))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9161-3039 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
+(define Inline-Compiler-case--7196-2915 (lambda (arg-0 arg-1 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) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-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 Inline-Compiler-case--8773-2726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 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))) (vector 1 (vector 1 e-5)))))))))))))))
+(define Inline-Compiler-case--7189-2685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Inline-Compiler-case--8773-2726 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11))))))
+(define Inline-Compiler-case--7177-2555 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-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 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5))))))))))))))
+(define Inline-Compiler-case--7172-2510 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3)))))))))
+(define Inline-Compiler-case--7166-2360 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Inline-Compiler-case--7166-2249 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) 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 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Inline-Compiler-case--7166-2148 (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) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9)))))))))
+(define Inline-Compiler-case--7166-1912 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 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))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 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))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) 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))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6))))))))))))))))))))))))
+(define Inline-Compiler-case--7605-1662 (lambda (arg-0 arg-1 arg-2 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 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 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))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7568-1623 (lambda (arg-0 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 ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7605-1662 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 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7166-1597 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7568-1623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7161-1395 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--7154-1307 (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-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4)))))))
+(define Inline-Compiler-case--6656-1163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6)))
+(define Inline-Compiler-case--6653-845 (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) 1000) (else arg-8)))))
+(define Inline-Compiler-case--6653-752 (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) 1) (else 0)))))
+(define Inline-Compiler-case--6591-699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3))))))
+(define Inline-Compiler-case--6456-585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3)))))))
+(define Inline-Compiler-n--9135-3206-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 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 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define Inline-Compiler-n--10172-3962-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 ((Context-Core-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 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1))))))))))))))))
+(define Inline-Compiler-n--7189-2648-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) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1)))))
+(define Inline-Compiler-n--9135-3377-fixArityConstAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
+(define Inline-Compiler-n--9135-3320-fixArityAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
+(define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2)))))
+(define Inline-Compiler-usedCon (lambda (arg-0 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))) (Inline-Compiler-case--6656-1163 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2)))))))))
+(define Inline-Compiler-used (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))) (Inline-Compiler-case--6653-752 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased 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 ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6653-845 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0)))))
+(define Inline-Compiler-unloadApp (lambda (arg-0 arg-1 arg-2 arg-3) (Inline-Compiler-unload 'erased (List-Data-drop 'erased arg-1 arg-2) (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (List-Data-take 'erased arg-1 arg-2)))))
+(define Inline-Compiler-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-unload 'erased e-3 (vector 4 (CompileExpr-Core-getFC 'erased arg-2) arg-2 (vector 1 e-2 (vector 0 )))))))))))
+(define Inline-Compiler-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))) (Inline-Compiler-case--7161-1395 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))
+(define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3)))
+(define Inline-Compiler-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)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--7196-2915 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 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (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))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--7189-2685 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7189-2648-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3)))))))))
+(define Inline-Compiler-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))) (Inline-Compiler-case--9730-3581 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1))))))
+(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--10107-3918 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 Inline-Compiler-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))) (Inline-Compiler-case--9893-3726 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6591-699 'erased 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9941-3772 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 Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 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 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9)))))))))))))))
+(define Inline-Compiler-getLams (lambda (arg-0 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))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4)))))))
+(define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Data-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Data-length 'erased e-6))) (else 0)))))
+(define Inline-Compiler-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 (b+ 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9161-3039 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 (Inline-Compiler-unload 'erased 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 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 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-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 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 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 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))) (vector 1 (CompileExpr-Compiler-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 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased 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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) 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 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) 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 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3320-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3377-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) 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 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))
+(define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 ))))
+(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--10024-3845 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 Inline-Compiler-fixArity (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 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 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))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (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))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Inline-Compiler-extendLoc (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 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" 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 ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4))))))))))))))))))))))))
+(define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16)))))))))))))
+(define Inline-Compiler-evalLocal (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-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 e-7)))(else (Inline-Compiler-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CompileExpr-Core-weakenNs_Weaken__CExp arg-2 e-3 e-7))))))(else (let ((e-9 (- arg-9 1))) (Inline-Compiler-evalLocal 'erased e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9 'erased))))))))))))))
+(define Inline-Compiler-evalConstAlt (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0)))))))
+(define Inline-Compiler-evalAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-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 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8))))))))))))))))))))))))
+(define Inline-Compiler-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-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (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 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) 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))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-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-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (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-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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-62 (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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (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 ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))))
+(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-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 Inline-Compiler-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 ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--10172-3962-nonErased arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) 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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))))))))))))))))))))))))))))))))))))))
+(define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.CompileExpr.CExp" arg-0))))
+(define Commands-IDEMode-Idris-case--3173-3016 (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))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 )))))))))
+(define Commands-IDEMode-Idris-case--2106-2284 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-case--2106-2181 (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 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2106-2172-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-case--2106-2132 (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 6 arg-0 arg-1 e-1 1))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-n--2106-2172-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all")))
+(define Commands-IDEMode-Idris-n--3000-2817-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 )))))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__String (lambda (ext-0) (vector 1 ext-0)))
+(define Commands-IDEMode-Idris-toSExp_SExpable__SExp (lambda (ext-0) ext-0))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Nat (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Nat_Integer ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Name (lambda (ext-0) (vector 4 (Name-Core-show_Show__Name ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Integer (lambda (ext-0) (vector 3 ext-0)))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Int (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Int_Integer ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Bool (lambda (ext-0) (vector 2 ext-0)))
+(define Commands-IDEMode-Idris-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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3173-3016 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3)))))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (arg-1 arg-3)) arg-2))))
+(define Commands-IDEMode-Idris-show_Show__SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" e-4)))))))
+(define Commands-IDEMode-Idris-showPrec_Show__SExp (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)))
+(define Commands-IDEMode-Idris-__Impl_Show_SExp (lambda () (vector 0 (lambda (x) (Commands-IDEMode-Idris-show_Show__SExp x)) (lambda (d) (lambda (x) (Commands-IDEMode-Idris-showPrec_Show__SExp d x))))))
+(define Commands-IDEMode-Idris-__Impl_SExpable_SExp (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp ext-0)))
+(define Commands-IDEMode-Idris-__Impl_SExpable_Int (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int ext-0)))
+(define Commands-IDEMode-Idris-__Impl_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-0 arg-1 arg-2 ext-0) (Commands-IDEMode-Idris-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 'erased 'erased arg-2 ext-0)))
+(define Commands-IDEMode-Idris-__Impl_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased arg-1 ext-0)))
+(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-2897) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2897)) (lambda (arg-2897) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898)) (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898))) arg-2897))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1)))))
+(define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0)))
+(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 arg-1) ext-0)))
+(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Prelude-cast_Cast__Nat_Int (Prelude-length 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 (Commands-IDEMode-Idris-sendStr arg-2 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 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) (vector 1 act-26))))))))))))))
+(define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2106-2132 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2106-2181 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (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)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3000-2817-escapeChar eta-0))) (Prelude-unpack ext-0)))))
+(define Error-Idris-case--10453-3195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-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 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-8)))))))))))))))))))))))
+(define Error-Idris-case--10453-2901 (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))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-2821-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) 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 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\u000a" (Name-Core-showSep "\u000a" e-5))))))))))))))
+(define Error-Idris-case--10453-2735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0))))))
+(define Error-Idris-case--10453-2572 (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) (let ((act-24 ((Error-Idris-ploc arg-4 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " is not accessible in this context at:\u000a" e-5)))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 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 (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2537-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2538-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-0) (Strings-Prelude-C-43C-43 " context at:\u000a" e-5)))))))))))))))))))
+(define Error-Idris-case--10453-2456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
+(define Error-Idris-case--10259-2065 (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) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat arg-4 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "") (Extra-List-Data-elemAt 'erased arg-8 arg-4)) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 arg-5 #\ ) (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 (Prelude-minus arg-7 arg-5) #\^) "\u000a"))))))))) (else (lambda (eta-0) (vector 1 (Error-Idris-n--10259-1958-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 (Error-Idris-n--10259-1956-extractRange arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-6 arg-8)))))))))
+(define Error-Idris-case--10272-1994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a")))))))))))
+(define Error-Idris-n--10453-3062-tshow (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5))))))))))))))
+(define Error-Idris-n--10453-2537-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
+(define Error-Idris-n--10453-2538-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
+(define Error-Idris-n--10453-2190-showPVar (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))) (Error-Idris-n--10453-2190-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-show_Show__Name arg-8))))))
+(define Error-Idris-n--10453-3707-showMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Name-Core-showSep "." (List-Data-reverse 'erased arg-4))))
+(define Error-Idris-n--10453-3263-showHoles (lambda (arg-0 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\u000a" (Error-Idris-n--10453-3263-showHoles arg-0 arg-1 arg-2 arg-3 e-3)))))))))))))))
+(define Error-Idris-n--10259-1957-repeatChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-pack (Prelude-take 'erased arg-4 (Stream-Data-repeat 'erased arg-5)))))
+(define Error-Idris-n--10453-2821-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 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))) (let ((act-25 ((Error-Idris-perror arg-3 arg-2 arg-1 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-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\u000a")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\u000a\u0009" e-5))))))))))))))))
+(define Error-Idris-n--10259-1956-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Prelude-C-43_Num__Nat (Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7))))
+(define Error-Idris-n--10453-3130-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) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))
+(define Error-Idris-n--10453-2822-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--10453-2822-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Error-Idris-n--10259-1958-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-snd 'erased 'erased (Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\u0009" (Strings-Prelude-C-43C-43 l "\u000a")))))))))) (vector 0 arg-4 "") arg-5))))
+(define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 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 (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5))))))))))))))
+(define Error-Idris-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 (Resugar-Idris-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 (Syntax-Idris-show_Show__PTerm e-6)))))))))))))
+(define Error-Idris-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 (let ((act-25 (Normalise-Core-normaliseHoles 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))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 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 (Syntax-Idris-show_Show__PTerm e-6))))))))))))))
+(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 ""))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sr (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-1)))) (let ((sc (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-1)))) (let ((er (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-2)))) (let ((ec (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-0 eta-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))) ((Error-Idris-case--10259-2065 e-0 e-2 e-1 arg-0 sr sc er ec e-5 (Prelude-C-61C-61_Eq__Nat sr er)) eta-0)))))))))))))))))))
+(define Error-Idris-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))) (Error-Idris-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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Mismatch between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aand\u000a\u0009" (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" 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) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 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 ((Error-Idris-ploc arg-2 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2190-showPVar e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" e-6))))))))))))))))))))))) ((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 ((Context-Core-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a" 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))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 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 ((Error-Idris-ploc arg-2 e-28) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a valid impossible case at:\u000a" e-6)))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) 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 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\u000a" e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Undefined name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((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-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) 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 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-202)) (Strings-Prelude-C-43C-43 " is not explicitly imported at:\u000a" e-5)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) 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 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is private at:\u000a" e-5))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) (Strings-Prelude-C-43C-43 " must be Type at:\u000a" 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 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Error-Idris-ploc arg-2 e-41) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-7)))))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Error-Idris-ploc arg-2 e-41) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000a\u0009" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205))))))))))))))))))))))))))))))) ((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 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\u000a\u0009" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__PartialReason e-46) (Strings-Prelude-C-43C-43 "\u000aat:\u000a" 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-49) (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))) ((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))) (Error-Idris-case--10453-2572 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-52))))))) ((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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " so must be fully applied at:\u000a" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows, so must return a concrete type at:\u000a" e-6))))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Ambiguous name " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64) (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Context-Core-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 (Context-Core-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 ((Error-Idris-ploc arg-2 e-66) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) 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 ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration at:\u000a" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "Possible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" e-8)))))) (let ((act-28 (Context-Core-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 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 (Error-Idris-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 ((Error-Idris-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-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 (Strings-Prelude-C-43C-43 "Multiple solutions found in search of:\u000a\u0009" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000aat:\u000a" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\u000aPossible correct results:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" 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 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)) (Strings-Prelude-C-43C-43 " at:\u000a" e-7)))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--10453-2901 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--10453-2822-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for this record update at:\u000a" e-5)))))))))) ((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) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) 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 (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " is not part of a record type at:\u000a" e-5)))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) 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 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-208) (Strings-Prelude-C-43C-43 " has no field " (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) (Strings-Prelude-C-43C-43 " is not a record type at:\u000a" e-5)))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) (Strings-Prelude-C-43C-43 " not compatible with other updates at:\u000a" 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))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-213) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 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))) (let ((act-25 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3062-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-5) (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " here at:\u000a" (Strings-Prelude-C-43C-43 e-6 "Try binding explicitly.")))))))))))))))))))))))) ((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))) (Error-Idris-case--10453-3195 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--10453-3130-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 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-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\u000a" (Error-Idris-n--10453-3263-showHoles e-112 arg-2 arg-1 arg-0 e-112)))))) ((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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) (Strings-Prelude-C-43C-43 " has been solved by unification\u000a" (Strings-Prelude-C-43C-43 "Result: " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-6) (Strings-Prelude-C-43C-43 " at:\u000a" e-7))))))))))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Non linear pattern " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-130) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-132) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "No type declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-134) (Strings-Prelude-C-43C-43 " at:\u000a" e-5))))))))))))) ((38) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-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-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a function type at:\u000a" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\u000a" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a rewrite rule type at:\u000a" 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 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " have differing numbers of arguments at:\u000a" e-6)))))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " require matching on different types at:\u000a" e-6)))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type to match in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-215 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " is not fully applied at:\u000a" e-6))))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 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 ((Context-Core-prettyName arg-0 e-151) 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))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) 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-7 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at\u000a:" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-156) (Strings-Prelude-C-43C-43 ") at\u000a" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " as it has a polymorphic type at:\u000a" e-6)))))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-164 (Strings-Prelude-C-43C-43 " at\u000a" (Strings-Prelude-C-43C-43 e-5 "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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Bad elaborator script " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\u000a" e-6)))))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-170 (Strings-Prelude-C-43C-43 " at:\u000a" e-5)))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-173))))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177)))))) ((51) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found"))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3707-showMod e-180 arg-2 arg-1 arg-0 eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-182))))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) 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 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) 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 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":\u000a" e-6))))))))))))))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) 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 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":\u000a" e-6)))))))))))))))))))))))))
+(define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-3)) e-5)))))))))
+(define Error-Idris-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-3)) e-5)))))))))
+(define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4))))))))))))
+(define Resugar-Idris-case--11687-5205 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
+(define Resugar-Idris-case--11691-5127 (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))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
+(define Resugar-Idris-case--10016-5024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11)))))))))))))))
+(define Resugar-Idris-case--10010-4842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-n--10010-4770-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
+(define Resugar-Idris-case--11031-4585 (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-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0))))))
+(define Resugar-Idris-case--9992-4531 (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 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) 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 (Resugar-Idris-showFullEnv arg-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 ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0)))))))))))))))))))
+(define Resugar-Idris-case--9989-4438 (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) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3))))))
+(define Resugar-Idris-case--9986-4198 (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) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8))))))
+(define Resugar-Idris-case--10386-3977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17)))))
+(define Resugar-Idris-case--9986-3901 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
+(define Resugar-Idris-case--9986-3826 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
+(define Resugar-Idris-case--9986-3758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Resugar-Idris-case--9986-3679 (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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) 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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0))))))
+(define Resugar-Idris-case--9986-3639 (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 (Resugar-Idris-toPRef arg-1 arg-0))))))
+(define Resugar-Idris-case--9950-3567 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0)))))))))
+(define Resugar-Idris-case--9614-3514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 ))))))
+(define Resugar-Idris-case--9629-3414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9629-3311 (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-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9614-3263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9629-3311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9629-3414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9552-3197 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 ))))))
+(define Resugar-Idris-case--9457-3130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Resugar-Idris-case--9392-3106 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0)))))
+(define Resugar-Idris-case--9308-3004 (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) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4)))))))))
+(define Resugar-Idris-n--9392-3056-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0)))))
+(define Resugar-Idris-n--9986-3943-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)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (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)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--10386-3977 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 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7)))))
+(define Resugar-Idris-n--10010-4770-mapPiInfo (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
+(define Resugar-Idris-n--11687-5123-cleanNode (lambda (arg-0 arg-1 arg-2) (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (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 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5 e-11))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-12 e-13 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define Resugar-Idris-n--11687-5122-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))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
+(define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (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 Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0)))))
+(define Resugar-Idris-tyPrec (lambda () (+ 1 0)))
+(define Resugar-Idris-toPTypeDecl (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 0 e-0 e-1 "" e-5))))))))))))))
+(define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) 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 ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (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 ((Context-Core-lookupCtxtExact 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))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) 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-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 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-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0))))))))))))
+(define Resugar-Idris-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 (Context-Core-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))) ((Resugar-Idris-case--9986-3639 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))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) 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 ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) 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))) (let ((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 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--9986-3943-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 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 (Resugar-Idris-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) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) 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 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0))))))))))
+(define Resugar-Idris-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 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1)))))))))
+(define Resugar-Idris-toPRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (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 ((Resugar-Idris-n--10010-4770-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (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 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-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 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6)))))))))))))))))))))))
+(define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-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))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2))))))))
+(define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-2 e-5)))))))))))))))
+(define Resugar-Idris-toPField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) 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 0 e-0 e-1 e-6 e-3 e-5)))))))))))))))))))))
+(define Resugar-Idris-toPDecl (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFnOpt arg-0 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 ((Resugar-Idris-toPTypeDecl arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPData 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) (Builtin-snd 'erased 'erased ntm)) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 3 e-11 e-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPRecord arg-0 arg-1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 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))) (vector 1 (vector 1 (vector 11 e-18 e-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-24) 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 1 (vector 12 e-21 (Name-Core-show_Show__Name e-22) e-5 e-6))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 1 (vector 13 e-25 e-5)))))))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Resugar-Idris-toPData (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTypeDecl arg-0 arg-1 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-5 e-6 e-8))))))))))))))))
+(define Resugar-Idris-toPClause (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (vector 1 (vector 0 e-0 e-5 e-6 (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 2 e-8 e-5)))))))))))))))
+(define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) (Resugar-Idris-cleanPTerm arg-0 e-5 ext-0))))))))
+(define Resugar-Idris-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (Resugar-Idris-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (Name-Core-show_Show__Name arg-0))))))
+(define Resugar-Idris-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-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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9614-3263 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 ))))))
+(define Resugar-Idris-sugarApp (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () arg-0) (Resugar-Idris-sugarAppM arg-0))))
+(define Resugar-Idris-startPrec (lambda () 0))
+(define Resugar-Idris-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
+(define Resugar-Idris-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
+(define Resugar-Idris-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (Resugar-Idris-toCleanPTerm arg-0 arg-1 (Resugar-Idris-startPrec) arg-2 ext-0)))
+(define Resugar-Idris-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))) (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))) (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-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--9308-3004 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0)))))))))))))))))))))))))))
+(define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-0 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 ))))))
+(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-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 ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0)))))))))))
+(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) ((Resugar-Idris-case--9457-3130 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0))))))))
+(define Resugar-Idris-argPrec (lambda () (Prelude-fromInteger_Num__Nat 1000)))
+(define Resugar-Idris-appPrec (lambda () (Prelude-fromInteger_Num__Nat 999)))
+(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--9392-3106 arg-1 arg-0 (Resugar-Idris-n--9392-3056-needed arg-1 arg-0 arg-1))))
+(define ProcessIdr-Idris-case--17172-3971 (lambda (arg-0 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 (eta-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 (Context-Core-getDirs 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-6 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 ((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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1))))) arg-6 arg-4 e-9 arg-9 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 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" 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 (Metadata-Core-writeToTTM arg-6 arg-5 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10)))))))
+(define ProcessIdr-Idris-case--17113-3945 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessIdr-Idris-case--17089-3892 (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 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" 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 ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 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 ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 ))))))))))
+(define ProcessIdr-Idris-case--16573-3715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-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))) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define ProcessIdr-Idris-case--16573-3595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-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 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) 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 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define ProcessIdr-Idris-case--16414-3419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) 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 (UnifyState-Core-resetNextVar arg-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-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) 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 ((act-29 (Context-Core-setNS arg-8 arg-21 eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (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-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (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))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--16137-3273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-setNS arg-8 arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 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 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3404) (vector 0 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) 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))) (let ((act-28 (UnifyState-Core-resetNextVar arg-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 ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) 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 (Context-Core-setNS arg-8 arg-21 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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-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-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (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 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 ))))))))))))))))))))))))
+(define ProcessIdr-Idris-case--16137-3050 (lambda (arg-0 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 ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))
+(define ProcessIdr-Idris-case--16030-2919 (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))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define ProcessIdr-Idris-case--15991-2904 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16030-2919 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define ProcessIdr-Idris-case--15995-2874 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1)))))
+(define ProcessIdr-Idris-case--15853-2758 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 (vector 1 0)))))))))))
+(define ProcessIdr-Idris-case--15840-2739 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define ProcessIdr-Idris-case--15813-2716 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0)))))
+(define ProcessIdr-Idris-case--15612-2655 (lambda (arg-0 arg-1 arg-2 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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9)))))))))))))
+(define ProcessIdr-Idris-case--15591-2508 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 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 ((act-26 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 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 ((act-27 (let ((act-27 (unbox arg-2))) (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-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) 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 (Context-Core-getSession arg-3 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 ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 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 (unbox arg-2))) (vector 1 act-30)))) (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 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (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-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (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 ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0)))))))
+(define ProcessIdr-Idris-case--15483-2406 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash 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 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
+(define ProcessIdr-Idris-case--15211-2183 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 ((act-26 (Context-Core-getNS arg-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-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--15170-2147 (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))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (Context-Core-getNS arg-8 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-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
+(define ProcessIdr-Idris-case--15115-2114 (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 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-8 arg-4 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)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-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-8))) (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 (Context-Core-getNS arg-8 eta-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-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--15013-2027 (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 1 arg-6 (vector 0 )))(else arg-8)))))
+(define ProcessIdr-Idris-case--14981-1977 (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 (ProcessDecls-TTImp-getTotalityErrors 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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15013-2027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5)))))))))))
+(define ProcessIdr-Idris-n--15991-2869-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--15995-2874 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
+(define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0)))))))
+(define ProcessIdr-Idris-readModule (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))) ((ProcessIdr-Idris-case--15115-2114 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
+(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-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-1 (vector-ref sc0 2))) e-1)) (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 (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (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 ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--16030-2919 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
+(define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-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 (Binary-Core-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 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0))))))))))))
+(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (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)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 (Desugar-Idris-extendAs arg-2 e-8 e-8 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 m 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 (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 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 (Context-Core-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 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 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 (Context-Core-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 (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0)))))))))))
+(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 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 (Context-Core-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 ((imps (ProcessIdr-Idris-case--16137-3050 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15))))) 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 ((act-30 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\u000a" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) 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 ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-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 (ProcessIdr-Idris-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 ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--16137-3273 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) e-12)) (lambda () (Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0)))
+(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-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 (UnifyState-Core-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 (ProcessDecls-TTImp-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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (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))) (ProcessIdr-Idris-case--15013-2027 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))))))))))))))))))))
+(define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) 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 (err) (lambda (eta-0) (let ((act-24 (Unify-Core-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 err)))))))) ext-0)))
+(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-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 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-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))) ((ProcessIdr-Idris-case--17172-3971 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 ))))))))))))))
+(define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )))))
+(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC))))))
+(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7328) (Hash-Core-hash_Hashable__String arg-7328)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7330) (lambda (arg-7331) (Hash-Core-hashWithSalt_Hashable__String arg-7330 arg-7331)))) arg-7328 arg-7329)))) 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 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15813-2716 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0))))))
+(define ProcessIdr-Idris-addImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 e-5 ext-0))))))))))))
+(define Parser-Idris-case--22391-20945 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
+(define Parser-Idris-case--22336-20903 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10))))))))))))
+(define Parser-Idris-case--21042-19543 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option")))))))
+(define Parser-Idris-case--9786-18982 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3)))))))
+(define Parser-Idris-case--20456-18935 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3))))))
+(define Parser-Idris-case--20423-18874 (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 (vector 0 ) (vector 1 arg-5 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-Idris-case--20456-18935 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9786-18840-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
+(define Parser-Idris-case--9785-18747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Parser-Idris-case--19272-17899 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7)))))))))))
+(define Parser-Idris-case--19272-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
+(define Parser-Idris-case--19050-17434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Parser-Idris-case--16454-14525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--16452-14510-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define Parser-Idris-case--15819-13850 (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 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3)))))))
+(define Parser-Idris-case--10340-12473 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable"))))))
+(define Parser-Idris-case--10328-11463 (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 3 arg-9 (vector 1 arg-3) arg-2 arg-5 arg-6) (Parser-Idris-buildDoLets arg-8 arg-7))) (else (vector 1 (vector 4 arg-9 (vector 0 arg-4 (vector 1 arg-3)) arg-5 arg-6 (vector 0 )) (Parser-Idris-buildDoLets arg-8 arg-7)))))))
+(define Parser-Idris-case--10318-10581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
+(define Parser-Idris-case--10311-9541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4))))))
+(define Parser-Idris-case--10304-8668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8686) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8696) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed"))))))
+(define Parser-Idris-case--10594-8234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 1)))))
+(define Parser-Idris-case--10301-8188 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8202) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8212) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here")))))))
+(define Parser-Idris-case--10301-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4)))))))
+(define Parser-Idris-case--9826-7678 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7693) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-case--9826-7654 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7669) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 )))))))))))
+(define Parser-Idris-case--9826-7630 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7645) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 )))))))))))
+(define Parser-Idris-case--9826-7610 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x))))))))))
+(define Parser-Idris-case--9826-7586 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7601) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9826-7562 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7577) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9826-7542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x))))))))))
+(define Parser-Idris-case--9826-7519 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x))))))))))
+(define Parser-Idris-case--9826-7498 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7511) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9816-7355 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
+(define Parser-Idris-n--9786-18840-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--20423-18874 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
+(define Parser-Idris-n--10303-8434-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 ))))))))
+(define Parser-Idris-n--10336-12180-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name))))))))
+(define Parser-Idris-n--15522-13697-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-13717) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
+(define Parser-Idris-n--22113-20644-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20653) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20661) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n))))))))))))))))
+(define Parser-Idris-n--22064-20588-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20597) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20605) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
+(define Parser-Idris-n--22018-20537-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20546) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-20554) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt)))))))))))))
+(define Parser-Idris-n--21971-20483-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20492) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20500) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
+(define Parser-Idris-n--21924-20430-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20439) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20447) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
+(define Parser-Idris-n--21879-20379-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20388) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20396) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
+(define Parser-Idris-n--21832-20326-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20335) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20343) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
+(define Parser-Idris-n--21794-20283-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20292) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20300) (vector 0 arg-1)))))))))
+(define Parser-Idris-n--22113-20643-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--22064-20587-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--22018-20536-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
+(define Parser-Idris-n--21971-20482-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21924-20429-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21879-20378-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21832-20325-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21794-20282-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--10303-8435-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8463) (vector 8 1 0 (vector 5 ) (lambda (_-8472) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8494) (vector 0 ns))))))))))))))
+(define Parser-Idris-n--10345-13171-mkPi (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--10345-13171-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
+(define Parser-Idris-n--10310-9321-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--10310-9321-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
+(define Parser-Idris-n--9786-18841-isClause (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 2))) (vector 1 e-1)))(else (vector 0 ))))))
+(define Parser-Idris-n--10336-12179-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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 Parser-Idris-n--19047-17398-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--19050-17434 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-17485) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns))))))))))))))))))))))
+(define Parser-Idris-n--16452-14510-drop (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))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--16454-14525 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
+(define Parser-Idris-n--19590-17957-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17965) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-17981) (vector 0 n)))))))))))
+(define Parser-Idris-n--10317-10393-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-10407) (vector 0 "_"))))))))
+(define Parser-Idris-n--10325-11131-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--10325-11131-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
+(define Parser-Idris-n--10300-7941-applyExpImp (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-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))) (let ((e-6 (vector-ref sc1 2))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5 e-6) e-3)))) (else (let ((e-7 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-7) e-3))))))))))))
+(define Parser-Idris-n--15522-13696-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-Idris-n--15522-13696-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3)))))))))))
+(define Parser-Idris-show_Show__CmdArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") ((1) "<name>") ((2) "<expr>") ((3) "<decls>") ((4) "<number>") ((5) "<option>") ((6) "<filename>") (else "<module>")))))
+(define Parser-Idris-with_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-8522) (vector 8 1 0 (vector 5 ) (lambda (_-8531) (vector 7 0 (vector 9 0 0 (Parser-Idris-n--10303-8434-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--10303-8435-nameList arg-1 arg-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rhs) (vector 0 (vector 47 (vector 0 arg-0 start end) ns rhs)))))))))))))))))))
+(define ParseOpts-Parser-Idris-withOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Parser-Idris-withFlags (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-pragma "syntactic") (lambda () (lambda (_-13484) (vector 8 1 1 (Parser-Idris-withFlags) (lambda (fs) (vector 0 (vector 1 (vector 0 ) fs))))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-whereBlock (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7710) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))
+(define Parser-Idris-visibility (lambda () (vector 9 0 1 (Parser-Idris-visOption) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-13357) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13365) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13345) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-13333) (vector 0 (vector 0 )))))))))))
+(define Parser-Idris-visOpt (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-Idris-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-Idris-fnDirectOpt arg-0) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
+(define Parser-Idris-validPatternVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-case--10340-12473 e-0 (Parser-Idris-lowerFirst e-0))))(else (vector 4 1 "Not a pattern variable"))))))
+(define Parser-Idris-usingDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-15966) (vector 8 1 0 (vector 5 ) (lambda (_-15975) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15984) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 1 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16021) (vector 0 (vector 1 (vector 1 x)))))))))) (lambda (n) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 n ty)))))))) (lambda (us) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16060) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 4 (vector 0 arg-0 start end-0) us (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))))
+(define Parser-Idris-typeExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-13220) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTermLoc (Builtin-snd 'erased 'erased eta-0)))) (List-Data-lastC-39 'erased rest)))) (lambda (end-0) (vector 0 (Parser-Idris-n--10345-13171-mkPi arg-2 arg-1 arg-0 start end-0 arg rest))))))))))) (lambda () (vector 0 arg))))))))))
+(define Parser-Idris-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-13419) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13446) (vector 0 (vector 0 (vector 0 arg-0 start end) n doc ty))))))))))))))))))))))
+(define Parser-Idris-tuple (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Parser-Text-some 'erased 'erased (vector 7 0 (Source-Rule-Parser-symbol ",") (lambda () (lambda (_-9416) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (estart) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (el) (vector 0 (vector 0 estart el))))))))))) (lambda () (lambda (rest) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-9386) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 36 (vector 0 arg-0 arg-1 end) arg-3 (Parser-Idris-n--10310-9321-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-9355) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 arg-1 end) arg-3)))))))))))
+(define Parser-Idris-transformDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "transform") (lambda () (lambda (_-15559) (vector 7 0 (Source-Rule-Parser-strLit) (lambda () (lambda (n) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-15582) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rhs))) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) n lhs rhs)))))))))))))))))))))))
+(define Parser-Idris-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-14656) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-14643) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-14631) (vector 0 (vector 1 )))))))))))
+(define Parser-Idris-topDecl (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))))) (vector 7 1 (Parser-Idris-dataDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))) (vector 7 1 (Parser-Idris-claim arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (vector 7 1 (Parser-Idris-definition arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (Parser-Idris-fixDecl arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))) (vector 7 1 (Parser-Idris-ifaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))) (vector 7 1 (Parser-Idris-implDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))) (vector 7 1 (Parser-Idris-recordDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 1 (Parser-Idris-namespaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 1 (Parser-Idris-mutualDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))) (vector 7 1 (Parser-Idris-paramDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))) (vector 7 1 (Parser-Idris-usingDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))) (vector 7 1 (Parser-Idris-runElabDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 7 1 (Parser-Idris-transformDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 7 1 (Parser-Idris-directiveDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (vector 1 "Expected CG directive" (lambda (x) (Parser-Idris-case--9785-18747 arg-1 arg-0 start x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda () (lambda (dstr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (let ((cgrest (Strings-Data-span (lambda (eta-0) (Prelude-isAlphaNum eta-0)) dstr))) (vector 14 (vector 0 arg-0 start end) (vector 10 (Builtin-fst 'erased 'erased cgrest) (Parser-Idris-stripBraces (Strings-Data-trim (Builtin-snd 'erased 'erased cgrest)))))) (vector 0 )))))))))) (lambda () (vector 4 0 "Couldn't parse declaration")))))))))))))))))))))))))))))))))
+(define Parser-Idris-stripBraces (lambda (arg-0) (Prelude-pack (Parser-Idris-n--16452-14510-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--16452-14510-drop arg-0 #\} (List-Data-reverse 'erased (Prelude-unpack arg-0))))))))
+(define Parser-Idris-simplerExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-10209) (vector 8 1 0 (vector 5 ) (lambda (_-10218) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (expr) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc expr))) (lambda (end) (vector 0 (vector 22 (vector 0 arg-0 start end) (vector 1 x) expr))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-atom arg-0) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-binder arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-record_ arg-0 arg-1) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-10136) (vector 8 1 0 (vector 5 ) (lambda (_-10145) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10170) (vector 0 (vector 23 (vector 0 arg-0 start end) e))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`(") (lambda () (lambda (_-10082) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10107) (vector 0 (vector 15 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`{{") (lambda () (lambda (_-10026) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}}") (lambda () (lambda (_-10052) (vector 0 (vector 16 (vector 0 arg-0 start end) n))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`[") (lambda () (lambda (_-9960) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9987) (vector 0 (vector 17 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ns))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "~") (lambda () (lambda (_-9914) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 18 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9892) (Parser-Idris-bracketedExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-9870) (Parser-Idris-listExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-9824) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 33 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[|") (lambda () (lambda (_-9767) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "|]") (lambda () (lambda (_-9791) (vector 0 (vector 34 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-9721) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-9665) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 46 (vector 0 arg-0 start end) lvl e)))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-simpleExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-recField)) (lambda () (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 45 (vector 0 arg-0 start end) recFields))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simplerExpr arg-0 arg-1) (lambda () (lambda (root) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-recField)) (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((sc0 recFields)) (case (vector-ref sc0 0) ((0) root)(else (vector 44 (vector 0 arg-0 start end) root recFields))))))))))))))))))
+(define Parser-Idris-simpleData (lambda (arg-0 arg-1 arg-2 arg-3) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-name)) (lambda (params) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (let ((tyfc (vector 0 arg-0 arg-1 tyend))) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-14029) (let ((conRetTy (Syntax-Idris-papply tyfc (vector 0 tyfc arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 tyfc eta-0)) params)))) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "|") (Parser-Idris-simpleCon arg-0 conRetTy arg-3)) (lambda () (lambda (cons) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc eta-0))) (List-Data-lastC-39 'erased cons)))) (lambda (end-0) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end-0) arg-2 (Parser-Idris-mkTyConType tyfc params) (vector 0 ) cons))))))))))))))))))))
+(define Parser-Idris-simpleCon (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (cdoc) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (cname) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr (Parser-Idris-plhs) arg-0 arg-2)) (lambda (params) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTermLoc (Parser-Idris-argTerm eta-0)))) (List-Data-lastC-39 'erased params)))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-13958) (vector 0 (let ((cfc (vector 0 arg-0 start end-0))) (vector 0 cfc cname cdoc (Parser-Idris-mkDataConType cfc arg-1 params)))))))))))))))))))))
+(define Parser-Idris-setVarOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "eval") (lambda () (lambda (_-19471) (vector 7 1 (Parser-Idris-parseMode) (lambda () (lambda (mode) (vector 0 (vector 3 mode)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-exactIdent "editor") (lambda () (lambda (_-19451) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (e) (vector 0 (vector 4 e)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "cg") (lambda () (lambda (_-19431) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (c) (vector 0 (vector 5 c))))))))))))))
+(define Parser-Idris-setOption (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "showimplicits") (lambda () (lambda (_-19536) (vector 0 (vector 0 arg-0))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "shownamespace") (lambda () (lambda (_-19524) (vector 0 (vector 1 arg-0))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "showtypes") (lambda () (lambda (_-19512) (vector 0 (vector 2 arg-0))))) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))))))))
+(define Parser-Idris-runParseCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-replCmd e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-keyword e-1))) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-exactIdent e-2)))))))
+(define Parser-Idris-runElabDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-15635) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) tm))))))))))))))
+(define Parser-Idris-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-12326) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-12341) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 41 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
+(define Parser-Idris-replCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 1 "Unrecognised command")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 9 0 0 (Source-Rule-Parser-exactIdent e-2) (lambda () (vector 9 0 0 (Source-Rule-Parser-symbol e-2) (lambda () (Parser-Idris-replCmd e-3))))))))))))
+(define Parser-Idris-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-12113) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-12122) (vector 8 1 0 (vector 5 ) (lambda (_-12131) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-12161) (vector 0 (vector 6 (vector 0 arg-0 start end) fs))))))))))))))))))))))
+(define Parser-Idris-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-17811) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-17835) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-17695) (vector 8 1 0 (vector 5 ) (lambda (_-17704) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-17735) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-17786) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 25 (vector 0 arg-0 start end))))) (vector 0 ))))))))))))))))
+(define Parser-Idris-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-18034) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-18060) (vector 8 1 1 (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--19590-17957-ctor arg-1 arg-0 eta-0)) (lambda (eta-0) (Parser-Idris-fieldDecl arg-0 eta-0))) (lambda (dcflds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 8 (vector 0 arg-0 start end) vis n params (Builtin-fst 'erased 'erased dcflds) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Builtin-snd 'erased 'erased dcflds))))))))))))))))))))))))))))))
+(define Parser-Idris-progHdr (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-19263) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (vector 0 )))))))))))))))
+(define Parser-Idris-prog (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-19159) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
+(define Parser-Idris-pnowith (lambda () (vector 0 0 1)))
+(define Parser-Idris-pnoeq (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
+(define Parser-Idris-plhs (lambda () (vector 0 1 1)))
+(define Parser-Idris-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-n--10317-10393-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10510) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10525) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-n--10317-10393-binderName arg-2 arg-1 arg-0) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10447) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))))))
+(define Parser-Idris-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-Idris-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
+(define Parser-Idris-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-Idris-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
+(define Parser-Idris-pdef (lambda () (vector 0 0 0)))
+(define Parser-Idris-patAlt (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12943) (Parser-Idris-caseAlt arg-0 arg-1))))))
+(define Parser-Idris-parserCommandsForHelp (lambda () (vector 1 (Parser-Idris-exprArgCmd (vector 0 (vector 1 "t" (vector 1 "type" (vector 0 )))) (lambda (eta-0) (vector 2 eta-0)) "Check the type of an expression") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "printdef" (vector 0 ))) (lambda (eta-0) (vector 3 eta-0)) "Show the definition of a function") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "s" (vector 1 "search" (vector 0 )))) (lambda (eta-0) (vector 11 eta-0)) "Search for values by type") (vector 1 (Parser-Idris-nameArgCmd (vector 2 "di") (lambda (eta-0) (vector 12 eta-0)) "Show debugging information for a name") (vector 1 (Parser-Idris-moduleArgCmd (vector 1 "module") (lambda (eta-0) (vector 6 eta-0)) "Import an extra module") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "q" (vector 1 "quit" (vector 1 "exit" (vector 0 ))))) (vector 23 ) "Exit the Idris system") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "cwd" (vector 0 ))) (vector 16 ) "Displays the current working directory") (vector 1 (Parser-Idris-optArgCmd (vector 2 "set") (lambda (eta-0) (vector 13 eta-0)) 0 "Set an option") (vector 1 (Parser-Idris-optArgCmd (vector 2 "unset") (lambda (eta-0) (vector 13 eta-0)) 1 "Unset an option") (vector 1 (Parser-Idris-compileArgsCmd (vector 0 (vector 1 "c" (vector 1 "compile" (vector 0 )))) (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "Compile to an executable") (vector 1 (Parser-Idris-exprArgCmd (vector 2 "exec") (lambda (eta-0) (vector 9 eta-0)) "Compile to an executable and run") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "r" (vector 1 "reload" (vector 0 )))) (vector 4 ) "Reload current file") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "e" (vector 1 "edit" (vector 0 )))) (vector 7 ) "Edit current file using $EDITOR or $VISUAL") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "miss" (vector 1 "missing" (vector 0 )))) (lambda (eta-0) (vector 17 eta-0)) "Show missing clauses") (vector 1 (Parser-Idris-nameArgCmd (vector 1 "total") (lambda (eta-0) (vector 18 eta-0)) "Check the totality of a name") (vector 1 (Parser-Idris-numberArgCmd (vector 0 (vector 1 "log" (vector 1 "logging" (vector 0 )))) (lambda (eta-0) (vector 19 eta-0)) "Set logging level") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "m" (vector 1 "metavars" (vector 0 )))) (vector 20 ) "Show remaining proof obligations (metavariables or holes)") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "version" (vector 0 ))) (vector 22 ) "Display the Idris version") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "?" (vector 1 "h" (vector 1 "help" (vector 0 ))))) (vector 10 ) "Display this help text") (vector 1 (Parser-Idris-declsArgCmd (vector 1 "let") (lambda (eta-0) (vector 0 eta-0)) "Define a new value") (vector 0 )))))))))))))))))))))))
+(define Parser-Idris-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-13633) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-4) (lambda () (lambda (rhs) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Idris-whereBlock arg-1 arg-3)) (lambda (ws) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-13664) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 arg-2 end) arg-5 rhs ws))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-13560) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 8 1 0 (Parser-Idris-withFlags) (lambda (flags) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-13585) (vector 7 0 (Parser-Idris-bracketedExpr arg-1 wstart arg-4) (lambda () (lambda (wval) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-1 arg-2 end) arg-5 wval flags ws)))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-13538) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-13546) (vector 0 (vector 2 (vector 0 arg-1 arg-2 end) arg-5)))))))))))))))
+(define Parser-Idris-parseMode (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 1 (Source-Rule-Parser-exactIdent "typecheck") (lambda () (lambda (_-19406) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "tc") (lambda () (lambda (_-19394) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "normalise") (lambda () (lambda (_-19382) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "normalize") (lambda () (lambda (_-19370) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "execute") (lambda () (lambda (_-19358) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "exec") (lambda () (lambda (_-19346) (vector 0 (vector 2 )))))))))))))))))
+(define Parser-Idris-paramDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "parameters") (lambda () (lambda (_-15789) (vector 8 1 0 (vector 5 ) (lambda (_-15798) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15807) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15834) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 (vector 1 x) ty)))))))))))) (lambda (ps) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15864) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 3 (vector 0 arg-0 start end-0) ps (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))))
+(define Parser-Idris-optArgCmd (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (Parser-Idris-n--22018-20536-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-3 (Parser-Idris-n--22018-20537-parse arg-3 arg-2 arg-1 arg-0))))))
+(define Parser-Idris-opExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-appExpr arg-0 arg-1 arg-2) (lambda () (lambda (l) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 1)) (Parser-Idris-case--10304-8668 arg-2 arg-1 arg-0 start l (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8620) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (middle) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 start end) op l r)))))))))))))) (lambda () (vector 0 l))))))))))))
+(define Parser-Idris-onoff (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "on") (lambda () (lambda (_-14575) (vector 0 0)))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "off") (lambda () (lambda (_-14563) (vector 0 1))))))))
+(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--22064-20587-names arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-2 (Parser-Idris-n--22064-20588-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-nonEmptyCommand (lambda () (Parser-Text-choice 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))) (Parser-Idris-parserCommandsForHelp)))))
+(define Parser-Idris-noArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21794-20282-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--21794-20283-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-namespaceHead (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-15432) (vector 8 1 0 (vector 5 ) (lambda (_-15441) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
+(define Parser-Idris-namespaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Parser-Idris-namespaceHead) (lambda () (lambda (ns) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 11 (vector 0 arg-0 start end) ns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
+(define Parser-Idris-nameArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21832-20325-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--21832-20326-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-mutualDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "mutual") (lambda () (lambda (_-15683) (vector 8 1 0 (vector 5 ) (lambda (_-15692) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 9 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))))
+(define Parser-Idris-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-moduleArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21879-20378-names arg-2 arg-1 arg-0) (vector 0 (vector 7 ) (vector 0 arg-2 (Parser-Idris-n--21879-20379-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-mkTyConType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 21 arg-0)) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) (vector 21 arg-0) (Parser-Idris-mkTyConType arg-0 e-3))))))))
+(define Parser-Idris-mkDataConType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) e-4 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Parser-Idris-case--15819-13850 e-9 e-8 e-5 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) e-5 e-6 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))))))) (else (vector 24 arg-0)))))))))))
+(define Parser-Idris-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
+(define Parser-Idris-listRange (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 0 0 (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9146) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 43 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (y) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9106) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 42 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate) y)))))))))))))))))
+(define Parser-Idris-listExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-2) (lambda () (lambda (ret) (let ((endRet (Syntax-Idris-getPTermLoc ret))) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-9246) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-doAct arg-0 arg-2)) (lambda () (lambda (conds) (vector 8 1 0 (vector 0 (FC-Core-endPos (Maybe-Data-fromMaybe 'erased (lambda () endRet) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Syntax-Idris-getLoc eta-0)) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased conds))))))) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9275) (vector 0 (vector 40 (vector 0 arg-0 arg-1 end) ret ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) conds)))))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda (xs) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "..") (lambda () (lambda (_-9226) (Parser-Idris-listRange arg-0 arg-1 arg-2 xs)))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9211) (vector 0 (vector 35 (vector 0 arg-0 arg-1 end) xs)))))))))))))))
+(define Parser-Idris-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11648) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda () (lambda (res) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11665) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-buildLets arg-0 res scope)))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11563) (vector 8 1 0 (vector 5 ) (lambda (_-11572) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11589) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)) scope))))))))))))))))))))))))
+(define Parser-Idris-letBinder (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc pat))) (lambda (tyend) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (vector 0 arg-0 start tyend)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11274) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11288) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 start (vector 0 end-0 (vector 0 rig (vector 0 pat (vector 0 ty (vector 0 val alts))))))))))))))))))))))))))))))))))
+(define Parser-Idris-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-13112) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-13068) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-13024) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-12980) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) tm))))))))))))))))))))
+(define Parser-Idris-lambdaCase (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-11802) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 7 1 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11818) (vector 8 1 1 (vector 5 ) (lambda (_-11827) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 0 (let ((fc (vector 0 arg-0 start end-0))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts))))))))))))))))))))))))))
+(define Parser-Idris-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-11165) (vector 7 0 (Parser-Idris-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11181) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-11190) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-n--10325-11131-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
+(define Parser-Idris-import_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "import") (lambda () (lambda (_-19031) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 1 (vector 7 1 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-19049) (vector 0 0))))) (lambda (reexp) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 ns (vector 7 0 (Source-Rule-Parser-exactIdent "as") (lambda () (lambda (_-19082) (Source-Rule-Parser-namespacedIdent))))) (lambda (nsAs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-19104) (vector 0 (vector 0 (vector 0 arg-0 start end) reexp ns nsAs))))))))))))))))))))
+(define Parser-Idris-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11068) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11084) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-11093) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
+(define Parser-Idris-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8329) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8390) (vector 8 1 0 (vector 5 ) (lambda (_-8399) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8415) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8369) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-8271) (vector 8 1 0 (vector 5 ) (lambda (_-8280) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8296) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
+(define Parser-Idris-implDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Source-Rule-Parser-keyword "implementation")) (lambda (_-17183) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-17202) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (iname) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-17219) (vector 0 (vector 1 iname)))))))))))) (lambda (iname) (vector 8 1 0 (Parser-Idris-implBinds arg-0 arg-1) (lambda (impls) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda (params) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-17282) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (names) (vector 0 names)))))))) (lambda (nusing) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-17319) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))))))) (lambda (body) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17332) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) vis opts (vector 0 ) impls cons n params iname nusing (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) eta-0))) body)))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-implBinds (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16666) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16699) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16715) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-16724) (vector 8 1 1 (Parser-Idris-implBinds arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 n (vector 0 rig tm)) more)))))))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-ifaceParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16816) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16833) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16849) (vector 0 (vector 0 n tm))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 n (vector 25 (vector 0 arg-0 start end)))))))))))))))
+(define Parser-Idris-ifaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "interface") (lambda () (lambda (_-16914) (vector 8 1 0 (vector 5 ) (lambda (_-16923) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-ifaceParam arg-0 arg-1)) (lambda (params) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (vector 0 ) (vector 7 1 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-16966) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)))))) (lambda (det) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-16985) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17003) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n-0) (vector 0 (vector 1 n-0))))))))) (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (body) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased body)))))) (lambda (end-0) (vector 0 (vector 6 (vector 0 arg-0 start end-0) vis cons n doc params det dc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) body)))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-if_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "if") (lambda () (lambda (_-12026) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (x) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "then") (lambda () (lambda (_-12041) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "else") (lambda () (lambda (_-12056) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12071) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 39 (vector 0 arg-0 start end) x t e))))))))))))))))))))))))))))
+(define Parser-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
+(define Parser-Idris-iOperator (lambda () (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7797) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7814) (vector 0 n))))))))))))))
+(define Parser-Idris-help (lambda () (vector 1 (vector 0 (vector 1 "<expr>" (vector 0 )) (vector 0 (vector 0 ) "Evaluate an expression")) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-0) (Strings-Prelude-C-43C-43 ":" arg-0)) e-2) (vector 0 e-6 e-10))))))))))) (Parser-Idris-parserCommandsForHelp)))))
+(define Parser-Idris-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-Idris-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))
+(define Parser-Idris-getRight (lambda (arg-0 arg-1 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 Parser-Idris-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
+(define Parser-Idris-getInitRange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 e-1 (vector 0 )))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 0 (vector 0 e-1 (vector 1 e-5))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax"))))))
+(define Parser-Idris-gadtData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14362) (vector 8 1 0 (vector 5 ) (lambda (_-14371) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-4) (lambda () (lambda (ty) (Parser-Idris-dataBody arg-0 arg-1 arg-2 arg-3 arg-4 ty)))))))))))
+(define Parser-Idris-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-10941) (vector 8 1 0 (vector 5 ) (lambda (_-10950) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 24 nfc)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-10990) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
+(define Parser-Idris-fnOpt (lambda () (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 0 (vector 7 x))))))))
+(define Parser-Idris-fnDirectOpt (lambda (arg-0) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-16379) (vector 0 (vector 0 (vector 2 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-16365) (vector 0 (vector 0 (vector 3 1)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-16351) (vector 0 (vector 0 (vector 3 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-16324) (vector 8 1 1 (vector 5 ) (lambda (_-16333) (vector 0 (vector 0 (vector 0 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "tcinline") (lambda () (lambda (_-16297) (vector 8 1 1 (vector 5 ) (lambda (_-16306) (vector 0 (vector 0 (vector 1 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-16283) (vector 0 (vector 0 (vector 4 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "macro") (lambda () (lambda (_-16268) (vector 0 (vector 0 (vector 8 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "spec") (lambda () (lambda (_-16240) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda (ns) (vector 0 (vector 0 (vector 9 ns)))))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "foreign") (lambda () (lambda (_-16214) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 eta-0))) (lambda (cs) (vector 0 (vector 1 cs)))))))))))))))))))))))))
+(define Parser-Idris-fixDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-fix) (lambda () (lambda (fixity) (vector 8 1 0 (vector 5 ) (lambda (_-18312) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (prec) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-iOperator)) (lambda () (lambda (ops) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 10 (vector 0 arg-0 start end) fixity (Prelude-fromInteger_Num__Nat prec) eta-0)) ops)))))))))))))))))))
+(define Parser-Idris-fix (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-keyword "infixl") (lambda () (lambda (_-15420) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "infixr") (lambda () (lambda (_-15408) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "infix") (lambda () (lambda (_-15396) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "prefix") (lambda () (lambda (_-15384) (vector 0 (vector 3 )))))))))))))
+(define Parser-Idris-fieldDecl (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-17587) (vector 8 1 0 (vector 5 ) (lambda (_-17596) (vector 7 0 (Parser-Idris-n--19047-17398-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-17614) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17622) (vector 0 fs)))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-n--19047-17398-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17559) (vector 0 fs))))))))))))
+(define Parser-Idris-field (lambda (arg-0 arg-1) (vector 7 0 (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 1)) eta-2 eta-3))))) (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Parser-Idris-n--10336-12179-fieldName arg-1 arg-0 eta-1)) eta-0)) (vector 8 (Prelude-C-124C-124 1 (lambda () 0)) 1 (vector 8 1 0 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (Parser-Idris-n--10336-12180-recFieldCompat arg-1 arg-0)))))) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12261) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12247) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12261) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12247) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
+(define Parser-Idris-extractNames (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-1 (vector-ref sc0 1))) (vector 1 e-1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (vector 0 ))))))))
+(define Parser-Idris-extension (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "ElabReflection") (lambda () (lambda (_-14606) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "Borrowing") (lambda () (lambda (_-14594) (vector 0 (vector 1 )))))))))
+(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21924-20429-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--21924-20430-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-expr (lambda (ext-0 ext-1 ext-2) (Parser-Idris-typeExpr ext-0 ext-1 ext-2)))
+(define Parser-Idris-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10661) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10677) (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
+(define Parser-Idris-eval (lambda () (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm)))))))
+(define ParseOpts-Parser-Idris-eqOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Parser-Idris-editCmd (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "typeat" (vector 0 ))) (lambda () (lambda (_-20199) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 0 line col n)))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "cs" (vector 0 ))) (lambda () (lambda (_-20120) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20139) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 upd line col n)))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ac" (vector 0 ))) (lambda () (lambda (_-20053) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20072) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ps" (vector 1 "proofsearch" (vector 0 )))) (lambda () (lambda (_-19984) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20003) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 1))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "psall" (vector 0 ))) (lambda () (lambda (_-19912) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19931) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 0))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "gd" (vector 0 ))) (lambda () (lambda (_-19845) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19864) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ml" (vector 1 "makelemma" (vector 0 )))) (lambda () (lambda (_-19778) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19797) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Parser-Idris-replCmd (vector 1 "mc" (vector 1 "makecase" (vector 0 )))) (lambda () (lambda (_-19708) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19727) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 upd line n))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-replCmd (vector 1 "mw" (vector 1 "makewith" (vector 0 )))) (lambda () (lambda (_-19638) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19657) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 upd line n))))))))))))) (lambda () (vector 4 0 "Unrecognised command")))))))))))))))))))))
+(define Parser-Idris-dpair (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8821) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8845) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rest))) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) (vector 0 (vector 0 arg-0 arg-1 loc) (vector 1 x)) ty rest))))))))))))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (l) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8768) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rest))) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) l (vector 24 (vector 0 arg-0 arg-1 end)) rest)))))))))))))))))))
+(define Parser-Idris-doBlock (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "do") (lambda () (lambda (_-12388) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-0 eta-0))) (lambda (actions) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased actions)))))) (lambda (end-0) (vector 0 (vector 32 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) actions))))))))))))))))
+(define Parser-Idris-doAct (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Idris-validPatternVar n) (lambda (_-12851) (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12861) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc val))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12884) (vector 0 (vector 1 (vector 1 (vector 0 arg-0 start end) n val) (vector 0 )))))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-12802) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12818) (vector 0 (Parser-Idris-buildDoLets arg-0 res))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-12718) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased res)))))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12750) (vector 0 (vector 1 (vector 5 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) res)) (vector 0 )))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-12664) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rule))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12687) (vector 0 (vector 1 (vector 6 (vector 0 arg-0 start end) rule) (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (e) (vector 9 1 (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12625) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 1 (vector 0 (vector 0 arg-0 start end) e) (vector 0 ))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12545) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPClauseLoc eta-0))) (List-Data-lastC-39 'erased alts)))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12584) (vector 0 (vector 1 (vector 2 (vector 0 arg-0 start end-0) e val alts) (vector 0 ))))))))))))))))))))))))))))))))))
+(define Parser-Idris-directiveDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 1 (Parser-Idris-directive arg-0 arg-1) (lambda () (lambda (d) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) d))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-18396) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-18419) (vector 0 (vector 5 (vector 0 arg-0 start end) tm))))))))))))))))))
+(define Parser-Idris-directive (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "hide") (lambda () (lambda (_-15333) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15349) (vector 0 (vector 0 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-15298) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15314) (vector 0 (vector 1 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_lazy") (lambda () (lambda (_-15267) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15282) (vector 0 (vector 2 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "unbound_implicits") (lambda () (lambda (_-15236) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15251) (vector 0 (vector 3 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "undotted_record_projections") (lambda () (lambda (_-15205) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15220) (vector 0 (vector 16 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "ambiguity_depth") (lambda () (lambda (_-15170) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15186) (vector 0 (vector 4 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_implicit_depth") (lambda () (lambda (_-15135) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (dpt) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15151) (vector 0 (vector 17 (Prelude-fromInteger_Num__Nat dpt))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "pair") (lambda () (lambda (_-15082) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (ty) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (f) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (s) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15114) (vector 0 (vector 5 ty f s)))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "rewrite") (lambda () (lambda (_-15039) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (eq) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (rw) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15063) (vector 0 (vector 6 eq rw))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "integerLit") (lambda () (lambda (_-15006) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15022) (vector 0 (vector 7 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "stringLit") (lambda () (lambda (_-14973) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14989) (vector 0 (vector 8 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-pragma "charLit") (lambda () (lambda (_-14940) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14956) (vector 0 (vector 9 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-pragma "name") (lambda () (lambda (_-14894) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14922) (vector 0 (vector 11 n ns))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-pragma "start") (lambda () (lambda (_-14863) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14878) (vector 0 (vector 12 e)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-pragma "allow_overloads") (lambda () (lambda (_-14830) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14846) (vector 0 (vector 13 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-pragma "language") (lambda () (lambda (_-14799) (vector 7 1 (Parser-Idris-extension) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14814) (vector 0 (vector 14 e)))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "default") (lambda () (lambda (_-14768) (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (tot) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14783) (vector 0 (vector 15 tot))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPClauseLoc nd))) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) (vector 1 nd (vector 0 )))))))))))))))
+(define Parser-Idris-defaultImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10834) (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10842) (vector 8 1 0 (vector 5 ) (lambda (_-10851) (vector 7 0 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10874) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10883) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 3 t) binders scope)))))))))))))))))))))))))))))))
+(define Parser-Idris-declsArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21971-20482-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--21971-20483-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-14195) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-14183) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-14158) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "external") (lambda () (lambda (_-14146) (vector 0 (vector 3 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "noNewtype") (lambda () (lambda (_-14134) (vector 0 (vector 4 )))))))))))))))
+(define Parser-Idris-dataDeclBody (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-14411) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 9 0 0 (Parser-Idris-simpleData arg-0 start n arg-1) (lambda () (Parser-Idris-gadtData arg-0 col start n arg-1)))))))))))))))
+(define Parser-Idris-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 7 1 (Parser-Idris-dataDeclBody arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPDataDeclLoc dat))) (lambda (end-0) (vector 0 (vector 2 (vector 0 arg-0 start end-0) vis dat)))))))))))))))))
+(define Parser-Idris-dataBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 1 0 (vector 8 1 1 (Source-Rule-Parser-atEndIndent arg-4) (lambda (_-14331) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 arg-2 end) arg-3 arg-5)))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-14220) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-14239) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-14260) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc eta-0))) (List-Data-lastC-39 'erased cs)))) (lambda (end-0) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end-0) arg-3 arg-5 opts cs)))))))))))))))))
+(define Parser-Idris-continueWith (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7781) (Source-Rule-Parser-symbol arg-1)))))
+(define Parser-Idris-constraints (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 7 0 (Parser-Idris-appExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-16623) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 0 ) tm) more)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16535) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16552) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16568) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-16577) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 1 n) tm) more)))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))))
+(define Parser-Idris-compileArgsCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--22113-20643-names arg-2 arg-1 arg-0) (vector 0 (vector 6 ) (vector 0 arg-2 (Parser-Idris-n--22113-20644-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-commitKeyword (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7746) (vector 7 1 (Source-Rule-Parser-keyword arg-1) (lambda () (lambda (_-7754) (Source-Rule-Parser-mustContinue arg-0 (vector 0 )))))))))
+(define Parser-Idris-command (lambda () (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-21044) (vector 0 (vector 24 )))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (Parser-Idris-nonEmptyCommand) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 1 (Source-Rule-Parser-symbol ":?") (lambda () (lambda (_-21031) (vector 0 (vector 10 ))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-21009) (vector 7 1 (Parser-Idris-editCmd) (lambda () (lambda (cmd) (vector 0 (vector 21 cmd)))))))) (lambda () (Parser-Idris-eval)))))))))))
+(define Parser-Idris-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Parser-Idris-case--9786-18982 e-5 e-4 e-3 (Parser-Idris-n--9786-18840-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--9786-18841-isClause e-5 e-4 e-3 eta-0)) e-3))))) ((11) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 1 (vector 11 e-6 e-7 (Parser-Idris-collectDefs e-8)) (Parser-Idris-collectDefs e-3)))))) ((9) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 1 (vector 9 e-9 (Parser-Idris-collectDefs e-10)) (Parser-Idris-collectDefs e-3)))))(else (vector 1 e-2 (Parser-Idris-collectDefs e-3))))))))))))
+(define Parser-Idris-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-n--15522-13697-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-Idris-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS arg-0 arg-1 start col arg-2 (Parser-Idris-n--15522-13696-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))))
+(define Parser-Idris-claim (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 1 (Parser-Idris-tyDecl arg-0 arg-1) (lambda () (lambda (cl) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc cl))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) rig vis opts cl))))))))))))))))))))))
+(define Parser-Idris-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11712) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Parser-Idris-commitKeyword arg-1 "of") (lambda () (lambda (_-11727) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 0 (vector 4 (vector 0 arg-0 start end-0) scr alts)))))))))))))))))))))
+(define Parser-Idris-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11962) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-2 (vector 0 )) (lambda (_-11971) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rhs))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11994) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-3 rhs (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-11939) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11947) (vector 0 (vector 2 (vector 0 arg-0 arg-1 end) arg-3)))))))))))))
+(define Parser-Idris-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (Parser-Idris-caseRHS arg-0 start arg-1 lhs))))))))
+(define Parser-Idris-buildLets (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 3 fc e-14 e-18 e-22 e-26 (Parser-Idris-buildLets arg-0 e-3 arg-2) e-27)))))))))))))))))))))))))))
+(define Parser-Idris-buildDoLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((sc7 e-19)) (case (vector-ref sc7 0) ((0) (let ((e-33 (vector-ref sc7 1))) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-37 (vector-ref sc8 1))) (let ((e-38 (vector-ref sc8 2))) (let ((sc9 e-38)) (case (vector-ref sc9 0) ((0) (let ((fc (vector 0 arg-0 e-6 e-10))) (Parser-Idris-case--10328-11463 e-6 e-10 e-14 e-30 e-28 e-33 e-37 e-3 arg-0 fc (Parser-Idris-lowerFirst e-30))))(else (let ((sc9 e-19)) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-23)) (let ((e-26 (vector-ref sc10 1))) (let ((e-27 (vector-ref sc10 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((sc9 e-23)) (let ((e-26 (vector-ref sc9 1))) (let ((e-27 (vector-ref sc9 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (let ((e-26 (vector-ref sc8 1))) (let ((e-27 (vector-ref sc8 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3))))))))))))))(else (let ((sc6 e-19)) (let ((e-22 (vector-ref sc6 1))) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (let ((e-26 (vector-ref sc7 1))) (let ((e-27 (vector-ref sc7 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))))))))))))))))))
+(define Parser-Idris-bracketedExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8984) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 arg-1 end) op e))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8947) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 38 (vector 0 arg-0 arg-1 end)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-dpair arg-0 arg-1 arg-2) (lambda () (lambda (p) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8933) (vector 0 p))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 9 0 0 (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9032) (vector 0 (vector 29 (vector 0 arg-0 arg-1 end) e op)))))))))) (lambda () (Parser-Idris-tuple arg-0 arg-1 arg-2 e))))))))))))))
+(define Parser-Idris-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-Idris-let_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-defaultImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-explicitPi arg-0 arg-1) (lambda () (Parser-Idris-lam arg-0 arg-1)))))))))))))))
+(define Parser-Idris-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10637) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10622) (vector 0 (vector 2 )))))))))
+(define Parser-Idris-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-2) (lambda () (lambda (pat) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 25 (vector 0 arg-0 arg-1 arg-1)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10363) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 pat ty)))))))))))))))
+(define Parser-Idris-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10735) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-10743) (vector 8 1 0 (vector 5 ) (lambda (_-10752) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10768) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10777) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
+(define Parser-Idris-atom (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7511) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7577) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7601) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7645) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 ))))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7669) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 ))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7693) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-argTerm (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 2))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define Parser-Idris-argExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8146) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (arg) (let ((sc0 arg)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg)))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8122) (vector 7 1 (Parser-Idris-implicitArg arg-1 arg-2) (lambda () (lambda (arg) (vector 0 (vector 1 (Builtin-fst 'erased 'erased arg) (Builtin-snd 'erased 'erased arg)))))))) (Parser-Idris-case--10301-8188 arg-2 arg-1 arg-0 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))
+(define Parser-Idris-appExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Parser-Idris-case_ arg-1 arg-2) (lambda () (vector 9 0 0 (Parser-Idris-lambdaCase arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-lazy arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-if_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-with_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-doBlock arg-1 arg-2) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr arg-0 arg-1 arg-2)) (lambda (args) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc (Maybe-Data-fromMaybe 'erased (lambda () f) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Parser-Idris-argTerm eta-0)) (List-Data-lastC-39 'erased args)))))) (lambda (end) (vector 0 (Parser-Idris-n--10300-7941-applyExpImp arg-2 arg-1 arg-0 start end f args))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (arg) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc arg))) (lambda (end) (vector 0 (vector 27 (vector 0 arg-1 start end) op arg)))))))))))) (lambda () (vector 4 1 "Expected 'case', 'if', 'do', application or operator expression")))))))))))))))))))
+(define Desugar-Idris-case--13265-11939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11959) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-5 arg-1 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12005) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-5 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-5 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-12039) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-5 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12068) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-5 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12096) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-5 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12124) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-5 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12152) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-5 arg-1 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12180) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-5 arg-1 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12208) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-5 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12236) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-5 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12264) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-5 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12292) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-5 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12320) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-5 arg-1 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12348) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12379) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-5 arg-1 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12408) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-5 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption 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 (vector 1 (vector 0 )))))))))))))
+(define Desugar-Idris-case--13265-11880 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-8 arg-7 arg-5 arg-6 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) arg-0 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 1 (vector 6 arg-3 (vector 1 arg-2) e-3 e-5) (vector 0 ))))))))))))))
+(define Desugar-Idris-case--13265-11758 (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-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 0 (StringMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 e-2 e-3 e-4 e-5))))))))))
+(define Desugar-Idris-case--13265-11698 (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-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 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5))))))))))
+(define Desugar-Idris-case--18860-11571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
+(define Desugar-Idris-case--18413-11507 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-11 (vector-ref sc3 2))) e-11))))))) arg-11))) (else (vector 0 ))))))
+(define Desugar-Idris-case--18706-11446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 4 arg-5 (vector 1 (Name-Core-nameRoot arg-3)) arg-4 (vector 0 arg-5 arg-3 arg-18 arg-22 arg-20)) (vector 0 )))))
+(define Desugar-Idris-case--18616-11393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((conname (Prelude-maybe 'erased 'erased (lambda () (Desugar-Idris-n--13265-10992-mkConName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-3)) (lambda () (lambda (eta-0) eta-0)) arg-1))) (lambda (eta-0) (Desugar-Idris-case--18706-11446 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 conname conname eta-0)))))
+(define Desugar-Idris-case--18467-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 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Desugar-Idris-desugarField arg-10 arg-9 arg-8 arg-7 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--13265-10991-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) 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))) ((Desugar-Idris-case--18616-11393 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5) ext-0))))))))
+(define Desugar-Idris-case--18467-11254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))))
+(define Desugar-Idris-case--18413-11208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))) arg-11))) (lambda (eta-0) (Desugar-Idris-case--18467-11319 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 paramsb paramsb eta-0)))))
+(define Desugar-Idris-case--18367-11167 (lambda (arg-0 arg-1 arg-2 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 (Context-Core-isUnboundImplicits 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 ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-11 (vector-ref sc4 2))) e-11))))))) arg-11))) (else (vector 0 )))))) ((Desugar-Idris-case--18413-11208 arg-0 arg-1 arg-2 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 bnames bnames) ext-0)))))))))
+(define Desugar-Idris-case--13265-11131 (lambda (arg-0 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 ((fnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--13265-10991-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) arg-0))) (lambda (eta-0) (Desugar-Idris-case--18367-11167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 fnames fnames eta-0)))))
+(define Desugar-Idris-case--13265-11066 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-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))) (let ((act-25 ((Desugar-Idris-n--13265-10993-mapDesugarPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
+(define Desugar-Idris-case--17532-10857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 ))))))
+(define Desugar-Idris-case--17723-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (b) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-15 arg-14 arg-13 arg-12 arg-11 eta-1)) b) 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 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) 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 1 (vector 8 (lambda (vars-10811) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-10811 arg-14 arg-13 arg-15 arg-12 arg-10 arg-9 arg-16 arg-7 env nest arg-26 arg-28 arg-4 arg-25 arg-2 arg-1 e-5))))) (vector 0 ))))))))))
+(define Desugar-Idris-case--17723-10663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))))
+(define Desugar-Idris-case--17532-10597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))) arg-19))) (lambda (eta-0) (Desugar-Idris-case--17723-10732 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 consb consb eta-0)))))
+(define Desugar-Idris-case--17532-10524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind arg-24 e-7)))))))))))
+(define Desugar-Idris-case--17456-10455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 (Context-Core-isUnboundImplicits arg-14 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 )))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind bnames eta-0)) arg-21))) (let ((isb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind bnames e-7)))))))))) arg-17))) ((Desugar-Idris-case--17532-10597 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 bnames paramsb isb isb) ext-0)))))))))))
+(define Desugar-Idris-case--17306-10397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 eta-0 eta-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))) (Desugar-Idris-case--17456-10455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5 ext-0))))))))
+(define Desugar-Idris-case--17306-10337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))))
+(define Desugar-Idris-case--13265-10284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))) 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))) (Desugar-Idris-case--17306-10397 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5 ext-0))))))))
+(define Desugar-Idris-case--13265-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) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
+(define Desugar-Idris-case--13265-9824 (lambda (arg-0 arg-1 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-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))) (vector 0 e-0 e-1 e-2 e-3 arg-9 e-5)))))))))
+(define Desugar-Idris-case--13265-9792 (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)) (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))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-5)))))))))
+(define Desugar-Idris-case--13244-9001 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-6) arg-2 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 1 arg-4 e-3 e-5 arg-1 arg-11)))))))))))))
+(define Desugar-Idris-case--15774-8900 (lambda (arg-0 arg-1 arg-2 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) ((0) arg-14)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
+(define Desugar-Idris-case--13244-8857 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-9 arg-8 arg-6 arg-7 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-5) arg-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))) (vector 1 (vector 0 arg-3 e-3 (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) e-5)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))))))))))))))
+(define Desugar-Idris-case--13228-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-12 arg-13 arg-11 arg-9 arg-10 arg-8 arg-7 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-12 arg-11 arg-10 arg-9 arg-7 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-7))) (let ((act-26 ((Desugar-Idris-expandDo arg-12 arg-11 arg-10 arg-9 arg-8 psC-39 arg-6 arg-5) 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-13))) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)) (vector 4 arg-4 e-5 arg-15 (vector 1 (vector 0 arg-4 e-3 e-7) e-6)))))))))))))))))))))))))))))))
+(define Desugar-Idris-case--13228-8349 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-11 arg-10 arg-8 arg-9 arg-7 arg-6 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-11 arg-10 arg-9 arg-8 arg-6 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-6))) (let ((act-26 ((Desugar-Idris-expandDo arg-11 arg-10 arg-9 arg-8 arg-7 psC-39 arg-5 arg-4) 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 8 arg-3 (vector 8 arg-3 (vector 0 arg-3 (vector 1 ">>=")) e-5) (vector 2 arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 4 arg-3 (vector 0 arg-3 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 1 (vector 0 arg-3 e-3 e-7) e-6)))))))))))))))))))))))))))
+(define Desugar-Idris-case--13228-8231 (lambda (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) ((4) (vector 0 arg-1 (vector 1 "Unit")))(else (vector 31 arg-1 1))))))
+(define Desugar-Idris-case--13210-8019 (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)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFrom")) arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFromThen")) arg-1) e-2))))))))
+(define Desugar-Idris-case--13210-7961 (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-1)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromTo")) arg-2) arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromThenTo")) arg-2) e-2) arg-0))))))))
+(define Desugar-Idris-case--13210-7636 (lambda (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 arg-11 (vector 0 arg-1 arg-9)) e-1)))))))
+(define Desugar-Idris-case--13210-7529 (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-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 0 e-0 e-1 e-2 (vector 1 (vector 1 arg-0) e-3) e-4 e-5))))))))))
+(define Desugar-Idris-case--13210-7384 (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) (vector 1 (vector 27 arg-1 (vector 7 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 7 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7329 (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) (vector 1 (vector 27 arg-1 (vector 6 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 6 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7264 (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) (vector 1 (vector 12 arg-1 (vector 2 (vector 27 arg-1 (vector 1 arg-0))) (vector 1 (vector 27 arg-1 (vector 1 arg-0)) (vector 1 (vector 27 arg-1 (vector 0 arg-0)) (vector 0 ))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 1 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7170 (lambda (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) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 arg-2 (vector 2 "arg" 0)) (vector 24 arg-2) (vector 26 arg-2 arg-1 (vector 0 arg-2 (vector 2 "arg" 0)) arg-0)))) (else (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 27 arg-2 arg-1 arg-0)))))))
+(define Desugar-Idris-case--12853-6367 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-5 "' is not a prefix operator"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-3 arg-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))) (vector 1 (vector 1 (vector 0 arg-2 arg-1 (vector 3 e-2)) e-5))))))))))))))
+(define Desugar-Idris-case--12877-6227 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Unknown operator '" (Strings-Prelude-C-43C-43 arg-6 "'"))) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 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))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-n--12853-6185-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))))))))))))))
+(define Desugar-Idris-case--12853-6202 (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) (Desugar-Idris-case--12877-6227 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-6 "' is a prefix operator"))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 arg-0) 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-mkPrec e-5 e-6)) e-7)))))))))))))))))))))
+(define Desugar-Idris-case--12798-6160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 1))) e-11)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-10 (vector-ref sc1 2))) e-10)) e-1) (ANameMap-Data-mergeAs 'erased arg-2 arg-1 (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 3))) e-9)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-8 (vector-ref sc1 4))) e-8)) e-3) e-4 e-5))))))))))
+(define Desugar-Idris-n--13210-7914-toPure (lambda (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 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "pure")) arg-10))))
+(define Desugar-Idris-n--13265-9418-toIDef (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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-0 e-5 (vector 1 (vector 0 e-0 e-1 e-2) (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 2 e-3 e-8 (vector 1 (vector 1 e-3 e-4 e-5 e-6 e-7) (vector 0 )))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-8 e-5 (vector 1 (vector 2 e-8 e-9) (vector 0 )))))))))))))))))
+(define Desugar-Idris-n--13265-9857-pairToCons (lambda (arg-0 arg-1 arg-2 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) ((36) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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) (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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)))))(else (vector 1 arg-14 (vector 0 )))))))
+(define Desugar-Idris-n--13259-9220-mkRecType (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 21 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-5 e-10 e-14 (vector 1 e-6) e-15 (Desugar-Idris-n--13259-9220-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))))))
+(define Desugar-Idris-n--13265-10992-mkConName (lambda (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) (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))) (vector 0 e-0 (vector 4 e-2 (vector 2 (Strings-Prelude-C-43C-43 "__mk" e-2) 0)))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0))))))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0)))))))
+(define Desugar-Idris-n--13265-10993-mapDesugarPiInfo (lambda (arg-0 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) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-11 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
+(define Desugar-Idris-n--13210-7913-guard (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 7 e-0 (vector 0 e-0 (vector 1 "guard")) e-1)))))(else arg-10)))))
+(define Desugar-Idris-n--13265-9417-getFn (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 2))) (lambda (eta-0) (vector 1 e-1)))) ((8) (let ((e-3 (vector-ref sc0 2))) (Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-7) " is not a function application")) eta-0)))))))
+(define Desugar-Idris-n--13265-10991-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) (let ((sc0 arg-11)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Desugar-Idris-n--13265-9858-expandConstraint (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-5) e-3) (vector 0 )))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (vector 0 ) x)) (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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 Desugar-Idris-n--12853-6185-backtickPrec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 2 (+ 1 0))))
+(define Desugar-Idris-toTokList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((26) (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))) (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 ((op (Name-Core-nameRoot e-1))) ((Desugar-Idris-case--12853-6202 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 1))) e-10)))) eta-0))))))))))))) ((27) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (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-7 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-5))) ((Desugar-Idris-case--12853-6367 e-6 e-5 e-4 arg-0 e-7 op (StringMap-Data-lookup 'erased op (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-1) (vector 0 )))))))))
+(define Desugar-Idris-pairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "Pair"))))
+(define BangData-Desugar-Idris-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Desugar-Idris-mkpairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "MkPair"))))
+(define Desugar-Idris-mkdpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "MkDPair"))))
+(define Desugar-Idris-mkPrec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 arg-1)) ((1) (vector 1 arg-1)) ((2) (vector 2 arg-1)) (else (vector 3 arg-1))))))
+(define Desugar-Idris-initBangs (lambda () (vector 0 0 (vector 0 ))))
+(define Desugar-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
+(define Desugar-Idris-idiomise (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (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 arg-0 (vector 8 arg-0 (vector 0 arg-0 (vector 1 "<*>")) (Desugar-Idris-idiomise e-0 e-1)) e-2)))))(else (vector 8 arg-0 (vector 0 arg-0 (vector 1 "pure")) arg-1))))))
+(define Desugar-Idris-getDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (let ((e-76 (vector-ref sc0 5))) (let ((e-77 (vector-ref sc0 6))) (let ((e-78 (vector-ref sc0 7))) (let ((e-79 (vector-ref sc0 8))) (let ((e-80 (vector-ref sc0 9))) (let ((e-81 (vector-ref sc0 10))) (let ((e-82 (vector-ref sc0 11))) (vector 1 (vector 7 e-72 e-73 e-74 arg-0 e-76 e-77 e-78 e-79 e-80 e-81 e-82))))))))))))) ((11) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (let ((e-85 (vector-ref sc0 3))) (vector 1 (vector 11 e-83 e-84 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-85)))))))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 arg-1)) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (vector 1 (vector 2 e-11 e-12 (vector 1 e-35 e-36 e-37)))))))(else (vector 0 )))))))) ((6) (vector 1 arg-1)) ((8) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-27 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (vector 1 (vector 2 e-23 e-24 (vector 1 e-23 e-25 (Desugar-Idris-n--13259-9220-mkRecType e-27 e-28 e-26 e-25 e-24 e-23 arg-1 e-26))))))))))) ((10) (vector 1 arg-1)) ((14) (vector 1 arg-1))(else (vector 0 ))))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((2) (let ((e-47 (vector-ref sc1 3))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (vector 1 arg-1))(else (vector 1 arg-1)))))) ((6) (vector 0 )) ((8) (vector 1 arg-1)) ((10) (vector 0 )) ((14) (vector 0 ))(else (vector 1 arg-1)))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 3 e-0 e-1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-2))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 4 e-3 e-4 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-5)))))))(else (let ((sc0 arg-0)) (vector 1 arg-1)))))))))))))
+(define Desugar-Idris-extendAs (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-6 (vector-ref sc1 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-12 (vector-ref sc2 1))) e-12)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-11 (vector-ref sc2 2))) e-11)) e-1) (ANameMap-Data-mergeAs 'erased arg-1 arg-2 (let ((sc2 arg-3)) (let ((e-10 (vector-ref sc2 3))) e-10)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc2 arg-3)) (let ((e-9 (vector-ref sc2 4))) e-9)) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))))
+(define Desugar-Idris-expandList (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 arg-7 (vector 1 "Nil"))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-2) 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 ((act-25 ((Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-7 (vector 1 "::")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))))))))
+(define Desugar-Idris-expandDo (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Do block cannot be empty") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-29 eta-0)))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((ty (let ((sc5 e-6)) (case (vector-ref sc5 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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)) (let ((e-7 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) eta-0))) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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))) (vector 1 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((e-17 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 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-7 (vector-ref sc5 1))) (let ((act-27 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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-8 (vector-ref sc6 1))) (let ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox e-5))) (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 ((e-9 (vector-ref sc7 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc8 e-9)) (let ((e-1 (vector-ref sc8 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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-6 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 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-7 (vector-ref sc5 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (let ((e-9 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc8 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc9 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc10 act-30)) (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-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc11 act-31)) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc12 e-13)) (let ((e-1 (vector-ref sc12 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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))) (vector 1 (vector 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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))) (vector 1 (vector 13 e-25 e-6 e-5))))))))))))))))))))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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 ((ty (let ((sc4 e-6)) (case (vector-ref sc4 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-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 (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) 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))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((e-17 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-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 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox 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 ((e-9 (vector-ref sc6 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-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 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (let ((e-9 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc7 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc8 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc10 act-31)) (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 (Desugar-Idris-bindBangs (let ((sc11 e-13)) (let ((e-1 (vector-ref sc11 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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 13 e-25 e-6 e-5)))))))))))))))))))))))))))))))
+(define Desugar-Idris-dpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "DPair"))))
+(define Desugar-Idris-desugarUpdate (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) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 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 (vector 1 e-2 e-5)))))))))))))))
+(define Desugar-Idris-desugarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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))) (vector 1 (vector 0 e-0 e-1 e-7))))))))))))))))))))))))
+(define Desugar-Idris-desugarTree (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))) (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)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((sc2 e-14)) (cond ((equal? sc2 "=") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-2 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "===")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "~=~")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 0 ))))))))))))))))) ((equal? sc2 "$") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-2 e-6 e-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-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))) (vector 1 (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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 ((Desugar-Idris-desugarTree 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 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) 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))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (cond ((equal? sc2 "-") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-5 (vector-ref sc3 1))) (vector 1 (vector 8 e-8 (vector 0 e-8 (vector 1 "negate")) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5))))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-13)))))))
+(define Desugar-Idris-desugarFnOpt (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) (vector 1 e-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))))))))
+(define Desugar-Idris-desugarField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-2))) e-2) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc4 e-5)) (let ((e-9 (vector-ref sc4 5))) e-9)) arg-4 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 (vector 0 e-0 e-1 e-6 e-3 e-8)))))))))))))))))))))))))))))))
+(define Desugar-Idris-desugarDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (vector 0 e-0 e-1 e-2 e-5 e-6) (vector 0 )))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 1 eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--13265-9418-toIDef e-6 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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-8 (vector-ref sc2 1))) (vector 1 (Parser-TTImp-collectDefs 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 ((Desugar-Idris-desugarData 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))) (vector 1 (vector 1 (vector 1 e-7 e-8 e-5) (vector 0 ))))))))))))) ((3) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-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-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((pnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind pnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (vector 1 (vector 1 (vector 3 e-10 paramsb ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (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 ((oldu (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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 (BindImplicits-TTImp-bindTypeNames arg-1 oldu arg-4 e-6 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 (vector 0 (Builtin-fst 'erased 'erased ntm) e-7)))))))))))))) 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))) (let ((act-26 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased e-6 oldu) 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 (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-15) 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-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 ((act-29 (let ((act-29 (set-box! arg-0 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (vector 0 e-0 e-1 e-2 e-3 oldu e-10)))))))))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))))))))))))))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-16 "Reflection not implemented yet") eta-0)))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (let ((cons ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--13265-9858-expandConstraint e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) e-20))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23)) (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-5))))))))) cons) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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))) (let ((mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS eta-1)) (Syntax-Idris-definedIn e-26)))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((bnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (let ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-5))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) eta-1)) e-26) 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 1 (vector 8 (lambda (vars-10004) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-10004 arg-1 arg-2 arg-0 arg-3 e-18 e-19 env nest consb e-21 paramsb e-24 e-25 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8) eta-1)))))) (vector 0 ))))))))))))))))))))))))))))))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-8)))))))))))))))) 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))) (Desugar-Idris-case--13265-10284 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-6 eta-0)))))))))))))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-11 eta-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))) (let ((act-25 ((Desugar-Idris-n--13265-10993-mapDesugarPiInfo e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-10) eta-1))) (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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-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))) ((Desugar-Idris-case--13265-11131 e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-5) eta-0)))))))))))))) ((10) (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 ((sc1 e-45)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 e-0 (StringMap-Data-insert 'erased e-62 e-46 e-1) e-2 e-3 e-4 e-6))))))))))) (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 (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0)))))))))(else (let ((sc1 e-47)) (case (vector-ref sc1 0) ((1) (let ((e-61 (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 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0))))))))))))) ((9) (let ((e-49 (vector-ref sc0 2))) (let ((mds (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 1 ) eta-0)) e-49) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 2 ) eta-0)) e-49)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) mds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (vector 1 (vector 1 (vector 5 e-50 e-51 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))) ((12) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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))) (BindImplicits-TTImp-bindNames arg-1 1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-56 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 1 (vector 6 e-53 (vector 1 e-54) e-3 e-6) (vector 0 )))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) 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))) (vector 1 (vector 1 (vector 7 e-57 e-5) (vector 0 )))))))))))) (else (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((sc1 e-60)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11959) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-1 e-59 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12005) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-1 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-1 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-12039) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-1 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12068) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-1 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12096) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-1 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12124) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-1 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12152) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-1 e-59 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12180) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-1 e-59 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12208) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-1 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12236) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-1 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12264) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-1 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12292) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-1 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12320) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-1 e-59 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12348) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12379) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-1 e-59 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12408) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-1 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption arg-1 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 (vector 1 (vector 0 ))))))))))))))))))
+(define Desugar-Idris-desugarData (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))) (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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 5))) e-8)) arg-4 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 (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-4) 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 (vector 0 e-0 e-1 e-7 e-3 e-8))))))))))))))))))))))))))))) (else (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 (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-8 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-10))))))))))))))))))))))))))
+(define Desugar-Idris-desugarClause (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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-1 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))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-6 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-7 arg-4) e-2 eta-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 0 e-0 e-4 (let ((sc5 e-5)) (case (vector-ref sc5 0) ((0) e-8)(else (vector 5 e-0 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-8)))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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-10 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 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-10 (vector-ref sc2 1))) (let ((sc3 e-10)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-6 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 (vector 1 e-4 e-3 e-11 e-7 e-9))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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 (BindImplicits-TTImp-bindNames arg-1 arg-5 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 (vector 2 e-9 (Builtin-snd 'erased 'erased e-6)))))))))))))))))))))
+(define Desugar-Idris-desugarB (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) (vector 1 (vector 0 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))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((psC-39 (Prelude-maybe 'erased 'erased (lambda () arg-6) (lambda () (lambda (arg-8) (vector 1 arg-8 arg-6))) e-5))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 eta-1 eta-2))) e-4) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 psC-39 e-7) 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 ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-3 e-8 e-5 e-9 e-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) ((0) (let ((e-134 (vector-ref sc1 2))) (let ((sc2 e-134)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (vector 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 0 )))))))))))))))))))))))))) ((24) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 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 2 e-8 e-9 e-5 (vector 0 ) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 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))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-140 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-140 arg-6) e-19 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))) (vector 1 (vector 3 e-14 e-15 e-140 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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 4 e-14 e-5 e-6 e-7)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Desugar-Idris-desugarB 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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-14 e-5 e-6 e-7))))))))))))))))))))))))))))) ((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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) 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 (vector 31 e-21 1) e-6))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((psC-39 (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-25) arg-6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 psC-39 eta-1)) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 e-26 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-24 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-6)))))))))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((6) (let ((e-143 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarUpdate arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 eta-1)) e-143) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) 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 7 e-27 e-5 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-27 e-5 e-6)))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-30 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-30 (vector 2 "rec" 0)) (vector 24 e-30) (vector 7 e-30 (vector 6 e-30 e-31) (vector 0 e-30 (vector 2 "rec" 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 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 10 e-32 e-5 e-6))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 9 e-35 e-5 e-37 e-6)))))))))))))))))) ((10) (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 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 19 e-39 e-40 e-5)))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 20 e-42 e-5))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 21 e-44 e-5))))))))))) ((30) (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 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-46 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "===")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "~=~")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 0 )))))))))))))))))))) ((31) (let ((e-50 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-50))) ((26) (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 ((Desugar-Idris-toTokList arg-0 (vector 26 e-51 e-52 e-53 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))) (let ((act-25 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0))))))))))))))))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-0 (vector 27 e-55 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 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0)))))))))))))))) ((28) (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 (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))) ((Desugar-Idris-case--13210-7170 e-60 e-59 e-58 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-59) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))) ((29) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-61 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-61 (vector 2 "arg" 0)) (vector 24 e-61) (vector 26 e-61 e-63 e-62 (vector 0 e-61 (vector 2 "arg" 0))))))))) ((13) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 11 e-64 e-65)))))) ((14) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((sc1 e-67)) (case (vector-ref sc1 0) ((1) (let ((e-144 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromIntegerName arg-2 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) ((0) (vector 1 (vector 12 e-66 (vector 2 (vector 27 e-66 (vector 1 e-144))) (vector 1 (vector 27 e-66 (vector 1 e-144)) (vector 1 (vector 27 e-66 (vector 0 e-144)) (vector 0 )))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 1 e-144)))))))))))))))) ((6) (let ((e-145 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromStringName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 6 e-145)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 6 e-145)))))))))))))))) ((7) (let ((e-146 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromCharName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 7 e-146)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 7 e-146))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 27 e-66 e-67))))))))) ((15) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 22 e-68 e-5))))))))))) ((16) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 23 e-70 e-71)))))) ((17) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 arg-6 eta-1)) 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 24 e-72 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))) ((18) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 25 e-74 e-5))))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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 26 e-76 e-5))))))))))) ((20) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-79)) (cond ((equal? sc1 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 (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-6 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 e-80) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))) (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 (vector 1 (vector 29 e-78 e-80))))))))))) ((21) (let ((e-81 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 28 e-81))))) ((22) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 17 e-82 (vector 1 ) e-83 e-5)))))))))))) ((23) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 18 e-85 (vector 4 ) e-5))))))))))) ((24) (let ((e-87 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-87 0))))) ((25) (let ((e-88 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-88 1))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (Desugar-Idris-expandDo arg-0 arg-2 arg-4 arg-3 arg-5 arg-6 e-89 e-90)))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (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 ((bn (vector 2 "bind" (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 bn (vector 0 e-91 e-5)) e-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 (vector 1 (vector 0 e-91 bn))))))))))))))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Desugar-Idris-idiomise e-93 e-5))))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-95 e-96)))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-6 (vector-ref sc2 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-mkpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))) (vector 1 (vector 12 e-97 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-pairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 pval (vector 0 ))))))))))))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-101)) (case (vector-ref sc1 0) ((0) (let ((e-148 (vector-ref sc1 1))) (let ((e-149 (vector-ref sc1 2))) (let ((sc2 e-149)) (case (vector-ref sc2 0) ((1) (let ((e-150 (vector-ref sc2 1))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 ((pval (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 (vector 0 e-148 (vector 1 e-150)) (vector 1 e-5 (vector 0 )))))) (vector 1 (vector 12 e-100 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 (vector 31 e-148 1) (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) (vector 31 e-148 1) e-5) (vector 0 )))) (vector 1 pval (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-102) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 e-5 (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) e-5 e-6) (vector 0 )))))))))))))))))))))(else (let ((sc2 e-102)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0)))))))))))(else (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0))))))))))))) ((38) (let ((e-104 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 12 e-104 (vector 2 (vector 0 e-104 (vector 1 "MkUnit"))) (vector 1 (vector 0 e-104 (vector 1 "Unit")) (vector 1 (vector 0 e-104 (vector 1 "MkUnit")) (vector 0 )))))))) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-106) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-108 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-105 e-5 (vector 0 e-105 (vector 1 "Bool")) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "True")) e-6) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "False")) e-7) (vector 0 )))))))))))))))))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 32 e-109 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--13210-7913-guard e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-111) (vector 1 (Desugar-Idris-n--13210-7914-toPure e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-110) (vector 0 ))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 13 e-112 e-5 e-6))))))))))))))))) ((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))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromTo")) e-116) e-118))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromThenTo")) e-116) e-2) e-118))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFrom")) e-120))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFromThen")) e-120) e-2)))))))))) ((46) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 30 e-122 e-123 e-5)))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-125 (vector 0 e-125 f) r))) e-126 e-127)))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-128 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-128 (vector 2 "rec" 0)) (vector 24 e-128) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-128 (vector 0 e-128 f) r))) (vector 0 e-128 (vector 2 "rec" 0)) e-129)))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-130 e-131 e-5))))))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-132) eta-0))))))))))
+(define Desugar-Idris-desugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 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 ((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 (Desugar-Idris-bindBangs (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-6)))))))))))))))))))
+(define Desugar-Idris-bindBangs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Desugar-Idris-bindBangs e-3 (vector 8 e-10 (vector 8 e-10 (vector 0 e-10 (vector 1 ">>=")) e-11) (vector 2 e-10 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) (vector 31 e-10 1) arg-1))))))))))))))))
+(define BangData-Desugar-Idris-bangNames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Shunting-Utils-case--2394-1265 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-1)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))
+(define Shunting-Utils-case--2255-1010 (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) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-9 (vector 0 arg-3 arg-4 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 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-9 arg-6 arg-7 arg-8) eta-0))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-4 arg-5)) arg-6))))))))
+(define Shunting-Utils-case--2062-890 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-3))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-5) arg-4))))))))
+(define Shunting-Utils-case--2062-821 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-2))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat arg-3 (Shunting-Utils-getPrec arg-5)))))))))
+(define Shunting-Utils-n--2394-1166-sprec (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) e-7))))))
+(define Shunting-Utils-n--2394-1165-sop (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
+(define Shunting-Utils-n--2394-1164-sloc (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) e-2))))))
+(define Shunting-Utils-shunt (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 arg-4 e-2) eta-0)))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 arg-4 e-10 e-11) 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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11)) e-5) e-2) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (s) (lambda (eta-1) (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 (Shunting-Utils-n--2394-1164-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2394-1165-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2394-1166-sprec 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s)) eta-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 (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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 e-1))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))))))
+(define Shunting-Utils-processStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-higher 'erased arg-2 e-6 e-10 e-11 arg-5 arg-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 (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (let ((act-25 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 e-6 e-10 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 e-3 arg-5 arg-6) eta-0)))))) (else (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) e-3))))))))))))))))))))))))
+(define Shunting-Utils-parseOps (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Shunting.Out" ) (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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 e-5 (vector 0 ) arg-3) ext-0))))))))
+(define Shunting-Utils-output (lambda (arg-0 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-22 e-23 e-5) e-6))))(else (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))(else (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))
+(define Shunting-Utils-isLAssoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0)(else 1)))))
+(define Shunting-Utils-higher (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) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (Shunting-Utils-case--2062-821 'erased arg-1 arg-3 e-1 arg-5 arg-6 arg-2 (Prelude-C-61C-61_Eq__Nat e-1 (Shunting-Utils-getPrec arg-6)))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Shunting-Utils-case--2062-890 'erased arg-1 arg-3 arg-5 e-0 arg-4 arg-2 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) e-0))))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Shunting-Utils-isLAssoc arg-4))))))))))))))))))
+(define Shunting-Utils-getPrec (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define Shunting-Utils-emit (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))) (let ((act-25 ((Shunting-Utils-output 'erased 'erased e-5 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 (set-box! arg-2 e-6))) (vector 1 act-26))))))))))))))
+(define Interface-Elab-Idris-case--13406-2577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 0 e-14 (vector 0 e-6 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))))
+(define Interface-Elab-Idris-case--13430-2291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 0 e-5 e-14)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-15 (Strings-Prelude-C-43C-43 "No method named " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-17) (Strings-Prelude-C-43C-43 " in interface " (Name-Core-show_Show__Name arg-4))))) eta-0)))))))
+(define Interface-Elab-Idris-case--13430-2074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ity (TTImp-TTImp-apply (vector 0 arg-15 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-15 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-3))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-24 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (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 n (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 0 arg-15 e-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19)) 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 ((dty (Utils-TTImp-substNames arg-6 e-5 e-3))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19) arg-6) (Interface-Elab-Idris-bindIFace arg-15 ity dty) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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 ((dtydecl (vector 0 arg-15 e-2 arg-9 (vector 0 ) (vector 0 arg-15 arg-21 e-6)))) (let ((act-27 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21 eta-1)) arg-18))) (let ((act-28 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) 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 ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 arg-15 arg-21 csC-39)) eta-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 (vector 0 arg-17 arg-18))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-case--13760-1945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-21 arg-22)) (else (vector 0 arg-21 arg-20))))))
+(define Interface-Elab-Idris-case--13280-1544 (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)) (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 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-5 arg-10 e-2) e-3 e-4 e-5))))))))))
+(define Interface-Elab-Idris-case--12734-1092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 )))))))
+(define Interface-Elab-Idris-case--12543-793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)) (else (vector 1 arg-18 arg-17 arg-16 arg-15 arg-14 (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)))))))
+(define Interface-Elab-Idris-case--12181-639 (lambda (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) (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 0 )))) (else (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 1 (vector 0 arg-1) (vector 0 )))))))))
+(define Interface-Elab-Idris-n--13280-1466-totMeth (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((treq (Interface-Elab-Idris-n--13280-1465-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 treq e-11)))))))))))))))))
+(define Interface-Elab-Idris-n--12503-779-stripParams (lambda (arg-0 arg-1 arg-2 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-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))) (Interface-Elab-Idris-case--12543-793 'erased 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-4 e-3 e-2 e-1 e-0 arg-13 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-13))) e-3)))))))))(else arg-14)))))
+(define Interface-Elab-Idris-n--13428-1615-notData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 0 1 e-3)))))))
+(define Interface-Elab-Idris-n--13406-1580-nameCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 "__con" (Prelude-show_Show__Int arg-15))) e-7) (Interface-Elab-Idris-n--13406-1580-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-3)))))))))))
+(define Interface-Elab-Idris-n--12181-458-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-9 e-10 arg-11 e-6 e-11 (Interface-Elab-Idris-n--12181-458-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 e-3 arg-13)))))))))))))))
+(define Interface-Elab-Idris-n--12734-979-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 2 arg-1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-2) (vector 31 arg-1 1) (Interface-Elab-Idris-n--12734-979-mkLam arg-0 arg-1 arg-2 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-3 arg-16)))))))))
+(define Interface-Elab-Idris-n--12734-981-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 1 (Interface-Elab-Idris-n--12734-980-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15))))
+(define Interface-Elab-Idris-n--12181-455-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) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
+(define Interface-Elab-Idris-n--12734-978-getExplicitArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 3))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 2 "arg" arg-15) (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-5)))(else (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-0 arg-1 arg-2 arg-3 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)))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-n--13280-1465-findSetTotal (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--13280-1465-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))))
+(define Interface-Elab-Idris-n--13406-1582-elabMethods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethToplevel arg-6 arg-14 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) arg-16 arg-3 eta-0)) 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 ((fns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Top level methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) fns))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-0)) fns) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-0) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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 (Context-Core-setFlag arg-14 arg-10 e-8 (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 ((act-29 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Context-Core-setFlag arg-14 arg-10 e-8 (vector 2 ) eta-0)))))))))))))))) arg-16) ext-0)))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1583-elabDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((dn_in (vector 1 (Strings-Prelude-C-43C-43 "Default implementation of " (Name-Core-show_Show__Name e-10))))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-14 dn_in) 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))) (let ((act-25 ((Interface-Elab-Idris-case--13430-2291 arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 dn_in e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-10 arg-15)) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-26 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc6 act-26)) (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 0 n (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 (vector 0 e-2 e-12) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15)) eta-0))) (let ((sc6 act-26)) (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))) (let ((dty (Utils-TTImp-substNames arg-6 e-12 e-4))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15) arg-6) (Interface-Elab-Idris-bindIFace e-2 ity dty) eta-0))) (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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-13))))) 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 ((dtydecl (vector 0 e-2 e-9 arg-9 (vector 0 ) (vector 0 e-2 e-5 e-13)))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 e-5 eta-1)) e-11))) (let ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 e-2 e-5 csC-39)) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (vector 1 (vector 0 e-10 e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1584-elabConstraintHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((nconstraints (Interface-Elab-Idris-n--13406-1580-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 0 arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-getConstraintHint arg-6 arg-14 arg-10 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) nconstraints) arg-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3) eta-1)) nconstraints) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraint hints from " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-1 x-1)))) d-0 x-0))))) d 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 (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-1)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Builtin-snd 'erased 'erased eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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))) (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-5)) eta-0))))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1581-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 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) 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 ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Method declarations: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (vector 0 arg-10 (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13428-1615-notData arg-0 arg-1 arg-2 arg-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 'erased 'erased eta-0)) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Interface-Elab-Idris-mkIfaceData arg-6 arg-14 arg-10 arg-9 arg-8 e-7 arg-4 arg-15 arg-3 arg-2 e-5) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-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 ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making interface data type " (TTImp-TTImp-show_Show__ImpDecl e-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 ((act-31 (ProcessDecls-TTImp-processDecls arg-6 arg-14 arg-11 arg-13 arg-7 arg-8 (vector 1 e-9 (vector 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 (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-n--13043-1246-constName (lambda (arg-0 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 (Interface-Elab-Idris-n--13043-1245-bindName arg-0 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 Interface-Elab-Idris-n--13430-1920-changeNameTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Interface-Elab-Idris-case--13760-1945 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 e-0 arg-20 (Name-Core-C-61C-61_Eq__Name arg-17 e-1))))) ((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 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) e-7 e-8))))))(else arg-21)))))
+(define Interface-Elab-Idris-n--13430-1921-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1) 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))) (vector 1 e-3 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4) e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 eta-0)) e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)))))))))
+(define Interface-Elab-Idris-n--12181-456-bname (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 1 e-2) (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
+(define Interface-Elab-Idris-n--12734-976-bindPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-getFC e-7) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--12734-976-bindPs arg-0 arg-1 arg-2 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-3 arg-16))))))))))))
+(define Interface-Elab-Idris-n--13043-1245-bindName (lambda (arg-0 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--13043-1245-bindName 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)))(else (Name-Core-show_Show__Name arg-12))))))
+(define Interface-Elab-Idris-n--12734-980-bindName (lambda (arg-0 arg-1 arg-2 arg-3 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12734-980-bindName arg-0 arg-1 arg-2 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-2)))(else (Name-Core-show_Show__Name arg-15))))))
+(define Interface-Elab-Idris-n--12181-457-bhere (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
+(define Interface-Elab-Idris-n--13430-1919-applyParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) arg-20) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 9 arg-15 arg-20 (vector 1 (vector 1 e-4)) (vector 16 arg-15 e-4)) e-3)))(else (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)))))))))))
+(define Interface-Elab-Idris-n--12734-977-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 0 arg-15 (vector 9 arg-1 (vector 0 arg-1 arg-15) (vector 1 (vector 1 "__con")) (vector 0 arg-1 (vector 1 "__con"))))))
+(define Interface-Elab-Idris-updateIfaceSyn (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13280-1466-totMeth arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((info (vector 0 arg-3 arg-4 arg-5 e-6 arg-7))) (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 (ANameMap-Data-addName 'erased arg-2 info e-2) e-3 e-4 e-7))))))))))) (vector 1 act-26)))))))))))))))
+(define Interface-Elab-Idris-namePis (lambda (arg-0 arg-1) (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 ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 2 ) (vector 1 (vector 2 "i_con" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 0 ) (vector 1 (vector 2 "i_imp" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5))))))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))))))))) ((15) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 15 e-6 e-7 (Interface-Elab-Idris-namePis arg-0 e-8))))))(else arg-1)))))
+(define Interface-Elab-Idris-mkIfaceData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((opts (Interface-Elab-Idris-case--12181-639 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (List-Data-isNil 'erased arg-9)))) (let ((retty (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((conty (Interface-Elab-Idris-n--12181-458-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-455-jname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-8) (Interface-Elab-Idris-n--12181-458-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 1 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-457-bhere arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-456-bname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-10)) retty)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) 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 ((con (vector 0 arg-2 arg-7 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) (Interface-Elab-Idris-mkDataTy arg-2 arg-8) 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 arg-2 arg-3 (vector 0 arg-2 arg-6 e-6 opts (vector 1 con (vector 0 ))))))))))))))))))))))
+(define Interface-Elab-Idris-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-mkDataTy arg-0 e-3))))))))))))
+(define Interface-Elab-Idris-mkCon (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-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-0 (vector 4 (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" e-2))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1))))))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1)))))))))
+(define Interface-Elab-Idris-getSig (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 1 (vector 0 e-8 (vector 0 e-1 (vector 0 e-3 (vector 0 e-9 (vector 0 1 (Interface-Elab-Idris-namePis 0 e-10)))))))))))(else (vector 0 )))))))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (vector 1 (vector 0 e-11 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 6 ) (vector 0 )) (vector 0 e-12 (vector 0 0 (Interface-Elab-Idris-namePis 0 e-13)))))))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-getMethToplevel (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 e-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((ty_constr (Interface-Elab-Idris-n--12734-976-bindPs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-8 (Utils-TTImp-substNames arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12734-977-applyCon arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-0)) arg-7) e-19)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (Interface-Elab-Idris-bindIFace e-2 ity ty_constr) 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 ((act-25 ((Context-Core-inCurrentNS arg-1 e-14) eta-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-8 (vector-ref sc6 1))) (let ((tydecl (vector 0 e-2 e-6 arg-3 (let ((sc7 e-18)) (cond ((equal? sc7 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 ))))) (vector 0 e-2 e-8 e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 e-2 arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 e-2 0)) arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12734-980-bindName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-1)) arg-7)))))) (let ((argns (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 0 e-19))) (let ((fnclause (vector 0 e-2 (vector 9 e-2 (vector 0 e-2 e-8) (vector 1 (vector 1 "__con")) conapp) (Interface-Elab-Idris-n--12734-979-mkLam arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 argns (TTImp-TTImp-apply (vector 0 e-2 (Interface-Elab-Idris-n--12734-981-methName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 e-14)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) argns)))))) (let ((fndef (vector 2 e-2 e-8 (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-getMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-2 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) (List-Prelude-C-43C-43 'erased arg-6 arg-1)) e-19 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 (vector 0 e-14 (vector 0 e-6 (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-2 e-2 e-6 e-10 e-14 e-18 e-19 arg-6 arg-5 arg-1 arg-4 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) e-5)))))))))))))))))))))))))))
+(define Interface-Elab-Idris-getDefault (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))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) (vector 0 e-1 e-2))))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-getConstraintHint (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 ((ity (TTImp-TTImp-apply (vector 0 arg-2 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) arg-9)))) (let ((fty (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ity e-3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased arg-8 arg-0) fty 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 ((hintname (vector 4 (Strings-Prelude-C-43C-43 "Constraint " (TTImp-TTImp-show_Show__RawImp e-3)) (vector 1 (Strings-Prelude-C-43C-43 "__" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 "_" (TTImp-TTImp-show_Show__RawImp e-3)))))))) (let ((tydecl (vector 0 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-4 (vector 1 (vector 0 ) (vector 1 (vector 2 1) (vector 0 ))) (vector 0 arg-2 hintname e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13043-1245-bindName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 eta-1)) arg-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 arg-2 0)) arg-8))))) (let ((fnclause (vector 0 arg-2 (vector 8 arg-2 (vector 0 arg-2 hintname) conapp) (vector 0 arg-2 (Interface-Elab-Idris-n--13043-1246-constName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 e-2))))) (let ((fndef (vector 2 arg-2 hintname (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 0 hintname (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))
+(define Interface-Elab-Idris-elabInterface (lambda (arg-0 arg-1 arg-2 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 ((Context-Core-getFullName arg-1 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 ((conName_in (Prelude-maybe 'erased 'erased (lambda () (Interface-Elab-Idris-mkCon arg-5 e-5)) (lambda () (lambda (eta-0) eta-0)) arg-13))) (let ((act-25 ((Context-Core-inCurrentNS arg-1 conName_in) 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 ((meth_sigs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getSig eta-0)) arg-14))) (let ((meth_decls (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (vector 0 e-14 (vector 0 e-8 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))) meth_sigs))) (let ((meth_names (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) meth_decls))) (let ((defaults (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getDefault eta-0)) arg-14))) (let ((act-26 (Interface-Elab-Idris-n--13406-1581-elabAsData arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Interface-Elab-Idris-n--13406-1584-elabConstraintHints arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names) 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 (Interface-Elab-Idris-n--13406-1582-elabMethods arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13406-1583-elabDefault arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 meth_decls eta-0)) defaults) 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 ((Core-Core-traverse 'erased 'erased (lambda (mt) (lambda (eta-0) (let ((act-30 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) 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))) (vector 1 (vector 0 e-11 (Builtin-snd 'erased 'erased mt)))))))))) meth_decls) 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 ((Context-Core-inCurrentNS arg-1 e-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))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-12 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-11) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-9) e-11 e-10 ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-bindIFace (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-2)) (case (vector-ref sc1 0) ((0) (vector 1 e-0 e-1 (vector 0 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5))) ((2) (vector 1 e-0 e-1 (vector 2 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5)))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2)))))))))))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2))))))
+(define Implementation-Elab-Idris-case--15154-9428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-48)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added defaults: body is " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-2))) 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Missing methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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 ((act-26 (let ((act-26 (unbox arg-17))) (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 ((e-7 (vector-ref sc3 1))) (let ((hs (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (let ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Open hints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 1 arg-19 arg-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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-28 (Context-Core-checkUnambig arg-17 arg-13 n 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))) (Context-Core-addOpenHint arg-17 e-9 eta-1)))))))) arg-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 ((act-29 (let ((act-29 (unbox arg-17))) (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 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 ) arg-19 arg-46 arg-29 (let ((sc7 arg-23)) (let ((e-1 (vector-ref sc7 2))) e-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7277-mkTopMethDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-1)) e-11)) 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 ((con (let ((sc9 arg-23)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-19) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-46))))) (let ((act-32 (let ((act-32 (unbox arg-17))) (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 (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-13 (vector 0 ) arg-27 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 ((e-14 (vector-ref sc10 1))) (let ((fldTys (Implementation-Elab-Idris-n--12847-7267-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-14))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field types " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d x-4)))) x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-3) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-3 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-4) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-4 x-4)))) d-3 x-3))))) d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x)))) fldTys))) 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 ((irhs (TTImp-TTImp-apply (vector 0 arg-13 con) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 11 arg-13 (Prelude-fromInteger_Num__Nat 500))) (let ((sc12 arg-23)) (let ((e-17 (vector-ref sc12 3))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7271-mkMethField arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-46 fldTys eta-1)) e-11))))) (let ((impFn (vector 2 arg-13 arg-19 (vector 1 (vector 0 arg-13 ilhs irhs) (vector 0 ))))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation record: " (TTImp-TTImp-show_Show__ImpDecl impFn))) 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 ((act-36 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (x) (lambda (eta-1) (Context-Core-addOpenHint arg-17 arg-19 eta-1)))) arg-2) eta-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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 5 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (vector 1 impFn (vector 0 ))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 5 ) 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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 3 ) eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 4 (vector 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 ((upds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7278-methNameUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased eta-1)) e-11))) (let ((act-42 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7282-updateBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 upds eta-1)) e-2) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation body: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-23))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) e-23) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7283-addTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 upds eta-1)) (let ((sc22 arg-23)) (let ((e-26 (vector-ref sc22 4))) e-26))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 3 ) 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 ((act-47 (Context-Core-setOpenHints arg-17 hs 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 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-case--14682-9280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-44)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((_-0 (vector 1 e-1))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 e-5 e-6 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-1))) (let ((sc3 arg-23)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 arg-23)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-42)) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-0)))))))
+(define Implementation-Elab-Idris-case--14682-9115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-35)) (else (vector 0 ))))))
+(define Implementation-Elab-Idris-case--14596-8861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-5)))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) arg-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))) (let ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc2 arg-23)) (let ((e-6 (vector-ref sc2 2))) e-6))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc2 arg-23)) (let ((e-2 (vector-ref sc2 3))) e-2))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc2 arg-23)) (let ((e-3 (vector-ref sc2 4))) e-3))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0))) "\u000a")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-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 ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-28 (Context-Core-isUnboundImplicits arg-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 ((e-9 (vector-ref sc5 1))) (let ((paramBinds (let ((sc6 e-9)) (cond ((equal? sc6 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 (let ((sc7 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc7 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 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 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc8 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-31 (let ((act-31 (unbox arg-17))) (vector 1 act-31)))) (let ((sc9 act-31)) (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-32 (Context-Core-lookupTyExact arg-19 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) e-0)) eta-1))) (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 ((_-0 (vector 1 e-1))) (let ((sc11 e-13)) (case (vector-ref sc11 0) ((1) (let ((e-2 (vector-ref sc11 1))) (let ((act-33 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-2) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-14))) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-1 (vector 1 e-2))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 impsp e-5 e-6 e-7 e-8 opts initTy e-9 paramBinds impTy impTyDecl e-10 e-11 body_in e-12 e-2 _-1 e-14 e-15 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc14 arg-23)) (let ((e-3 (vector-ref sc14 4))) e-3))) (let ((sc14 arg-23)) (let ((e-4 (vector-ref sc14 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
+(define Implementation-Elab-Idris-case--14507-8800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-24)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) e-1 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc4 arg-23)) (let ((e-8 (vector-ref sc4 2))) e-8))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc4 arg-23)) (let ((e-7 (vector-ref sc4 3))) e-7))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc4 arg-23)) (let ((e-3 (vector-ref sc4 4))) e-3))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-23)) (let ((e-0 (vector-ref sc4 1))) e-0))) "\u000a")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-2 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))) (let ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-29 (Context-Core-isUnboundImplicits arg-17 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 ((paramBinds (let ((sc8 e-10)) (cond ((equal? sc8 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((sc9 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc9 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (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 ((sc10 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc10 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-32 (let ((act-32 (unbox arg-17))) (vector 1 act-32)))) (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))) (let ((act-33 (Context-Core-lookupTyExact arg-19 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((act-34 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-3) eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-15))) eta-1))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-2 (vector 1 e-3))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 impsp e-6 e-7 e-8 e-9 opts initTy e-10 paramBinds impTy impTyDecl e-11 e-12 body_in e-13 e-3 _-2 e-15 e-16 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc16 arg-23)) (let ((e-17 (vector-ref sc16 4))) e-17))) (let ((sc16 arg-23)) (let ((e-4 (vector-ref sc16 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc3 arg-23)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-22) eta-0)))))))
+(define Implementation-Elab-Idris-case--12847-8731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((cn (Builtin-fst 'erased 'erased e-1))) (let ((cdata (Builtin-snd 'erased 'erased e-1))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact cn (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-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))) (let ((act-26 (Context-Core-lookupTyExact (let ((sc5 cdata)) (let ((e-0 (vector-ref sc5 1))) e-0)) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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-7 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-3))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name cn))) e-3 eta-0))) (let ((sc7 act-27)) (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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc8 cdata)) (let ((e-12 (vector-ref sc8 2))) e-12))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc8 cdata)) (let ((e-11 (vector-ref sc8 3))) e-11))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc8 cdata)) (let ((e-10 (vector-ref sc8 4))) e-10))) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc8 cdata)) (let ((e-0 (vector-ref sc8 1))) e-0))) "\u000a")))))))))))) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 eta-0))) (let ((sc9 act-29)) (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-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) eta-0))) (let ((sc10 act-30)) (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))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-31 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((paramBinds (let ((sc12 e-12)) (cond ((equal? sc12 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-32 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) eta-0))) (let ((sc12 act-32)) (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-33 (let ((sc13 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc13 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((sc14 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc14 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-17))) (vector 1 act-34)))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-15 (vector-ref sc15 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc15 1))) (let ((act-35 (Context-Core-lookupTyExact arg-19 (let ((sc16 e-15)) (let ((e-0 (vector-ref sc16 1))) e-0)) eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-16 (vector-ref sc16 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-4))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((1) (let ((e-17 (vector-ref sc17 1))) (let ((act-36 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-17) eta-1))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-18 (vector-ref sc18 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-37 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-18))) eta-1))) (let ((sc19 act-37)) (case (vector-ref sc19 0) ((0) (let ((e-19 (vector-ref sc19 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc19 1))) (let ((_-2 (vector 1 e-17))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 cn cdata e-5 e-3 _-0 e-4 _-1 impsp e-8 e-9 e-10 e-11 opts initTy e-12 paramBinds impTy impTyDecl e-13 e-14 body_in e-15 e-17 _-2 e-18 e-19 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc20 cdata)) (let ((e-21 (vector-ref sc20 4))) e-21))) (let ((sc20 cdata)) (let ((e-20 (vector-ref sc20 5))) e-20)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 cn) eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-4) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))
+(define Implementation-Elab-Idris-case--12887-8538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((rhs (vector 0 arg-13 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp rhs)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (UnifyState-Core-handleUnify 'erased arg-17 arg-16 (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 (vector 6 arg-13 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-24)))) arg-26 rhs)) (lambda (err) (lambda (eta-1) (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Can't add transform " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp rhs) (Strings-Prelude-C-43C-43 "\u000a\u0009" (Core-Core-show_Show__Error err))))))) eta-1))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Implementation-Elab-Idris-case--12883-8280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-19 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " is not a method of " (Name-Core-show_Show__Name arg-4)))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Implementation-Elab-Idris-case--12880-8153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-3 arg-25) arg-24 arg-23 arg-22 arg-21 arg-20 arg-19) 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 1 e-2 e-5)))))))))))))
+(define Implementation-Elab-Idris-case--13270-7912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-29 (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-29) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-46))) (vector 0 )))))))
+(define Implementation-Elab-Idris-case--12879-7646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-28 e-2))) (let ((mbase (Implementation-Elab-Idris-n--12847-7274-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-26 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_in))))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-29) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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))) (let ((act-26 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "    (initially " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) ")"))) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-28))) 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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) 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 ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Name updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0))))) d x)))) e-3))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Param names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-24))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) ibound))) 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 ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-26))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--13270-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 mty_in mbase ibound e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ibinds (List-Data-isNil 'erased ibinds)))) (vector 1 (vector 0 (vector 0 arg-18 (vector 0 arg-29 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-5))))) methupdsC-39)))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-case--12656-7095 (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) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 arg-5 arg-8) arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((mupdates (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 9 arg-4 (vector 0 arg-4 n) (vector 1 (vector 1 "__con")) (vector 0 arg-4 arg-3)))) arg-2))) (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause (vector 0 ) mupdates eta-0)) e-2))) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-6 (vector 1 (vector 2 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-4 eta-0)) csC-39)) arg-7))))))))))
+(define Implementation-Elab-Idris-n--12847-7281-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) (let ((sc0 arg-19)) (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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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 0 e-0 e-5 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))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-8 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7281-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-1)) 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 1 e-3 e-8 e-5 e-6 e-9))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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 2 e-8 e-5)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7282-updateBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((2) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7281-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (let ((act-25 ((Implementation-Elab-Idris-n--12847-7279-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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))) (vector 1 (vector 2 e-0 e-6 e-5)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-13 "Implementation body can only contain definitions") eta-0)))))))
+(define Implementation-Elab-Idris-n--12847-7280-updateApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7279-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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))))))))))) ((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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 1 (vector 8 e-2 e-5 e-4)))))))))))) ((9) (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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-9 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-8)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-19) "Invalid method definition") eta-0)))))))
+(define Implementation-Elab-Idris-n--12847-7276-topMethTypes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7275-topMethType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-4 arg-18) arg-19 arg-20 arg-21 arg-22 arg-23 e-3) eta-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))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7275-topMethType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Implementation-Elab-Idris-n--12847-7273-applyCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 eta-1 eta-2))) arg-23) 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-8 (vector-ref sc5 1))) (let ((updsC-39 e-8)) (let ((mty_in (Utils-TTImp-substNames arg-7 updsC-39 e-15))) ((Implementation-Elab-Idris-case--12879-7646 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-15 arg-23 arg-22 arg-21 arg-20 arg-19 arg-18 e-5 e-8 updsC-39 mty_in (State-Monad-Control-runState 'erased 'erased (BindImplicits-TTImp-renameIBinds arg-21 (TTImp-TTImp-findImplicits mty_in) mty_in) (vector 0 ))) eta-0))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7277-mkTopMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () arg-11) (lambda () (lambda (t) (vector 1 (vector 7 t) arg-11))) e-18))) (vector 0 arg-13 e-14 arg-12 opts (vector 0 arg-13 e-6 e-19))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7271-mkMethField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((argns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Implementation-Elab-Idris-n--12875-7455-applyUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-18 e-19 arg-19 arg-18 eta-0)) (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) eta-0)) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Name-Core-dropNS e-2) arg-19))))) (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-18))) (Implementation-Elab-Idris-n--12847-7269-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 argns (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-13 (vector 0 arg-13 e-6) argns) (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 0 arg-13 (vector 1 (Name-Core-show_Show__Name n))))) imps))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7269-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-13 e-10 e-11 (vector 1 e-6) (vector 31 arg-13 1) (Implementation-Elab-Idris-n--12847-7269-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7278-methNameUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (vector 0 (vector 1 (Name-Core-nameRoot e-2)) e-6))))))))
+(define Implementation-Elab-Idris-n--12847-7272-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)))(else (vector 4 (Name-Core-show_Show__Name arg-18) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) arg-2) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-3)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7268-impsApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) arg-18) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 9 arg-13 arg-18 (vector 1 e-6) e-7) e-3)))))))))))
+(define Implementation-Elab-Idris-n--12847-7267-getFieldArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-2 (Implementation-Elab-Idris-n--12871-7294-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-1 e-8 e-7 e-6 e-2 e-4 'erased e-8)) (Implementation-Elab-Idris-n--12847-7267-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-4))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define Implementation-Elab-Idris-n--12871-7294-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (vector 0 e-6 (TT-Core-forgetDef 'erased 'erased e-7))) (Implementation-Elab-Idris-n--12871-7294-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 'erased e-4)))))(else (vector 0 ))))))))(else (vector 0 ))))))
+(define Implementation-Elab-Idris-n--12847-7279-findMethName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Implementation-Elab-Idris-case--12883-8280 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-19 arg-18 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-20 arg-18))))
+(define Implementation-Elab-Idris-n--12650-7074-extendBody (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) (vector 0 arg-7 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Implementation-Elab-Idris-case--12656-7095 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 arg-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))))))
+(define Implementation-Elab-Idris-n--12650-7075-dropGot (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12650-7075-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 e-5)) arg-5) e-3)))(else (Implementation-Elab-Idris-n--12650-7075-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
+(define Implementation-Elab-Idris-n--12847-7274-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 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-13 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-n--12847-7274-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
+(define Implementation-Elab-Idris-n--12875-7455-applyUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 (vector 1 e-4) (vector 0 e-7 e-8))) (lambda () (lambda (nC-39) (vector 0 (vector 1 nC-39) (vector 0 e-7 e-8)))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
+(define Implementation-Elab-Idris-n--12847-7270-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 8 arg-18 arg-19 (vector 0 arg-18 e-6)) e-3)) ((2) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) ((0) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) (else (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7273-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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)) ext-0))) (let ((sc0 act-24)) (case (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 (Name-Core-dropNS arg-19) (vector 0 arg-13 e-5))))))))))
+(define Implementation-Elab-Idris-n--12847-7283-addTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Adding transform for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-15) (Strings-Prelude-C-43C-43 "\u000a\u0009for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) arg-19))))))))) 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))) (let ((lhs (vector 9 arg-13 (vector 0 arg-13 e-2) (vector 1 (vector 1 "__con")) (vector 0 arg-13 arg-18)))) ((Implementation-Elab-Idris-case--12887-8538 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-14 e-10 e-6 e-2 e-15 arg-19 arg-18 e-5 lhs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Name-Core-dropNS e-2) arg-19)) eta-0))))))))))))))))))))))
+(define Implementation-Elab-Idris-mkImpl (lambda (arg-0 arg-1 arg-2) (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " implementation at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__Impl_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-2)))))))))
+(define Implementation-Elab-Idris-getMethImps (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-0 arg-1 arg-2 e-8 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 ((Implementation-Elab-Idris-getMethImps (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 2 e-6 (vector 0 ) e-8) arg-2) e-4) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Implementation-Elab-Idris-elabImplementation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((impName_in (Prelude-maybe 'erased 'erased (lambda () (Implementation-Elab-Idris-mkImpl arg-5 arg-13 arg-14)) (lambda () (lambda (eta-0) eta-0)) arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 impName_in) 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-3))) (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))) ((Implementation-Elab-Idris-case--12847-8731 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 impName_in e-5 e-6 (ANameMap-Data-lookupName 'erased arg-13 (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) eta-0)))))))))))))))
+(define Implementation-Elab-Idris-bindImpls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-bindImpls arg-0 e-3 arg-2)))))))))))))))
+(define Implementation-Elab-Idris-bindConstraints (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-6 e-7 (Implementation-Elab-Idris-bindConstraints arg-0 arg-1 e-3 arg-3))))))))))))
+(define Implementation-Elab-Idris-addDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((missing (Implementation-Elab-Idris-n--12650-7075-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
+(define ModTree-Idris-case--14148-3335 (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 (Context-Core-clearCtxt 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 ((act-25 ((InitPrimitives-Core-addPrimitives arg-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 (let ((act-26 (set-box! arg-3 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttc" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-8) (Strings-Prelude-C-43C-43 " from " arg-0)))) 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 (ProcessIdr-Idris-readAsMain arg-5 arg-2 arg-4 e-8 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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttm" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String 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 ((act-32 (Metadata-Core-readFromTTM arg-3 e-11 eta-0))) (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 0 ))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define ModTree-Idris-case--14066-3263 (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) (ModTree-Idris-buildMods arg-7 arg-6 arg-5 arg-4 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) arg-2 arg-1))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define ModTree-Idris-case--13476-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-2))) (vector 1 arg-17 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-18)))))))))
+(define ModTree-Idris-case--13597-2892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))(else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-25) 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 (List-Prelude-C-43C-43 'erased arg-14 arg-25))))))))))))))))
+(define ModTree-Idris-case--13476-2820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (cond ((equal? sc0 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 arg-23 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-process arg-6 arg-21 arg-20 arg-5 arg-4 msg 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-14) eta-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-14))))))))))(else (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 (List-Prelude-C-43C-43 'erased arg-14 e-5))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))))))
+(define ModTree-Idris-case--13274-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ModTree-Idris-fnameModified arg-12 eta-1))) (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-5)))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) 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 ((act-25 (ModTree-Idris-fnameModified arg-11 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 ((Core-Core-traverse 'erased 'erased (lambda (f) (lambda (eta-1) (let ((act-26 (ModTree-Idris-fnameModified f eta-1))) (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 f e-7))))))))) e-3) 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 ((needsBuilding (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) 0) (else (let ((e-4 (vector-ref sc4 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-4))) (vector 1 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7))))))))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 (let ((act-29 (set-box! arg-5 (Syntax-Idris-initSyntax)))) (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 ((showMod (Name-Core-showSep "." (List-Data-reverse 'erased (let ((sc7 arg-0)) (let ((e-1 (vector-ref sc7 2))) e-1)))))) (let ((sc7 needsBuilding)) (cond ((equal? sc7 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 showMod (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (let ((act-30 (ProcessIdr-Idris-process arg-6 e-9 e-8 arg-5 arg-4 msg 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 ((e-11 (vector-ref sc8 1))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))(else (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-11) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (List-Prelude-C-43C-43 'erased e-2 e-11)))))))))))))))))))) (else (let ((act-30 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))))))))))))))))))))))))))))
+(define ModTree-Idris-case--13285-2616 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 arg-9 e-3)))))))
+(define ModTree-Idris-case--13285-2564 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-9 e-2) e-3))))))
+(define ModTree-Idris-case--13194-2472 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))))))
+(define ModTree-Idris-case--13181-2453 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define ModTree-Idris-case--13054-2351 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((ModTree-Idris-mkModTree arg-4 arg-5 arg-2 (vector 0 ) 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))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.DoneMod" ) (StringMap-Data-empty 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.BuildOrder" ) (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 ((act-27 ((ModTree-Idris-mkBuildMods e-6 e-7 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 ((act-28 (let ((act-28 (unbox e-7))) (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))) (vector 1 (List-Data-reverse 'erased e-9))))))))))))))))))))))))))))))))
+(define ModTree-Idris-case--12942-2225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkBuildMods arg-2 arg-1 eta-1)) (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-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 (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 (vector 1 (vector 0 arg-3 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) (let ((sc3 arg-0)) (let ((e-2 (vector-ref sc3 3))) e-2)))) 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 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-2 (StringMap-Data-insert 'erased arg-3 (vector 0 ) e-8)))) (vector 1 act-28))))))))))))))))))))))))))
+(define ModTree-Idris-case--12739-2106 (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 (Directory-Core-nsToSource arg-4 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 ((act-25 (ProcessIdr-Idris-readHeader arg-4 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 ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-2 (vector-ref sc3 3))) e-2))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkModTree arg-4 arg-3 arg-2 (vector 1 arg-0 arg-1) eta-1)) imps) 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 ((mt (vector 0 arg-0 (vector 1 e-5) e-7))) (let ((act-27 (let ((act-27 (unbox arg-3))) (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 (let ((act-28 (set-box! arg-3 (vector 1 (vector 0 arg-0 mt) e-8)))) (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 (vector 1 mt))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define ModTree-Idris-case--12739-2053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((52) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))))
+(define ModTree-Idris-case--12725-2011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 52 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 arg-0 (vector 0 )))) eta-0))) (else (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (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))) ((ModTree-Idris-case--12739-2106 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-0 e-5)) eta-1))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((52) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))) eta-0)))))))
+(define ModTree-Idris-n--13274-2534-getEithers (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) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (ModTree-Idris-case--13285-2564 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--13274-2534-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (ModTree-Idris-case--13285-2616 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--13274-2534-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
+(define ModTree-Idris-n--14325-3483-dropLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (ModTree-Idris-n--14325-3483-dropLater arg-0 arg-1 arg-2 arg-3 (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (let ((sc1 x)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-3))))))))))
+(define ModTree-ModTree-Idris-sourceFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define ModTree-ModTree-Idris-nspace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define ModTree-Idris-mkModTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (ModTree-Idris-case--12725-2011 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-4 arg-3))))
+(define ModTree-Idris-mkBuildMods (lambda (arg-0 arg-1 arg-2) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (sf) (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))) ((ModTree-Idris-case--12942-2225 arg-2 arg-1 arg-0 sf e-5 (StringMap-Data-lookup 'erased sf e-5)) eta-0))))))))) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
+(define BuildMod-ModTree-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define ModTree-Idris-getBuildMods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.AllMods" ) (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 ((act-25 (Context-Core-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 ((Directory-Core-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-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))) ((ModTree-Idris-case--13054-2351 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-1 (vector-ref sc3 2))) e-1))) arg-3))) ext-0))))))))))))))))))
+(define ModTree-Idris-getAllBuildMods (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-2 arg-3 arg-4 e-2 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))) ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased e-5 arg-4) e-3) eta-0))))))))))))))
+(define ModTree-Idris-fnameModified (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) ext-0)))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define ModTree-ModTree-Idris-deps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define BuildMod-ModTree-Idris-buildNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define ModTree-Idris-buildMods (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-buildMod arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-5 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
+(define ModTree-Idris-buildMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-clearCtxt 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 ((InitPrimitives-Core-addPrimitives 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 (Context-Core-lazyActive arg-0 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 (Context-Core-setUnboundImplicits arg-0 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 ((src (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-28 (Directory-Core-getTTCFileName arg-0 src "ttc" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Directory-Core-nsToPath arg-0 arg-3 eta-0 eta-1))) (let ((sc5 arg-6)) (let ((e-2 (vector-ref sc5 3))) e-2))) 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))) ((ModTree-Idris-case--13274-2708 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 src e-9 e-10 (ModTree-Idris-n--13274-2534-getEithers arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 'erased e-10)) ext-0))))))))))))))))))))))))))))))))))
+(define BuildMod-ModTree-Idris-buildFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define ModTree-Idris-buildDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-4 (FC-Core-toplevelFC) (vector 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 ((ModTree-Idris-buildMods arg-0 arg-1 arg-4 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased e-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) ((0) (let ((act-26 (Context-Core-clearCtxt 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 ((act-27 ((InitPrimitives-Core-addPrimitives 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 ((act-28 (let ((act-28 (set-box! arg-2 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttc" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-10) (Strings-Prelude-C-43C-43 " from " arg-5)))) 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 (ProcessIdr-Idris-readAsMain arg-0 arg-3 arg-1 e-10 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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttm" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String e-13))) 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 (Metadata-Core-readFromTTM arg-2 e-13 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))(else (vector 1 e-6))))))))))))))))
+(define ModTree-Idris-buildAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (vector 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 ((modsC-39 (ModTree-Idris-n--14325-3483-dropLater arg-3 arg-2 arg-1 arg-0 e-5))) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased modsC-39) modsC-39) ext-0)))))))))
+(define Holes-IDEMode-Idris-case--8999-3067 (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) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (premise) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 premise)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 premise)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-tidy (let ((sc0 premise)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm (let ((sc0 premise)) (let ((e-1 (vector-ref sc0 2))) e-1))) "\u000a")))))) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (Strings-Prelude-C-43C-43 "-------------------------------------\u000a" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))))))))
+(define Holes-IDEMode-Idris-case--8913-3027 (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))
+(define Holes-IDEMode-Idris-case--8808-2978 (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 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))))))
+(define Holes-IDEMode-Idris-case--8822-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) (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)) (else (vector 1 arg-8 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)))))))
+(define Holes-IDEMode-Idris-case--8653-2803 (lambda (arg-0 arg-1 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (vector 1 arg-13 e-2))))))))
+(define Holes-IDEMode-Idris-case--8563-2751 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise arg-0 arg-8 arg-7 (TT-Core-binderType 'erased 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))) (Resugar-Idris-resugar arg-0 arg-10 arg-9 arg-7 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))) (let ((premise (vector 0 arg-2 e-5 (TT-Core-multiplicity 'erased arg-4) (Holes-IDEMode-Idris-n--8563-2697-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4)))) (vector 1 (let ((sc2 arg-11)) (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 (vector 1 premise e-2))))))))))))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Holes-IDEMode-Idris-case--8458-2591 (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 Holes-IDEMode-Idris-case--8455-2570 (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))) (Holes-IDEMode-Idris-case--8458-2591 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) ((0) (vector 1 0))(else (vector 0 ))))))
+(define Holes-IDEMode-Idris-n--8563-2697-implicitBind (lambda (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) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1)))))
+(define Holes-IDEMode-Idris-n--8808-2895-dropShadows (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Holes-IDEMode-Idris-case--8822-2917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) e-3))))))))))
+(define HolePremise-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define HoleData-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define HolePremise-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HoleData-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HolePremise-Holes-IDEMode-Idris-rf--multiplicity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define HolePremise-Holes-IDEMode-Idris-rf--isImplicit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define HoleData-Holes-IDEMode-Idris-rf--context (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define Holes-IDEMode-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0))))))
+(define Holes-IDEMode-Idris-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 Holes-IDEMode-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Holes-IDEMode-Idris-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))) ((Holes-IDEMode-Idris-case--8999-3067 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 Holes-IDEMode-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) " 0 " " 1 " (lambda (eta-0) "   ") ext-0)))
+(define Holes-IDEMode-Idris-sexpPremise (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Holes-IDEMode-Idris-tidy (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))
+(define Holes-IDEMode-Idris-sexpHole (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpPremise eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (vector 1 (vector 0 (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))) (vector 0 )))))))
+(define HolePremise-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HoleData-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Holes-IDEMode-Idris-isHole (lambda (arg-0) (Holes-IDEMode-Idris-case--8455-2570 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
+(define Holes-IDEMode-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}")))))))
+(define Holes-IDEMode-Idris-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Holes-IDEMode-Idris-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 (Context-Core-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 (Holes-IDEMode-Idris-case--8808-2978 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 Holes-IDEMode-Idris-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 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))(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-8 (vector-ref sc1 2))) (Holes-IDEMode-Idris-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-24 ((Holes-IDEMode-Idris-extractHoleData (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 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))) ((Holes-IDEMode-Idris-case--8563-2751 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (Holes-IDEMode-Idris-showName e-3)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))))))))))
+(define MakeClause-IDEMode-Idris-case--2765-7426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-length e-2) e-3))))))
+(define MakeClause-IDEMode-Idris-case--2700-7412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((isrc (MakeClause-IDEMode-Idris-case--2765-7426 arg-0 arg-1 e-2 e-3 (Strings-Data-span (lambda (eta-0) (Prelude-isSpace eta-0)) e-3)))) (let ((indent (Builtin-fst 'erased 'erased isrc))) (let ((src (Builtin-snd 'erased 'erased isrc))) (let ((lhs (Prelude-pack (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7353-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7354-mkWithPat arg-0 arg-1 e-2 indent lhs) "\u000a"))))))))))))
+(define MakeClause-IDEMode-Idris-case--2675-7338 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
+(define MakeClause-IDEMode-Idris-n--2700-7351-readLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 #\=) (vector 0 ))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (cond ((equal? sc3 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (cond ((equal? sc2 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 ))))))))(else (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 ((sc1 e-1)) (cond ((equal? sc1 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
+(define MakeClause-IDEMode-Idris-n--2700-7352-pref (lambda (arg-0 arg-1 arg-2 arg-3) (Unlit-Parser-relit arg-2 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )))))
+(define MakeClause-IDEMode-Idris-n--2700-7354-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7352-pref arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0)))) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 "| with_pat = ?" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-showRHSName arg-1) "_rhs"))))))
+(define MakeClause-IDEMode-Idris-n--2700-7353-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7352-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
+(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2675-7338 arg-0 fn ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack fn))))))
+(define MakeClause-IDEMode-Idris-makeWith (lambda (arg-0 arg-1) (MakeClause-IDEMode-Idris-case--2700-7412 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
+(define CaseSplit-IDEMode-Idris-case--11445-2793 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-n--11317-2643-indent arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 0 arg-11) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-16) (Strings-Prelude-C-43C-43 " " arg-16)) arg-12)) (Strings-Prelude-C-43C-43 " = ?" (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 1 arg-11) "_rhs"))))))))))))
+(define CaseSplit-IDEMode-Idris-case--11380-2761 (lambda (arg-0 arg-1 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))) (let ((_-0 (vector 1 e-1))) (CaseSplit-IDEMode-Idris-case--11445-2793 arg-0 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-case--11317-2702 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-5 (vector 0 ) e-14) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 arg-5 e-13 e-8) 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 ((act-26 (REPLOpts-Idris-getSourceLine arg-2 arg-1 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-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--11445-2793 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-case--11288-2626 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
+(define CaseSplit-IDEMode-Idris-case--11283-2613 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
+(define CaseSplit-IDEMode-Idris-case--11083-2486 (lambda (arg-0 arg-1 arg-2 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) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CaseSplit-IDEMode-Idris-showImpossible arg-5 arg-4 arg-3 eta-0 eta-1))) arg-13)) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-IDEMode-Idris-getReplaces arg-5 arg-4 arg-3 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (let ((stok (TokenLine-IDEMode-Idris-tokens arg-10))) (let ((act-25 (let ((act-25 (unbox arg-5))) (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 (Core-Core-newRef 'erased 'erased (vector "Idris.IDEMode.CaseSplit.UPD" ) (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))) ((CaseSplit-IDEMode-Idris-updateAll e-7 e-6 stok e-5) eta-0)))))))))))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--11046-2427 (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline (vector 1 e-2))) (CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 thisline valid bad (List-Data-isNil 'erased valid)))))))))))
+(define CaseSplit-IDEMode-Idris-case--10989-2399 (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-2 (vector-ref sc0 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-2) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-2))) (let ((sc1 thisline)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-3 (vector-ref sc1 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline-0 (vector 1 e-3))) (CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 _-0 e-3 thisline-0 valid bad (List-Data-isNil 'erased valid))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-7 e-5) eta-0))))))))
+(define CaseSplit-IDEMode-Idris-case--10951-2348 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No file loaded") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-3) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-3))) (let ((sc3 thisline)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0)) (else (let ((e-4 (vector-ref sc3 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((thisline-0 (vector 1 e-4))) ((CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-4 thisline-0 valid bad (List-Data-isNil 'erased valid)) eta-0)))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-2 e-6) eta-0)))))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--10567-2132 (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) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 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))) (vector 1 (vector 1 (vector 1 arg-0) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-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 1 (vector 6 e-2) e-5))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--10629-2034 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (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 ((sc3 e-5)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-3) (vector 1 (vector 4 ) e-6))) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7)))))))))))) ((5) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))
+(define CaseSplit-IDEMode-Idris-case--10567-2006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 3 ) e-2) e-5))))))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-5) (vector 1 (vector 4 ) e-6))) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8)))))))))))) ((5) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))) eta-0)))))))
+(define CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (vector 0 (vector 0 ) (vector 1 (vector 4 ) e-3))) ((0) (Prelude-mapFst 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace arg-0 arg-1 arg-2 arg-3 e-3)))(else (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
+(define CaseSplit-IDEMode-Idris-n--11317-2643-indent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unlit-Parser-relit (vector 1 e-1) (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Prelude-max_Ord__Int 0 (Prelude-C-45_Neg__Int (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6)) 1))) #\ ))))) (else (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6))) #\ )))))))
+(define CaseSplit-IDEMode-Idris-n--10951-2319-getValid (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 e-1)))(else (vector 0 ))))))
+(define CaseSplit-IDEMode-Idris-n--10951-2320-getBad (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-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define CaseSplit-IDEMode-Idris-n--10502-1893-bracket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-4) ((35) arg-4) ((36) arg-4) ((38) arg-4) ((40) arg-4) ((14) arg-4)(else (vector 31 (FC-Core-emptyFC) arg-4))))))
+(define CaseSplit-IDEMode-Idris-updateCase (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))) ((CaseSplit-IDEMode-Idris-case--10951-2348 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
+(define CaseSplit-IDEMode-Idris-updateAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 e-2 arg-2) 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 ((act-25 ((CaseSplit-IDEMode-Idris-updateAll arg-0 arg-1 arg-2 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))) (vector 1 (vector 1 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-1) (TokenLine-IDEMode-Idris-toString eta-1))) e-5) e-6))))))))))))))))))))
+(define CaseSplit-IDEMode-Idris-toStrUpdate (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-3 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 (vector 1 (vector 0 e-4 (Syntax-Idris-show_Show__PTerm (CaseSplit-IDEMode-Idris-n--10502-1893-bracket e-4 e-3 arg-1 arg-0 e-5))) (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-showImpossible (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Resugar-Idris-pterm 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 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))
+(define CaseSplit-IDEMode-Idris-getReplaces (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-toStrUpdate arg-0 arg-1 eta-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))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))
+(define CaseSplit-IDEMode-Idris-getClause (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 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-3 1) p))) 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getFullName arg-0 e-9) 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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-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-12 (vector-ref sc7 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 e-13 e-12) ext-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-12 (vector-ref sc7 1))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-2 arg-3 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-15 (vector-ref sc8 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-2 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--11445-2793 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-13 e-14 _-0 e-11 e-12 e-2 _-1 (Unlit-Parser-isLitLine e-2)) ext-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
+(define CaseSplit-IDEMode-Idris-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-IDEMode-Idris-case--11283-2613 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (CaseSplit-IDEMode-Idris-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
+(define CaseSplit-IDEMode-Idris-doUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (CaseSplit-IDEMode-Idris-case--10567-2006 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--10567-2132 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-4 arg-2)))) ((2) (let ((e-5 (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-6 (vector-ref sc2 1))) (let ((act-25 (Utils-TTImp-uniqueName arg-1 e-6 e-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 (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (vector 1 e-7 e-6)))) (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 ((act-27 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) 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-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-7) e-9))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5))))))))))))))))))
+(define TokenLine-IDEMode-Idris-case--1834-369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 6 arg-4) (vector 0 )))))))
+(define TokenLine-IDEMode-Idris-case--1829-339 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2) (TokenLine-IDEMode-Idris-case--1834-369 arg-0 e-2 e-6 e-10 e-11 (Prelude-C-61C-61_Eq__String e-11 ""))))))))))))))
+(define TokenLine-IDEMode-Idris-tokens (lambda (arg-0) (TokenLine-IDEMode-Idris-case--1829-339 arg-0 (Core-Lexer-Text-lex 'erased (TokenLine-IDEMode-Idris-srcTokens) arg-0))))
+(define TokenLine-IDEMode-Idris-toString (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "?" e-2))) ((3) "{") ((4) "}") ((5) "=") (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define TokenLine-IDEMode-Idris-srcTokens (lambda () (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (vector 1 eta-0))) (vector 1 (vector 0 (TokenLine-IDEMode-Idris-holeIdent) (lambda (x) (vector 2 (substring x 1 (string-length x))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 0 eta-0))) (vector 1 (vector 0 (Lexer-Text-is #\{) (lambda (eta-0) (vector 3 ))) (vector 1 (vector 0 (Lexer-Text-is #\}) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Lexer-Text-is #\=) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 6 eta-0))) (vector 0 ))))))))))
+(define TokenLine-IDEMode-Idris-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
+(define Gambit-Scheme-Compiler-case--10690-2624 (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-1))) (vector 1 act-24))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Gambit-Scheme-Compiler-case--10563-2555 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Gambit-Scheme-Compiler-case--10346-2411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Gambit-Scheme-Compiler-case--10152-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 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-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 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-11) (Strings-Prelude-C-43C-43 arg-12 (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-9)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\u000a"))))))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-case--10012-2020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--10012-1973-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-c-struct " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")\u000a")))))))))))))))))))))
+(define Gambit-Scheme-Compiler-case--9768-1759 (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) (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 0 e-7 ""))))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9768-1751-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-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-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 1 e-15) e-7))))))))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9768-1751-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 1 e-15) e-7)))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Gambit-Scheme-Compiler-case--9723-1711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Gambit-Scheme-Compiler-case--9114-1586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet arg-9 arg-18) arg-15))(else (vector 0 arg-18 arg-15))))))
+(define Gambit-Scheme-Compiler-case--9132-1425 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (vector 1 (vector 0 arg-11 arg-12 e-2 e-6 e-7)))))))))))))
+(define Gambit-Scheme-Compiler-case--9128-1220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Strings-Prelude-C-43C-43 " " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (i) (Strings-Prelude-C-43C-43 "farg-" (Prelude-show_Show__Integer i))) (Prelude-rangeFromTo_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Integer arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Integer arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Integer arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Integer arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Integer arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Integer arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Integer arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Integer arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Integer arg-2798 arg-2799)))))) 0 (Prelude-C-45_Neg__Integer (List-Data-length 'erased arg-9) 1)))))) (else "")))))
+(define Gambit-Scheme-Compiler-case--8245-302 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Gambit-Scheme-Compiler-n--10012-1973-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1130-replaceChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (Prelude-pack (List-Data-replaceOn 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) arg-8 arg-9 (Prelude-unpack ext-0)))))
+(define Gambit-Scheme-Compiler-n--9114-1128-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1133-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
+(define Gambit-Scheme-Compiler-n--8879-951-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8879-951-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8879-951-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 "(function (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--8804-874-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8804-874-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8804-874-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cType arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cType arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (*)(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-6) ")"))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9768-1751-fnWrapName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 arg-7 "-cFunWrap")))))
+(define Gambit-Scheme-Compiler-n--9114-1134-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--9114-1134-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) args)) 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 ((Gambit-Scheme-Compiler-cftySpec arg-5 arg-10) 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 0 (Gambit-Scheme-Compiler-n--9114-1133-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (vector 0 e-5 e-6))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1131-buildCWrapperDefs (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-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 ((box (Strings-Prelude-C-43C-43 e-1 "-box"))) (let ((setBox (Strings-Prelude-C-43C-43 "\u000a (set-box! " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 ")")))))) (let ((cWrapName (Gambit-Scheme-Compiler-n--9114-1130-replaceChar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 #\- #\_ e-1))) (let ((boxDef (Strings-Prelude-C-43C-43 "\u000a(define " (Strings-Prelude-C-43C-43 box " (box #f))\u000a")))) (let ((args (Gambit-Scheme-Compiler-case--9128-1220 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 e-3 e-2 e-1 e-0 box setBox cWrapName boxDef (Prelude-C-62_Ord__Nat (List-Data-length 'erased e-3) 0)))) (let ((cWrapDef (Strings-Prelude-C-43C-43 "\u000a(c-define " (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-3) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-4 (Strings-Prelude-C-43C-43 " \"" (Strings-Prelude-C-43C-43 cWrapName (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 " \"\"" (Strings-Prelude-C-43C-43 "\u000a ((unbox " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" "\u000a)\u000a"))))))))))))))))))))) (vector 0 setBox boxDef cWrapDef)))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1132-buildCFunWrapDeclaration (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Strings-Prelude-C-43C-43 "\u000a(c-declare #<<c-declare-end\u000a" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " arg-10) (Strings-Prelude-C-43C-43 ");" "\u000ac-declare-end\u000a)\u000a")))))))))
+(define Gambit-Scheme-Compiler-n--9114-1135-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((arg (Common-Scheme-Compiler-schName e-2))) (let ((schemeWrap (arg-3 arg))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-n--9114-1134-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg (vector 1 e-4 (vector 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 schemeWrap (vector 1 (vector 0 arg schemeWrap e-8 e-10 e-9)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (Common-Scheme-Compiler-schName e-2) (vector 0 ))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1129-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--setBox (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--cWrapDef (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--boxDef (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Gambit-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-case--9434-1715 e-2 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Gambit-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-case--9768-1759 e-2 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Gambit-Scheme-Compiler-tySpec (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "Int") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "int")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "UTF-8-string")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "double")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "char")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Ptr"))) (lambda () (lambda (eta-0) (vector 1 "(pointer void)")))) (vector 0 )) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Unit"))) (lambda () (lambda (eta-0) (vector 1 "void")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "(pointer void)")))) (vector 0 ))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))
 (define Gambit-Scheme-Compiler-showGambitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Gambit-Scheme-Compiler-showGambitString e-3) eta-0))))(else (lambda (eta-0) ((Gambit-Scheme-Compiler-showGambitChar e-2) ((Gambit-Scheme-Compiler-showGambitString e-3) eta-0)))))))))))))
-(define Gambit-Scheme-Compiler-showGambitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Gambit-Scheme-Compiler-case--7930-285 arg-0 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32))))))))
+(define Gambit-Scheme-Compiler-showGambitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Gambit-Scheme-Compiler-case--8245-302 arg-0 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32))))))))
 (define Gambit-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
 (define Gambit-Scheme-Compiler-schHeader (lambda () "(declare (block)\u000a         (inlining-limit 450)\u000a         (standard-bindings)\u000a         (extended-bindings)\u000a         (not safe)\u000a         (optimize-dead-definitions))\u000a"))
-(define Gambit-Scheme-Compiler-schFgnDef (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))) (let ((argns (Gambit-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Gambit-Scheme-Compiler-mkStruct arg-2 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 ((Gambit-Scheme-Compiler-useCC arg-0 arg-1 arg-3 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (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-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc7 e-10)) (let ((e-36 (vector-ref sc7 1))) e-36)) arg-4) eta-0))) (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 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-11) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-9 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) ""))))))))
+(define Gambit-Scheme-Compiler-schFgnDef (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))) (let ((argns (Gambit-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Gambit-Scheme-Compiler-mkStruct arg-2 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 ((Gambit-Scheme-Compiler-useCC arg-0 arg-1 arg-3 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (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-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc7 e-10)) (let ((e-36 (vector-ref sc7 1))) e-36)) arg-4) eta-0))) (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 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-11) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-9 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) ""))))))))
 (define Gambit-Scheme-Compiler-notWorld (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Gambit-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Gambit-Scheme-Compiler-case--9678-1969 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-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 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Gambit-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Gambit-Scheme-Compiler-case--10012-2020 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-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 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Gambit-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Gambit-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Gambit-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
 (define Gambit-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "void") (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld arg-1))))))
 (define Gambit-Scheme-Compiler-getFgnCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Gambit-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 e-6 e-2 e-7)))))))))
 (define Gambit-Scheme-Compiler-getFArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 1) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-getFArgs e-13) eta-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-6 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-7 e-10) e-6)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))
 (define Gambit-Scheme-Compiler-gambitString (lambda (arg-0) (Prelude-strCons #\" ((Gambit-Scheme-Compiler-showGambitString (Prelude-unpack arg-0)) "\""))))
 (define Gambit-Scheme-Compiler-gambitPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((12) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((6) (let ((e-15 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-tySpec eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Gambit-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Gambit-Scheme-Compiler-gambitPrim eta-2 eta-3 eta-4)))) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitString eta-2)) 0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc11 1))) (vector 1 (Gambit-Scheme-Compiler-handleRet e-8 (Strings-Prelude-C-43C-43 "((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-15) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")"))))))))))))))))))))))))))))))))(else (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((12) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 e-43)) (case (vector-ref sc3 0) ((6) (let ((e-44 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-47 (vector-ref sc4 2))) (let ((sc5 e-47)) (case (vector-ref sc5 0) ((1) (let ((e-50 (vector-ref sc5 2))) (let ((sc6 e-50)) (case (vector-ref sc6 0) ((1) (let ((e-52 (vector-ref sc6 1))) (let ((e-53 (vector-ref sc6 2))) (let ((sc7 e-53)) (case (vector-ref sc7 0) ((1) (let ((e-55 (vector-ref sc7 1))) (let ((e-56 (vector-ref sc7 2))) (let ((sc8 e-55)) (case (vector-ref sc8 0) ((12) (let ((e-58 (vector-ref sc8 2))) (let ((sc9 e-58)) (case (vector-ref sc9 0) ((6) (let ((e-59 (vector-ref sc9 1))) (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-52) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-44 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-59 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-25)) (case (vector-ref sc11 0) ((1) (let ((e-28 (vector-ref sc11 2))) (let ((sc12 e-28)) (case (vector-ref sc12 0) ((1) (let ((e-31 (vector-ref sc12 2))) (let ((sc13 e-31)) (case (vector-ref sc13 0) ((1) (let ((e-34 (vector-ref sc13 2))) (let ((sc14 e-34)) (case (vector-ref sc14 0) ((1) (let ((e-37 (vector-ref sc14 2))) (let ((sc15 e-37)) (case (vector-ref sc15 0) ((1) (let ((e-40 (vector-ref sc15 2))) (let ((sc16 e-40)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-25)) (case (vector-ref sc10 0) ((1) (let ((e-28 (vector-ref sc10 2))) (let ((sc11 e-28)) (case (vector-ref sc11 0) ((1) (let ((e-31 (vector-ref sc11 2))) (let ((sc12 e-31)) (case (vector-ref sc12 0) ((1) (let ((e-34 (vector-ref sc12 2))) (let ((sc13 e-34)) (case (vector-ref sc13 0) ((1) (let ((e-37 (vector-ref sc13 2))) (let ((sc14 e-37)) (case (vector-ref sc14 0) ((1) (let ((e-40 (vector-ref sc14 2))) (let ((sc15 e-40)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-25)) (case (vector-ref sc9 0) ((1) (let ((e-28 (vector-ref sc9 2))) (let ((sc10 e-28)) (case (vector-ref sc10 0) ((1) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((1) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((1) (let ((e-37 (vector-ref sc12 2))) (let ((sc13 e-37)) (case (vector-ref sc13 0) ((1) (let ((e-40 (vector-ref sc13 2))) (let ((sc14 e-40)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((1) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((1) (let ((e-37 (vector-ref sc11 2))) (let ((sc12 e-37)) (case (vector-ref sc12 0) ((1) (let ((e-40 (vector-ref sc12 2))) (let ((sc13 e-40)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((1) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((1) (let ((e-37 (vector-ref sc10 2))) (let ((sc11 e-37)) (case (vector-ref sc11 0) ((1) (let ((e-40 (vector-ref sc11 2))) (let ((sc12 e-40)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-25)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-28)) (case (vector-ref sc7 0) ((1) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((1) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((1) (let ((e-37 (vector-ref sc9 2))) (let ((sc10 e-37)) (case (vector-ref sc10 0) ((1) (let ((e-40 (vector-ref sc10 2))) (let ((sc11 e-40)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((1) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((1) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((1) (let ((e-40 (vector-ref sc9 2))) (let ((sc10 e-40)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 2))) (let ((sc5 e-28)) (case (vector-ref sc5 0) ((1) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((1) (let ((e-37 (vector-ref sc7 2))) (let ((sc8 e-37)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 2))) (let ((sc9 e-40)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-25)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 2))) (let ((sc7 e-37)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-25)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 2))) (let ((sc4 e-31)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 2))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 1))) (let ((e-66 (vector-ref sc1 2))) (let ((sc2 e-65)) (case (vector-ref sc2 0) ((12) (let ((e-90 (vector-ref sc2 2))) (let ((sc3 e-90)) (case (vector-ref sc3 0) ((6) (let ((e-91 (vector-ref sc3 1))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((1) (let ((e-99 (vector-ref sc6 1))) (let ((e-100 (vector-ref sc6 2))) (let ((sc7 e-100)) (case (vector-ref sc7 0) ((1) (let ((e-102 (vector-ref sc7 1))) (let ((e-103 (vector-ref sc7 2))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((12) (let ((e-105 (vector-ref sc8 2))) (let ((sc9 e-105)) (case (vector-ref sc9 0) ((6) (let ((e-106 (vector-ref sc9 1))) (let ((sc10 e-103)) (case (vector-ref sc10 0) ((1) (let ((e-109 (vector-ref sc10 2))) (let ((sc11 e-109)) (case (vector-ref sc11 0) ((1) (let ((e-111 (vector-ref sc11 1))) (let ((e-112 (vector-ref sc11 2))) (let ((sc12 e-112)) (case (vector-ref sc12 0) ((1) (let ((e-115 (vector-ref sc12 2))) (let ((sc13 e-115)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-99) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-111) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-91 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-106 (Strings-Prelude-C-43C-43 "-set! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-66)) (case (vector-ref sc13 0) ((1) (let ((e-69 (vector-ref sc13 2))) (let ((sc14 e-69)) (case (vector-ref sc14 0) ((1) (let ((e-72 (vector-ref sc14 2))) (let ((sc15 e-72)) (case (vector-ref sc15 0) ((1) (let ((e-75 (vector-ref sc15 2))) (let ((sc16 e-75)) (case (vector-ref sc16 0) ((1) (let ((e-78 (vector-ref sc16 2))) (let ((sc17 e-78)) (case (vector-ref sc17 0) ((1) (let ((e-81 (vector-ref sc17 2))) (let ((sc18 e-81)) (case (vector-ref sc18 0) ((1) (let ((e-84 (vector-ref sc18 2))) (let ((sc19 e-84)) (case (vector-ref sc19 0) ((1) (let ((e-87 (vector-ref sc19 2))) (let ((sc20 e-87)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-66)) (case (vector-ref sc12 0) ((1) (let ((e-69 (vector-ref sc12 2))) (let ((sc13 e-69)) (case (vector-ref sc13 0) ((1) (let ((e-72 (vector-ref sc13 2))) (let ((sc14 e-72)) (case (vector-ref sc14 0) ((1) (let ((e-75 (vector-ref sc14 2))) (let ((sc15 e-75)) (case (vector-ref sc15 0) ((1) (let ((e-78 (vector-ref sc15 2))) (let ((sc16 e-78)) (case (vector-ref sc16 0) ((1) (let ((e-81 (vector-ref sc16 2))) (let ((sc17 e-81)) (case (vector-ref sc17 0) ((1) (let ((e-84 (vector-ref sc17 2))) (let ((sc18 e-84)) (case (vector-ref sc18 0) ((1) (let ((e-87 (vector-ref sc18 2))) (let ((sc19 e-87)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-66)) (case (vector-ref sc11 0) ((1) (let ((e-69 (vector-ref sc11 2))) (let ((sc12 e-69)) (case (vector-ref sc12 0) ((1) (let ((e-72 (vector-ref sc12 2))) (let ((sc13 e-72)) (case (vector-ref sc13 0) ((1) (let ((e-75 (vector-ref sc13 2))) (let ((sc14 e-75)) (case (vector-ref sc14 0) ((1) (let ((e-78 (vector-ref sc14 2))) (let ((sc15 e-78)) (case (vector-ref sc15 0) ((1) (let ((e-81 (vector-ref sc15 2))) (let ((sc16 e-81)) (case (vector-ref sc16 0) ((1) (let ((e-84 (vector-ref sc16 2))) (let ((sc17 e-84)) (case (vector-ref sc17 0) ((1) (let ((e-87 (vector-ref sc17 2))) (let ((sc18 e-87)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-66)) (case (vector-ref sc10 0) ((1) (let ((e-69 (vector-ref sc10 2))) (let ((sc11 e-69)) (case (vector-ref sc11 0) ((1) (let ((e-72 (vector-ref sc11 2))) (let ((sc12 e-72)) (case (vector-ref sc12 0) ((1) (let ((e-75 (vector-ref sc12 2))) (let ((sc13 e-75)) (case (vector-ref sc13 0) ((1) (let ((e-78 (vector-ref sc13 2))) (let ((sc14 e-78)) (case (vector-ref sc14 0) ((1) (let ((e-81 (vector-ref sc14 2))) (let ((sc15 e-81)) (case (vector-ref sc15 0) ((1) (let ((e-84 (vector-ref sc15 2))) (let ((sc16 e-84)) (case (vector-ref sc16 0) ((1) (let ((e-87 (vector-ref sc16 2))) (let ((sc17 e-87)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((1) (let ((e-72 (vector-ref sc10 2))) (let ((sc11 e-72)) (case (vector-ref sc11 0) ((1) (let ((e-75 (vector-ref sc11 2))) (let ((sc12 e-75)) (case (vector-ref sc12 0) ((1) (let ((e-78 (vector-ref sc12 2))) (let ((sc13 e-78)) (case (vector-ref sc13 0) ((1) (let ((e-81 (vector-ref sc13 2))) (let ((sc14 e-81)) (case (vector-ref sc14 0) ((1) (let ((e-84 (vector-ref sc14 2))) (let ((sc15 e-84)) (case (vector-ref sc15 0) ((1) (let ((e-87 (vector-ref sc15 2))) (let ((sc16 e-87)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-66)) (case (vector-ref sc8 0) ((1) (let ((e-69 (vector-ref sc8 2))) (let ((sc9 e-69)) (case (vector-ref sc9 0) ((1) (let ((e-72 (vector-ref sc9 2))) (let ((sc10 e-72)) (case (vector-ref sc10 0) ((1) (let ((e-75 (vector-ref sc10 2))) (let ((sc11 e-75)) (case (vector-ref sc11 0) ((1) (let ((e-78 (vector-ref sc11 2))) (let ((sc12 e-78)) (case (vector-ref sc12 0) ((1) (let ((e-81 (vector-ref sc12 2))) (let ((sc13 e-81)) (case (vector-ref sc13 0) ((1) (let ((e-84 (vector-ref sc13 2))) (let ((sc14 e-84)) (case (vector-ref sc14 0) ((1) (let ((e-87 (vector-ref sc14 2))) (let ((sc15 e-87)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-66)) (case (vector-ref sc7 0) ((1) (let ((e-69 (vector-ref sc7 2))) (let ((sc8 e-69)) (case (vector-ref sc8 0) ((1) (let ((e-72 (vector-ref sc8 2))) (let ((sc9 e-72)) (case (vector-ref sc9 0) ((1) (let ((e-75 (vector-ref sc9 2))) (let ((sc10 e-75)) (case (vector-ref sc10 0) ((1) (let ((e-78 (vector-ref sc10 2))) (let ((sc11 e-78)) (case (vector-ref sc11 0) ((1) (let ((e-81 (vector-ref sc11 2))) (let ((sc12 e-81)) (case (vector-ref sc12 0) ((1) (let ((e-84 (vector-ref sc12 2))) (let ((sc13 e-84)) (case (vector-ref sc13 0) ((1) (let ((e-87 (vector-ref sc13 2))) (let ((sc14 e-87)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-66)) (case (vector-ref sc6 0) ((1) (let ((e-69 (vector-ref sc6 2))) (let ((sc7 e-69)) (case (vector-ref sc7 0) ((1) (let ((e-72 (vector-ref sc7 2))) (let ((sc8 e-72)) (case (vector-ref sc8 0) ((1) (let ((e-75 (vector-ref sc8 2))) (let ((sc9 e-75)) (case (vector-ref sc9 0) ((1) (let ((e-78 (vector-ref sc9 2))) (let ((sc10 e-78)) (case (vector-ref sc10 0) ((1) (let ((e-81 (vector-ref sc10 2))) (let ((sc11 e-81)) (case (vector-ref sc11 0) ((1) (let ((e-84 (vector-ref sc11 2))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((1) (let ((e-87 (vector-ref sc12 2))) (let ((sc13 e-87)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-66)) (case (vector-ref sc5 0) ((1) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((1) (let ((e-72 (vector-ref sc6 2))) (let ((sc7 e-72)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 2))) (let ((sc8 e-75)) (case (vector-ref sc8 0) ((1) (let ((e-78 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((1) (let ((e-81 (vector-ref sc9 2))) (let ((sc10 e-81)) (case (vector-ref sc10 0) ((1) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-84)) (case (vector-ref sc11 0) ((1) (let ((e-87 (vector-ref sc11 2))) (let ((sc12 e-87)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((1) (let ((e-72 (vector-ref sc5 2))) (let ((sc6 e-72)) (case (vector-ref sc6 0) ((1) (let ((e-75 (vector-ref sc6 2))) (let ((sc7 e-75)) (case (vector-ref sc7 0) ((1) (let ((e-78 (vector-ref sc7 2))) (let ((sc8 e-78)) (case (vector-ref sc8 0) ((1) (let ((e-81 (vector-ref sc8 2))) (let ((sc9 e-81)) (case (vector-ref sc9 0) ((1) (let ((e-84 (vector-ref sc9 2))) (let ((sc10 e-84)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 2))) (let ((sc11 e-87)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 2))) (let ((sc4 e-69)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 2))) (let ((sc5 e-72)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 2))) (let ((sc6 e-75)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 2))) (let ((sc7 e-78)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 2))) (let ((sc8 e-81)) (case (vector-ref sc8 0) ((1) (let ((e-84 (vector-ref sc8 2))) (let ((sc9 e-84)) (case (vector-ref sc9 0) ((1) (let ((e-87 (vector-ref sc9 2))) (let ((sc10 e-87)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-66)) (case (vector-ref sc2 0) ((1) (let ((e-69 (vector-ref sc2 2))) (let ((sc3 e-69)) (case (vector-ref sc3 0) ((1) (let ((e-72 (vector-ref sc3 2))) (let ((sc4 e-72)) (case (vector-ref sc4 0) ((1) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((1) (let ((e-87 (vector-ref sc8 2))) (let ((sc9 e-87)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"gambit\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))
-(define Gambit-Scheme-Compiler-findGSC (lambda (ext-0) (let ((act-24 (System-getEnv "GAMBIT_GSC" ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env gsc") act-24))))
-(define Gambit-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Gambit-Scheme-Compiler-compileExpr arg-0 arg-1 arg-2 "_tmpgambit") ext-0))) (let ((sc0 act-24)) (case (vector-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))) (Prelude-map_Functor__IO 'erased 'erased (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-25 (System-system e-1 eta-0))) (vector 1 act-25))) ext-0))) (else (vector 1 (vector 0 ))))))))))))
-(define Gambit-Scheme-Compiler-compileToSCM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Loaded" ) (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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Structs" ) (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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-getFgnCall arg-0 e-7 e-8 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-9) e-10)))) (let ((act-30 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "gambit/support.scm" 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 (Directory-Core-readDataFile arg-0 "gambit/foreign.scm" 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 ((scm (Name-Core-showSep "\u000a" (vector 1 (Gambit-Scheme-Compiler-schHeader) (vector 1 e-12 (vector 1 e-13 (vector 1 code (vector 1 e-11 (vector 0 ))))))))) (let ((act-33 (let ((act-33 (File-System-writeFile arg-2 scm 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-9))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((outn (Path-Utils-C-60C-47C-62 arg-1 (Path-Utils-C-60C-46C-62 arg-3 "scm")))) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-compileToSCM arg-0 arg-2 outn 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Directory-Core-findLibraryFile arg-0 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Path-Utils-C-60C-46C-62 arg-4 "a")) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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))) (let ((act-26 (let ((act-26 (Gambit-Scheme-Compiler-findGSC eta-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 ((cmd (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 " -exe -cc-options \"-Wno-implicit-function-declaration\" -ld-options \"" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 "\" " outn)))))) (let ((act-27 (let ((act-27 (System-system cmd eta-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))) ((Gambit-Scheme-Compiler-case--10202-2457 arg-3 arg-2 arg-1 arg-0 outn e-5 e-6 e-7 cmd e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-codegenGambit (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-compileExpr eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
-(define Gambit-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned-int"))) ((3) (lambda (eta-0) (vector 1 "UTF-8-string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "(pointer void)"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-1 "*/nonnull"))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8554-924-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Gambit-Scheme-Compiler-cType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((3) (lambda (eta-0) (vector 1 "char *"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void *"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cType arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "struct " e-1))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8481-849-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Gambit-Scheme-Compiler-cCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cftySpec arg-2 (Builtin-snd 'erased 'erased a))) 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 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--8787-1106-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cType arg-2 (Builtin-snd 'erased 'erased a))) 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 ((act-28 ((Gambit-Scheme-Compiler-cType arg-2 arg-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))) (let ((cWrapperDefs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--8787-1102-buildCWrapperDefs arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-7)))) (let ((cFunWrapDeclaration (Gambit-Scheme-Compiler-n--8787-1103-buildCFunWrapDeclaration arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-9 e-8))) (let ((wrapDeclarations (Strings-Prelude-C-43C-43 cFunWrapDeclaration (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-1 (vector-ref sc5 2))) e-1)))) cWrapperDefs) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-2 (vector-ref sc5 3))) e-2)))) cWrapperDefs))))) (let ((setBoxes ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) cWrapperDefs))) (let ((call (Strings-Prelude-C-43C-43 " ((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-7)) ")")))))))))) (let ((body (Strings-Prelude-C-43C-43 setBoxes (Strings-Prelude-C-43C-43 "\u000a" call)))) (vector 1 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet e-6 body) wrapDeclarations))(else (vector 0 body wrapDeclarations))))))))))))))))))))))))))))))))))))))
-(define Common-Scheme-Compiler-case--9329-2940 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
-(define Common-Scheme-Compiler-case--9216-2842 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
-(define Common-Scheme-Compiler-case--8906-2594 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#\\" (Prelude-cast_Cast__Char_String arg-1))) (else (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1)) ")")))))))
-(define Common-Scheme-Compiler-case--6625-292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-cast_Cast__Char_String arg-1)) (else (Strings-Prelude-C-43C-43 "C-" (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1))))))))
-(define Common-Scheme-Compiler-case--6587-269 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Common-Scheme-Compiler-firstExists arg-1))))))
-(define Common-Scheme-Compiler-n--9190-3346-showConstAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-5 1 63) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
-(define Common-Scheme-Compiler-n--9190-3223-showAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
-(define Common-Scheme-Compiler-n--6623-284-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--6625-292 arg-0 arg-1 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-61C-61_Eq__Char arg-1 #\_))))))
-(define Common-Scheme-Compiler-n--9187-2930-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9329-2940 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
-(define Common-Scheme-Compiler-n--9186-2832-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9216-2842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
+(define Gambit-Scheme-Compiler-findGSC (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "GAMBIT_GSC") ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env gsc") act-24))))
+(define Gambit-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Gambit-Scheme-Compiler-compileExpr arg-0 arg-1 arg-1 arg-2 "_tmpgambit") ext-0))) (let ((sc0 act-24)) (case (vector-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))) (Prelude-map_Functor__IO 'erased 'erased (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-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-25))) ext-0))) (else (vector 1 (vector 0 ))))))))))))
+(define Gambit-Scheme-Compiler-compileToSCM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Loaded" ) (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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Structs" ) (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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-getFgnCall arg-0 e-7 e-8 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-9) e-10)))) (let ((act-30 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "gambit/support.scm" 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 (Directory-Core-readDataFile arg-0 "gambit/foreign.scm" 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 ((scm (Name-Core-showSep "\u000a" (vector 1 (Gambit-Scheme-Compiler-schHeader) (vector 1 e-12 (vector 1 e-13 (vector 1 code (vector 1 e-11 (vector 0 ))))))))) (let ((act-33 (let ((act-33 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 scm) 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-9))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((srcPath (Path-Utils-C-60C-47C-62 arg-1 (Path-Utils-C-60C-46C-62 arg-4 "scm")))) (let ((execPath (Path-Utils-C-60C-47C-62 arg-2 arg-4))) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-compileToSCM arg-0 arg-3 srcPath 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Directory-Core-findLibraryFile arg-0 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (Path-Utils-C-60C-46C-62 arg-5 "a")) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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))) (let ((act-26 (let ((act-26 (Gambit-Scheme-Compiler-findGSC eta-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 ((cmd (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 " -exe -cc-options \"-Wno-implicit-function-declaration\" -ld-options \"" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 "\" -o \"" (Strings-Prelude-C-43C-43 execPath (Strings-Prelude-C-43C-43 "\" \"" (Strings-Prelude-C-43C-43 srcPath "\""))))))))) (let ((act-27 (let ((act-27 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmd) eta-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))) ((Gambit-Scheme-Compiler-case--10563-2555 arg-4 arg-3 arg-2 arg-1 arg-0 srcPath execPath e-5 e-6 e-7 cmd e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-codegenGambit (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Gambit-Scheme-Compiler-compileExpr eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Gambit-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned-int"))) ((3) (lambda (eta-0) (vector 1 "UTF-8-string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "(pointer void)"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-1 "*/nonnull"))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8879-951-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Gambit-Scheme-Compiler-cType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((3) (lambda (eta-0) (vector 1 "char *"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void *"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cType arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "struct " e-1))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8804-874-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Gambit-Scheme-Compiler-cCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cftySpec arg-2 (Builtin-snd 'erased 'erased a))) 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 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--9114-1135-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cType arg-2 (Builtin-snd 'erased 'erased a))) 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 ((act-28 ((Gambit-Scheme-Compiler-cType arg-2 arg-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))) (let ((cWrapperDefs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--9114-1131-buildCWrapperDefs arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-7)))) (let ((cFunWrapDeclaration (Gambit-Scheme-Compiler-n--9114-1132-buildCFunWrapDeclaration arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-9 e-8))) (let ((wrapDeclarations (Strings-Prelude-C-43C-43 cFunWrapDeclaration (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-1 (vector-ref sc5 2))) e-1)))) cWrapperDefs) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-2 (vector-ref sc5 3))) e-2)))) cWrapperDefs))))) (let ((setBoxes ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) cWrapperDefs))) (let ((call (Strings-Prelude-C-43C-43 " ((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-7)) ")")))))))))) (let ((body (Strings-Prelude-C-43C-43 setBoxes (Strings-Prelude-C-43C-43 "\u000a" call)))) (vector 1 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet e-6 body) wrapDeclarations))(else (vector 0 body wrapDeclarations))))))))))))))))))))))))))))))))))))))
+(define Common-Scheme-Compiler-case--9568-2952 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
+(define Common-Scheme-Compiler-case--9454-2853 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
+(define Common-Scheme-Compiler-case--9144-2605 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#\\" (Prelude-cast_Cast__Char_String arg-1))) (else (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1)) ")")))))))
+(define Common-Scheme-Compiler-case--6861-301 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-cast_Cast__Char_String arg-1)) (else (Strings-Prelude-C-43C-43 "C-" (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1))))))))
+(define Common-Scheme-Compiler-case--6823-278 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Common-Scheme-Compiler-firstExists arg-1))))))
+(define Common-Scheme-Compiler-n--9428-3385-showConstAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-5 1 63) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
+(define Common-Scheme-Compiler-n--9428-3253-showAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
+(define Common-Scheme-Compiler-n--6859-293-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--6861-301 arg-0 arg-1 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-61C-61_Eq__Char arg-1 #\_))))))
+(define Common-Scheme-Compiler-n--9425-2942-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9568-2952 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
+(define Common-Scheme-Compiler-n--9424-2843-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9454-2853 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
 (define Common-Scheme-Compiler-show_Show__ExtPrim (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "CCall") ((1) "SchemeCall") ((2) "NewIORef") ((3) "ReadIORef") ((4) "WriteIORef") ((5) "NewArray") ((6) "ArrayGet") ((7) "ArraySet") ((8) "GetField") ((9) "SetField") ((10) "VoidElim") ((11) "SysOS") ((12) "SysCodegen") ((13) "OnCollect") ((14) "OnCollectAny") (else (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unknown " (Name-Core-show_Show__Name e-0))))))))
 (define Common-Scheme-Compiler-usedConst (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-1)))))
 (define Common-Scheme-Compiler-usedCon (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) (Common-Scheme-Compiler-used arg-0 e-3)))))
 (define Common-Scheme-Compiler-used (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-C-61C-61_Eq__Name arg-0 e-1))) ((1) 1) ((2) (let ((e-6 (vector-ref sc0 3))) (Common-Scheme-Compiler-used arg-0 e-6))) ((3) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-9) (lambda () (Common-Scheme-Compiler-used arg-0 e-10)))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-12) (lambda () (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-13))))))) ((5) (let ((e-17 (vector-ref sc0 4))) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-17)))) ((6) (let ((e-21 (vector-ref sc0 3))) (Extra-Bool-Data-anyTrue ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-21))))) ((7) (let ((e-24 (vector-ref sc0 3))) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-26))) ((9) (let ((e-28 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-28))) ((10) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-30) (lambda () (Prelude-C-124C-124 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-usedCon arg-0 eta-0)) e-31)) (lambda () (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0))) e-32))))))))) ((11) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-34) (lambda () (Prelude-C-124C-124 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-usedConst arg-0 eta-0)) e-35)) (lambda () (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0))) e-36)))))))))(else 1)))))
 (define Common-Scheme-Compiler-toPrim (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__schemeCall"))) (lambda () (vector 1 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__cCall"))) (lambda () (vector 0 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__newIORef"))) (lambda () (vector 2 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__readIORef"))) (lambda () (vector 3 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__writeIORef"))) (lambda () (vector 4 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__newArray"))) (lambda () (vector 5 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__arrayGet"))) (lambda () (vector 6 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__arraySet"))) (lambda () (vector 7 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__getField"))) (lambda () (vector 8 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__setField"))) (lambda () (vector 9 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "void"))) (lambda () (vector 10 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__os"))) (lambda () (vector 11 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__codegen"))) (lambda () (vector 12 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__onCollect"))) (lambda () (vector 13 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__onCollectAny"))) (lambda () (vector 14 ))) (vector 0 )))))))))))))))) (vector 15 arg-0))))(else (vector 15 arg-0))))))
 (define Common-Scheme-Compiler-showTag (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))) (Prelude-show_Show__Int e-1))) (else (arg-1 (Name-Core-show_Show__Name arg-2)))))))
-(define Common-Scheme-Compiler-schString (lambda (arg-0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--6623-284-okchar arg-0 eta-0))) (Prelude-unpack arg-0))))
+(define Common-Scheme-Compiler-schString (lambda (arg-0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--6859-293-okchar arg-0 eta-0))) (Prelude-unpack arg-0))))
 (define Common-Scheme-Compiler-schOp (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 e-0)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((1) (let ((e-33 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-29 (vector 1 e-33 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 e-43)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-38 (vector 1 e-42 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((e-48 (vector-ref sc2 2))) (let ((sc3 e-48)) (case (vector-ref sc3 0) ((1) (let ((e-51 (vector-ref sc3 1))) (let ((e-52 (vector-ref sc3 2))) (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-47 (vector 1 e-51 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-56 (vector-ref sc2 1))) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 e-57)) (case (vector-ref sc3 0) ((1) (let ((e-60 (vector-ref sc3 1))) (let ((e-61 (vector-ref sc3 2))) (let ((sc4 e-61)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-56 (vector 1 e-60 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-65 (vector-ref sc2 1))) (let ((e-66 (vector-ref sc2 2))) (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 1))) (let ((e-70 (vector-ref sc3 2))) (let ((sc4 e-70)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-65 (vector 1 e-69 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-21)) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-83 (vector-ref sc2 1))) (let ((e-84 (vector-ref sc2 2))) (let ((sc3 e-84)) (case (vector-ref sc3 0) ((1) (let ((e-87 (vector-ref sc3 1))) (let ((e-88 (vector-ref sc3 2))) (let ((sc4 e-88)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-83 (vector 1 e-87 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-92 (vector-ref sc2 1))) (let ((e-93 (vector-ref sc2 2))) (let ((sc3 e-93)) (case (vector-ref sc3 0) ((1) (let ((e-96 (vector-ref sc3 1))) (let ((e-97 (vector-ref sc3 2))) (let ((sc4 e-97)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-92 (vector 1 e-96 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-101 (vector-ref sc2 1))) (let ((e-102 (vector-ref sc2 2))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((1) (let ((e-105 (vector-ref sc3 1))) (let ((e-106 (vector-ref sc3 2))) (let ((sc4 e-106)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-101 (vector 1 e-105 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-110 (vector-ref sc2 1))) (let ((e-111 (vector-ref sc2 2))) (let ((sc3 e-111)) (case (vector-ref sc3 0) ((1) (let ((e-114 (vector-ref sc3 1))) (let ((e-115 (vector-ref sc3 2))) (let ((sc4 e-115)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-110 (vector 1 e-114 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-119 (vector-ref sc2 1))) (let ((e-120 (vector-ref sc2 2))) (let ((sc3 e-120)) (case (vector-ref sc3 0) ((1) (let ((e-123 (vector-ref sc3 1))) (let ((e-124 (vector-ref sc3 2))) (let ((sc4 e-124)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-119 (vector 1 e-123 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((sc2 e-75)) (let ((e-78 (vector-ref sc2 1))) (let ((e-79 (vector-ref sc2 2))) (let ((sc3 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-137 (vector-ref sc2 1))) (let ((e-138 (vector-ref sc2 2))) (let ((sc3 e-138)) (case (vector-ref sc3 0) ((1) (let ((e-141 (vector-ref sc3 1))) (let ((e-142 (vector-ref sc3 2))) (let ((sc4 e-142)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-137 (vector 1 e-141 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-146 (vector-ref sc2 1))) (let ((e-147 (vector-ref sc2 2))) (let ((sc3 e-147)) (case (vector-ref sc3 0) ((1) (let ((e-150 (vector-ref sc3 1))) (let ((e-151 (vector-ref sc3 2))) (let ((sc4 e-151)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-146 (vector 1 e-150 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (let ((sc3 e-156)) (case (vector-ref sc3 0) ((1) (let ((e-159 (vector-ref sc3 1))) (let ((e-160 (vector-ref sc3 2))) (let ((sc4 e-160)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-155 (vector 1 e-159 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-164 (vector-ref sc2 1))) (let ((e-165 (vector-ref sc2 2))) (let ((sc3 e-165)) (case (vector-ref sc3 0) ((1) (let ((e-168 (vector-ref sc3 1))) (let ((e-169 (vector-ref sc3 2))) (let ((sc4 e-169)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-164 (vector 1 e-168 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-173 (vector-ref sc2 1))) (let ((e-174 (vector-ref sc2 2))) (let ((sc3 e-174)) (case (vector-ref sc3 0) ((1) (let ((e-177 (vector-ref sc3 1))) (let ((e-178 (vector-ref sc3 2))) (let ((sc4 e-178)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-173 (vector 1 e-177 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-128 (vector-ref sc1 1))) (let ((e-129 (vector-ref sc1 2))) (let ((sc2 e-129)) (let ((e-132 (vector-ref sc2 1))) (let ((e-133 (vector-ref sc2 2))) (let ((sc3 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-191 (vector-ref sc2 1))) (let ((e-192 (vector-ref sc2 2))) (let ((sc3 e-192)) (case (vector-ref sc3 0) ((1) (let ((e-195 (vector-ref sc3 1))) (let ((e-196 (vector-ref sc3 2))) (let ((sc4 e-196)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-191 (vector 1 e-195 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-200 (vector-ref sc2 1))) (let ((e-201 (vector-ref sc2 2))) (let ((sc3 e-201)) (case (vector-ref sc3 0) ((1) (let ((e-204 (vector-ref sc3 1))) (let ((e-205 (vector-ref sc3 2))) (let ((sc4 e-205)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-200 (vector 1 e-204 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-209 (vector-ref sc2 1))) (let ((e-210 (vector-ref sc2 2))) (let ((sc3 e-210)) (case (vector-ref sc3 0) ((1) (let ((e-213 (vector-ref sc3 1))) (let ((e-214 (vector-ref sc3 2))) (let ((sc4 e-214)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-209 (vector 1 e-213 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-218 (vector-ref sc2 1))) (let ((e-219 (vector-ref sc2 2))) (let ((sc3 e-219)) (case (vector-ref sc3 0) ((1) (let ((e-222 (vector-ref sc3 1))) (let ((e-223 (vector-ref sc3 2))) (let ((sc4 e-223)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-218 (vector 1 e-222 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-227 (vector-ref sc2 1))) (let ((e-228 (vector-ref sc2 2))) (let ((sc3 e-228)) (case (vector-ref sc3 0) ((1) (let ((e-231 (vector-ref sc3 1))) (let ((e-232 (vector-ref sc3 2))) (let ((sc4 e-232)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-227 (vector 1 e-231 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-236 (vector-ref sc2 1))) (let ((e-237 (vector-ref sc2 2))) (let ((sc3 e-237)) (case (vector-ref sc3 0) ((1) (let ((e-240 (vector-ref sc3 1))) (let ((e-241 (vector-ref sc3 2))) (let ((sc4 e-241)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "quotient" (vector 1 e-236 (vector 1 e-240 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-182 (vector-ref sc1 1))) (let ((e-183 (vector-ref sc1 2))) (let ((sc2 e-183)) (let ((e-186 (vector-ref sc2 1))) (let ((e-187 (vector-ref sc2 2))) (let ((sc3 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))) ((4) (let ((sc1 arg-2)) (let ((e-245 (vector-ref sc1 1))) (let ((e-246 (vector-ref sc1 2))) (let ((sc2 e-246)) (let ((e-249 (vector-ref sc2 1))) (let ((e-250 (vector-ref sc2 2))) (let ((sc3 e-250)) (Common-Scheme-Compiler-op "remainder" (vector 1 e-245 (vector 1 e-249 (vector 0 )))))))))))) ((5) (let ((sc1 arg-2)) (let ((e-254 (vector-ref sc1 1))) (let ((e-255 (vector-ref sc1 2))) (let ((sc2 e-255)) (Common-Scheme-Compiler-op "-" (vector 1 e-254 (vector 0 )))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-268 (vector-ref sc2 1))) (let ((e-269 (vector-ref sc2 2))) (let ((sc3 e-269)) (case (vector-ref sc3 0) ((1) (let ((e-272 (vector-ref sc3 1))) (let ((e-273 (vector-ref sc3 2))) (let ((sc4 e-273)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-268 (vector 1 e-272 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-277 (vector-ref sc2 1))) (let ((e-278 (vector-ref sc2 2))) (let ((sc3 e-278)) (case (vector-ref sc3 0) ((1) (let ((e-281 (vector-ref sc3 1))) (let ((e-282 (vector-ref sc3 2))) (let ((sc4 e-282)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-277 (vector 1 e-281 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-286 (vector-ref sc2 1))) (let ((e-287 (vector-ref sc2 2))) (let ((sc3 e-287)) (case (vector-ref sc3 0) ((1) (let ((e-290 (vector-ref sc3 1))) (let ((e-291 (vector-ref sc3 2))) (let ((sc4 e-291)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-286 (vector 1 e-290 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-295 (vector-ref sc2 1))) (let ((e-296 (vector-ref sc2 2))) (let ((sc3 e-296)) (case (vector-ref sc3 0) ((1) (let ((e-299 (vector-ref sc3 1))) (let ((e-300 (vector-ref sc3 2))) (let ((sc4 e-300)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-295 (vector 1 e-299 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-304 (vector-ref sc2 1))) (let ((e-305 (vector-ref sc2 2))) (let ((sc3 e-305)) (case (vector-ref sc3 0) ((1) (let ((e-308 (vector-ref sc3 1))) (let ((e-309 (vector-ref sc3 2))) (let ((sc4 e-309)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-304 (vector 1 e-308 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-259 (vector-ref sc1 1))) (let ((e-260 (vector-ref sc1 2))) (let ((sc2 e-260)) (let ((e-263 (vector-ref sc2 1))) (let ((e-264 (vector-ref sc2 2))) (let ((sc3 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))) ((7) (let ((sc1 arg-2)) (let ((e-313 (vector-ref sc1 1))) (let ((e-314 (vector-ref sc1 2))) (let ((sc2 e-314)) (let ((e-317 (vector-ref sc2 1))) (let ((e-318 (vector-ref sc2 2))) (let ((sc3 e-318)) (Common-Scheme-Compiler-op "blodwen-shr" (vector 1 e-313 (vector 1 e-317 (vector 0 )))))))))))) ((8) (let ((sc1 arg-2)) (let ((e-322 (vector-ref sc1 1))) (let ((e-323 (vector-ref sc1 2))) (let ((sc2 e-323)) (let ((e-326 (vector-ref sc2 1))) (let ((e-327 (vector-ref sc2 2))) (let ((sc3 e-327)) (Common-Scheme-Compiler-op "blodwen-and" (vector 1 e-322 (vector 1 e-326 (vector 0 )))))))))))) ((9) (let ((sc1 arg-2)) (let ((e-331 (vector-ref sc1 1))) (let ((e-332 (vector-ref sc1 2))) (let ((sc2 e-332)) (let ((e-335 (vector-ref sc2 1))) (let ((e-336 (vector-ref sc2 2))) (let ((sc3 e-336)) (Common-Scheme-Compiler-op "blodwen-or" (vector 1 e-331 (vector 1 e-335 (vector 0 )))))))))))) ((10) (let ((sc1 arg-2)) (let ((e-340 (vector-ref sc1 1))) (let ((e-341 (vector-ref sc1 2))) (let ((sc2 e-341)) (let ((e-344 (vector-ref sc2 1))) (let ((e-345 (vector-ref sc2 2))) (let ((sc3 e-345)) (Common-Scheme-Compiler-op "blodwen-xor" (vector 1 e-340 (vector 1 e-344 (vector 0 )))))))))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-358 (vector-ref sc2 1))) (let ((e-359 (vector-ref sc2 2))) (let ((sc3 e-359)) (case (vector-ref sc3 0) ((1) (let ((e-362 (vector-ref sc3 1))) (let ((e-363 (vector-ref sc3 2))) (let ((sc4 e-363)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<?" (vector 1 e-358 (vector 1 e-362 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-349 (vector-ref sc4 1))) (let ((e-350 (vector-ref sc4 2))) (let ((sc5 e-350)) (let ((e-353 (vector-ref sc5 1))) (let ((e-354 (vector-ref sc5 2))) (let ((sc6 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-349 (vector-ref sc3 1))) (let ((e-350 (vector-ref sc3 2))) (let ((sc4 e-350)) (let ((e-353 (vector-ref sc4 1))) (let ((e-354 (vector-ref sc4 2))) (let ((sc5 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-349 (vector-ref sc2 1))) (let ((e-350 (vector-ref sc2 2))) (let ((sc3 e-350)) (let ((e-353 (vector-ref sc3 1))) (let ((e-354 (vector-ref sc3 2))) (let ((sc4 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-367 (vector-ref sc2 1))) (let ((e-368 (vector-ref sc2 2))) (let ((sc3 e-368)) (case (vector-ref sc3 0) ((1) (let ((e-371 (vector-ref sc3 1))) (let ((e-372 (vector-ref sc3 2))) (let ((sc4 e-372)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<?" (vector 1 e-367 (vector 1 e-371 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-349 (vector-ref sc4 1))) (let ((e-350 (vector-ref sc4 2))) (let ((sc5 e-350)) (let ((e-353 (vector-ref sc5 1))) (let ((e-354 (vector-ref sc5 2))) (let ((sc6 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-349 (vector-ref sc3 1))) (let ((e-350 (vector-ref sc3 2))) (let ((sc4 e-350)) (let ((e-353 (vector-ref sc4 1))) (let ((e-354 (vector-ref sc4 2))) (let ((sc5 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-349 (vector-ref sc2 1))) (let ((e-350 (vector-ref sc2 2))) (let ((sc3 e-350)) (let ((e-353 (vector-ref sc3 1))) (let ((e-354 (vector-ref sc3 2))) (let ((sc4 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-349 (vector-ref sc1 1))) (let ((e-350 (vector-ref sc1 2))) (let ((sc2 e-350)) (let ((e-353 (vector-ref sc2 1))) (let ((e-354 (vector-ref sc2 2))) (let ((sc3 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-385 (vector-ref sc2 1))) (let ((e-386 (vector-ref sc2 2))) (let ((sc3 e-386)) (case (vector-ref sc3 0) ((1) (let ((e-389 (vector-ref sc3 1))) (let ((e-390 (vector-ref sc3 2))) (let ((sc4 e-390)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<=?" (vector 1 e-385 (vector 1 e-389 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-376 (vector-ref sc4 1))) (let ((e-377 (vector-ref sc4 2))) (let ((sc5 e-377)) (let ((e-380 (vector-ref sc5 1))) (let ((e-381 (vector-ref sc5 2))) (let ((sc6 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-376 (vector-ref sc3 1))) (let ((e-377 (vector-ref sc3 2))) (let ((sc4 e-377)) (let ((e-380 (vector-ref sc4 1))) (let ((e-381 (vector-ref sc4 2))) (let ((sc5 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-376 (vector-ref sc2 1))) (let ((e-377 (vector-ref sc2 2))) (let ((sc3 e-377)) (let ((e-380 (vector-ref sc3 1))) (let ((e-381 (vector-ref sc3 2))) (let ((sc4 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-394 (vector-ref sc2 1))) (let ((e-395 (vector-ref sc2 2))) (let ((sc3 e-395)) (case (vector-ref sc3 0) ((1) (let ((e-398 (vector-ref sc3 1))) (let ((e-399 (vector-ref sc3 2))) (let ((sc4 e-399)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<=?" (vector 1 e-394 (vector 1 e-398 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-376 (vector-ref sc4 1))) (let ((e-377 (vector-ref sc4 2))) (let ((sc5 e-377)) (let ((e-380 (vector-ref sc5 1))) (let ((e-381 (vector-ref sc5 2))) (let ((sc6 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-376 (vector-ref sc3 1))) (let ((e-377 (vector-ref sc3 2))) (let ((sc4 e-377)) (let ((e-380 (vector-ref sc4 1))) (let ((e-381 (vector-ref sc4 2))) (let ((sc5 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-376 (vector-ref sc2 1))) (let ((e-377 (vector-ref sc2 2))) (let ((sc3 e-377)) (let ((e-380 (vector-ref sc3 1))) (let ((e-381 (vector-ref sc3 2))) (let ((sc4 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-376 (vector-ref sc1 1))) (let ((e-377 (vector-ref sc1 2))) (let ((sc2 e-377)) (let ((e-380 (vector-ref sc2 1))) (let ((e-381 (vector-ref sc2 2))) (let ((sc3 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))) ((13) (let ((e-13 (vector-ref sc0 1))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-412 (vector-ref sc2 1))) (let ((e-413 (vector-ref sc2 2))) (let ((sc3 e-413)) (case (vector-ref sc3 0) ((1) (let ((e-416 (vector-ref sc3 1))) (let ((e-417 (vector-ref sc3 2))) (let ((sc4 e-417)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char=?" (vector 1 e-412 (vector 1 e-416 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-403 (vector-ref sc4 1))) (let ((e-404 (vector-ref sc4 2))) (let ((sc5 e-404)) (let ((e-407 (vector-ref sc5 1))) (let ((e-408 (vector-ref sc5 2))) (let ((sc6 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-403 (vector-ref sc3 1))) (let ((e-404 (vector-ref sc3 2))) (let ((sc4 e-404)) (let ((e-407 (vector-ref sc4 1))) (let ((e-408 (vector-ref sc4 2))) (let ((sc5 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-403 (vector-ref sc2 1))) (let ((e-404 (vector-ref sc2 2))) (let ((sc3 e-404)) (let ((e-407 (vector-ref sc3 1))) (let ((e-408 (vector-ref sc3 2))) (let ((sc4 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-421 (vector-ref sc2 1))) (let ((e-422 (vector-ref sc2 2))) (let ((sc3 e-422)) (case (vector-ref sc3 0) ((1) (let ((e-425 (vector-ref sc3 1))) (let ((e-426 (vector-ref sc3 2))) (let ((sc4 e-426)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string=?" (vector 1 e-421 (vector 1 e-425 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-403 (vector-ref sc4 1))) (let ((e-404 (vector-ref sc4 2))) (let ((sc5 e-404)) (let ((e-407 (vector-ref sc5 1))) (let ((e-408 (vector-ref sc5 2))) (let ((sc6 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-403 (vector-ref sc3 1))) (let ((e-404 (vector-ref sc3 2))) (let ((sc4 e-404)) (let ((e-407 (vector-ref sc4 1))) (let ((e-408 (vector-ref sc4 2))) (let ((sc5 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-403 (vector-ref sc2 1))) (let ((e-404 (vector-ref sc2 2))) (let ((sc3 e-404)) (let ((e-407 (vector-ref sc3 1))) (let ((e-408 (vector-ref sc3 2))) (let ((sc4 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-403 (vector-ref sc1 1))) (let ((e-404 (vector-ref sc1 2))) (let ((sc2 e-404)) (let ((e-407 (vector-ref sc2 1))) (let ((e-408 (vector-ref sc2 2))) (let ((sc3 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))) ((14) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-439 (vector-ref sc2 1))) (let ((e-440 (vector-ref sc2 2))) (let ((sc3 e-440)) (case (vector-ref sc3 0) ((1) (let ((e-443 (vector-ref sc3 1))) (let ((e-444 (vector-ref sc3 2))) (let ((sc4 e-444)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char>=?" (vector 1 e-439 (vector 1 e-443 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-430 (vector-ref sc4 1))) (let ((e-431 (vector-ref sc4 2))) (let ((sc5 e-431)) (let ((e-434 (vector-ref sc5 1))) (let ((e-435 (vector-ref sc5 2))) (let ((sc6 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-430 (vector-ref sc3 1))) (let ((e-431 (vector-ref sc3 2))) (let ((sc4 e-431)) (let ((e-434 (vector-ref sc4 1))) (let ((e-435 (vector-ref sc4 2))) (let ((sc5 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-430 (vector-ref sc2 1))) (let ((e-431 (vector-ref sc2 2))) (let ((sc3 e-431)) (let ((e-434 (vector-ref sc3 1))) (let ((e-435 (vector-ref sc3 2))) (let ((sc4 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-448 (vector-ref sc2 1))) (let ((e-449 (vector-ref sc2 2))) (let ((sc3 e-449)) (case (vector-ref sc3 0) ((1) (let ((e-452 (vector-ref sc3 1))) (let ((e-453 (vector-ref sc3 2))) (let ((sc4 e-453)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string>=?" (vector 1 e-448 (vector 1 e-452 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-430 (vector-ref sc4 1))) (let ((e-431 (vector-ref sc4 2))) (let ((sc5 e-431)) (let ((e-434 (vector-ref sc5 1))) (let ((e-435 (vector-ref sc5 2))) (let ((sc6 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-430 (vector-ref sc3 1))) (let ((e-431 (vector-ref sc3 2))) (let ((sc4 e-431)) (let ((e-434 (vector-ref sc4 1))) (let ((e-435 (vector-ref sc4 2))) (let ((sc5 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-430 (vector-ref sc2 1))) (let ((e-431 (vector-ref sc2 2))) (let ((sc3 e-431)) (let ((e-434 (vector-ref sc3 1))) (let ((e-435 (vector-ref sc3 2))) (let ((sc4 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-430 (vector-ref sc1 1))) (let ((e-431 (vector-ref sc1 2))) (let ((sc2 e-431)) (let ((e-434 (vector-ref sc2 1))) (let ((e-435 (vector-ref sc2 2))) (let ((sc3 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))) ((15) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-466 (vector-ref sc2 1))) (let ((e-467 (vector-ref sc2 2))) (let ((sc3 e-467)) (case (vector-ref sc3 0) ((1) (let ((e-470 (vector-ref sc3 1))) (let ((e-471 (vector-ref sc3 2))) (let ((sc4 e-471)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char>?" (vector 1 e-466 (vector 1 e-470 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-457 (vector-ref sc4 1))) (let ((e-458 (vector-ref sc4 2))) (let ((sc5 e-458)) (let ((e-461 (vector-ref sc5 1))) (let ((e-462 (vector-ref sc5 2))) (let ((sc6 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-457 (vector-ref sc3 1))) (let ((e-458 (vector-ref sc3 2))) (let ((sc4 e-458)) (let ((e-461 (vector-ref sc4 1))) (let ((e-462 (vector-ref sc4 2))) (let ((sc5 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-457 (vector-ref sc2 1))) (let ((e-458 (vector-ref sc2 2))) (let ((sc3 e-458)) (let ((e-461 (vector-ref sc3 1))) (let ((e-462 (vector-ref sc3 2))) (let ((sc4 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-475 (vector-ref sc2 1))) (let ((e-476 (vector-ref sc2 2))) (let ((sc3 e-476)) (case (vector-ref sc3 0) ((1) (let ((e-479 (vector-ref sc3 1))) (let ((e-480 (vector-ref sc3 2))) (let ((sc4 e-480)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string>?" (vector 1 e-475 (vector 1 e-479 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-457 (vector-ref sc4 1))) (let ((e-458 (vector-ref sc4 2))) (let ((sc5 e-458)) (let ((e-461 (vector-ref sc5 1))) (let ((e-462 (vector-ref sc5 2))) (let ((sc6 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-457 (vector-ref sc3 1))) (let ((e-458 (vector-ref sc3 2))) (let ((sc4 e-458)) (let ((e-461 (vector-ref sc4 1))) (let ((e-462 (vector-ref sc4 2))) (let ((sc5 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-457 (vector-ref sc2 1))) (let ((e-458 (vector-ref sc2 2))) (let ((sc3 e-458)) (let ((e-461 (vector-ref sc3 1))) (let ((e-462 (vector-ref sc3 2))) (let ((sc4 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-457 (vector-ref sc1 1))) (let ((e-458 (vector-ref sc1 2))) (let ((sc2 e-458)) (let ((e-461 (vector-ref sc2 1))) (let ((e-462 (vector-ref sc2 2))) (let ((sc3 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))) ((16) (let ((sc1 arg-2)) (let ((e-484 (vector-ref sc1 1))) (let ((e-485 (vector-ref sc1 2))) (let ((sc2 e-485)) (Common-Scheme-Compiler-op "string-length" (vector 1 e-484 (vector 0 )))))))) ((17) (let ((sc1 arg-2)) (let ((e-489 (vector-ref sc1 1))) (let ((e-490 (vector-ref sc1 2))) (let ((sc2 e-490)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-489 (vector 1 "0" (vector 0 ))))))))) ((18) (let ((sc1 arg-2)) (let ((e-494 (vector-ref sc1 1))) (let ((e-495 (vector-ref sc1 2))) (let ((sc2 e-495)) (Common-Scheme-Compiler-op "substring" (vector 1 e-494 (vector 1 "1" (vector 1 (Common-Scheme-Compiler-op "string-length" (vector 1 e-494 (vector 0 ))) (vector 0 )))))))))) ((19) (let ((sc1 arg-2)) (let ((e-499 (vector-ref sc1 1))) (let ((e-500 (vector-ref sc1 2))) (let ((sc2 e-500)) (let ((e-503 (vector-ref sc2 1))) (let ((e-504 (vector-ref sc2 2))) (let ((sc3 e-504)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-499 (vector 1 e-503 (vector 0 )))))))))))) ((20) (let ((sc1 arg-2)) (let ((e-508 (vector-ref sc1 1))) (let ((e-509 (vector-ref sc1 2))) (let ((sc2 e-509)) (let ((e-512 (vector-ref sc2 1))) (let ((e-513 (vector-ref sc2 2))) (let ((sc3 e-513)) (Common-Scheme-Compiler-op "string-cons" (vector 1 e-508 (vector 1 e-512 (vector 0 )))))))))))) ((21) (let ((sc1 arg-2)) (let ((e-517 (vector-ref sc1 1))) (let ((e-518 (vector-ref sc1 2))) (let ((sc2 e-518)) (let ((e-521 (vector-ref sc2 1))) (let ((e-522 (vector-ref sc2 2))) (let ((sc3 e-522)) (Common-Scheme-Compiler-op "string-append" (vector 1 e-517 (vector 1 e-521 (vector 0 )))))))))))) ((22) (let ((sc1 arg-2)) (let ((e-526 (vector-ref sc1 1))) (let ((e-527 (vector-ref sc1 2))) (let ((sc2 e-527)) (Common-Scheme-Compiler-op "string-reverse" (vector 1 e-526 (vector 0 )))))))) ((23) (let ((sc1 arg-2)) (let ((e-531 (vector-ref sc1 1))) (let ((e-532 (vector-ref sc1 2))) (let ((sc2 e-532)) (let ((e-535 (vector-ref sc2 1))) (let ((e-536 (vector-ref sc2 2))) (let ((sc3 e-536)) (let ((e-539 (vector-ref sc3 1))) (let ((e-540 (vector-ref sc3 2))) (let ((sc4 e-540)) (Common-Scheme-Compiler-op "string-substr" (vector 1 e-531 (vector 1 e-535 (vector 1 e-539 (vector 0 )))))))))))))))) ((24) (let ((sc1 arg-2)) (let ((e-544 (vector-ref sc1 1))) (let ((e-545 (vector-ref sc1 2))) (let ((sc2 e-545)) (Common-Scheme-Compiler-op "exp" (vector 1 e-544 (vector 0 )))))))) ((25) (let ((sc1 arg-2)) (let ((e-549 (vector-ref sc1 1))) (let ((e-550 (vector-ref sc1 2))) (let ((sc2 e-550)) (Common-Scheme-Compiler-op "log" (vector 1 e-549 (vector 0 )))))))) ((26) (let ((sc1 arg-2)) (let ((e-554 (vector-ref sc1 1))) (let ((e-555 (vector-ref sc1 2))) (let ((sc2 e-555)) (Common-Scheme-Compiler-op "sin" (vector 1 e-554 (vector 0 )))))))) ((27) (let ((sc1 arg-2)) (let ((e-559 (vector-ref sc1 1))) (let ((e-560 (vector-ref sc1 2))) (let ((sc2 e-560)) (Common-Scheme-Compiler-op "cos" (vector 1 e-559 (vector 0 )))))))) ((28) (let ((sc1 arg-2)) (let ((e-564 (vector-ref sc1 1))) (let ((e-565 (vector-ref sc1 2))) (let ((sc2 e-565)) (Common-Scheme-Compiler-op "tan" (vector 1 e-564 (vector 0 )))))))) ((29) (let ((sc1 arg-2)) (let ((e-569 (vector-ref sc1 1))) (let ((e-570 (vector-ref sc1 2))) (let ((sc2 e-570)) (Common-Scheme-Compiler-op "asin" (vector 1 e-569 (vector 0 )))))))) ((30) (let ((sc1 arg-2)) (let ((e-574 (vector-ref sc1 1))) (let ((e-575 (vector-ref sc1 2))) (let ((sc2 e-575)) (Common-Scheme-Compiler-op "acos" (vector 1 e-574 (vector 0 )))))))) ((31) (let ((sc1 arg-2)) (let ((e-579 (vector-ref sc1 1))) (let ((e-580 (vector-ref sc1 2))) (let ((sc2 e-580)) (Common-Scheme-Compiler-op "atan" (vector 1 e-579 (vector 0 )))))))) ((32) (let ((sc1 arg-2)) (let ((e-584 (vector-ref sc1 1))) (let ((e-585 (vector-ref sc1 2))) (let ((sc2 e-585)) (Common-Scheme-Compiler-op "sqrt" (vector 1 e-584 (vector 0 )))))))) ((33) (let ((sc1 arg-2)) (let ((e-589 (vector-ref sc1 1))) (let ((e-590 (vector-ref sc1 2))) (let ((sc2 e-590)) (Common-Scheme-Compiler-op "floor" (vector 1 e-589 (vector 0 )))))))) ((34) (let ((sc1 arg-2)) (let ((e-594 (vector-ref sc1 1))) (let ((e-595 (vector-ref sc1 2))) (let ((sc2 e-595)) (Common-Scheme-Compiler-op "ceiling" (vector 1 e-594 (vector 0 )))))))) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((10) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-604 (vector-ref sc3 1))) (let ((e-605 (vector-ref sc3 2))) (let ((sc4 e-605)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-604 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-609 (vector-ref sc3 1))) (let ((e-610 (vector-ref sc3 2))) (let ((sc4 e-610)) (case (vector-ref sc4 0) ((0) e-609)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-614 (vector-ref sc3 1))) (let ((e-615 (vector-ref sc3 2))) (let ((sc4 e-615)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact->inexact" (vector 1 e-614 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((17) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-619 (vector-ref sc3 1))) (let ((e-620 (vector-ref sc3 2))) (let ((sc4 e-620)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-int-char" (vector 1 e-619 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-624 (vector-ref sc3 1))) (let ((e-625 (vector-ref sc3 2))) (let ((sc4 e-625)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-624 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-629 (vector-ref sc3 1))) (let ((e-630 (vector-ref sc3 2))) (let ((sc4 e-630)) (case (vector-ref sc4 0) ((0) e-629)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((12) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-634 (vector-ref sc3 1))) (let ((e-635 (vector-ref sc3 2))) (let ((sc4 e-635)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits8" (vector 1 e-634 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((13) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-639 (vector-ref sc3 1))) (let ((e-640 (vector-ref sc3 2))) (let ((sc4 e-640)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits16" (vector 1 e-639 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((14) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-644 (vector-ref sc3 1))) (let ((e-645 (vector-ref sc3 2))) (let ((sc4 e-645)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits32" (vector 1 e-644 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((15) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-649 (vector-ref sc3 1))) (let ((e-650 (vector-ref sc3 2))) (let ((sc4 e-650)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits64" (vector 1 e-649 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-654 (vector-ref sc3 1))) (let ((e-655 (vector-ref sc3 2))) (let ((sc4 e-655)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact->inexact" (vector 1 e-654 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((12) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-659 (vector-ref sc3 1))) (let ((e-660 (vector-ref sc3 2))) (let ((sc4 e-660)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-659 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-664 (vector-ref sc3 1))) (let ((e-665 (vector-ref sc3 2))) (let ((sc4 e-665)) (case (vector-ref sc4 0) ((0) e-664)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-669 (vector-ref sc3 1))) (let ((e-670 (vector-ref sc3 2))) (let ((sc4 e-670)) (case (vector-ref sc4 0) ((0) e-669)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((13) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-674 (vector-ref sc3 1))) (let ((e-675 (vector-ref sc3 2))) (let ((sc4 e-675)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-674 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-679 (vector-ref sc3 1))) (let ((e-680 (vector-ref sc3 2))) (let ((sc4 e-680)) (case (vector-ref sc4 0) ((0) e-679)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-684 (vector-ref sc3 1))) (let ((e-685 (vector-ref sc3 2))) (let ((sc4 e-685)) (case (vector-ref sc4 0) ((0) e-684)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((14) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-689 (vector-ref sc3 1))) (let ((e-690 (vector-ref sc3 2))) (let ((sc4 e-690)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-689 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-694 (vector-ref sc3 1))) (let ((e-695 (vector-ref sc3 2))) (let ((sc4 e-695)) (case (vector-ref sc4 0) ((0) e-694)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-699 (vector-ref sc3 1))) (let ((e-700 (vector-ref sc3 2))) (let ((sc4 e-700)) (case (vector-ref sc4 0) ((0) e-699)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((15) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-704 (vector-ref sc3 1))) (let ((e-705 (vector-ref sc3 2))) (let ((sc4 e-705)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-704 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-709 (vector-ref sc3 1))) (let ((e-710 (vector-ref sc3 2))) (let ((sc4 e-710)) (case (vector-ref sc4 0) ((0) e-709)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-714 (vector-ref sc3 1))) (let ((e-715 (vector-ref sc3 2))) (let ((sc4 e-715)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-714 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-719 (vector-ref sc3 1))) (let ((e-720 (vector-ref sc3 2))) (let ((sc4 e-720)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-719 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-724 (vector-ref sc3 1))) (let ((e-725 (vector-ref sc3 2))) (let ((sc4 e-725)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-724 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((17) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-729 (vector-ref sc3 1))) (let ((e-730 (vector-ref sc3 2))) (let ((sc4 e-730)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "string" (vector 1 e-729 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-734 (vector-ref sc3 1))) (let ((e-735 (vector-ref sc3 2))) (let ((sc4 e-735)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "char->integer" (vector 1 e-734 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-739 (vector-ref sc3 1))) (let ((e-740 (vector-ref sc3 2))) (let ((sc4 e-740)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "char->integer" (vector 1 e-739 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((16) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-744 (vector-ref sc3 1))) (let ((e-745 (vector-ref sc3 2))) (let ((sc4 e-745)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-744 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-749 (vector-ref sc3 1))) (let ((e-750 (vector-ref sc3 2))) (let ((sc4 e-750)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-749 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-754 (vector-ref sc3 1))) (let ((e-755 (vector-ref sc3 2))) (let ((sc4 e-755)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-double" (vector 1 e-754 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc1 arg-2)) (let ((e-600 (vector-ref sc1 2))) (let ((sc2 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))))) ((36) (let ((sc1 arg-2)) (let ((e-760 (vector-ref sc1 2))) (let ((sc2 e-760)) (let ((e-764 (vector-ref sc2 2))) (let ((sc3 e-764)) (let ((e-767 (vector-ref sc3 1))) (let ((e-768 (vector-ref sc3 2))) (let ((sc4 e-768)) e-767))))))))) (else (let ((sc1 arg-2)) (let ((e-773 (vector-ref sc1 2))) (let ((sc2 e-773)) (let ((e-776 (vector-ref sc2 1))) (let ((e-777 (vector-ref sc2 2))) (let ((sc3 e-777)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit (string-append \"ERROR: \" " (Strings-Prelude-C-43C-43 e-776 "))")))))))))))))
 (define Common-Scheme-Compiler-schName (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))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "-" e-0) (Strings-Prelude-C-43C-43 "-" (Common-Scheme-Compiler-schName e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (Common-Scheme-Compiler-schString e-2))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schString e-3) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-4)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pat--" (Common-Scheme-Compiler-schName e-5)))) ((4) (let ((e-8 (vector-ref sc0 2))) (Common-Scheme-Compiler-schName e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "rf--" (Common-Scheme-Compiler-schString e-9)))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "n--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-19) (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 "-" (Common-Scheme-Compiler-schName e-11)))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-13))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "with--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-15))))))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "fn--" (Prelude-show_Show__Int e-16))))))))
 (define Common-Scheme-Compiler-schExtCommon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((12) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-18 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc8 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply " (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))(else (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc11 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc10 act-25)) (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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))))))(else (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc9 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-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-7 (vector-ref sc7 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-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-10 (vector-ref sc8 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc6 act-24)) (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 ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc7 act-25)) (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 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((2) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 2))) (let ((sc2 e-26)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((sc3 e-29)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 2))) (let ((sc4 e-32)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-28) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(box " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((3) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-38) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(unbox " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((1) (let ((e-51 (vector-ref sc3 1))) (let ((e-52 (vector-ref sc3 2))) (let ((sc4 e-52)) (case (vector-ref sc4 0) ((1) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-48) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-51) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(set-box! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((5) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 2))) (let ((sc2 e-59)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (let ((sc3 e-62)) (case (vector-ref sc3 0) ((1) (let ((e-64 (vector-ref sc3 1))) (let ((e-65 (vector-ref sc3 2))) (let ((sc4 e-65)) (case (vector-ref sc4 0) ((1) (let ((e-68 (vector-ref sc4 2))) (let ((sc5 e-68)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-61) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-64) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(make-vector " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((6) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((1) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (case (vector-ref sc3 0) ((1) (let ((e-77 (vector-ref sc3 1))) (let ((e-78 (vector-ref sc3 2))) (let ((sc4 e-78)) (case (vector-ref sc4 0) ((1) (let ((e-81 (vector-ref sc4 2))) (let ((sc5 e-81)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-74) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-77) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((7) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-85 (vector-ref sc1 2))) (let ((sc2 e-85)) (case (vector-ref sc2 0) ((1) (let ((e-87 (vector-ref sc2 1))) (let ((e-88 (vector-ref sc2 2))) (let ((sc3 e-88)) (case (vector-ref sc3 0) ((1) (let ((e-90 (vector-ref sc3 1))) (let ((e-91 (vector-ref sc3 2))) (let ((sc4 e-91)) (case (vector-ref sc4 0) ((1) (let ((e-93 (vector-ref sc4 1))) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-87) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-90) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-93) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(vector-set! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-101 (vector-ref sc1 2))) (let ((sc2 e-101)) (case (vector-ref sc2 0) ((1) (let ((e-104 (vector-ref sc2 2))) (let ((sc3 e-104)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "(display \"Error: Executed 'void'\")")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "(blodwen-os)")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((15) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't compile unknown external primitive " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))
-(define Common-Scheme-Compiler-schExp (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))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-1))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-3))))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")")))))))))))))))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Common-Scheme-Compiler-schConstructor arg-1 e-15 e-16 e-5)))))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased 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))) (vector 1 (Common-Scheme-Compiler-schOp 'erased e-20 e-5))))))))))) ((7) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (((arg-0 arg-2) (Common-Scheme-Compiler-toPrim e-23)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((9) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "(lambda () " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((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))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 "'erased"))) (lambda () (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))) ((1) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-2 1 63) n e-46) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))(else (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))(else (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))))(else (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))")))))))))))))))))))))))))))))))))))))) ((11) (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 e-36)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-34) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 e-35 e-34 e-33 arg-2 n e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-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 ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-5) "))"))))))))))))))))))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schConstant arg-1 e-38))))) ((13) (lambda (eta-0) (vector 1 "'erased"))) (else (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(blodwen-error-quit " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))))))))))
+(define Common-Scheme-Compiler-schExp (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))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-1))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-3))))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")")))))))))))))))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Common-Scheme-Compiler-schConstructor arg-1 e-15 e-16 e-5)))))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased 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))) (vector 1 (Common-Scheme-Compiler-schOp 'erased e-20 e-5))))))))))) ((7) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (((arg-0 arg-2) (Common-Scheme-Compiler-toPrim e-23)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((9) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "(lambda () " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((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))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 "'erased"))) (lambda () (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))) ((1) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-2 1 63) n e-46) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))(else (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))(else (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))))(else (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))")))))))))))))))))))))))))))))))))))))) ((11) (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 e-36)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-34) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 e-35 e-34 e-33 arg-2 n e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-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 ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-5) "))"))))))))))))))))))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schConstant arg-1 e-38))))) ((13) (lambda (eta-0) (vector 1 "'erased"))) (else (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(blodwen-error-quit " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))))))))))
 (define Common-Scheme-Compiler-schDef (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 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))) (vector 1 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schArglist e-0) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\u000a"))))))))))))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 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))) (vector 1 (Strings-Prelude-C-43C-43 "(define (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 " . any-args) " (Strings-Prelude-C-43C-43 e-6 ")\u000a")))))))))))))))))) ((2) (lambda (eta-0) (vector 1 ""))) (else (lambda (eta-0) (vector 1 "")))))))
 (define Common-Scheme-Compiler-schConstructor (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))) (Strings-Prelude-C-43C-43 "(vector " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-1) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " arg-3) ")")))))) (else (Strings-Prelude-C-43C-43 "(vector " (Strings-Prelude-C-43C-43 (arg-0 (Name-Core-show_Show__Name arg-1)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " arg-3) ")")))))))))
-(define Common-Scheme-Compiler-schConstant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (arg-0 e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Common-Scheme-Compiler-case--8906-2594 arg-0 e-7 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 32) (lambda () (Prelude-C-60_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 127)))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "#f") ((10) "#t") ((11) "#t") ((12) "#t") ((13) "#t") ((14) "#t") ((15) "#t") ((16) "#t") ((17) "#t") ((18) "#t") (else "#t")))))
+(define Common-Scheme-Compiler-schConstant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (arg-0 e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Common-Scheme-Compiler-case--9144-2605 arg-0 e-7 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 32) (lambda () (Prelude-C-60_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 127)))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "#f") ((10) "#t") ((11) "#t") ((12) "#t") ((13) "#t") ((14) "#t") ((15) "#t") ((16) "#t") ((17) "#t") ((18) "#t") (else "#t")))))
 (define Common-Scheme-Compiler-schConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "((equal? " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schConstant arg-1 e-0) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))))
-(define Common-Scheme-Compiler-schConUncheckedAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5)))))))))))))))
-(define Common-Scheme-Compiler-schConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-showTag arg-0 arg-1 e-0 e-1) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5) ")"))))))))))))))))))
+(define Common-Scheme-Compiler-schConUncheckedAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5)))))))))))))))
+(define Common-Scheme-Compiler-schConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-showTag arg-0 arg-1 e-0 e-1) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5) ")"))))))))))))))))))
 (define Common-Scheme-Compiler-schCaseDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-2 ")"))))))))
 (define Common-Scheme-Compiler-schArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-3 e-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))) (let ((act-25 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased arg-3 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
 (define Common-Scheme-Compiler-schArglist (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Scheme-Compiler-schName e-2))(else (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-schArglist e-3)))))))))))))
@@ -7290,393 +7370,406 @@
 (define Common-Scheme-Compiler-getScheme (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Common-Scheme-Compiler-schDef arg-1 arg-2 arg-0 e-2 e-7))))))))
 (define Common-Scheme-Compiler-firstExists (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Common-Compiler-exists e-2 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 e-2)) (else ((Common-Scheme-Compiler-firstExists e-3) eta-0)))))))))))))
 (define Common-Scheme-Compiler-boolop (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(or (and " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-op arg-0 arg-1) " 1) 0)"))))
-(define Racket-Scheme-Compiler-case--11157-2962 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-1 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
-(define Racket-Scheme-Compiler-case--10506-2851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-24 (System-system (Strings-Prelude-C-43C-43 arg-16 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-14 (Strings-Prelude-C-43C-43 " " arg-13)))) eta-1))) (vector 1 act-24))) eta-0))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Racket-Scheme-Compiler-case--10695-2730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0)))))))
-(define Racket-Scheme-Compiler-case--10695-2609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))))
-(define Racket-Scheme-Compiler-case--10618-2565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))) (else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0))))))))))
-(define Racket-Scheme-Compiler-case--10506-2502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--10618-2565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 outShRel (Info-System-isWindows)) eta-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 (File-System-chmodRaw outShRel 493 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 (vector 1 outShRel))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Racket-Scheme-Compiler-case--10506-2429 (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) ".exe") (else "")))))
-(define Racket-Scheme-Compiler-case--10487-2407 (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 ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10506-2429 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (lambda (eta-0) (let ((act-24 (Racket-Scheme-Compiler-compileToRKT arg-3 arg-6 arg-1 outRktAbs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Racket-Scheme-Compiler-findRacoExe 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 (let ((act-26 (Racket-Scheme-Compiler-findRacket 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 ((act-27 (let ((sc4 arg-4)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-27 (System-system (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (vector 1 act-27))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10506-2502 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Racket-Scheme-Compiler-case--10397-2333 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10384-2310 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10337-2267 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10112-2146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-0 493 eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--9850-1856 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-13) (Strings-Prelude-C-43C-43 arg-14 e-2)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-11)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9716-1718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9716-1675-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-cstruct _" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" e-6) "))\u000a")))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9479-1473 (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) (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Racket-Scheme-Compiler-case--9434-1428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Racket-Scheme-Compiler-case--8967-1333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-handleRet e-0 arg-18)))(else arg-18)))))
-(define Racket-Scheme-Compiler-case--8967-1232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-8 (vector 1 arg-3 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 (vector 1 (Strings-Prelude-C-43C-43 "(define-" (Strings-Prelude-C-43C-43 arg-11 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " (_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-14)) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 arg-15 "))\u000a")))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9072-1184 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 (vector 1 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))
-(define Racket-Scheme-Compiler-case--8967-1108 (lambda (arg-0 arg-1 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 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 (vector 1 arg-11 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 ((act-25 ((Common-Compiler-locate arg-7 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) e-3)) eta-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 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--8783-1013 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--8967-1108 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 arg-9)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (a) (lambda (eta-1) (let ((act-25 ((Racket-Scheme-Compiler-cftySpec arg-4 (Builtin-snd 'erased 'erased a)) 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 (vector 0 a e-6))))))))) arg-1) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-0) 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 ((Racket-Scheme-Compiler-case--8967-1232 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 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-3 arg-10)) 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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--8783-873-useArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) 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 ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 e-5 e-8) (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((11) (let ((e-0 (vector-ref sc6 1))) (Racket-Scheme-Compiler-handleRet e-0 call)))(else call)))))))))))))))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--8692-777 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 "")))))
-(define Racket-Scheme-Compiler-case--8688-753 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 "" "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-case--8692-777 arg-0 e-2 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) arg-0)))(else (vector 0 (Builtin-fst 'erased 'erased (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) e-2)) (Strings-Prelude-C-43C-43 "'(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__String eta-0)) e-3)) " #f)")))))))))))))
-(define Racket-Scheme-Compiler-case--8220-334 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\u" (Racket-Scheme-Compiler-n--8220-283-pad arg-0 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)))) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Racket-Scheme-Compiler-case--8224-292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 1 (+ 1 0)))) (Prelude-length arg-1)) #\0)) arg-1)) (else arg-1)))))
-(define Racket-Scheme-Compiler-n--8783-873-useArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Racket-Scheme-Compiler-n--8783-872-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5))))(else (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-rktToC e-3 (Common-Scheme-Compiler-schName e-2))))))))))))
-(define Racket-Scheme-Compiler-n--9716-1675-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
-(define Racket-Scheme-Compiler-n--8220-283-pad (lambda (arg-0 arg-1) (Racket-Scheme-Compiler-case--8224-292 arg-0 arg-1 (Nat-Data-isLTE (Prelude-length arg-1) (+ 1 (+ 1 (+ 1 (+ 1 0))))))))
-(define Racket-Scheme-Compiler-n--8783-871-notWorld (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) ((9) 1)(else 0)))))
-(define Racket-Scheme-Compiler-n--8783-868-mkNs (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 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))(else (vector 1 (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-9)) e-2)) (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3))))))))))))
-(define Racket-Scheme-Compiler-n--8783-870-mkFun (lambda (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 ((argns (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns))) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 argns) ")")))))))
-(define Racket-Scheme-Compiler-n--8601-702-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Racket-Scheme-Compiler-n--8601-702-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--8601-702-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased arg-3)) 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 (Strings-Prelude-C-43C-43 "(_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
-(define Racket-Scheme-Compiler-n--8783-872-callback (lambda (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8783-872-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-0 arg-10) e-1))))(else (let ((args (List-Data-reverse 'erased arg-10))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--8783-871-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) args)) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 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 (vector 1 (Racket-Scheme-Compiler-n--8783-870-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)))))))))))))))))
-(define Racket-Scheme-Compiler-n--8783-869-applyLams (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) arg-9) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-cToRkt e-10 e-9) ")")))) e-3)))))))))))))))
-(define Racket-Scheme-Compiler-useCC (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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Racket-Scheme-Compiler-case--9479-1473 e-2 e-3 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Racket-Scheme-Compiler-case--11614-3124 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
+(define Racket-Scheme-Compiler-case--10920-3004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Build racket") (lambda (eta-1) (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-17 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-15 (Strings-Prelude-C-43C-43 " " arg-14))))) eta-1))) (vector 1 act-24))) eta-0))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Racket-Scheme-Compiler-case--11126-2877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-20 arg-6 arg-13 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12 eta-0)))))))
+(define Racket-Scheme-Compiler-case--11126-2750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-20 arg-6 arg-13)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12))))))
+(define Racket-Scheme-Compiler-case--11044-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) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-20 arg-6 arg-13)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12))))) (else (let ((sc1 arg-5)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-20 arg-6 arg-13 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12 eta-0))))))))))
+(define Racket-Scheme-Compiler-case--10920-2637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--11044-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-14 arg-15 arg-16 arg-17 arg-18 arg-19 outShRel (Info-System-isWindows)) eta-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 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) 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 (vector 1 outShRel))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Racket-Scheme-Compiler-case--10920-2553 (lambda (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) ".exe") (else "")))))
+(define Racket-Scheme-Compiler-case--10895-2529 (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))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10920-2553 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (lambda (eta-0) (let ((act-24 (Racket-Scheme-Compiler-compileToRKT arg-4 arg-7 arg-1 outRktAbs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Racket-Scheme-Compiler-findRacoExe 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 (let ((act-26 (Racket-Scheme-Compiler-findRacket 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 ((act-27 (let ((sc4 arg-5)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-4 (lambda () "Build racket") (lambda (eta-1) (let ((act-27 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-27 (arg-3664 eta-2))) ((arg-3665 act-27) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs))))) eta-1))) (vector 1 act-27))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10920-2637 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Racket-Scheme-Compiler-case--10801-2450 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10784-2423 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10733-2376 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10494-2250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 493) eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10169-1888 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-13) (Strings-Prelude-C-43C-43 arg-14 e-2)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-11)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--10029-1740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--10029-1693-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-cstruct _" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" e-6) "))\u000a")))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9792-1490 (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) (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Racket-Scheme-Compiler-case--9747-1445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Racket-Scheme-Compiler-case--9272-1352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-handleRet e-0 arg-18)))(else arg-18)))))
+(define Racket-Scheme-Compiler-case--9272-1250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-8 (vector 1 arg-3 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 (vector 1 (Strings-Prelude-C-43C-43 "(define-" (Strings-Prelude-C-43C-43 arg-11 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " (_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-14)) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 arg-15 "))\u000a")))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9383-1201 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 (vector 1 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))
+(define Racket-Scheme-Compiler-case--9272-1123 (lambda (arg-0 arg-1 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 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 (vector 1 arg-11 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 ((act-25 ((Common-Compiler-locate arg-7 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) e-3)) eta-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 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9084-1017 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--9272-1123 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 arg-9)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (a) (lambda (eta-1) (let ((act-25 ((Racket-Scheme-Compiler-cftySpec arg-4 (Builtin-snd 'erased 'erased a)) 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 (vector 0 a e-6))))))))) arg-1) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-0) 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 ((Racket-Scheme-Compiler-case--9272-1250 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 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-3 arg-10)) 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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9084-871-useArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) 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 ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 e-5 e-8) (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((11) (let ((e-0 (vector-ref sc6 1))) (Racket-Scheme-Compiler-handleRet e-0 call)))(else call)))))))))))))))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--8991-774 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 "")))))
+(define Racket-Scheme-Compiler-case--8987-749 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 "" "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-case--8991-774 arg-0 e-2 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) arg-0)))(else (vector 0 (Builtin-fst 'erased 'erased (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) e-2)) (Strings-Prelude-C-43C-43 "'(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__String eta-0)) e-3)) " #f)")))))))))))))
+(define Racket-Scheme-Compiler-case--8541-318 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\u" (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)))) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Racket-Scheme-Compiler-n--9084-871-useArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Racket-Scheme-Compiler-n--9084-870-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5))))(else (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-rktToC e-3 (Common-Scheme-Compiler-schName e-2))))))))))))
+(define Racket-Scheme-Compiler-n--10029-1693-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-869-notWorld (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) ((9) 1)(else 0)))))
+(define Racket-Scheme-Compiler-n--9084-866-mkNs (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 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))(else (vector 1 (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-9)) e-2)) (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3))))))))))))
+(define Racket-Scheme-Compiler-n--9084-868-mkFun (lambda (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 ((argns (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns))) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 argns) ")")))))))
+(define Racket-Scheme-Compiler-n--8898-696-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Racket-Scheme-Compiler-n--8898-696-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--8898-696-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased arg-3)) 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 (Strings-Prelude-C-43C-43 "(_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-870-callback (lambda (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--9084-870-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-0 arg-10) e-1))))(else (let ((args (List-Data-reverse 'erased arg-10))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9084-869-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) args)) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 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 (vector 1 (Racket-Scheme-Compiler-n--9084-868-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-867-applyLams (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) arg-9) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-cToRkt e-10 e-9) ")")))) e-3)))))))))))))))
+(define Racket-Scheme-Compiler-useCC (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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Racket-Scheme-Compiler-case--9792-1490 e-2 e-3 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Racket-Scheme-Compiler-startRacketWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 ))))))))))))))))))
 (define Racket-Scheme-Compiler-startRacketCmd (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-1 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" %*"))) (vector 0 ))))))))
 (define Racket-Scheme-Compiler-startRacket (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export LD_LIBRARY_PATH=\"$LD_LIBRARY_PATH:`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\"\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"`dirname \"$DIR\"`\"/\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 ))))))))))))))))))
 (define Racket-Scheme-Compiler-showRacketString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Racket-Scheme-Compiler-showRacketString e-3) eta-0))))(else (lambda (eta-0) ((Racket-Scheme-Compiler-showRacketChar e-2) ((Racket-Scheme-Compiler-showRacketString e-3) eta-0)))))))))))))
-(define Racket-Scheme-Compiler-showRacketChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Racket-Scheme-Compiler-case--8220-334 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
+(define Racket-Scheme-Compiler-showRacketChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Racket-Scheme-Compiler-case--8541-318 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
 (define Racket-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
 (define Racket-Scheme-Compiler-schHeader (lambda (arg-0) (Strings-Prelude-C-43C-43 "#lang racket/base\u000a" (Strings-Prelude-C-43C-43 "(require racket/math)\u000a" (Strings-Prelude-C-43C-43 "(require racket/system)\u000a" (Strings-Prelude-C-43C-43 "(require rnrs/bytevectors-6)\u000a" (Strings-Prelude-C-43C-43 "(require rnrs/io/ports-6)\u000a" (Strings-Prelude-C-43C-43 "(require srfi/19)\u000a" (Strings-Prelude-C-43C-43 "(require ffi/unsafe ffi/unsafe/define)\u000a" (Strings-Prelude-C-43C-43 arg-0 "(let ()\u000a"))))))))))
 (define Racket-Scheme-Compiler-schFooter (lambda () ") (collect-garbage)"))
-(define Racket-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Racket-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-3 eta-1)) 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))) (let ((act-25 ((Racket-Scheme-Compiler-mkStruct arg-3 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 ((Racket-Scheme-Compiler-useCC arg-0 arg-1 arg-2 arg-4 arg-5 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 e-4)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
+(define Racket-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Racket-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-3 eta-1)) 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))) (let ((act-25 ((Racket-Scheme-Compiler-mkStruct arg-3 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 ((Racket-Scheme-Compiler-useCC arg-0 arg-1 arg-2 arg-4 arg-5 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 e-4)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
 (define Racket-Scheme-Compiler-rktToC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (Strings-Prelude-C-43C-43 "(char->integer " (Strings-Prelude-C-43C-43 arg-1 ")")))(else arg-1)))))
 (define Racket-Scheme-Compiler-racketString (lambda (arg-0) (Prelude-strCons #\" ((Racket-Scheme-Compiler-showRacketString (Prelude-unpack arg-0)) "\""))))
 (define Racket-Scheme-Compiler-racketPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't compile C FFI calls to Racket yet") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((12) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((6) (let ((e-34 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((1) (let ((e-42 (vector-ref sc6 1))) (let ((e-43 (vector-ref sc6 2))) (let ((sc7 e-43)) (case (vector-ref sc7 0) ((1) (let ((e-45 (vector-ref sc7 1))) (let ((e-46 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((12) (let ((e-48 (vector-ref sc8 2))) (let ((sc9 e-48)) (case (vector-ref sc9 0) ((6) (let ((e-49 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((1) (let ((e-52 (vector-ref sc10 2))) (let ((sc11 e-52)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-42) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-34 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-49 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((1) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((1) (let ((e-24 (vector-ref sc13 2))) (let ((sc14 e-24)) (case (vector-ref sc14 0) ((1) (let ((e-27 (vector-ref sc14 2))) (let ((sc15 e-27)) (case (vector-ref sc15 0) ((1) (let ((e-30 (vector-ref sc15 2))) (let ((sc16 e-30)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-15)) (case (vector-ref sc10 0) ((1) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-24 (vector-ref sc12 2))) (let ((sc13 e-24)) (case (vector-ref sc13 0) ((1) (let ((e-27 (vector-ref sc13 2))) (let ((sc14 e-27)) (case (vector-ref sc14 0) ((1) (let ((e-30 (vector-ref sc14 2))) (let ((sc15 e-30)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((1) (let ((e-24 (vector-ref sc11 2))) (let ((sc12 e-24)) (case (vector-ref sc12 0) ((1) (let ((e-27 (vector-ref sc12 2))) (let ((sc13 e-27)) (case (vector-ref sc13 0) ((1) (let ((e-30 (vector-ref sc13 2))) (let ((sc14 e-30)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-15)) (case (vector-ref sc8 0) ((1) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((1) (let ((e-24 (vector-ref sc10 2))) (let ((sc11 e-24)) (case (vector-ref sc11 0) ((1) (let ((e-27 (vector-ref sc11 2))) (let ((sc12 e-27)) (case (vector-ref sc12 0) ((1) (let ((e-30 (vector-ref sc12 2))) (let ((sc13 e-30)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((1) (let ((e-24 (vector-ref sc9 2))) (let ((sc10 e-24)) (case (vector-ref sc10 0) ((1) (let ((e-27 (vector-ref sc10 2))) (let ((sc11 e-27)) (case (vector-ref sc11 0) ((1) (let ((e-30 (vector-ref sc11 2))) (let ((sc12 e-30)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((1) (let ((e-24 (vector-ref sc8 2))) (let ((sc9 e-24)) (case (vector-ref sc9 0) ((1) (let ((e-27 (vector-ref sc9 2))) (let ((sc10 e-27)) (case (vector-ref sc10 0) ((1) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-30)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-15)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 2))) (let ((sc8 e-24)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 2))) (let ((sc9 e-27)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-30)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 2))) (let ((sc7 e-24)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 2))) (let ((sc8 e-27)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 2))) (let ((sc6 e-24)) (case (vector-ref sc6 0) ((1) (let ((e-27 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-18 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 2))) (let ((sc6 e-27)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((sc2 e-55)) (case (vector-ref sc2 0) ((12) (let ((e-80 (vector-ref sc2 2))) (let ((sc3 e-80)) (case (vector-ref sc3 0) ((6) (let ((e-81 (vector-ref sc3 1))) (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-84 (vector-ref sc4 2))) (let ((sc5 e-84)) (case (vector-ref sc5 0) ((1) (let ((e-87 (vector-ref sc5 2))) (let ((sc6 e-87)) (case (vector-ref sc6 0) ((1) (let ((e-89 (vector-ref sc6 1))) (let ((e-90 (vector-ref sc6 2))) (let ((sc7 e-90)) (case (vector-ref sc7 0) ((1) (let ((e-92 (vector-ref sc7 1))) (let ((e-93 (vector-ref sc7 2))) (let ((sc8 e-92)) (case (vector-ref sc8 0) ((12) (let ((e-95 (vector-ref sc8 2))) (let ((sc9 e-95)) (case (vector-ref sc9 0) ((6) (let ((e-96 (vector-ref sc9 1))) (let ((sc10 e-93)) (case (vector-ref sc10 0) ((1) (let ((e-99 (vector-ref sc10 2))) (let ((sc11 e-99)) (case (vector-ref sc11 0) ((1) (let ((e-101 (vector-ref sc11 1))) (let ((e-102 (vector-ref sc11 2))) (let ((sc12 e-102)) (case (vector-ref sc12 0) ((1) (let ((e-105 (vector-ref sc12 2))) (let ((sc13 e-105)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-89) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-101) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(set-" (Strings-Prelude-C-43C-43 e-81 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-96 (Strings-Prelude-C-43C-43 "! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-56)) (case (vector-ref sc13 0) ((1) (let ((e-59 (vector-ref sc13 2))) (let ((sc14 e-59)) (case (vector-ref sc14 0) ((1) (let ((e-62 (vector-ref sc14 2))) (let ((sc15 e-62)) (case (vector-ref sc15 0) ((1) (let ((e-65 (vector-ref sc15 2))) (let ((sc16 e-65)) (case (vector-ref sc16 0) ((1) (let ((e-68 (vector-ref sc16 2))) (let ((sc17 e-68)) (case (vector-ref sc17 0) ((1) (let ((e-71 (vector-ref sc17 2))) (let ((sc18 e-71)) (case (vector-ref sc18 0) ((1) (let ((e-74 (vector-ref sc18 2))) (let ((sc19 e-74)) (case (vector-ref sc19 0) ((1) (let ((e-77 (vector-ref sc19 2))) (let ((sc20 e-77)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-56)) (case (vector-ref sc12 0) ((1) (let ((e-59 (vector-ref sc12 2))) (let ((sc13 e-59)) (case (vector-ref sc13 0) ((1) (let ((e-62 (vector-ref sc13 2))) (let ((sc14 e-62)) (case (vector-ref sc14 0) ((1) (let ((e-65 (vector-ref sc14 2))) (let ((sc15 e-65)) (case (vector-ref sc15 0) ((1) (let ((e-68 (vector-ref sc15 2))) (let ((sc16 e-68)) (case (vector-ref sc16 0) ((1) (let ((e-71 (vector-ref sc16 2))) (let ((sc17 e-71)) (case (vector-ref sc17 0) ((1) (let ((e-74 (vector-ref sc17 2))) (let ((sc18 e-74)) (case (vector-ref sc18 0) ((1) (let ((e-77 (vector-ref sc18 2))) (let ((sc19 e-77)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-56)) (case (vector-ref sc11 0) ((1) (let ((e-59 (vector-ref sc11 2))) (let ((sc12 e-59)) (case (vector-ref sc12 0) ((1) (let ((e-62 (vector-ref sc12 2))) (let ((sc13 e-62)) (case (vector-ref sc13 0) ((1) (let ((e-65 (vector-ref sc13 2))) (let ((sc14 e-65)) (case (vector-ref sc14 0) ((1) (let ((e-68 (vector-ref sc14 2))) (let ((sc15 e-68)) (case (vector-ref sc15 0) ((1) (let ((e-71 (vector-ref sc15 2))) (let ((sc16 e-71)) (case (vector-ref sc16 0) ((1) (let ((e-74 (vector-ref sc16 2))) (let ((sc17 e-74)) (case (vector-ref sc17 0) ((1) (let ((e-77 (vector-ref sc17 2))) (let ((sc18 e-77)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-59 (vector-ref sc10 2))) (let ((sc11 e-59)) (case (vector-ref sc11 0) ((1) (let ((e-62 (vector-ref sc11 2))) (let ((sc12 e-62)) (case (vector-ref sc12 0) ((1) (let ((e-65 (vector-ref sc12 2))) (let ((sc13 e-65)) (case (vector-ref sc13 0) ((1) (let ((e-68 (vector-ref sc13 2))) (let ((sc14 e-68)) (case (vector-ref sc14 0) ((1) (let ((e-71 (vector-ref sc14 2))) (let ((sc15 e-71)) (case (vector-ref sc15 0) ((1) (let ((e-74 (vector-ref sc15 2))) (let ((sc16 e-74)) (case (vector-ref sc16 0) ((1) (let ((e-77 (vector-ref sc16 2))) (let ((sc17 e-77)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-56)) (case (vector-ref sc9 0) ((1) (let ((e-59 (vector-ref sc9 2))) (let ((sc10 e-59)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((1) (let ((e-65 (vector-ref sc11 2))) (let ((sc12 e-65)) (case (vector-ref sc12 0) ((1) (let ((e-68 (vector-ref sc12 2))) (let ((sc13 e-68)) (case (vector-ref sc13 0) ((1) (let ((e-71 (vector-ref sc13 2))) (let ((sc14 e-71)) (case (vector-ref sc14 0) ((1) (let ((e-74 (vector-ref sc14 2))) (let ((sc15 e-74)) (case (vector-ref sc15 0) ((1) (let ((e-77 (vector-ref sc15 2))) (let ((sc16 e-77)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-56)) (case (vector-ref sc8 0) ((1) (let ((e-59 (vector-ref sc8 2))) (let ((sc9 e-59)) (case (vector-ref sc9 0) ((1) (let ((e-62 (vector-ref sc9 2))) (let ((sc10 e-62)) (case (vector-ref sc10 0) ((1) (let ((e-65 (vector-ref sc10 2))) (let ((sc11 e-65)) (case (vector-ref sc11 0) ((1) (let ((e-68 (vector-ref sc11 2))) (let ((sc12 e-68)) (case (vector-ref sc12 0) ((1) (let ((e-71 (vector-ref sc12 2))) (let ((sc13 e-71)) (case (vector-ref sc13 0) ((1) (let ((e-74 (vector-ref sc13 2))) (let ((sc14 e-74)) (case (vector-ref sc14 0) ((1) (let ((e-77 (vector-ref sc14 2))) (let ((sc15 e-77)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-56)) (case (vector-ref sc7 0) ((1) (let ((e-59 (vector-ref sc7 2))) (let ((sc8 e-59)) (case (vector-ref sc8 0) ((1) (let ((e-62 (vector-ref sc8 2))) (let ((sc9 e-62)) (case (vector-ref sc9 0) ((1) (let ((e-65 (vector-ref sc9 2))) (let ((sc10 e-65)) (case (vector-ref sc10 0) ((1) (let ((e-68 (vector-ref sc10 2))) (let ((sc11 e-68)) (case (vector-ref sc11 0) ((1) (let ((e-71 (vector-ref sc11 2))) (let ((sc12 e-71)) (case (vector-ref sc12 0) ((1) (let ((e-74 (vector-ref sc12 2))) (let ((sc13 e-74)) (case (vector-ref sc13 0) ((1) (let ((e-77 (vector-ref sc13 2))) (let ((sc14 e-77)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 2))) (let ((sc7 e-59)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 2))) (let ((sc8 e-62)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 2))) (let ((sc9 e-65)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 2))) (let ((sc10 e-68)) (case (vector-ref sc10 0) ((1) (let ((e-71 (vector-ref sc10 2))) (let ((sc11 e-71)) (case (vector-ref sc11 0) ((1) (let ((e-74 (vector-ref sc11 2))) (let ((sc12 e-74)) (case (vector-ref sc12 0) ((1) (let ((e-77 (vector-ref sc12 2))) (let ((sc13 e-77)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-56)) (case (vector-ref sc5 0) ((1) (let ((e-59 (vector-ref sc5 2))) (let ((sc6 e-59)) (case (vector-ref sc6 0) ((1) (let ((e-62 (vector-ref sc6 2))) (let ((sc7 e-62)) (case (vector-ref sc7 0) ((1) (let ((e-65 (vector-ref sc7 2))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((1) (let ((e-68 (vector-ref sc8 2))) (let ((sc9 e-68)) (case (vector-ref sc9 0) ((1) (let ((e-71 (vector-ref sc9 2))) (let ((sc10 e-71)) (case (vector-ref sc10 0) ((1) (let ((e-74 (vector-ref sc10 2))) (let ((sc11 e-74)) (case (vector-ref sc11 0) ((1) (let ((e-77 (vector-ref sc11 2))) (let ((sc12 e-77)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-59 (vector-ref sc4 2))) (let ((sc5 e-59)) (case (vector-ref sc5 0) ((1) (let ((e-62 (vector-ref sc5 2))) (let ((sc6 e-62)) (case (vector-ref sc6 0) ((1) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-65)) (case (vector-ref sc7 0) ((1) (let ((e-68 (vector-ref sc7 2))) (let ((sc8 e-68)) (case (vector-ref sc8 0) ((1) (let ((e-71 (vector-ref sc8 2))) (let ((sc9 e-71)) (case (vector-ref sc9 0) ((1) (let ((e-74 (vector-ref sc9 2))) (let ((sc10 e-74)) (case (vector-ref sc10 0) ((1) (let ((e-77 (vector-ref sc10 2))) (let ((sc11 e-77)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-56)) (case (vector-ref sc3 0) ((1) (let ((e-59 (vector-ref sc3 2))) (let ((sc4 e-59)) (case (vector-ref sc4 0) ((1) (let ((e-62 (vector-ref sc4 2))) (let ((sc5 e-62)) (case (vector-ref sc5 0) ((1) (let ((e-65 (vector-ref sc5 2))) (let ((sc6 e-65)) (case (vector-ref sc6 0) ((1) (let ((e-68 (vector-ref sc6 2))) (let ((sc7 e-68)) (case (vector-ref sc7 0) ((1) (let ((e-71 (vector-ref sc7 2))) (let ((sc8 e-71)) (case (vector-ref sc8 0) ((1) (let ((e-74 (vector-ref sc8 2))) (let ((sc9 e-74)) (case (vector-ref sc9 0) ((1) (let ((e-77 (vector-ref sc9 2))) (let ((sc10 e-77)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 e-59)) (case (vector-ref sc3 0) ((1) (let ((e-62 (vector-ref sc3 2))) (let ((sc4 e-62)) (case (vector-ref sc4 0) ((1) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((1) (let ((e-74 (vector-ref sc7 2))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((1) (let ((e-77 (vector-ref sc8 2))) (let ((sc9 e-77)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"racket\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((13) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-110 (vector-ref sc1 2))) (let ((sc2 e-110)) (case (vector-ref sc2 0) ((1) (let ((e-112 (vector-ref sc2 1))) (let ((e-113 (vector-ref sc2 2))) (let ((sc3 e-113)) (case (vector-ref sc3 0) ((1) (let ((e-115 (vector-ref sc3 1))) (let ((e-116 (vector-ref sc3 2))) (let ((sc4 e-116)) (case (vector-ref sc4 0) ((1) (let ((e-119 (vector-ref sc4 2))) (let ((sc5 e-119)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-112) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-115) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((14) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-122 (vector-ref sc1 1))) (let ((e-123 (vector-ref sc1 2))) (let ((sc2 e-123)) (case (vector-ref sc2 0) ((1) (let ((e-125 (vector-ref sc2 1))) (let ((e-126 (vector-ref sc2 2))) (let ((sc3 e-126)) (case (vector-ref sc3 0) ((1) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-122) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-125) eta-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-6 (vector-ref sc6 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))
-(define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Racket-Scheme-Compiler-case--9716-1718 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-mkStruct arg-0 e-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 ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Racket-Scheme-Compiler-case--10029-1740 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-mkStruct arg-0 e-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 ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Racket-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Racket-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Racket-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
-(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3) 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)) (let ((act-25 (let ((act-25 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
-(define Racket-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 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))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
+(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3)) 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)) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3)) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
+(define Racket-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 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))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
 (define Racket-Scheme-Compiler-loadlib (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(define-ffi-definer define-" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " (ffi-lib \"" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\" " (Strings-Prelude-C-43C-43 arg-1 "))\u000a"))))))))
 (define Racket-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld (Racket-Scheme-Compiler-cToRkt arg-0 arg-1)))))))
-(define Racket-Scheme-Compiler-getLibVers (lambda (arg-0) (Racket-Scheme-Compiler-case--8688-753 arg-0 (Strings-Data-words arg-0))))
+(define Racket-Scheme-Compiler-getLibVers (lambda (arg-0) (Racket-Scheme-Compiler-case--8987-749 arg-0 (Strings-Data-words arg-0))))
 (define Racket-Scheme-Compiler-getFgnCall (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Racket-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-2 e-7)))))))))
-(define Racket-Scheme-Compiler-findRacoExe (lambda (ext-0) (let ((act-24 (System-getEnv "RACKET_RACO" ext-0))) (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env raco") act-24) " exe"))))
-(define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-24 (System-getEnv "RACKET" ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-24))))
-(define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 (System-system 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
-(define Racket-Scheme-Compiler-compileToRKT (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-0 (vector 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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (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 ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Racket-Scheme-Compiler-getFgnCall e-7 arg-0 e-8 e-9 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-10) e-11)))) (let ((act-31 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "racket/support.rkt" 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 ((scm (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-schHeader ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-10))) (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 "(void " (Strings-Prelude-C-43C-43 e-12 (Strings-Prelude-C-43C-43 ")\u000a" (Racket-Scheme-Compiler-schFooter))))))))) (let ((act-33 (let ((act-33 (File-System-writeFile arg-3 scm 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (let ((act-34 (let ((act-34 (File-System-chmodRaw arg-3 493 ext-0))) (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 (vector 1 (vector 0 ))))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-2 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 (Directory-System-currentDir 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10506-2429 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (let ((act-26 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-3 outRktAbs 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 (let ((act-27 (Racket-Scheme-Compiler-findRacoExe 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (Racket-Scheme-Compiler-findRacket eta-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 ((act-29 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-29 (System-system (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (vector 1 act-29))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10506-2502 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
-(define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
-(define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "_void"))) ((1) (lambda (eta-0) (vector 1 "_int"))) ((2) (lambda (eta-0) (vector 1 "_uint"))) ((3) (lambda (eta-0) (vector 1 "_string/utf-8"))) ((4) (lambda (eta-0) (vector 1 "_double"))) ((5) (lambda (eta-0) (vector 1 "_int8"))) ((6) (lambda (eta-0) (vector 1 "_pointer"))) ((7) (lambda (eta-0) (vector 1 "_pointer"))) ((8) (lambda (eta-0) (vector 1 "_bytes"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer")))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8601-702-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Racket-Scheme-Compiler-findRacoExe (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "RACKET_RACO") ext-0))) (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env raco") act-24) " exe"))))
+(define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "RACKET") ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-24))))
+(define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
+(define Racket-Scheme-Compiler-compileToRKT (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-0 (vector 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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (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 ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Racket-Scheme-Compiler-getFgnCall e-7 arg-0 e-8 e-9 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-10) e-11)))) (let ((act-31 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "racket/support.rkt" 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 ((scm (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-schHeader ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-10))) (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 "(void " (Strings-Prelude-C-43C-43 e-12 (Strings-Prelude-C-43C-43 ")\u000a" (Racket-Scheme-Compiler-schFooter))))))))) (let ((act-33 (let ((act-33 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 scm) 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (let ((act-34 (let ((act-34 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-34 (arg-3664 eta-0))) ((arg-3665 act-34) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 493) ext-0))) (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 (vector 1 (vector 0 ))))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-5 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-3 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10920-2553 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outBinFile)))) (let ((act-26 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-4 outRktAbs 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 (let ((act-27 (Racket-Scheme-Compiler-findRacoExe 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (Racket-Scheme-Compiler-findRacket eta-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 ((act-29 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-29 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-29 (arg-3664 eta-2))) ((arg-3665 act-29) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs))))) eta-1))) (vector 1 act-29))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10920-2637 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
+(define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "_void"))) ((1) (lambda (eta-0) (vector 1 "_int"))) ((2) (lambda (eta-0) (vector 1 "_uint"))) ((3) (lambda (eta-0) (vector 1 "_string/utf-8"))) ((4) (lambda (eta-0) (vector 1 "_double"))) ((5) (lambda (eta-0) (vector 1 "_int8"))) ((6) (lambda (eta-0) (vector 1 "_pointer"))) ((7) (lambda (eta-0) (vector 1 "_pointer"))) ((8) (lambda (eta-0) (vector 1 "_bytes"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer")))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8898-696-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
 (define Racket-Scheme-Compiler-cToRkt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 arg-1 ")")))(else arg-1)))))
-(define Racket-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-0) (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 (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))) ((Racket-Scheme-Compiler-case--8783-1013 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-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-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))) ((Racket-Scheme-Compiler-case--8783-1013 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0)))))))))))))))))
-(define Chez-Scheme-Compiler-case--10723-2912 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-1 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
-(define Chez-Scheme-Compiler-case--10431-2812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
-(define Chez-Scheme-Compiler-case--10431-2703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
-(define Chez-Scheme-Compiler-case--10367-2662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Chez-Scheme-Compiler-makeShWindows arg-14 arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))))) (else (lambda (eta-0) (Chez-Scheme-Compiler-makeSh arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))) eta-0)))))))
-(define Chez-Scheme-Compiler-case--10348-2598 (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 ((outSsFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Chez-Scheme-Compiler-findChez 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 (Chez-Scheme-Compiler-compileToSS arg-3 arg-6 arg-1 outSsAbs 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 (Context-Core-logTime 'erased arg-3 (lambda () "Make SO") (let ((sc3 arg-4)) (cond ((equal? sc3 0) (Chez-Scheme-Compiler-compileToSO arg-3 e-5 arg-6 outSsAbs)) (else (lambda (eta-1) (vector 1 (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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (let ((act-27 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10367-2662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-5 e-6 e-7 outShRel (Info-System-isWindows)) 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 (let ((act-28 (File-System-chmodRaw outShRel 493 eta-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 (vector 1 (vector 1 outShRel))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Chez-Scheme-Compiler-case--10258-2524 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10245-2501 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-2 (Chez-Scheme-Compiler-startChezWinSh arg-3 arg-1 arg-0) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10204-2462 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10125-2395 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-4 493 eta-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 ((act-25 (let ((act-25 (System-system (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 arg-4 "\""))) eta-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 (vector 1 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--9862-2255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-0 493 eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--9606-1942 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-12) (Strings-Prelude-C-43C-43 arg-13 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-10)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--9472-1806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9472-1763-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-ftype " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (struct\u000a\u0009" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" e-6) "))\u000a")))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--9252-1575 (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) (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Chez-Scheme-Compiler-case--9207-1531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Chez-Scheme-Compiler-case--8803-1459 (lambda (arg-0 arg-1 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-0)) (case (vector-ref sc0 0) ((11) (Chez-Scheme-Compiler-handleRet arg-11 arg-13))(else arg-13)))))
-(define Chez-Scheme-Compiler-case--9017-1405 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 ((act-25 (let ((act-25 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\u000a")))))))))))))))))
-(define Chez-Scheme-Compiler-case--8803-1356 (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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 ((Common-Compiler-locate arg-7 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-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 ((act-26 (let ((act-26 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\u000a")))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--8090-452 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Chez-Scheme-Compiler-case--8050-418 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#!" (Strings-Prelude-C-43C-43 arg-1 " --script\u000a\u000a"))) (else "")))))
-(define Chez-Scheme-Compiler-case--7983-327 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-2) arg-2)))) (else (vector 0 ))))))
-(define Chez-Scheme-Compiler-case--7961-314 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) e-1))) (else (lambda (eta-0) (Chez-Scheme-Compiler-pathLookup eta-0)))))))
-(define Chez-Scheme-Compiler-n--9472-1763-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1180-notWorld (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) ((9) 1)(else 0)))))
-(define Chez-Scheme-Compiler-n--8803-1176-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1179-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
-(define Chez-Scheme-Compiler-n--7979-323-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--7983-327 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
-(define Chez-Scheme-Compiler-n--8023-366-escape (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" arg-2))) ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ arg-2)))(else (vector 1 arg-1 arg-2))))))
-(define Chez-Scheme-Compiler-n--8803-1181-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Chez-Scheme-Compiler-n--8803-1181-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1180-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) args)) 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 ((Chez-Scheme-Compiler-cftySpec arg-4 arg-10) 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 (Strings-Prelude-C-43C-43 "(let ([c-code (foreign-callable #f " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--8803-1179-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")])" " (lock-object c-code) (foreign-callable-entry-point c-code))")))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1182-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Chez-Scheme-Compiler-n--8803-1181-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5)))) ((7) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(car " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) ")")))))(else (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-2)))))))))))
-(define Chez-Scheme-Compiler-n--8803-1177-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
-(define Chez-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Chez-Scheme-Compiler-case--9252-1575 e-2 e-3 arg-6 arg-5 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Racket-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-0) (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 (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))) ((Racket-Scheme-Compiler-case--9084-1017 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-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-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))) ((Racket-Scheme-Compiler-case--9084-1017 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0)))))))))))))))))
+(define Chez-Scheme-Compiler-case--11166-3064 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
+(define Chez-Scheme-Compiler-case--10857-2957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) arg-12) (else arg-11)))))
+(define Chez-Scheme-Compiler-case--10857-2842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) arg-12) (else arg-11)))))
+(define Chez-Scheme-Compiler-case--10785-2799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Chez-Scheme-Compiler-makeShWindows arg-15 arg-18 arg-6 (let ((sc1 arg-5)) (cond ((equal? sc1 0) arg-12) (else arg-11))))) (else (lambda (eta-0) (Chez-Scheme-Compiler-makeSh arg-18 arg-6 (let ((sc1 arg-5)) (cond ((equal? sc1 0) arg-12) (else arg-11))) eta-0)))))))
+(define Chez-Scheme-Compiler-case--10760-2728 (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))) (let ((outSsFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Chez-Scheme-Compiler-findChez 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 (Chez-Scheme-Compiler-compileToSS arg-4 arg-7 arg-1 outSsAbs 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 (Context-Core-logTime 'erased arg-4 (lambda () "Make SO") (let ((sc3 arg-5)) (cond ((equal? sc3 0) (Chez-Scheme-Compiler-compileToSO arg-4 e-5 arg-7 outSsAbs)) (else (lambda (eta-1) (vector 1 (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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (let ((act-27 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10785-2799 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-5 e-6 e-7 outShRel (Info-System-isWindows)) 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 (let ((act-28 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) eta-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 (vector 1 (vector 1 outShRel))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Chez-Scheme-Compiler-case--10666-2649 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10649-2622 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 (Chez-Scheme-Compiler-startChezWinSh arg-3 arg-1 arg-0)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10604-2579 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10517-2504 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4 493) eta-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 ((act-25 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 arg-4 "\"")))) eta-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 (vector 1 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10237-2359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 493) eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--9948-2001 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-12) (Strings-Prelude-C-43C-43 arg-13 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-10)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--9808-1855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9808-1808-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-ftype " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (struct\u000a\u0009" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" e-6) "))\u000a")))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--9588-1619 (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) (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Chez-Scheme-Compiler-case--9543-1575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Chez-Scheme-Compiler-case--9130-1503 (lambda (arg-0 arg-1 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-0)) (case (vector-ref sc0 0) ((11) (Chez-Scheme-Compiler-handleRet arg-11 arg-13))(else arg-13)))))
+(define Chez-Scheme-Compiler-case--9357-1454 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 ((act-25 (let ((act-25 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\u000a")))))))))))))))))
+(define Chez-Scheme-Compiler-case--9130-1404 (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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 ((Common-Compiler-locate arg-7 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-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 ((act-26 (let ((act-26 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\u000a")))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--8405-469 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Chez-Scheme-Compiler-case--8365-435 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#!" (Strings-Prelude-C-43C-43 arg-1 " --script\u000a\u000a"))) (else "")))))
+(define Chez-Scheme-Compiler-case--8298-344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-2) arg-2)))) (else (vector 0 ))))))
+(define Chez-Scheme-Compiler-case--8274-331 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) e-1))) (else (lambda (eta-0) (Chez-Scheme-Compiler-pathLookup eta-0)))))))
+(define Chez-Scheme-Compiler-n--9808-1808-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1209-notWorld (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) ((9) 1)(else 0)))))
+(define Chez-Scheme-Compiler-n--9130-1205-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1208-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
+(define Chez-Scheme-Compiler-n--8294-340-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--8298-344 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
+(define Chez-Scheme-Compiler-n--8338-383-escape (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" arg-2))) ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ arg-2)))(else (vector 1 arg-1 arg-2))))))
+(define Chez-Scheme-Compiler-n--9130-1210-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Chez-Scheme-Compiler-n--9130-1210-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1209-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) args)) 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 ((Chez-Scheme-Compiler-cftySpec arg-4 arg-10) 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 (Strings-Prelude-C-43C-43 "(let ([c-code (foreign-callable #f " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--9130-1208-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")])" " (lock-object c-code) (foreign-callable-entry-point c-code))")))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1211-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Chez-Scheme-Compiler-n--9130-1210-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5)))) ((7) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(car " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) ")")))))(else (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-2)))))))))))
+(define Chez-Scheme-Compiler-n--9130-1206-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
+(define Chez-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Chez-Scheme-Compiler-case--9588-1619 e-2 e-3 arg-6 arg-5 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Chez-Scheme-Compiler-tySpec (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "Int") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "int")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "string")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "double")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "char")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Ptr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "GCPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Buffer"))) (lambda () (lambda (eta-0) (vector 1 "u8*")))) (vector 0 )))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Unit"))) (lambda () (lambda (eta-0) (vector 1 "void")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "GCAnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 0 )))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))
-(define Chez-Scheme-Compiler-startChezWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "CHEZ=$(cygpath \"" (Strings-Prelude-C-43C-43 arg-0 "\")")) (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 "$CHEZ --script \"$(dirname \"$DIR\")/" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\"")) (vector 0 )))))))))))))))))))
+(define Chez-Scheme-Compiler-startChezWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "DIR=\"`realpath \"$0\"`\"" (vector 1 (Strings-Prelude-C-43C-43 "CHEZ=$(cygpath \"" (Strings-Prelude-C-43C-43 arg-0 "\")")) (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 "$CHEZ --script \"$(dirname \"$DIR\")/" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\"")) (vector 0 )))))))))
 (define Chez-Scheme-Compiler-startChezCmd (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-1 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\" --script \"%APPDIR%/" (Strings-Prelude-C-43C-43 arg-2 "\" %*")))) (vector 0 ))))))))
 (define Chez-Scheme-Compiler-startChez (lambda (arg-0 arg-1) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export LD_LIBRARY_PATH=\"$LD_LIBRARY_PATH:`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-0 "\"\"")) (vector 1 (Strings-Prelude-C-43C-43 "\"`dirname \"$DIR\"`\"/\"" (Strings-Prelude-C-43C-43 arg-1 "\" \"$@\"")) (vector 0 ))))))))))))))))))
 (define Chez-Scheme-Compiler-showChezString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Chez-Scheme-Compiler-showChezString e-3) eta-0))))(else (lambda (eta-0) ((Chez-Scheme-Compiler-showChezChar e-2) ((Chez-Scheme-Compiler-showChezString e-3) eta-0)))))))))))))
-(define Chez-Scheme-Compiler-showChezChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Chez-Scheme-Compiler-case--8090-452 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
+(define Chez-Scheme-Compiler-showChezChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Chez-Scheme-Compiler-case--8405-469 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
 (define Chez-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
-(define Chez-Scheme-Compiler-schHeader (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-case--8050-418 arg-1 arg-0 (Prelude-C-47C-61_Eq__String (Info-System-os) "windows")) (Strings-Prelude-C-43C-43 "(import (chezscheme))\u000a" (Strings-Prelude-C-43C-43 "(case (machine-type)\u000a" (Strings-Prelude-C-43C-43 "  [(i3le ti3le a6le ta6le) (load-shared-object \"libc.so.6\")]\u000a" (Strings-Prelude-C-43C-43 "  [(i3osx ti3osx a6osx ta6osx) (load-shared-object \"libc.dylib\")]\u000a" (Strings-Prelude-C-43C-43 "  [(i3nt ti3nt a6nt ta6nt) (load-shared-object \"msvcrt.dll\")" (Strings-Prelude-C-43C-43 "                           (load-shared-object \"ws2_32.dll\")]\u000a" (Strings-Prelude-C-43C-43 "  [else (load-shared-object \"libc.so\")])\u000a\u000a" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString x) "\")"))) arg-1)) (Strings-Prelude-C-43C-43 "\u000a\u000a" "(let ()\u000a"))))))))))))
+(define Chez-Scheme-Compiler-schHeader (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-case--8365-435 arg-1 arg-0 (Prelude-C-47C-61_Eq__String (Info-System-os) "windows")) (Strings-Prelude-C-43C-43 "(import (chezscheme))\u000a" (Strings-Prelude-C-43C-43 "(case (machine-type)\u000a" (Strings-Prelude-C-43C-43 "  [(i3le ti3le a6le ta6le) (load-shared-object \"libc.so.6\")]\u000a" (Strings-Prelude-C-43C-43 "  [(i3osx ti3osx a6osx ta6osx) (load-shared-object \"libc.dylib\")]\u000a" (Strings-Prelude-C-43C-43 "  [(i3nt ti3nt a6nt ta6nt) (load-shared-object \"msvcrt.dll\")" (Strings-Prelude-C-43C-43 "                           (load-shared-object \"ws2_32.dll\")]\u000a" (Strings-Prelude-C-43C-43 "  [else (load-shared-object \"libc.so\")])\u000a\u000a" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString x) "\")"))) arg-1)) (Strings-Prelude-C-43C-43 "\u000a\u000a" "(let ()\u000a"))))))))))))
 (define Chez-Scheme-Compiler-schFooter (lambda () "(collect 4)\u000a(blodwen-run-finalisers))\u000a"))
-(define Chez-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Chez-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Chez-Scheme-Compiler-mkStruct arg-2 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 ((Chez-Scheme-Compiler-useCC arg-0 arg-1 arg-3 arg-4 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-5) 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))) (vector 1 (vector 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
-(define Chez-Scheme-Compiler-pathLookup (lambda (ext-0) (let ((act-24 (System-getEnv "PATH" ext-0))) (let ((pathList (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 (Path-Utils-pathSeparator))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin:/usr/local/bin") act-24)))) (let ((candidates (Prelude-C-62C-62C-61_Monad__List 'erased 'erased pathList (lambda (p) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (vector 1 "chez" (vector 1 "chezscheme9.5" (vector 1 "scheme" (vector 1 "scheme.exe" (vector 0 ))))) (lambda (x) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 "/" x))))))))) (let ((act-25 ((Common-Scheme-Compiler-firstExists candidates) ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env scheme") act-25)))))))
-(define Chez-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Chez-Scheme-Compiler-case--9472-1806 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-mkStruct arg-0 e-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 ((Chez-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Chez-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Chez-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Chez-Scheme-Compiler-mkStruct arg-2 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 ((Chez-Scheme-Compiler-useCC arg-0 arg-1 arg-3 arg-4 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-5) 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))) (vector 1 (vector 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\u000a"))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
+(define Chez-Scheme-Compiler-pathLookup (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "PATH") ext-0))) (let ((pathList (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 (Path-Utils-pathSeparator))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin:/usr/local/bin") act-24)))) (let ((candidates (Prelude-C-62C-62C-61_Monad__List 'erased 'erased pathList (lambda (p) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (vector 1 "chez" (vector 1 "chezscheme9.5" (vector 1 "scheme" (vector 1 "scheme.exe" (vector 0 ))))) (lambda (x) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 "/" x))))))))) (let ((act-25 ((Common-Scheme-Compiler-firstExists candidates) ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env scheme") act-25)))))))
+(define Chez-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Chez-Scheme-Compiler-case--9808-1855 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-mkStruct arg-0 e-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 ((Chez-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Chez-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Chez-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Chez-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
-(define Chez-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile cmdFile (Chez-Scheme-Compiler-startChezCmd arg-0 arg-2 arg-3) 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)) (let ((act-25 (let ((act-25 (File-System-writeFile arg-1 (Chez-Scheme-Compiler-startChezWinSh arg-0 arg-2 arg-3) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
-(define Chez-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Chez-Scheme-Compiler-startChez arg-1 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 ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define Chez-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmdFile (Chez-Scheme-Compiler-startChezCmd arg-0 arg-2 arg-3)) 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)) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Chez-Scheme-Compiler-startChezWinSh arg-0 arg-2 arg-3)) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
+(define Chez-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Chez-Scheme-Compiler-startChez arg-1 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 ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
 (define Chez-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "void") (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld arg-1))))))
 (define Chez-Scheme-Compiler-getFgnCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Chez-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 arg-3 e-6 e-2 e-7)))))))))
 (define Chez-Scheme-Compiler-getFArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 1) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-getFArgs e-13) eta-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-6 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-7 e-10) e-6)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))
-(define Chez-Scheme-Compiler-findLibs (lambda (arg-0 arg-1) (let ((libs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-n--7979-323-isLib arg-1 arg-0 (Strings-Data-trim eta-0))) arg-1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Compiler-locate arg-0 eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) libs)))))
-(define Chez-Scheme-Compiler-findChez (lambda (ext-0) (let ((act-24 (System-getEnv "CHEZ" ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (Chez-Scheme-Compiler-pathLookup ext-0)))))))
-(define Chez-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Chez-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpchez") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 (System-system 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
-(define Chez-Scheme-Compiler-escapeString (lambda (arg-0) (Prelude-pack (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Chez-Scheme-Compiler-n--8023-366-escape arg-0 eta-0 eta-1))) (vector 0 ) (Prelude-unpack arg-0)))))
-(define Chez-Scheme-Compiler-compileToSS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirectives arg-0 (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 ((act-25 ((Chez-Scheme-Compiler-findLibs 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))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-copyLib eta-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 (let ((act-27 (Common-Compiler-getCompileData arg-0 (vector 0 ) 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))) (let ((ndefs (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (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 ((act-29 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Loaded" ) (vector 1 "libc" (vector 1 "libc 6" (vector 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 ((act-30 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Structs" ) (vector 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 ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-getFgnCall arg-0 e-10 e-11 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-12) e-13)))) (let ((act-33 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) 0 ctm) 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 (let ((act-34 (Chez-Scheme-Compiler-findChez ext-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (Directory-Core-readDataFile arg-0 "chez/support.ss" 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 ((scm (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-schHeader e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)) (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-12)) (Strings-Prelude-C-43C-43 "(collect-request-handler (lambda () (collect) (blodwen-run-finalisers)))\u000a" (Strings-Prelude-C-43C-43 e-14 (Chez-Scheme-Compiler-schFooter))))))))) (let ((act-36 (let ((act-36 (File-System-writeFile arg-3 scm ext-0))) (vector 1 act-36)))) (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 ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-2 (vector-ref sc13 1))) (let ((sc14 e-2)) (let ((act-37 (let ((act-37 (File-System-chmodRaw arg-3 493 ext-0))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))) (else (let ((e-18 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-18) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-compileToSO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((tmpFileAbs (Path-Utils-C-60C-47C-62 arg-2 "compileChez"))) (let ((build (Strings-Prelude-C-43C-43 "(parameterize ([optimize-level 3]) (compile-program " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) "))")))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile tmpFileAbs build 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)) (let ((act-25 (let ((act-25 (File-System-chmodRaw tmpFileAbs 493 eta-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 ((act-26 (let ((act-26 (System-system (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 tmpFileAbs "\""))) eta-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 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 tmpFileAbs e-6) eta-0)))))))))))))))
-(define Chez-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-2 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 (Directory-System-currentDir 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((outSsFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (let ((act-26 (let ((act-26 (Chez-Scheme-Compiler-findChez 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 ((act-27 (Chez-Scheme-Compiler-compileToSS arg-1 appDirGen arg-3 outSsAbs 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 (Context-Core-logTime 'erased arg-1 (lambda () "Make SO") (let ((sc5 arg-0)) (cond ((equal? sc5 0) (Chez-Scheme-Compiler-compileToSO arg-1 e-7 appDirGen outSsAbs)) (else (lambda (eta-1) (vector 1 (vector 0 )))))) 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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-4))) (let ((act-29 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10367-2662 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-7 e-8 e-9 outShRel (Info-System-isWindows)) 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 (File-System-chmodRaw outShRel 493 eta-0))) (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 (vector 1 (vector 1 outShRel)))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
-(define Chez-Scheme-Compiler-codegenChez (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Chez-Scheme-Compiler-findLibs (lambda (arg-0 arg-1) (let ((libs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-n--8294-340-isLib arg-1 arg-0 (Strings-Data-trim eta-0))) arg-1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Compiler-locate arg-0 eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) libs)))))
+(define Chez-Scheme-Compiler-findChez (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "CHEZ") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (Chez-Scheme-Compiler-pathLookup ext-0)))))))
+(define Chez-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Chez-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-1 arg-2 "_tmpchez") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
+(define Chez-Scheme-Compiler-escapeString (lambda (arg-0) (Prelude-pack (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Chez-Scheme-Compiler-n--8338-383-escape arg-0 eta-0 eta-1))) (vector 0 ) (Prelude-unpack arg-0)))))
+(define Chez-Scheme-Compiler-compileToSS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirectives arg-0 (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 ((act-25 ((Chez-Scheme-Compiler-findLibs 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))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-copyLib eta-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 (let ((act-27 (Common-Compiler-getCompileData arg-0 (vector 0 ) 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))) (let ((ndefs (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (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 ((act-29 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Loaded" ) (vector 1 "libc" (vector 1 "libc 6" (vector 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 ((act-30 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Structs" ) (vector 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 ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-getFgnCall arg-0 e-10 e-11 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-12) e-13)))) (let ((act-33 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) 0 ctm) 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 (let ((act-34 (Chez-Scheme-Compiler-findChez ext-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (Directory-Core-readDataFile arg-0 "chez/support.ss" 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 ((scm (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-schHeader e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)) (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-12)) (Strings-Prelude-C-43C-43 "(collect-request-handler (lambda () (collect) (blodwen-run-finalisers)))\u000a" (Strings-Prelude-C-43C-43 e-14 (Chez-Scheme-Compiler-schFooter))))))))) (let ((act-36 (let ((act-36 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-36 (arg-3664 eta-0))) ((arg-3665 act-36) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 scm) ext-0))) (vector 1 act-36)))) (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 ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-2 (vector-ref sc13 1))) (let ((sc14 e-2)) (let ((act-37 (let ((act-37 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-37 (arg-3664 eta-0))) ((arg-3665 act-37) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 493) ext-0))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))) (else (let ((e-18 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-18) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-compileToSO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((tmpFileAbs (Path-Utils-C-60C-47C-62 arg-2 "compileChez"))) (let ((build (Strings-Prelude-C-43C-43 "(parameterize ([optimize-level 3] [compile-file-message #f]) (compile-program " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) "))")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) tmpFileAbs build) 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)) (let ((act-25 (let ((act-25 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) tmpFileAbs 493) eta-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 ((act-26 (let ((act-26 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 tmpFileAbs "\"")))) eta-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 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 tmpFileAbs e-6) eta-0)))))))))))))))
+(define Chez-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-5 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-3 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((outSsFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outSoFile)))) (let ((act-26 (let ((act-26 (Chez-Scheme-Compiler-findChez 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 ((act-27 (Chez-Scheme-Compiler-compileToSS arg-1 appDirGen arg-4 outSsAbs 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 (Context-Core-logTime 'erased arg-1 (lambda () "Make SO") (let ((sc5 arg-0)) (cond ((equal? sc5 0) (Chez-Scheme-Compiler-compileToSO arg-1 e-7 appDirGen outSsAbs)) (else (lambda (eta-1) (vector 1 (vector 0 )))))) 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 ((outShRel (Path-Utils-C-60C-47C-62 arg-3 arg-5))) (let ((act-29 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10785-2799 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-7 e-8 e-9 outShRel (Info-System-isWindows)) 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 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-30 (arg-3664 eta-1))) ((arg-3665 act-30) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) eta-0))) (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 (vector 1 (vector 1 outShRel)))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
+(define Chez-Scheme-Compiler-codegenChez (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Chez-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
 (define Chez-Scheme-Compiler-chezString (lambda (arg-0) (Prelude-strCons #\" ((Chez-Scheme-Compiler-showChezString (Prelude-unpack arg-0)) "\""))))
 (define Chez-Scheme-Compiler-chezExtPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((12) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((6) (let ((e-15 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-tySpec eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Chez-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Chez-Scheme-Compiler-chezExtPrim eta-2 eta-3 eta-4)))) (lambda (eta-2) (Chez-Scheme-Compiler-chezString eta-2)) 0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc11 1))) (vector 1 (Chez-Scheme-Compiler-handleRet e-8 (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")"))))))))))))))))))))))))))))))))(else (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((12) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 e-43)) (case (vector-ref sc3 0) ((6) (let ((e-44 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-47 (vector-ref sc4 2))) (let ((sc5 e-47)) (case (vector-ref sc5 0) ((1) (let ((e-50 (vector-ref sc5 2))) (let ((sc6 e-50)) (case (vector-ref sc6 0) ((1) (let ((e-52 (vector-ref sc6 1))) (let ((e-53 (vector-ref sc6 2))) (let ((sc7 e-53)) (case (vector-ref sc7 0) ((1) (let ((e-55 (vector-ref sc7 1))) (let ((e-56 (vector-ref sc7 2))) (let ((sc8 e-55)) (case (vector-ref sc8 0) ((12) (let ((e-58 (vector-ref sc8 2))) (let ((sc9 e-58)) (case (vector-ref sc9 0) ((6) (let ((e-59 (vector-ref sc9 1))) (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-52) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(ftype-ref " (Strings-Prelude-C-43C-43 e-44 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-59 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-25)) (case (vector-ref sc11 0) ((1) (let ((e-28 (vector-ref sc11 2))) (let ((sc12 e-28)) (case (vector-ref sc12 0) ((1) (let ((e-31 (vector-ref sc12 2))) (let ((sc13 e-31)) (case (vector-ref sc13 0) ((1) (let ((e-34 (vector-ref sc13 2))) (let ((sc14 e-34)) (case (vector-ref sc14 0) ((1) (let ((e-37 (vector-ref sc14 2))) (let ((sc15 e-37)) (case (vector-ref sc15 0) ((1) (let ((e-40 (vector-ref sc15 2))) (let ((sc16 e-40)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-25)) (case (vector-ref sc10 0) ((1) (let ((e-28 (vector-ref sc10 2))) (let ((sc11 e-28)) (case (vector-ref sc11 0) ((1) (let ((e-31 (vector-ref sc11 2))) (let ((sc12 e-31)) (case (vector-ref sc12 0) ((1) (let ((e-34 (vector-ref sc12 2))) (let ((sc13 e-34)) (case (vector-ref sc13 0) ((1) (let ((e-37 (vector-ref sc13 2))) (let ((sc14 e-37)) (case (vector-ref sc14 0) ((1) (let ((e-40 (vector-ref sc14 2))) (let ((sc15 e-40)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-25)) (case (vector-ref sc9 0) ((1) (let ((e-28 (vector-ref sc9 2))) (let ((sc10 e-28)) (case (vector-ref sc10 0) ((1) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((1) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((1) (let ((e-37 (vector-ref sc12 2))) (let ((sc13 e-37)) (case (vector-ref sc13 0) ((1) (let ((e-40 (vector-ref sc13 2))) (let ((sc14 e-40)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((1) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((1) (let ((e-37 (vector-ref sc11 2))) (let ((sc12 e-37)) (case (vector-ref sc12 0) ((1) (let ((e-40 (vector-ref sc12 2))) (let ((sc13 e-40)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((1) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((1) (let ((e-37 (vector-ref sc10 2))) (let ((sc11 e-37)) (case (vector-ref sc11 0) ((1) (let ((e-40 (vector-ref sc11 2))) (let ((sc12 e-40)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-25)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-28)) (case (vector-ref sc7 0) ((1) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((1) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((1) (let ((e-37 (vector-ref sc9 2))) (let ((sc10 e-37)) (case (vector-ref sc10 0) ((1) (let ((e-40 (vector-ref sc10 2))) (let ((sc11 e-40)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((1) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((1) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((1) (let ((e-40 (vector-ref sc9 2))) (let ((sc10 e-40)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 2))) (let ((sc5 e-28)) (case (vector-ref sc5 0) ((1) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((1) (let ((e-37 (vector-ref sc7 2))) (let ((sc8 e-37)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 2))) (let ((sc9 e-40)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-25)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 2))) (let ((sc7 e-37)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-25)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 2))) (let ((sc4 e-31)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 2))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 1))) (let ((e-66 (vector-ref sc1 2))) (let ((sc2 e-65)) (case (vector-ref sc2 0) ((12) (let ((e-90 (vector-ref sc2 2))) (let ((sc3 e-90)) (case (vector-ref sc3 0) ((6) (let ((e-91 (vector-ref sc3 1))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((1) (let ((e-99 (vector-ref sc6 1))) (let ((e-100 (vector-ref sc6 2))) (let ((sc7 e-100)) (case (vector-ref sc7 0) ((1) (let ((e-102 (vector-ref sc7 1))) (let ((e-103 (vector-ref sc7 2))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((12) (let ((e-105 (vector-ref sc8 2))) (let ((sc9 e-105)) (case (vector-ref sc9 0) ((6) (let ((e-106 (vector-ref sc9 1))) (let ((sc10 e-103)) (case (vector-ref sc10 0) ((1) (let ((e-109 (vector-ref sc10 2))) (let ((sc11 e-109)) (case (vector-ref sc11 0) ((1) (let ((e-111 (vector-ref sc11 1))) (let ((e-112 (vector-ref sc11 2))) (let ((sc12 e-112)) (case (vector-ref sc12 0) ((1) (let ((e-115 (vector-ref sc12 2))) (let ((sc13 e-115)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-99) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-111) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(ftype-set! " (Strings-Prelude-C-43C-43 e-91 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-106 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-66)) (case (vector-ref sc13 0) ((1) (let ((e-69 (vector-ref sc13 2))) (let ((sc14 e-69)) (case (vector-ref sc14 0) ((1) (let ((e-72 (vector-ref sc14 2))) (let ((sc15 e-72)) (case (vector-ref sc15 0) ((1) (let ((e-75 (vector-ref sc15 2))) (let ((sc16 e-75)) (case (vector-ref sc16 0) ((1) (let ((e-78 (vector-ref sc16 2))) (let ((sc17 e-78)) (case (vector-ref sc17 0) ((1) (let ((e-81 (vector-ref sc17 2))) (let ((sc18 e-81)) (case (vector-ref sc18 0) ((1) (let ((e-84 (vector-ref sc18 2))) (let ((sc19 e-84)) (case (vector-ref sc19 0) ((1) (let ((e-87 (vector-ref sc19 2))) (let ((sc20 e-87)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-66)) (case (vector-ref sc12 0) ((1) (let ((e-69 (vector-ref sc12 2))) (let ((sc13 e-69)) (case (vector-ref sc13 0) ((1) (let ((e-72 (vector-ref sc13 2))) (let ((sc14 e-72)) (case (vector-ref sc14 0) ((1) (let ((e-75 (vector-ref sc14 2))) (let ((sc15 e-75)) (case (vector-ref sc15 0) ((1) (let ((e-78 (vector-ref sc15 2))) (let ((sc16 e-78)) (case (vector-ref sc16 0) ((1) (let ((e-81 (vector-ref sc16 2))) (let ((sc17 e-81)) (case (vector-ref sc17 0) ((1) (let ((e-84 (vector-ref sc17 2))) (let ((sc18 e-84)) (case (vector-ref sc18 0) ((1) (let ((e-87 (vector-ref sc18 2))) (let ((sc19 e-87)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-66)) (case (vector-ref sc11 0) ((1) (let ((e-69 (vector-ref sc11 2))) (let ((sc12 e-69)) (case (vector-ref sc12 0) ((1) (let ((e-72 (vector-ref sc12 2))) (let ((sc13 e-72)) (case (vector-ref sc13 0) ((1) (let ((e-75 (vector-ref sc13 2))) (let ((sc14 e-75)) (case (vector-ref sc14 0) ((1) (let ((e-78 (vector-ref sc14 2))) (let ((sc15 e-78)) (case (vector-ref sc15 0) ((1) (let ((e-81 (vector-ref sc15 2))) (let ((sc16 e-81)) (case (vector-ref sc16 0) ((1) (let ((e-84 (vector-ref sc16 2))) (let ((sc17 e-84)) (case (vector-ref sc17 0) ((1) (let ((e-87 (vector-ref sc17 2))) (let ((sc18 e-87)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-66)) (case (vector-ref sc10 0) ((1) (let ((e-69 (vector-ref sc10 2))) (let ((sc11 e-69)) (case (vector-ref sc11 0) ((1) (let ((e-72 (vector-ref sc11 2))) (let ((sc12 e-72)) (case (vector-ref sc12 0) ((1) (let ((e-75 (vector-ref sc12 2))) (let ((sc13 e-75)) (case (vector-ref sc13 0) ((1) (let ((e-78 (vector-ref sc13 2))) (let ((sc14 e-78)) (case (vector-ref sc14 0) ((1) (let ((e-81 (vector-ref sc14 2))) (let ((sc15 e-81)) (case (vector-ref sc15 0) ((1) (let ((e-84 (vector-ref sc15 2))) (let ((sc16 e-84)) (case (vector-ref sc16 0) ((1) (let ((e-87 (vector-ref sc16 2))) (let ((sc17 e-87)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((1) (let ((e-72 (vector-ref sc10 2))) (let ((sc11 e-72)) (case (vector-ref sc11 0) ((1) (let ((e-75 (vector-ref sc11 2))) (let ((sc12 e-75)) (case (vector-ref sc12 0) ((1) (let ((e-78 (vector-ref sc12 2))) (let ((sc13 e-78)) (case (vector-ref sc13 0) ((1) (let ((e-81 (vector-ref sc13 2))) (let ((sc14 e-81)) (case (vector-ref sc14 0) ((1) (let ((e-84 (vector-ref sc14 2))) (let ((sc15 e-84)) (case (vector-ref sc15 0) ((1) (let ((e-87 (vector-ref sc15 2))) (let ((sc16 e-87)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-66)) (case (vector-ref sc8 0) ((1) (let ((e-69 (vector-ref sc8 2))) (let ((sc9 e-69)) (case (vector-ref sc9 0) ((1) (let ((e-72 (vector-ref sc9 2))) (let ((sc10 e-72)) (case (vector-ref sc10 0) ((1) (let ((e-75 (vector-ref sc10 2))) (let ((sc11 e-75)) (case (vector-ref sc11 0) ((1) (let ((e-78 (vector-ref sc11 2))) (let ((sc12 e-78)) (case (vector-ref sc12 0) ((1) (let ((e-81 (vector-ref sc12 2))) (let ((sc13 e-81)) (case (vector-ref sc13 0) ((1) (let ((e-84 (vector-ref sc13 2))) (let ((sc14 e-84)) (case (vector-ref sc14 0) ((1) (let ((e-87 (vector-ref sc14 2))) (let ((sc15 e-87)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-66)) (case (vector-ref sc7 0) ((1) (let ((e-69 (vector-ref sc7 2))) (let ((sc8 e-69)) (case (vector-ref sc8 0) ((1) (let ((e-72 (vector-ref sc8 2))) (let ((sc9 e-72)) (case (vector-ref sc9 0) ((1) (let ((e-75 (vector-ref sc9 2))) (let ((sc10 e-75)) (case (vector-ref sc10 0) ((1) (let ((e-78 (vector-ref sc10 2))) (let ((sc11 e-78)) (case (vector-ref sc11 0) ((1) (let ((e-81 (vector-ref sc11 2))) (let ((sc12 e-81)) (case (vector-ref sc12 0) ((1) (let ((e-84 (vector-ref sc12 2))) (let ((sc13 e-84)) (case (vector-ref sc13 0) ((1) (let ((e-87 (vector-ref sc13 2))) (let ((sc14 e-87)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-66)) (case (vector-ref sc6 0) ((1) (let ((e-69 (vector-ref sc6 2))) (let ((sc7 e-69)) (case (vector-ref sc7 0) ((1) (let ((e-72 (vector-ref sc7 2))) (let ((sc8 e-72)) (case (vector-ref sc8 0) ((1) (let ((e-75 (vector-ref sc8 2))) (let ((sc9 e-75)) (case (vector-ref sc9 0) ((1) (let ((e-78 (vector-ref sc9 2))) (let ((sc10 e-78)) (case (vector-ref sc10 0) ((1) (let ((e-81 (vector-ref sc10 2))) (let ((sc11 e-81)) (case (vector-ref sc11 0) ((1) (let ((e-84 (vector-ref sc11 2))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((1) (let ((e-87 (vector-ref sc12 2))) (let ((sc13 e-87)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-66)) (case (vector-ref sc5 0) ((1) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((1) (let ((e-72 (vector-ref sc6 2))) (let ((sc7 e-72)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 2))) (let ((sc8 e-75)) (case (vector-ref sc8 0) ((1) (let ((e-78 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((1) (let ((e-81 (vector-ref sc9 2))) (let ((sc10 e-81)) (case (vector-ref sc10 0) ((1) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-84)) (case (vector-ref sc11 0) ((1) (let ((e-87 (vector-ref sc11 2))) (let ((sc12 e-87)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((1) (let ((e-72 (vector-ref sc5 2))) (let ((sc6 e-72)) (case (vector-ref sc6 0) ((1) (let ((e-75 (vector-ref sc6 2))) (let ((sc7 e-75)) (case (vector-ref sc7 0) ((1) (let ((e-78 (vector-ref sc7 2))) (let ((sc8 e-78)) (case (vector-ref sc8 0) ((1) (let ((e-81 (vector-ref sc8 2))) (let ((sc9 e-81)) (case (vector-ref sc9 0) ((1) (let ((e-84 (vector-ref sc9 2))) (let ((sc10 e-84)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 2))) (let ((sc11 e-87)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 2))) (let ((sc4 e-69)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 2))) (let ((sc5 e-72)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 2))) (let ((sc6 e-75)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 2))) (let ((sc7 e-78)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 2))) (let ((sc8 e-81)) (case (vector-ref sc8 0) ((1) (let ((e-84 (vector-ref sc8 2))) (let ((sc9 e-84)) (case (vector-ref sc9 0) ((1) (let ((e-87 (vector-ref sc9 2))) (let ((sc10 e-87)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-66)) (case (vector-ref sc2 0) ((1) (let ((e-69 (vector-ref sc2 2))) (let ((sc3 e-69)) (case (vector-ref sc3 0) ((1) (let ((e-72 (vector-ref sc3 2))) (let ((sc4 e-72)) (case (vector-ref sc4 0) ((1) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((1) (let ((e-87 (vector-ref sc8 2))) (let ((sc9 e-87)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"chez\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((13) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-120 (vector-ref sc1 2))) (let ((sc2 e-120)) (case (vector-ref sc2 0) ((1) (let ((e-122 (vector-ref sc2 1))) (let ((e-123 (vector-ref sc2 2))) (let ((sc3 e-123)) (case (vector-ref sc3 0) ((1) (let ((e-125 (vector-ref sc3 1))) (let ((e-126 (vector-ref sc3 2))) (let ((sc4 e-126)) (case (vector-ref sc4 0) ((1) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-122) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-125) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((14) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-132 (vector-ref sc1 1))) (let ((e-133 (vector-ref sc1 2))) (let ((sc2 e-133)) (case (vector-ref sc2 0) ((1) (let ((e-135 (vector-ref sc2 1))) (let ((e-136 (vector-ref sc2 2))) (let ((sc3 e-136)) (case (vector-ref sc3 0) ((1) (let ((e-139 (vector-ref sc3 2))) (let ((sc4 e-139)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-132) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-135) eta-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-6 (vector-ref sc6 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))
 (define Chez-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned"))) ((3) (lambda (eta-0) (vector 1 "string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void*"))) ((7) (lambda (eta-0) (vector 1 "void*"))) ((8) (lambda (eta-0) (vector 1 "u8*"))) ((10) (lambda (eta-0) (vector 1 "void*"))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-cftySpec arg-0 e-2))) ((12) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(* " (Strings-Prelude-C-43C-43 e-3 ")"))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Chez-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Chez-Scheme-Compiler-case--8803-1356 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) arg-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 ((Chez-Scheme-Compiler-cftySpec arg-3 arg-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1182-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) arg-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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call))))))))))))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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))) (let ((act-25 ((Chez-Scheme-Compiler-case--8803-1356 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) 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))) (let ((act-27 ((Chez-Scheme-Compiler-cftySpec arg-3 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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1182-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call)))))))))))))))))))))))))))))))))))))
-(define CommandLine-Idris-case--2983-1365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) "localhost") (else arg-2)))))
-(define CommandLine-Idris-case--2961-1334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((port (Maybe-Data-fromMaybe 'erased (lambda () 38398) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (CommandLine-Idris-portPart e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) eta-0)))))) (let ((host (CommandLine-Idris-case--2983-1365 arg-0 arg-1 e-2 e-3 port (Prelude-C-61C-61_Eq__String e-2 "")))) (vector 0 host port))))))))
-(define CommandLine-Idris-case--2942-1301 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (substring arg-0 1 (string-length arg-0))))))))
-(define CommandLine-Idris-case--2915-1278 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (CommandLine-Idris-getOpts e-2))))(else (lambda (eta-0) (vector 0 "Invalid command line")))))))
-(define CommandLine-Idris-case--2869-1246 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-1 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls)))))))))
-(define CommandLine-Idris-case--2799-1209 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (CommandLine-Idris-findMatch arg-1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
-(define CommandLine-Idris-case--2747-1132 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-processArgs arg-0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))) (lambda (args) (vector 1 (vector 1 args))))) (else (vector 1 (vector 0 )))))))
-(define CommandLine-Idris-n--2665-1042-showSep (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-1 (CommandLine-Idris-n--2665-1042-showSep arg-0 arg-1 e-3)))))))))))))
+(define Chez-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Chez-Scheme-Compiler-case--9130-1404 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) arg-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 ((Chez-Scheme-Compiler-cftySpec arg-3 arg-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1211-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) arg-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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call))))))))))))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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))) (let ((act-25 ((Chez-Scheme-Compiler-case--9130-1404 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) 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))) (let ((act-27 ((Chez-Scheme-Compiler-cftySpec arg-3 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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1211-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call)))))))))))))))))))))))))))))))))))))
+(define CommandLine-Idris-case--3542-1977 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (CommandLine-Idris-getOpts e-2))))(else (lambda (eta-0) (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-case--3495-1941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-1 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls)))))))))
+(define CommandLine-Idris-case--3425-1903 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (CommandLine-Idris-findMatch arg-1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
+(define CommandLine-Idris-case--3373-1825 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-processArgs arg-0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))) (lambda (args) (vector 1 (vector 1 args))))) (else (vector 1 (vector 0 )))))))
+(define CommandLine-Idris-case--3199-1734 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (lambda (acc) (Prelude-max_Ord__Nat acc (Prelude-length e-2)))))))
+(define CommandLine-Idris-case--2215-714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) "localhost") (else arg-2)))))
+(define CommandLine-Idris-case--2163-683 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((port (Maybe-Data-fromMaybe 'erased (lambda () 38398) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (CommandLine-Idris-n--2163-647-portPart arg-0 arg-1 e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) eta-0)))))) (let ((host (CommandLine-Idris-case--2215-714 arg-0 arg-1 e-2 e-3 port (Prelude-C-61C-61_Eq__String e-2 "")))) (vector 0 host port))))))))
+(define CommandLine-Idris-case--2178-655 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (substring arg-2 1 (string-length arg-2))))))))
+(define CommandLine-Idris-n--3199-1649-showSep (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-1 (CommandLine-Idris-n--3199-1649-showSep arg-0 arg-1 e-3)))))))))))))
+(define CommandLine-Idris-n--2163-647-portPart (lambda (arg-0 arg-1 arg-2) (CommandLine-Idris-case--2178-655 arg-0 arg-1 arg-2 (Prelude-C-61C-61_Eq__String arg-2 ""))))
+(define CommandLine-Idris-n--3199-1651-optUsage (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (h) (Strings-Prelude-C-43C-43 "  " (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (Prelude-C-43_Num__Nat arg-1 (+ 1 (+ 1 0))) (Prelude-length e-2)) #\ )) (Strings-Prelude-C-43C-43 h "\u000a")))))) e-3))))))
+(define CommandLine-Idris-n--3199-1650-optShow (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-3 (vector-ref sc0 4))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (vector 0 "" (vector 1 "")))(else (vector 0 (Strings-Prelude-C-43C-43 (CommandLine-Idris-n--3199-1649-showSep arg-0 ", " e-0) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--3199-1649-showSep arg-0 " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CommandLine-Idris-show_Show__OptType eta-0)) e-1)))) e-3))))))))))
+(define CommandLine-Idris-show_Show__OptType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 e-0 ">")))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-1 "]"))))))))
+(define CommandLine-Idris-showPrec_Show__OptType (lambda (arg-0 arg-1) (CommandLine-Idris-show_Show__OptType arg-1)))
+(define CommandLine-Idris-__Impl_Show_OptType (lambda () (vector 0 (lambda (x) (CommandLine-Idris-show_Show__OptType x)) (lambda (d) (lambda (x) (CommandLine-Idris-showPrec_Show__OptType d x))))))
 (define CommandLine-Idris-versionMsg (lambda () (Strings-Prelude-C-43C-43 "Idris 2, version " (Version-Idris-showVersion 0 (Version-Idris-version)))))
-(define CommandLine-Idris-usage (lambda () (Strings-Prelude-C-43C-43 (CommandLine-Idris-versionMsg) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Usage: idris2 [options] [input file]\u000a\u000a" (Strings-Prelude-C-43C-43 "Available options:\u000a" ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-optUsage eta-0))) (CommandLine-Idris-options))))))))
-(define CommandLine-Idris-processArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 0 (Strings-Prelude-C-43C-43 "Missing argument <" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "> for flag " arg-0))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-7 (arg-3 e-6))))))))))))))
-(define CommandLine-Idris-portPart (lambda (arg-0) (CommandLine-Idris-case--2942-1301 arg-0 (Prelude-C-61C-61_Eq__String arg-0 ""))))
+(define CommandLine-Idris-usage (lambda () (Strings-Prelude-C-43C-43 (CommandLine-Idris-versionMsg) (Strings-Prelude-C-43C-43 "\u000a" (Strings-Prelude-C-43C-43 "Usage: idris2 [options] [input file]\u000a\u000a" (Strings-Prelude-C-43C-43 "Available options:\u000a" (CommandLine-Idris-optsUsage (CommandLine-Idris-options))))))))
+(define CommandLine-Idris-showDefault (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "(default " (Strings-Prelude-C-43C-43 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-2))) ")"))))
+(define CommandLine-Idris-processArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (vector 0 (Strings-Prelude-C-43C-43 "Missing required argument " (Strings-Prelude-C-43C-43 (CommandLine-Idris-show_Show__OptType e-2) (Strings-Prelude-C-43C-43 " for flag " arg-0))))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-9 (arg-3 e-8)))))))) (else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (CommandLine-Idris-processArgs arg-0 e-3 (vector 0 ) (arg-3 (vector 0 )))) (else (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-13 (arg-3 (Maybe-Data-toMaybe 'erased (Prelude-not (Strings-Data-isPrefixOf "-" e-12)) (lambda () e-12)))))))))))))))))))
 (define CommandLine-Idris-parseOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 )))(else (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-findMatch arg-0 arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-0 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls))))))))))))))
-(define CommandLine-Idris-options (lambda () (vector 1 (vector 0 (vector 1 "--check" (vector 1 "-c" (vector 0 ))) (vector 0 ) (vector 1 (vector 0 ) (vector 0 )) (vector 1 "Exit after checking source file")) (vector 1 (vector 0 (vector 1 "--output" (vector 1 "-o" (vector 0 ))) (vector 1 "file" (vector 0 )) (lambda (f) (vector 1 (vector 1 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Specify output file")) (vector 1 (vector 0 (vector 1 "--exec" (vector 1 "-x" (vector 0 ))) (vector 1 "name" (vector 0 )) (lambda (f) (vector 1 (vector 2 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Execute function after checking source file")) (vector 1 (vector 0 (vector 1 "--no-prelude" (vector 0 )) (vector 0 ) (vector 1 (vector 4 ) (vector 0 )) (vector 1 "Don't implicitly import Prelude")) (vector 1 (vector 0 (vector 1 "--codegen" (vector 1 "--cg" (vector 0 ))) (vector 1 "backend" (vector 0 )) (lambda (f) (vector 1 (vector 3 f) (vector 0 ))) (vector 1 "Set code generator (default chez)")) (vector 1 (vector 0 (vector 1 "--package" (vector 1 "-p" (vector 0 ))) (vector 1 "package" (vector 0 )) (lambda (f) (vector 1 (vector 11 f) (vector 0 ))) (vector 1 "Add a package as a dependency")) (vector 1 (vector 0 (vector 1 "--ide-mode" (vector 0 )) (vector 0 ) (vector 1 (vector 15 ) (vector 0 )) (vector 1 "Run the REPL with machine-readable syntax")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket" (vector 0 )) (vector 0 ) (vector 1 (vector 16 "localhost:38398") (vector 0 )) (vector 1 "Run the ide socket mode on default host and port (localhost:38398)")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket-with" (vector 0 )) (vector 1 "host:port" (vector 0 )) (lambda (hp) (vector 1 (vector 16 hp) (vector 0 ))) (vector 1 "Run the ide socket mode on given host and port")) (vector 1 (vector 0 (vector 1 "--prefix" (vector 0 )) (vector 0 ) (vector 1 (vector 5 ) (vector 0 )) (vector 1 "Show installation prefix")) (vector 1 (vector 0 (vector 1 "--paths" (vector 0 )) (vector 0 ) (vector 1 (vector 27 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--build" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 0 ) f) (vector 0 ))) (vector 1 "Build modules/executable for the given package")) (vector 1 (vector 0 (vector 1 "--install" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 1 ) f) (vector 0 ))) (vector 1 "Install the given package")) (vector 1 (vector 0 (vector 1 "--clean" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 2 ) f) (vector 0 ))) (vector 1 "Clean intermediate files/executables for the given package")) (vector 1 (vector 0 (vector 1 "--repl" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 3 ) f) (vector 0 ))) (vector 1 "Build the given package and launch a REPL instance.")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 13 (vector 0 )) (vector 0 )) (vector 1 "Show library directory")) (vector 1 (vector 0 (vector 1 "--no-banner" (vector 0 )) (vector 0 ) (vector 1 (vector 8 ) (vector 0 )) (vector 1 "Suppress the banner")) (vector 1 (vector 0 (vector 1 "--quiet" (vector 1 "-q" (vector 0 ))) (vector 0 ) (vector 1 (vector 9 ) (vector 0 )) (vector 1 "Quiet mode; display fewer messages")) (vector 1 (vector 0 (vector 1 "--verbose" (vector 0 )) (vector 0 ) (vector 1 (vector 10 ) (vector 0 )) (vector 1 "Verbose mode (default)")) (vector 1 (vector 0 (vector 1 "--version" (vector 1 "-v" (vector 0 ))) (vector 0 ) (vector 1 (vector 6 ) (vector 0 )) (vector 1 "Display version string")) (vector 1 (vector 0 (vector 1 "--help" (vector 1 "-h" (vector 1 "-?" (vector 0 )))) (vector 0 ) (vector 1 (vector 7 ) (vector 0 )) (vector 1 "Display help text")) (vector 1 (vector 0 (vector 1 "--timing" (vector 0 )) (vector 0 ) (vector 1 (vector 25 ) (vector 0 )) (vector 1 "Display timing logs")) (vector 1 (vector 0 (vector 1 "--find-ipkg" (vector 0 )) (vector 0 ) (vector 1 (vector 24 ) (vector 0 )) (vector 1 "Find and use an .ipkg file in a parent directory")) (vector 1 (vector 0 (vector 1 "--client" (vector 0 )) (vector 1 "REPL command" (vector 0 )) (lambda (f) (vector 1 (vector 23 f) (vector 0 ))) (vector 1 "Run a REPL command then quit immediately")) (vector 1 (vector 0 (vector 1 "--yaffle" (vector 1 "--ttimp" (vector 0 ))) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 17 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--ttm" (vector 0 )) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 18 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpcases" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 19 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumplifted" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 20 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpanf" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 21 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpvmcode" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 22 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 26 ) (vector 0 )) (vector 0 )) (vector 0 ))))))))))))))))))))))))))))))))))
-(define CommandLine-Idris-optUsage (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (h) (Strings-Prelude-C-43C-43 "  " (let ((optshow (Strings-Prelude-C-43C-43 (CommandLine-Idris-n--2665-1042-showSep arg-0 "," (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--2665-1042-showSep arg-0 " " (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 x ">"))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))) (Strings-Prelude-C-43C-43 optshow (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 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)))))))))))))))))))))))))) (Prelude-length optshow)) #\ )) (Strings-Prelude-C-43C-43 h "\u000a"))))))) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
-(define CommandLine-Idris-matchFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CommandLine-Idris-case--2747-1132 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
-(define CommandLine-Idris-ideSocketModeHostPort (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 "localhost" 38398)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--2961-1334 e-3 e-4 (Strings-Data-break (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\:)) e-4))))(else (CommandLine-Idris-ideSocketModeHostPort e-3)))))))))))
-(define OptDesc-CommandLine-Idris-help (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define CommandLine-Idris-optsUsage (lambda (arg-0) (let ((optsShow (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CommandLine-Idris-n--3199-1650-optShow arg-0 eta-0)) arg-0))) (let ((maxOpt (Prelude-foldr_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (lambda (acc) (Prelude-max_Ord__Nat acc (Prelude-length e-2)))))) (Prelude-fromInteger_Num__Nat 0) optsShow))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-n--3199-1651-optUsage arg-0 maxOpt eta-0))) optsShow)))))
+(define CommandLine-Idris-options (lambda () (vector 1 (vector 0 (vector 1 "--check" (vector 1 "-c" (vector 0 ))) (vector 0 ) (vector 1 (vector 0 ) (vector 0 )) (vector 1 "Exit after checking source file")) (vector 1 (vector 0 (vector 1 "--output" (vector 1 "-o" (vector 0 ))) (vector 1 (vector 0 "file") (vector 0 )) (lambda (f) (vector 1 (vector 1 f) (vector 1 (vector 12 ) (vector 0 )))) (vector 1 "Specify output file")) (vector 1 (vector 0 (vector 1 "--exec" (vector 1 "-x" (vector 0 ))) (vector 1 (vector 0 "name") (vector 0 )) (lambda (f) (vector 1 (vector 2 f) (vector 1 (vector 12 ) (vector 0 )))) (vector 1 "Execute function after checking source file")) (vector 1 (vector 0 (vector 1 "--no-prelude" (vector 0 )) (vector 0 ) (vector 1 (vector 4 ) (vector 0 )) (vector 1 "Don't implicitly import Prelude")) (vector 1 (vector 0 (vector 1 "--codegen" (vector 1 "--cg" (vector 0 ))) (vector 1 (vector 0 "backend") (vector 0 )) (lambda (f) (vector 1 (vector 3 f) (vector 0 ))) (vector 1 (Strings-Prelude-C-43C-43 "Set code generator " (CommandLine-Idris-showDefault 'erased (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x)))) (let ((sc0 (Options-Core-defaultSession))) (let ((e-3 (vector-ref sc0 4))) e-3)))))) (vector 1 (vector 0 (vector 1 "--package" (vector 1 "-p" (vector 0 ))) (vector 1 (vector 0 "package") (vector 0 )) (lambda (f) (vector 1 (vector 14 f) (vector 0 ))) (vector 1 "Add a package as a dependency")) (vector 1 (vector 0 (vector 1 "--source-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 5 d) (vector 0 ))) (vector 1 "Set source directory")) (vector 1 (vector 0 (vector 1 "--build-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 6 d) (vector 0 ))) (vector 1 "Set build directory")) (vector 1 (vector 0 (vector 1 "--output-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 7 d) (vector 0 ))) (vector 1 "Set output directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--prefix" (vector 0 )) (vector 0 ) (vector 1 (vector 8 ) (vector 0 )) (vector 1 "Show installation prefix")) (vector 1 (vector 0 (vector 1 "--paths" (vector 0 )) (vector 0 ) (vector 1 (vector 30 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 16 (vector 0 )) (vector 0 )) (vector 1 "Show library directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--build" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 0 ) f) (vector 0 ))) (vector 1 "Build modules/executable for the given package")) (vector 1 (vector 0 (vector 1 "--install" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 1 ) f) (vector 0 ))) (vector 1 "Install the given package")) (vector 1 (vector 0 (vector 1 "--clean" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 2 ) f) (vector 0 ))) (vector 1 "Clean intermediate files/executables for the given package")) (vector 1 (vector 0 (vector 1 "--repl" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 3 ) f) (vector 0 ))) (vector 1 "Build the given package and launch a REPL instance.")) (vector 1 (vector 0 (vector 1 "--find-ipkg" (vector 0 )) (vector 0 ) (vector 1 (vector 27 ) (vector 0 )) (vector 1 "Find and use an .ipkg file in a parent directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--ide-mode" (vector 0 )) (vector 0 ) (vector 1 (vector 18 ) (vector 0 )) (vector 1 "Run the REPL with machine-readable syntax")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket" (vector 0 )) (vector 1 (vector 1 "host:port") (vector 0 )) (lambda (hp) (vector 1 (vector 19 (Maybe-Data-fromMaybe 'erased (lambda () (CommandLine-Idris-formatSocketAddress (CommandLine-Idris-ideSocketModeAddress (vector 0 )))) hp)) (vector 0 ))) (vector 1 (Strings-Prelude-C-43C-43 "Run the ide socket mode on given host and port " (CommandLine-Idris-showDefault 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (CommandLine-Idris-formatSocketAddress (CommandLine-Idris-ideSocketModeAddress (vector 0 ))))))) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--client" (vector 0 )) (vector 1 (vector 0 "REPL command") (vector 0 )) (lambda (f) (vector 1 (vector 26 f) (vector 0 ))) (vector 1 "Run a REPL command then quit immediately")) (vector 1 (vector 0 (vector 1 "--timing" (vector 0 )) (vector 0 ) (vector 1 (vector 28 ) (vector 0 )) (vector 1 "Display timing logs")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--no-banner" (vector 0 )) (vector 0 ) (vector 1 (vector 11 ) (vector 0 )) (vector 1 "Suppress the banner")) (vector 1 (vector 0 (vector 1 "--quiet" (vector 1 "-q" (vector 0 ))) (vector 0 ) (vector 1 (vector 12 ) (vector 0 )) (vector 1 "Quiet mode; display fewer messages")) (vector 1 (vector 0 (vector 1 "--verbose" (vector 0 )) (vector 0 ) (vector 1 (vector 13 ) (vector 0 )) (vector 1 "Verbose mode (default)")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--version" (vector 1 "-v" (vector 0 ))) (vector 0 ) (vector 1 (vector 9 ) (vector 0 )) (vector 1 "Display version string")) (vector 1 (vector 0 (vector 1 "--help" (vector 1 "-h" (vector 1 "-?" (vector 0 )))) (vector 0 ) (vector 1 (vector 10 ) (vector 0 )) (vector 1 "Display help text")) (vector 1 (vector 0 (vector 1 "--yaffle" (vector 1 "--ttimp" (vector 0 ))) (vector 1 (vector 0 "ttimp file") (vector 0 )) (lambda (f) (vector 1 (vector 20 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--ttm" (vector 0 )) (vector 1 (vector 0 "ttimp file") (vector 0 )) (lambda (f) (vector 1 (vector 21 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpcases" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 22 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumplifted" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 23 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpanf" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 24 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpvmcode" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 25 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 29 ) (vector 0 )) (vector 0 )) (vector 0 ))))))))))))))))))))))))))))))))))))))))))
+(define CommandLine-Idris-optSeparator (lambda () (vector 0 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
+(define CommandLine-Idris-matchFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CommandLine-Idris-case--3373-1825 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
+(define CommandLine-Idris-ideSocketModeAddress (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 "localhost" 38398)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--2163-683 e-3 e-4 (Strings-Data-break (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\:)) e-4))))(else (CommandLine-Idris-ideSocketModeAddress e-3)))))))))))
 (define CommandLine-Idris-getOpts (lambda (arg-0) (CommandLine-Idris-parseOpts (CommandLine-Idris-options) arg-0)))
-(define CommandLine-Idris-getCmdOpts (lambda (ext-0) (let ((act-24 (System-getArgs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (CommandLine-Idris-getOpts e-2)))(else (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-getCmdOpts (lambda (ext-0) (let ((act-24 ((System-getArgs 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (CommandLine-Idris-getOpts e-2)))(else (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-formatSocketAddress (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int e-3))))))))
 (define OptDesc-CommandLine-Idris-flags (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define CommandLine-Idris-findMatch (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) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 14 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4))))))))))))))
+(define CommandLine-Idris-findMatch (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) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 17 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4))))))))))))))
 (define OptDesc-CommandLine-Idris-argdescs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define OptDesc-CommandLine-Idris-action (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Package-Idris-case--19020-6451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-17) e-3 e-4 e-5 e-6))))))))))
-(define Package-Idris-case--18963-6344 (lambda (arg-0 arg-1 arg-2 arg-3 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-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-25 (unbox arg-1))) (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 ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))
-(define Package-Idris-case--18903-6295 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 ((act-26 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) 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 ((act-27 ((Package-Idris-n--18836-6176-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) 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 ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-3))) (let ((act-28 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (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-12 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13))))))))))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))))))
-(define Package-Idris-case--18836-6235 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir e-5 eta-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 ((act-25 (Context-Core-setWorkingDir arg-2 e-5 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 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6284) (vector 0 desc))))))) eta-0))) (vector 1 act-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-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-27 (Package-Idris-addFields arg-2 e-12 (Package-Idris-initPkgDesc e-13) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Context-Core-setSourceDir arg-2 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-29 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) eta-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 ((Package-Idris-n--18836-6176-loadDependencies arg-0 arg-1 arg-2 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((sc12 arg-0)) (case (vector-ref sc12 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-31 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (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 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (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 (set-box! arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((2) (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-13) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-12) e-12) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Package-Idris-case--18739-6109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Package-Idris-errorMsg) 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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 arg-4 arg-5 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 (vector 1 0)))))))))))
-(define Package-Idris-case--18703-6091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-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-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-2)) (cond ((equal? sc3 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 e-8 e-9 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))))))
-(define Package-Idris-case--18487-6054 (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))) (vector 0 e-0 e-1 0))))))
-(define Package-Idris-case--18487-6034 (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))) (vector 0 e-0 (vector 1 (vector 26 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-6013 (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))) (vector 0 e-0 (vector 1 (vector 22 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5992 (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))) (vector 0 e-0 (vector 1 (vector 20 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5971 (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))) (vector 0 e-0 (vector 1 (vector 19 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5952 (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))) (vector 0 e-0 (vector 1 (vector 25 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5933 (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))) (vector 0 e-0 (vector 1 (vector 10 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5914 (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))) (vector 0 e-0 (vector 1 (vector 9 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5893 (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))) (vector 0 e-0 (vector 1 (vector 3 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5870 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 1 (vector 0 arg-1 arg-0)) e-1 e-2))))))
-(define Package-Idris-case--18142-5661 (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) (lambda (eta-0) (Package-Idris-install arg-4 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Package-Idris-case--18142-5584 (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Package-Idris-case--18108-5555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (vector 1 (vector 0 )))(else (let ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-install arg-5 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-5 arg-3 arg-9 arg-0 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-5 arg-3 arg-9 arg-0 eta-0)))))))
-(define Package-Idris-case--18033-5529 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-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))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (let ((act-25 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 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-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 )))(else (let ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))) ((1) (let ((act-25 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 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-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-5 arg-3 e-5 arg-0 eta-0))(else (let ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-5 arg-0 eta-0)) (else (Package-Idris-runRepl arg-5 arg-3 e-5 arg-0 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-5) e-5) eta-0)))))))))))
-(define Package-Idris-case--18021-5454 (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) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Packages must have an '.ipkg' extension: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-1) ".")) 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 ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Package-Parser-parseFile 'erased arg-1 (vector 7 0 (Package-Idris-parsePkgDesc arg-1) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-5518) (vector 0 desc))))))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-8) 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-6 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((0) (let ((act-26 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 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-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-27 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-27))))))))))) ((1) (let ((act-26 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 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-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (Package-Idris-install arg-5 arg-3 e-6 arg-0 eta-0))(else (let ((act-27 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-27))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-6 arg-0 eta-0)) (else (Package-Idris-runRepl arg-5 arg-3 e-6 arg-0 eta-0)))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-6) e-6) eta-0)))))))))))))))))))
-(define Package-Idris-case--17612-5314 (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2)))))))))
-(define Package-Idris-case--17612-5155 (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-1 (vector-ref sc0 1))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-5 "ttc")))) (let ((execdir (Path-Utils-C-60C-47C-62 e-1 arg-6))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-11) (vector 1 v arg-11))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-9))) (lambda (eta-0) (let ((act-24 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--17612-5051-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--17612-5052-deleteBin arg-0 arg-1 arg-2 arg-3 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-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 (Package-Idris-n--17612-5051-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir (vector 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 execdir e) eta-1)))) (let ((sc3 arg-1)) (let ((e-13 (vector-ref sc3 14))) 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 ((Package-Idris-runScript (let ((sc4 arg-1)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Package-Idris-case--17619-5063 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-4) eta-0))) (vector 1 act-24)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Package-Idris-case--17502-4976 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17495-4945-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))))))))))))))))))))
-(define Package-Idris-case--17150-4634 (lambda (arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-1)) 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 (let ((act-25 (Directory-System-changeDir arg-8 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 ((Package-Idris-runScript (let ((sc3 arg-1)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
-(define Package-Idris-case--17107-4597 (lambda (arg-0 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)) arg-7) 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 ((act-26 (let ((act-26 (Directory-System-changeDir arg-8 eta-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 ((Package-Idris-runScript (let ((sc5 arg-1)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
-(define Package-Idris-case--17069-4564 (lambda (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) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 (let ((act-25 (Directory-System-changeDir (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-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)) (cond ((equal? sc4 0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)) arg-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (Directory-System-changeDir arg-8 eta-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc7 arg-1)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-10)) eta-0)))))))
-(define Package-Idris-case--17022-4535 (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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 arg-4)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir installPrefix 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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 ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-26 (let ((act-26 (Directory-System-changeDir (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (vector 1 act-26)))) (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))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 arg-5) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1)) arg-7) 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 ((act-28 (let ((act-28 (Directory-System-changeDir e-1 eta-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc9 arg-1)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Package-Idris-case--16841-4377 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0)))))))
-(define Package-Idris-case--16803-4332 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-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 ((act-25 (let ((act-25 (Package-Idris-copyFile arg-8 arg-10 eta-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) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0)))))))
-(define Package-Idris-case--16765-4275 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Package-Idris-case--16572-4155 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-4 arg-3 arg-2 mainn e-6 arg-12 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0)))))))
-(define Package-Idris-case--16525-4096 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--16572-4155 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 (let ((sc1 arg-1)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))))
-(define Package-Idris-case--16461-4058 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 ))) ((Package-Idris-case--16525-4096 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) 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 ((act-25 ((Package-Idris-runScript (let ((sc2 arg-1)) (let ((e-17 (vector-ref sc2 18))) 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 (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Package-Idris-case--16354-3910 (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))) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-preOptions arg-3 arg-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 (vector 1 (vector 0 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0))))))))
-(define Package-Idris-case--16151-3831 (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)) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))
-(define Package-Idris-case--15237-3682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0)))))))))))))))))))))))))))
-(define Package-Idris-case--15237-3637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (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))) (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 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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 ((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))) (vector 0 e-0 arg-0 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)))))))))))))))))))))))))
-(define Package-Idris-n--16151-3702-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToSource arg-2 e-2 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 (vector 0 e-3 e-5)))))))))))))
-(define Package-Idris-n--14828-2406-strField (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 0 (Package-Rule-Parser-exactProperty arg-2) (lambda () (lambda (_-2430) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2441) (vector 7 1 (Package-Rule-Parser-stringLit) (lambda () (lambda (str) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 ((arg-1 (vector 0 arg-0 start end)) str)))))))))))))))))
-(define Package-Idris-n--18836-6176-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0)))
-(define Package-Idris-n--17495-4945-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (These-Data-bifold 'erased arg-1 e-5))))))) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17495-4945-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6))))))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0)))
-(define Package-Idris-n--16151-3703-go (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 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))) ((Package-Idris-n--16151-3703-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
-(define Package-Idris-n--17612-5051-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-joinPath arg-5)) ext-0)))
-(define Package-Idris-n--17612-5052-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((ttFile (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-C-60C-47C-62 (Path-Utils-joinPath arg-5) arg-6)))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttc") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttm") eta-0)))))))))
-(define Package-Idris-n--17612-5050-delete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (File-System-removeFile arg-4 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 ((sc2 e-2)) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-4) ext-0))) (vector 1 act-25))))) (else (vector 1 (vector 0 ))))))))))))
+(define Package-Idris-case--20524-7327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-18) e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Package-Idris-case--20455-7211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-25 (unbox arg-1))) (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 ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-9 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-10 e-9 e-7 e-8))))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))
+(define Package-Idris-case--20387-7144 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-2 eta-1 eta-2)))) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 17))) e-16))) 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 ((act-26 (Context-Core-setOutputDir arg-2 (let ((sc4 e-5)) (let ((e-17 (vector-ref sc4 18))) e-17)) 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 ((act-27 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 15))) e-14))) 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 ((act-28 ((Package-Idris-n--20319-7014-loadDependencies arg-0 arg-1 arg-2 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 11))) e-24))) 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 ((sc7 arg-0)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc7 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-3))) (let ((act-29 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (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-31 (let ((act-31 (set-box! arg-1 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-17 (vector-ref sc10 6))) (let ((e-16 (vector-ref sc10 7))) (let ((e-15 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 9))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-18 e-4 e-17 e-16 e-15 e-14))))))))))))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))))))
+(define Package-Idris-case--20319-7074 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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 ((act-25 (Context-Core-setWorkingDir arg-2 e-5 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 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-7133) (vector 0 desc))))))) eta-0))) (vector 1 act-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-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-27 (Package-Idris-addFields arg-2 e-12 (Package-Idris-initPkgDesc e-13) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-2 eta-1 eta-2)))) (let ((sc9 e-14)) (let ((e-16 (vector-ref sc9 17))) e-16))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setOutputDir arg-2 (let ((sc10 e-14)) (let ((e-17 (vector-ref sc10 18))) e-17)) eta-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 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc11 e-14)) (let ((e-26 (vector-ref sc11 15))) e-26))) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-n--20319-7014-loadDependencies arg-0 arg-1 arg-2 (let ((sc12 e-14)) (let ((e-31 (vector-ref sc12 11))) e-31))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((sc13 arg-0)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc13 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-32 (REPLOpts-Idris-setSource arg-1 srcC-39 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 ((act-33 (let ((act-33 (unbox arg-1))) (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 ((act-34 (let ((act-34 (set-box! arg-1 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) (let ((e-27 (vector-ref sc16 2))) (let ((e-25 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-23 (vector-ref sc16 7))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (vector 0 e-0 e-27 (vector 1 srcC-39) e-25 e-4 e-24 e-23 e-22 e-21))))))))))))) (vector 1 act-34)))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((2) (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-13) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-12) e-12) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Package-Idris-case--20217-6942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) 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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 arg-4 arg-5 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 (vector 1 0)))))))))))
+(define Package-Idris-case--20179-6924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-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-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-2)) (cond ((equal? sc3 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 e-8 e-9 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))))))
+(define Package-Idris-case--19909-6885 (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))) (vector 0 e-0 e-1 0))))))
+(define Package-Idris-case--19909-6862 (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))) (vector 0 e-0 (vector 1 (vector 7 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6840 (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))) (vector 0 e-0 (vector 1 (vector 6 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6818 (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))) (vector 0 e-0 (vector 1 (vector 3 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6798 (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))) (vector 0 e-0 (vector 1 (vector 29 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6776 (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))) (vector 0 e-0 (vector 1 (vector 25 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6754 (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))) (vector 0 e-0 (vector 1 (vector 23 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6732 (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))) (vector 0 e-0 (vector 1 (vector 22 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6712 (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))) (vector 0 e-0 (vector 1 (vector 28 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6692 (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))) (vector 0 e-0 (vector 1 (vector 13 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6672 (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))) (vector 0 e-0 (vector 1 (vector 12 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6649 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 1 (vector 0 arg-1 arg-0)) e-1 e-2))))))
+(define Package-Idris-case--19431-6461 (lambda (arg-0 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) (Package-Idris-runRepl arg-4 arg-3 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19431-6345 (lambda (arg-0 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) (Package-Idris-install arg-4 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19431-6253 (lambda (arg-0 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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19383-6219 (lambda (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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (vector 1 (vector 0 )))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-install arg-5 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-5 arg-3 arg-9 arg-0 eta-0))) (else (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))))))
+(define Package-Idris-case--19301-6176 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-5 eta-1 eta-2)))) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 17))) e-16))) 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 ((act-26 (Context-Core-setOutputDir arg-5 (let ((sc4 e-5)) (let ((e-17 (vector-ref sc4 18))) e-17)) 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 ((sc5 arg-2)) (case (vector-ref sc5 0) ((0) (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28))))))))))) ((1) (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Package-Idris-install arg-5 arg-3 e-5 arg-0 eta-0))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-5 arg-0 eta-0)) (else (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 e-5 arg-0 eta-0))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28)))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-5) e-5) eta-0)))))))))))
+(define Package-Idris-case--19289-6094 (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) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Packages must have an '.ipkg' extension: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-1) "."))) 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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Package-Parser-parseFile 'erased arg-1 (vector 7 0 (Package-Idris-parsePkgDesc arg-1) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6165) (vector 0 desc))))))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-8) 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-6 (vector-ref sc4 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-5 eta-1 eta-2)))) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-setOutputDir arg-5 (let ((sc6 e-6)) (let ((e-17 (vector-ref sc6 18))) e-17)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((sc7 arg-2)) (case (vector-ref sc7 0) ((0) (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 0 )))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))) ((1) (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Package-Idris-install arg-5 arg-3 e-6 arg-0 eta-0))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-6 arg-0 eta-0)) (else (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 e-6 arg-0 eta-0))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))))))))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-6) e-6) eta-0)))))))))))))))))))
+(define Package-Idris-case--18883-5962 (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2)))))))))
+(define Package-Idris-case--18883-5807 (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 ((d (let ((sc1 (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0)))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 (let ((sc1 d)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc")))) (let ((outputdir (Path-Utils-C-60C-47C-62 e-1 (Options-Core-outputDirWithDefault d)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-9) (vector 1 v arg-9))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-7))) (lambda (eta-0) (let ((act-24 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--18883-5692-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--18883-5693-deleteBin arg-0 arg-1 arg-2 arg-3 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-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 (Package-Idris-n--18883-5692-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir (vector 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 outputdir e) eta-1)))) (let ((sc3 arg-1)) (let ((e-13 (vector-ref sc3 14))) 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 ((Package-Idris-runScript (let ((sc4 arg-1)) (let ((e-23 (vector-ref sc4 24))) e-23))) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Package-Idris-case--18890-5708 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Removed: " arg-4)) eta-0))) (vector 1 act-24)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Package-Idris-case--18769-5614 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18762-5579-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))))))))))))))))))))
+(define Package-Idris-case--18409-5263 (lambda (arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-1)) 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 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) 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 ((Package-Idris-runScript (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 22))) e-21))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
+(define Package-Idris-case--18365-5223 (lambda (arg-0 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)) arg-7) 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 ((act-26 (let ((act-26 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) eta-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 ((Package-Idris-runScript (let ((sc5 arg-1)) (let ((e-21 (vector-ref sc5 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
+(define Package-Idris-case--18323-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) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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)) (cond ((equal? sc4 0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)) arg-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) eta-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc7 arg-1)) (let ((e-21 (vector-ref sc7 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-10)) eta-0)))))))
+(define Package-Idris-case--18269-5156 (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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 arg-4)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) installPrefix) 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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 ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-26 (let ((act-26 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (vector 1 act-26)))) (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))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 arg-5) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1)) arg-7) 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 ((act-28 (let ((act-28 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc9 arg-1)) (let ((e-21 (vector-ref sc9 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Package-Idris-case--18084-4991 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0)))))))
+(define Package-Idris-case--18045-4942 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-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 ((act-25 (let ((act-25 (Package-Idris-copyFile arg-8 arg-10 eta-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) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0)))))))
+(define Package-Idris-case--18007-4884 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Package-Idris-case--17820-4769 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((mainName (vector 0 e-5 (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-4 arg-3 arg-2 mainName e-6 arg-12 eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0)))))))
+(define Package-Idris-case--17771-4710 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--17820-4769 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 (let ((sc1 arg-1)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))))
+(define Package-Idris-case--17700-4668 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 ))) ((Package-Idris-case--17771-4710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) 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 ((act-25 ((Package-Idris-runScript (let ((sc2 arg-1)) (let ((e-19 (vector-ref sc2 20))) 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 (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Package-Idris-case--17590-4505 (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))) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-preOptions arg-3 arg-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 (vector 1 (vector 0 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0))))))))
+(define Package-Idris-case--17372-4421 (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)) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (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 e-20 e-21 e-22 (vector 1 (vector 0 arg-1 arg-0)))))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-23 (vector-ref sc0 24))) (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 e-20 e-21 (vector 1 (vector 0 arg-1 arg-0)) e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 e-20 (vector 1 (vector 0 arg-1 arg-0)) e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 arg-0) e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 arg-0) e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (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))) (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 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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 ((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))) (vector 0 e-0 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-n--17372-4279-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToSource arg-2 e-2 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 (vector 0 e-3 e-5)))))))))))))
+(define Package-Idris-n--15880-2820-strField (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 0 (Package-Rule-Parser-exactProperty arg-2) (lambda () (lambda (_-2846) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2859) (vector 7 1 (Package-Rule-Parser-stringLit) (lambda () (lambda (str) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 ((arg-1 (vector 0 arg-0 start end)) str)))))))))))))))))
+(define Package-Idris-n--20319-7014-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0)))
+(define Package-Idris-n--18762-5579-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (These-Data-bifold 'erased arg-1 e-5))))))) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18762-5579-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6))))))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0)))
+(define Package-Idris-n--17372-4280-go (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 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))) ((Package-Idris-n--17372-4280-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
+(define Package-Idris-n--18883-5692-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-joinPath arg-5)) ext-0)))
+(define Package-Idris-n--18883-5693-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((ttFile (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-C-60C-47C-62 (Path-Utils-joinPath arg-5) arg-6)))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttc") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttm") eta-0)))))))))
+(define Package-Idris-n--18883-5691-delete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 ((File-System-removeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4) 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 ((sc2 e-2)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Removed: " arg-4)) ext-0))) (vector 1 act-25))))) (else (vector 1 (vector 0 ))))))))))))
 (define Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 )))
 (define Package-Idris-__Impl_Semigroup_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (ext-0 ext-1) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 ext-0 ext-1)))
-(define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41))))
+(define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41))))
 (define Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (vector 0 )))
 (define PkgDesc-Package-Idris-sourcedir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
-(define Package-Idris-runScript (lambda (arg-0) (let ((sc0 arg-0)) (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-6 eta-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-7 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__Int e-7 0))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-5 "Script failed") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))
-(define Package-Idris-runRepl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Package-Idris-addDeps 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 ((act-25 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc1 arg-2)) (let ((e-14 (vector-ref sc1 15))) e-14))) 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 ((SetOptions-Idris-preOptions 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Not implemented") ext-0)))))))))))))))
-(define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-4 e-5 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 0)))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-3) 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-10 e-9 e-1) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-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))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((sc3 e-0)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-4)) (cond ((equal? sc5 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) 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)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-2)) (cond ((equal? sc4 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (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 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))) (else (vector 1 1)))))))))))))))))))
-(define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Package-Idris-case--18021-5454 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-not (Strings-Data-isSuffixOf ".ipkg" arg-4)))))
-(define Package-Idris-processOptions (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--16354-3910 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6))))))))))))
-(define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
-(define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
-(define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
-(define PkgDesc-Package-Idris-postinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
-(define PkgDesc-Package-Idris-postclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
-(define PkgDesc-Package-Idris-postbuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
-(define Package-Idris-parsePkgDesc (lambda (arg-0) (vector 7 0 (Package-Rule-Parser-exactProperty "package") (lambda () (lambda (_-2832) (vector 7 1 (Package-Rule-Parser-packageName) (lambda () (lambda (name) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Package-Idris-field arg-0)) (lambda (fields) (vector 0 (vector 0 name fields))))))))))))
+(define Package-Idris-runScript (lambda (arg-0) (let ((sc0 arg-0)) (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-6) eta-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-7 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__Int e-7 0))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-5 "Script failed") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))
+(define Package-Idris-runRepl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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))) (REPL-Idris-repl arg-0 e-5 arg-1 e-6 arg-2 ext-0)))))))))))))
+(define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-4 e-5 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 0)))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-3) 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-10 e-9 e-1) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-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))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((sc3 e-0)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-4)) (cond ((equal? sc5 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) 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)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-2)) (cond ((equal? sc4 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (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 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))) (else (vector 1 1)))))))))))))))))))
+(define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Package-Idris-case--19289-6094 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-not (Strings-Data-isSuffixOf ".ipkg" arg-4)))))
+(define Package-Idris-processOptions (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--17590-4505 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6))))))))))))
+(define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
+(define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22))))
+(define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
+(define PkgDesc-Package-Idris-postinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
+(define PkgDesc-Package-Idris-postclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-23 (vector-ref sc0 24))) e-23))))
+(define PkgDesc-Package-Idris-postbuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
+(define Package-Idris-parsePkgDesc (lambda (arg-0) (vector 7 0 (Package-Rule-Parser-exactProperty "package") (lambda () (lambda (_-3281) (vector 7 1 (Package-Rule-Parser-packageName) (lambda () (lambda (name) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Package-Idris-field arg-0)) (lambda (fields) (vector 0 (vector 0 name fields))))))))))))
+(define PkgDesc-Package-Idris-outputdir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
 (define PkgDesc-Package-Idris-options (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
 (define PkgDesc-Package-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define PkgDesc-Package-Idris-modules (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11))))
 (define PkgDesc-Package-Idris-mainmod (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))
-(define Package-Idris-installFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (let ((ttcfile (Path-Utils-joinPath (List-Data-reverse 'erased arg-4)))) (let ((ttcPath (Path-Utils-C-60C-47C-62 arg-2 (Path-Utils-C-60C-47C-62 "ttc" (Path-Utils-C-60C-46C-62 ttcfile "ttc"))))) (let ((destPath (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-joinPath (List-Data-reverse 'erased e-3))))) (let ((destFile (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-C-60C-46C-62 ttcfile "ttc")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (Path-Utils-joinPath (List-Data-reverse 'erased e-3))) 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 ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath))) eta-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 (let ((act-26 (Package-Idris-copyFile ttcPath destFile eta-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 (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-0)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased e-3)))) eta-0))))))))))))))))))))
-(define Package-Idris-install (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-18 (vector-ref sc1 19))) e-18))) 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 ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-26 (let ((act-26 (Directory-System-currentDir 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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (let ((act-27 (let ((act-27 (Directory-System-changeDir installPrefix 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 ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-28 (let ((act-28 ((Directory-Core-mkdirAll (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (vector 1 act-28)))) (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) ((1) (let ((act-29 (let ((act-29 (Directory-System-changeDir (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)) ext-0))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 build) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)) toInstall) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (Directory-System-changeDir e-1 ext-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-19 (vector-ref sc12 20))) e-19))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
-(define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
+(define Package-Idris-installFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (let ((ttcfile (Path-Utils-joinPath (List-Data-reverse 'erased arg-4)))) (let ((ttcPath (Path-Utils-C-60C-47C-62 arg-2 (Path-Utils-C-60C-47C-62 "ttc" (Path-Utils-C-60C-46C-62 ttcfile "ttc"))))) (let ((destPath (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-joinPath (List-Data-reverse 'erased e-3))))) (let ((destFile (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-C-60C-46C-62 ttcfile "ttc")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (Path-Utils-joinPath (List-Data-reverse 'erased e-3))) 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 ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-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 (let ((act-26 (Package-Idris-copyFile ttcPath destFile eta-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 (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-0)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased e-3)))) eta-0))))))))))))))))))))
+(define Package-Idris-install (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (let ((act-27 (let ((act-27 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) installPrefix) 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 ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-28 (let ((act-28 ((Directory-Core-mkdirAll (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (vector 1 act-28)))) (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) ((1) (let ((act-29 (let ((act-29 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0))) ext-0))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 build) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)) toInstall) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) ext-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-21 (vector-ref sc12 22))) e-21))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
+(define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Package-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (vector 0 arg-0 (vector 0 0 0) (vector 0 0 0)))(else (REPLOpts-Idris-replFC))))))
-(define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-24 (ma 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))) ((Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (vector 1 arg-5))) arg-6))))))
-(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--17495-4945-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0)))
-(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (Directory-Core-findIpkgFile 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))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (Directory-System-changeDir e-7 ext-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 ((act-26 (Context-Core-setWorkingDir arg-0 e-7 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 ((act-27 (let ((act-27 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6284) (vector 0 desc))))))) ext-0))) (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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((sc8 e-2)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-28 (Package-Idris-addFields arg-0 e-13 (Package-Idris-initPkgDesc e-14) 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-15 (vector-ref sc9 1))) (let ((act-29 (Context-Core-setSourceDir arg-0 (let ((sc10 e-15)) (let ((e-22 (vector-ref sc10 16))) e-22)) ext-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 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc11 e-15)) (let ((e-24 (vector-ref sc11 15))) e-24))) ext-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-n--18836-6176-loadDependencies arg-2 arg-1 arg-0 (let ((sc12 e-15)) (let ((e-29 (vector-ref sc12 11))) e-29))) ext-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((sc13 arg-2)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc13 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-32 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-1))) (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 ((act-34 (let ((act-34 (set-box! arg-1 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) (let ((e-25 (vector-ref sc16 2))) (let ((e-23 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-22 (vector-ref sc16 6))) (let ((e-21 (vector-ref sc16 7))) (vector 0 e-0 e-25 (vector 1 srcC-39) e-23 e-4 e-22 e-21))))))))))) (vector 1 act-34)))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-14) ext-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-13) e-13) ext-0))))))))))))))))))))))))))))) (else (vector 1 arg-2)))))))))))
-(define Package-Idris-filterPackageOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 (vector 1 (vector 0 e-4 e-5)) e-1 e-6)))) e-3)))) ((3) (let ((e-6 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 3 e-6) e-1) e-4))))) e-3))) ((9) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 9 ) e-1) e-4))))) e-3)) ((10) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 10 ) e-1) e-4))))) e-3)) ((25) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 25 ) e-1) e-4))))) e-3)) ((19) (let ((e-7 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 19 e-7) e-1) e-4))))) e-3))) ((20) (let ((e-8 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 20 e-8) e-1) e-4))))) e-3))) ((22) (let ((e-9 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 22 e-9) e-1) e-4))))) e-3))) ((26) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 26 ) e-1) e-4))))) e-3))(else (lambda (eta-0) (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 0))))))))))))))))
-(define Package-Idris-field (lambda (arg-0) (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Package-Rule-Parser-exactProperty "depends") (lambda () (lambda (_-2638) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2649) (vector 7 1 (Package-Rule-Parser-sep 'erased (Package-Rule-Parser-packageName)) (lambda () (lambda (ds) (vector 0 (vector 9 ds))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Package-Rule-Parser-exactProperty "modules") (lambda () (lambda (_-2628) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2675) (vector 7 1 (Package-Rule-Parser-sep 'erased (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-moduleIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) m)))))))))) (lambda () (lambda (ms) (vector 0 (vector 10 ms))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Package-Rule-Parser-exactProperty "main") (lambda () (lambda (_-2618) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2745) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-namespacedIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (vector 7 0 (Package-Rule-Parser-exactProperty "executable") (lambda () (lambda (_-2608) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2799) (let ((sc0 (Prelude-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e)))))) (else (vector 7 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-24 (ma 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))) ((Basics-Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (vector 1 arg-5))) arg-6))))))
+(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--18762-5579-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0)))
+(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (Directory-Core-findIpkgFile 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))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-7) ext-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 ((act-26 (Context-Core-setWorkingDir arg-0 e-7 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 ((act-27 (let ((act-27 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-7133) (vector 0 desc))))))) ext-0))) (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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((sc8 e-2)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-28 (Package-Idris-addFields arg-0 e-13 (Package-Idris-initPkgDesc e-14) 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-15 (vector-ref sc9 1))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setBuildDir arg-0 eta-0 eta-1)))) (let ((sc10 e-15)) (let ((e-16 (vector-ref sc10 17))) e-16))) ext-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 (Context-Core-setOutputDir arg-0 (let ((sc11 e-15)) (let ((e-17 (vector-ref sc11 18))) e-17)) ext-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc12 e-15)) (let ((e-27 (vector-ref sc12 15))) e-27))) ext-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-32 ((Package-Idris-n--20319-7014-loadDependencies arg-2 arg-1 arg-0 (let ((sc13 e-15)) (let ((e-32 (vector-ref sc13 11))) e-32))) ext-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((sc14 arg-2)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc14 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-33 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc16 act-34)) (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-35 (let ((act-35 (set-box! arg-1 (let ((sc17 e-21)) (let ((e-0 (vector-ref sc17 1))) (let ((e-28 (vector-ref sc17 2))) (let ((e-26 (vector-ref sc17 4))) (let ((e-4 (vector-ref sc17 5))) (let ((e-25 (vector-ref sc17 6))) (let ((e-24 (vector-ref sc17 7))) (let ((e-23 (vector-ref sc17 8))) (let ((e-22 (vector-ref sc17 9))) (vector 0 e-0 e-28 (vector 1 srcC-39) e-26 e-4 e-25 e-24 e-23 e-22))))))))))))) (vector 1 act-35)))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-14) ext-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-13) e-13) ext-0))))))))))))))))))))))))))))) (else (vector 1 arg-2)))))))))))
+(define Package-Idris-filterPackageOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 (vector 1 (vector 0 e-4 e-5)) e-1 e-6)))) e-3)))) ((12) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 12 ) e-1) e-4))))) e-3)) ((13) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 13 ) e-1) e-4))))) e-3)) ((28) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 28 ) e-1) e-4))))) e-3)) ((22) (let ((e-6 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 22 e-6) e-1) e-4))))) e-3))) ((23) (let ((e-7 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 23 e-7) e-1) e-4))))) e-3))) ((25) (let ((e-8 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 25 e-8) e-1) e-4))))) e-3))) ((29) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 29 ) e-1) e-4))))) e-3)) ((3) (let ((e-9 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 3 e-9) e-1) e-4))))) e-3))) ((6) (let ((e-10 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 6 e-10) e-1) e-4))))) e-3))) ((7) (let ((e-11 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 7 e-11) e-1) e-4))))) e-3)))(else (lambda (eta-0) (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 0))))))))))))))))
+(define Package-Idris-field (lambda (arg-0) (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "builddir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "outputdir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "prebuild") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postbuild") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 21 eta-0 eta-1))) "preclean") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 22 eta-0 eta-1))) "postclean") (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Package-Rule-Parser-exactProperty "depends") (lambda () (lambda (_-3073) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3086) (vector 7 1 (Package-Rule-Parser-sep 'erased (Package-Rule-Parser-packageName)) (lambda () (lambda (ds) (vector 0 (vector 9 ds))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Package-Rule-Parser-exactProperty "modules") (lambda () (lambda (_-3062) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3114) (vector 7 1 (Package-Rule-Parser-sep 'erased (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-moduleIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) m)))))))))) (lambda () (lambda (ms) (vector 0 (vector 10 ms))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Package-Rule-Parser-exactProperty "main") (lambda () (lambda (_-3051) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3189) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-namespacedIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (vector 7 0 (Package-Rule-Parser-exactProperty "executable") (lambda () (lambda (_-3040) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3247) (let ((sc0 (Prelude-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e)))))) (else (vector 7 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define PkgDesc-Package-Idris-executable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))
-(define Package-Idris-errorMsg (lambda () (Strings-Data-unlines (vector 1 "Not all command line options can be used to override package options.\u000a" (vector 1 "Overridable options are:" (vector 1 "    --quiet" (vector 1 "    --verbose" (vector 1 "    --timing" (vector 1 "    --dumpcases <file>" (vector 1 "    --dumplifted <file>" (vector 1 "    --dumpvmcode <file>" (vector 1 "    --debug-elab-check" (vector 1 "    --codegen <cg>" (vector 0 ))))))))))))))
+(define Package-Idris-errorMsg (lambda () (Strings-Data-unlines (vector 1 "Not all command line options can be used to override package options.\u000a" (vector 1 "Overridable options are:" (vector 1 "    --quiet" (vector 1 "    --verbose" (vector 1 "    --timing" (vector 1 "    --dumpcases <file>" (vector 1 "    --dumplifted <file>" (vector 1 "    --dumpvmcode <file>" (vector 1 "    --debug-elab-check" (vector 1 "    --codegen <cg>" (vector 1 "    --build-dir <dir>" (vector 1 "    --output-dir <dir>" (vector 0 ))))))))))))))))
 (define PkgDesc-Package-Idris-depends (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Package-Idris-copyFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Binary-Utils-writeToFile arg-1 e-2 ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define Package-Idris-compileMain (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (REPL-Idris-loadMainFile arg-0 e-6 arg-1 e-5 arg-2 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 (REPL-Idris-compileExp arg-0 e-6 arg-1 e-5 arg-2 (vector 0 (REPLOpts-Idris-replFC) arg-3) 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 (vector 1 (vector 0 ))))))))))))))))))))))
-(define Package-Idris-clean (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-26 (let ((act-26 (Directory-System-currentDir 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 ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 build "ttc")))) (let ((execdir (Path-Utils-C-60C-47C-62 e-1 exec))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-4) (vector 1 v arg-4))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-27 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--17612-5051-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc4 eta-2)) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-8))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--17612-5052-deleteBin arg-3 arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie 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 (Package-Idris-n--17612-5051-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir (vector 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 ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--17612-5050-delete arg-3 arg-2 arg-1 arg-0 (Path-Utils-C-60C-47C-62 execdir e) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))))
-(define Package-Idris-build (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 (Package-Idris-addDeps 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) 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 ((SetOptions-Idris-preOptions arg-0 arg-2 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 ((Package-Idris-runScript (let ((sc4 arg-3)) (let ((e-16 (vector-ref sc4 17))) 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))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12))))) (let ((act-29 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild 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 (let ((_-0 (vector 0 ))) ((Package-Idris-case--16525-4096 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 toBuild _-0 (let ((sc7 arg-3)) (let ((e-13 (vector-ref sc7 14))) e-13))) 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 ((Package-Idris-runScript (let ((sc8 arg-3)) (let ((e-17 (vector-ref sc8 18))) e-17))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))(else (vector 1 e-10)))))))))))))))))))))))))))))))))))))
+(define Package-Idris-clean (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 ((Package-Idris-runScript (let ((sc1 arg-2)) (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 ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((d (let ((sc4 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 5))) e-4)))) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 (let ((sc4 d)) (let ((e-2 (vector-ref sc4 3))) e-2)) "ttc")))) (let ((outputdir (Path-Utils-C-60C-47C-62 e-1 (Options-Core-outputDirWithDefault d)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-4) (vector 1 v arg-4))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-27 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--18883-5692-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc4 eta-2)) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-8))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--18883-5693-deleteBin arg-3 arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie 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 (Package-Idris-n--18883-5692-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir (vector 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 ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--18883-5691-delete arg-3 arg-2 arg-1 arg-0 (Path-Utils-C-60C-47C-62 outputdir e) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-23 (vector-ref sc7 24))) e-23))) ext-0))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
+(define PkgDesc-Package-Idris-builddir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
+(define Package-Idris-build (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 (Package-Idris-addDeps 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) 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 ((SetOptions-Idris-preOptions arg-0 arg-2 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 ((Package-Idris-runScript (let ((sc4 arg-3)) (let ((e-18 (vector-ref sc4 19))) e-18))) 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 ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12))))) (let ((act-29 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild 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 (let ((_-0 (vector 0 ))) ((Package-Idris-case--17771-4710 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 toBuild _-0 (let ((sc7 arg-3)) (let ((e-13 (vector-ref sc7 14))) e-13))) 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 ((Package-Idris-runScript (let ((sc8 arg-3)) (let ((e-19 (vector-ref sc8 20))) 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 (vector 1 (vector 0 )))))))))))(else (vector 1 e-10)))))))))))))))))))))))))))))))))))))
 (define Package-Idris-bitraverseC (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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (vector 1 (lambda (eta-2) (vector 0 eta-2)))) (arg-4 e-2) eta-0)))) ((1) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (vector 1 (lambda (eta-2) (vector 1 eta-2)))) (arg-5 e-5) eta-0)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 2 eta-3 eta-4))))) (arg-4 e-8) eta-1)) (arg-5 e-9) eta-0)))))))))
-(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (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 ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-n--16151-3703-go arg-2 arg-1 arg-0 e-5 e-6 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 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 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 ((e-9 (vector-ref sc4 1))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--16151-3702-toSource arg-2 arg-1 arg-0 eta-0)) e-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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--16151-3702-toSource arg-2 arg-1 arg-0 eta-0)) e-10) 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))) (vector 1 (let ((sc8 e-7)) (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-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-23 (vector-ref sc1 1))) (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))) (vector 0 e-23 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))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-3 e-22 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))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 5))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-23 e-22 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))))))))))))))))))))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-5 (vector-ref sc1 6))) (let ((e-23 (vector-ref sc1 7))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-23 e-22 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))))))))))))))))))))))))))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-23 (vector-ref sc1 9))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-23 e-22 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-23 (vector-ref sc1 11))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-23 e-22 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 13))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-23 e-22 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 15))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-23 e-22 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 17))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-23 e-22 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-22 e-19 e-20 e-21))))))))))))))))))))))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 e-19))) (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 (vector 1 arg-4)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 (vector 0 e-20 e-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 (vector 1 arg-4))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((15) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-27 e-28)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((16) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 0 e-29 e-30)) e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21)))))))))))))))))))))))))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-33 e-34)) e-20 e-21)))))))))))))))))))))))))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-35 e-36)) e-21)))))))))))))))))))))))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (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 e-20 (vector 1 (vector 0 e-37 e-38))))))))))))))))))))))))))))))))))
+(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (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 ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-n--17372-4280-go arg-2 arg-1 arg-0 e-5 e-6 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 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 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 ((e-9 (vector-ref sc4 1))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--17372-4279-toSource arg-2 arg-1 arg-0 eta-0)) e-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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--17372-4279-toSource arg-2 arg-1 arg-0 eta-0)) e-10) 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))) (vector 1 (let ((sc8 e-7)) (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-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (vector-ref sc8 11))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-25 (vector-ref sc1 1))) (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))) (vector 0 e-25 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))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-3 e-24 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))))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 5))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-25 e-24 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))))))))))))))))))))))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-5 (vector-ref sc1 6))) (let ((e-25 (vector-ref sc1 7))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-25 e-24 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))))))))))))))))))))))))))))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-25 (vector-ref sc1 9))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-25 e-24 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))))))))))))))))))))))))))))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-25 (vector-ref sc1 11))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-25 e-24 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 13))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-25 e-24 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 15))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-25 e-24 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 17))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-25 e-24 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-24 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 e-19))) (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 (vector 1 arg-4)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 (vector 0 e-20 e-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 (vector 1 arg-4))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-24 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-24 e-23))))))))))))))))))))))))))))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 24))) (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 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-25)))))))))))))))))))))))))))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((15) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-28) e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((16) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 e-30) e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-33 e-34)) e-20 e-21 e-22 e-23)))))))))))))))))))))))))))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 (vector 1 (vector 0 e-35 e-36)) e-21 e-22 e-23)))))))))))))))))))))))))))))) ((20) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 e-20 (vector 1 (vector 0 e-37 e-38)) e-22 e-23)))))))))))))))))))))))))))))) ((21) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-23 (vector-ref sc1 24))) (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 e-20 e-21 (vector 1 (vector 0 e-39 e-40)) e-23)))))))))))))))))))))))))))))) (else (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (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 e-20 e-21 e-22 (vector 1 (vector 0 e-41 e-42))))))))))))))))))))))))))))))))))))
 (define Package-Idris-addDeps (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-0 eta-0 eta-1))) (let ((sc1 arg-1)) (let ((e-10 (vector-ref sc1 11))) e-10))) ext-0)))))))
-(define Package-Parser-case--2201-319 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Package-Parser-runParser 'erased e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
+(define Package-Parser-case--2284-333 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Package-Parser-runParser 'erased e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
 (define Package-Parser-runParser (lambda (arg-0 arg-1 arg-2) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Package-Lexer-Parser-lex arg-1)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased 0 arg-2 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))
-(define Package-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Package-Parser-runParser 'erased e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
-(define Package-Rule-Parser-case--2302-6053 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2269-6028 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define Package-Rule-Parser-case--2263-6017 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2269-6028 arg-0 e-2 (Common-Lexer-Parser-case--1612-304 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2243-5999 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2223-5981 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2204-5964 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2157-5933 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0)) (else (vector 0 ))))))
-(define Package-Rule-Parser-case--2149-5916 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2157-5933 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String arg-0 e-2)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2131-5897 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2113-5880 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-stringLit (lambda () (vector 1 "Expected string" (lambda (x) (Package-Rule-Parser-case--2204-5964 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-sepC-39 (lambda () (vector 1 "Expected separator" (lambda (x) (Package-Rule-Parser-case--2302-6053 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Package-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Package-Parser-runParser 'erased e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
+(define Package-Rule-Parser-case--2379-6318 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2346-6291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define Package-Rule-Parser-case--2339-6280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2346-6291 arg-0 e-2 (Common-Lexer-Parser-case--1638-313 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2318-6260 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2297-6240 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2277-6221 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2230-6188 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0)) (else (vector 0 ))))))
+(define Package-Rule-Parser-case--2221-6171 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2230-6188 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String arg-0 e-2)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2202-6150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2183-6131 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-stringLit (lambda () (vector 1 "Expected string" (lambda (x) (Package-Rule-Parser-case--2277-6221 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-sepC-39 (lambda () (vector 1 "Expected separator" (lambda (x) (Package-Rule-Parser-case--2379-6318 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Package-Rule-Parser-sep (lambda (arg-0 arg-1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Package-Rule-Parser-sepC-39) arg-1)))
-(define Package-Rule-Parser-packageName (lambda () (vector 1 "Expected package name" (lambda (x) (Package-Rule-Parser-case--2263-6017 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced identifier" (lambda (x) (Package-Rule-Parser-case--2223-5981 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Package-Rule-Parser-case--2243-5999 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-exactProperty (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected property " arg-0) (lambda (x) (Package-Rule-Parser-case--2149-5916 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-equals (lambda () (vector 1 "Expected equals" (lambda (x) (Package-Rule-Parser-case--2113-5880 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-eoi (lambda () (vector 1 "Expected end of input" (lambda (x) (Package-Rule-Parser-case--2131-5897 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Lexer-Parser-case--2300-398 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Package-Lexer-Parser-n--2300-384-useful arg-0 (let ((sc4 eta-0)) (let ((e-4 (vector-ref sc4 3))) e-4)))) e-2) (vector 1 (vector 0 e-6 e-10 (vector 1 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Package-Lexer-Parser-n--2300-384-useful (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) ((5) 1)(else 0)))))
-(define Package-Lexer-Parser-n--2219-289-splitNamespace (lambda (ext-0) (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0)))
+(define Package-Rule-Parser-packageName (lambda () (vector 1 "Expected package name" (lambda (x) (Package-Rule-Parser-case--2339-6280 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced identifier" (lambda (x) (Package-Rule-Parser-case--2297-6240 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Package-Rule-Parser-case--2318-6260 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-exactProperty (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected property " arg-0) (lambda (x) (Package-Rule-Parser-case--2221-6171 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-equals (lambda () (vector 1 "Expected equals" (lambda (x) (Package-Rule-Parser-case--2183-6131 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-eoi (lambda () (vector 1 "Expected end of input" (lambda (x) (Package-Rule-Parser-case--2202-6150 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Lexer-Parser-case--2363-410 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Package-Lexer-Parser-n--2363-396-useful arg-0 (let ((sc4 eta-0)) (let ((e-5 (vector-ref sc4 5))) e-5)))) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 1 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Package-Lexer-Parser-n--2363-396-useful (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) ((5) 1)(else 0)))))
+(define Package-Lexer-Parser-n--2281-300-splitNamespace (lambda (ext-0) (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0)))
 (define Package-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Comment: " e-0))) ((1) "EndOfInput") ((2) "Equals") ((3) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DotSepIdentifier: " (String-Utils-dotSep e-1)))) ((4) "Separator") ((5) "Space") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "StringLit: " e-2)))))))
 (define Package-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Package-Lexer-Parser-show_Show__Token arg-1)))
 (define Package-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x))))))
 (define Package-Lexer-Parser-separator (lambda () (Lexer-Text-is #\,)))
-(define Package-Lexer-Parser-rawTokens (lambda () (vector 1 (vector 0 (Package-Lexer-Parser-equals) (lambda (eta-0) (vector 2 ))) (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 0 (Extra-String-Data-drop (+ 1 (+ 1 0)) eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (vector 3 (Package-Lexer-Parser-n--2219-289-splitNamespace eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (eta-0) (vector 3 (Prelude-pure_Applicative__List 'erased eta-0)))) (vector 1 (vector 0 (Package-Lexer-Parser-separator) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Common-Lexer-Parser-spacesOrNewlines) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (s) (vector 6 (String-Utils-stripQuotes s)))) (vector 0 ))))))))))
-(define Package-Lexer-Parser-lex (lambda (arg-0) (Package-Lexer-Parser-case--2300-398 arg-0 (Core-Lexer-Text-lexTo 'erased (lambda (eta-0) 1) (Package-Lexer-Parser-rawTokens) arg-0))))
+(define Package-Lexer-Parser-rawTokens (lambda () (vector 1 (vector 0 (Package-Lexer-Parser-equals) (lambda (eta-0) (vector 2 ))) (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 0 (Extra-String-Data-drop (+ 1 (+ 1 0)) eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (vector 3 (Package-Lexer-Parser-n--2281-300-splitNamespace eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (eta-0) (vector 3 (Prelude-pure_Applicative__List 'erased eta-0)))) (vector 1 (vector 0 (Package-Lexer-Parser-separator) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Common-Lexer-Parser-spacesOrNewlines) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (s) (vector 6 (String-Utils-stripQuotes s)))) (vector 0 ))))))))))
+(define Package-Lexer-Parser-lex (lambda (arg-0) (Package-Lexer-Parser-case--2363-410 arg-0 (Core-Lexer-Text-lexTo 'erased (lambda (eta-0) 1) (Package-Lexer-Parser-rawTokens) arg-0))))
 (define Package-Lexer-Parser-equals (lambda () (Lexer-Text-is #\=)))
 (define These-Data-these (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))) (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 These-Data-bifold (lambda (arg-0 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 (vector-ref sc1 1))) ((e-1 e-8) e-9))))))))))
-(define StringTrie-Data-n--1768-3165-rec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-maybe 'erased 'erased (lambda () (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-n--1768-3164-end 'erased arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (tm) (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-insertWith 'erased arg-2 arg-4 tm) arg-5))) (StringMap-Data-lookup 'erased arg-1 arg-5))))
-(define StringTrie-Data-n--1768-3164-end (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringTrie-Data-singleton 'erased arg-2 (arg-4 (vector 0 )))))
+(define StringTrie-Data-n--1795-3180-rec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-maybe 'erased 'erased (lambda () (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-n--1795-3179-end 'erased arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (tm) (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-insertWith 'erased arg-2 arg-4 tm) arg-5))) (StringMap-Data-lookup 'erased arg-1 arg-5))))
+(define StringTrie-Data-n--1795-3179-end (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringTrie-Data-singleton 'erased arg-2 (arg-4 (vector 0 )))))
 (define StringTrie-Data-singleton (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-singleton 'erased e-3 arg-2))))))))))
-(define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (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)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1768-3164-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1768-3165-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1768-3165-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3))))))))
+(define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (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)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1795-3179-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1795-3180-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1795-3180-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3))))))))
 (define StringTrie-Data-empty (lambda (arg-0) (vector 1 (StringMap-Data-empty 'erased))))
-(define REPL-IDEMode-Idris-case--18237-9123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))))
-(define REPL-IDEMode-Idris-case--18046-9014 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-n--17883-8816-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((act-25 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 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-8 (vector-ref sc3 1))) (let ((act-26 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))
-(define REPL-IDEMode-Idris-case--17989-8943 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--18046-9014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5))))))))
-(define REPL-IDEMode-Idris-case--17947-8896 (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) (vector 1 (vector 0 )))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--17989-8943 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9))))))))
-(define REPL-IDEMode-Idris-case--17883-8862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-getInput e-2 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 ((act-25 (let ((act-25 (File-System-fEOF e-2 eta-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 ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--17989-8943 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0)))))))))))))))))))))))))
-(define REPL-IDEMode-Idris-case--17894-8824 (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))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-IDEMode-Idris-case--17696-8705 (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 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 )))))))))
-(define REPL-IDEMode-Idris-case--17695-8657 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 ))))))))))))))
-(define REPL-IDEMode-Idris-case--17513-8596 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
-(define REPL-IDEMode-Idris-case--16911-7936 (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define REPL-IDEMode-Idris-case--16843-7861 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pack act-24)))))))))
-(define REPL-IDEMode-Idris-case--16776-7793 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16717-7753 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16708-7727 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-24 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-25 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))))))
-(define REPL-IDEMode-Idris-case--16589-7668 (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))) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8)))))))))
-(define REPL-IDEMode-Idris-case--16539-7613 (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 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-25 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0)))))))))))))))
-(define REPL-IDEMode-Idris-case--16487-7567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))))) (else (lambda (eta-0) (let ((act-24 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--16539-7613 arg-0 arg-1 arg-2 arg-3 arg-4 act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16473-7517 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-25 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--16487-7567 arg-0 arg-1 e-5 osock act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))))
-(define REPL-IDEMode-Idris-case--16408-7469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 "Failed to fdopen socket file descriptor"))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define REPL-IDEMode-Idris-n--17513-8653-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--17513-8651-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--17513-8652-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
-(define REPL-IDEMode-Idris-n--17883-8816-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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 ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (vector 1 (vector 0 ))))))))))))
-(define REPL-IDEMode-Idris-n--17513-8652-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--17696-8705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
-(define REPL-IDEMode-Idris-n--17513-8651-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--17695-8657 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))
-(define REPL-IDEMode-Idris-n--17513-8640-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0))))
+(define REPL-IDEMode-Idris-case--19170-9520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))))
+(define REPL-IDEMode-Idris-case--18974-9406 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-n--18804-9200-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((act-25 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 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-8 (vector-ref sc3 1))) (let ((act-26 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))
+(define REPL-IDEMode-Idris-case--18917-9334 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--18974-9406 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5))))))))
+(define REPL-IDEMode-Idris-case--18870-9287 (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) (vector 1 (vector 0 )))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--18917-9334 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9))))))))
+(define REPL-IDEMode-Idris-case--18804-9248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-getInput e-2 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 ((act-25 (let ((act-25 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--18917-9334 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0)))))))))))))))))))))))))
+(define REPL-IDEMode-Idris-case--18815-9209 (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))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-IDEMode-Idris-case--18617-9089 (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 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 )))))))))
+(define REPL-IDEMode-Idris-case--18616-9041 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 ))))))))))))))
+(define REPL-IDEMode-Idris-case--18434-8980 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
+(define REPL-IDEMode-Idris-case--17805-8294 (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define REPL-IDEMode-Idris-case--17734-8216 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pack act-24)))))))))
+(define REPL-IDEMode-Idris-case--17661-8143 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a line") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17592-8096 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17581-8063 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Alas the file is done, aborting") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-24 ((File-System-fGetChar 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))))))
+(define REPL-IDEMode-Idris-case--17457-8002 (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))) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8)))))))))
+(define REPL-IDEMode-Idris-case--17405-7941 (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 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int arg-0)) eta-0))) (let ((act-25 ((Socket-Network-accept 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0)))))))))))))))
+(define REPL-IDEMode-Idris-case--17344-7893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))))) (else (lambda (eta-0) (let ((act-24 ((Socket-Network-listen 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) ((REPL-IDEMode-Idris-case--17405-7941 arg-0 arg-1 arg-2 arg-3 arg-4 act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17329-7834 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int e-2)) eta-0))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to open socket") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Socket-Network-bind 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5 (vector 1 (vector 2 arg-1)) arg-0) eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17344-7893 arg-0 arg-1 e-5 osock act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))))
+(define REPL-IDEMode-Idris-case--17259-7776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 "Failed to fdopen socket file descriptor"))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define REPL-IDEMode-Idris-n--18434-9037-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--18434-9035-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--18434-9036-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
+(define REPL-IDEMode-Idris-n--18804-9200-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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 ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (vector 1 (vector 0 ))))))))))))
+(define REPL-IDEMode-Idris-n--18434-9036-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18617-9089 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
+(define REPL-IDEMode-Idris-n--18434-9035-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18616-9041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))
+(define REPL-IDEMode-Idris-n--18434-9024-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0))))
 (define REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-implicits") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-0) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-namespace") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-types") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "eval") (vector 1 (REPL-IDEMode-Idris-toSExp_SExpable__REPLEval e-3) (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "editor") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-4) (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "cg") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 0 ))))))))))
 (define REPL-IDEMode-Idris-toSExp_SExpable__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "typecheck")) ((1) (vector 4 "normalise")) (else (vector 4 "execute"))))))
 (define REPL-IDEMode-Idris-todoCmd (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-iputStrLn arg-0 (Strings-Prelude-C-43C-43 arg-1 ": command not yet implemented. Hopefully soon!") ext-0)))
-(define REPL-IDEMode-Idris-socketToFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Prelude-map_Functor__IO 'erased 'erased eta-3 eta-4 eta-5)))))) (lambda (eta-1) eta-1) (lambda (eta-1) (REPL-IDEMode-Idris-prim__fdopen e-0 "r+" eta-1))) eta-0))) (let ((act-25 (File-System-fileError act-24 eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (vector 0 "Failed to fdopen socket file descriptor")) (else (vector 1 act-24)))))))))))
+(define REPL-IDEMode-Idris-socketToFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Prelude-map_Functor__IO 'erased 'erased eta-3 eta-4 eta-5)))))) (lambda (eta-1) eta-1) (lambda (eta-1) (REPL-IDEMode-Idris-prim__fdopen e-0 "r+" eta-1))) eta-0))) (let ((act-25 ((File-System-fileError 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) act-24) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (vector 0 "Failed to fdopen socket file descriptor")) (else (vector 1 act-24)))))))))))
 (define REPL-IDEMode-Idris-returnFromIDE (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "return") (vector 1 arg-2 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 ))))))))
 (define REPL-IDEMode-Idris-replWrap (lambda (arg-0 ext-0) (let ((act-24 (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 0 e-5)))))))))
 (define REPL-IDEMode-Idris-replIDE (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-3 (vector-ref sc1 3))) (let ((act-25 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (Commands-IDEMode-Idris-version 2 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 (REPL-IDEMode-Idris-loop arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))))))))))))))))
-(define REPL-IDEMode-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 ((REPL-IDEMode-Idris-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 (Context-Core-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 (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 ((Error-Idris-perror arg-0 arg-2 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 0 (vector 1 e-13)))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
-(define REPL-IDEMode-Idris-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) (REPL-IDEMode-Idris-replWrap (REPL-Idris-interpret 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 (Package-Idris-findIpkg arg-0 arg-4 (vector 1 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))) (let ((fname (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) e-1) (else (let ((e-3 (vector-ref sc2 1))) e-3)))))) (REPL-IDEMode-Idris-replWrap (lambda (eta-1) (let ((act-25 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 5 fname)) 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 ((e-6 (vector-ref sc2 1))) (SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting arg-3 arg-4 fname e-6 eta-1))))))) eta-0)))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 (vector 0 (REPLOpts-Idris-replFC) (vector 1 e-3)))) eta-0))) (else (let ((e-39 (vector-ref sc1 1))) (let ((sc2 e-39)) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 0 e-42 e-43 (vector 1 e-3)))) eta-0)))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 1 1 e-5 e-6 (vector 1 e-7)))) eta-0)))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 2 1 e-8 (vector 1 e-9)))) eta-0))))) ((5) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "add-missing" 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 (vector 23 (vector 0 (vector 0 ))))))))))) ((6) (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))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 3 1 e-12 (vector 1 e-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-14) e-15))) eta-0))))))) ((7) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 4 1 e-16 (vector 1 e-17)))) eta-0))))) ((8) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 5 1 e-18 (vector 1 e-19)))) eta-0))))) ((9) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 6 1 e-20 (vector 1 e-21)))) eta-0))))) ((10) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 7 1 e-22 (vector 1 e-23)))) eta-0))))) ((11) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "docs-for" 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 (vector 5 (vector 0 )))))))))) ((12) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "apropros" 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 (vector 5 (vector 0 )))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "who-calls" 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 1 (vector 0 ))))))))) ((15) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "calls-who" 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 1 (vector 0 ))))))))) ((16) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "browse-namespace" 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 1 (vector 0 ))))))))) ((17) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "normalise-term" 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 2 e-30))))))))) ((18) (let ((e-31 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "show-term-implicits" 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 2 e-31))))))))) ((19) (let ((e-32 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "hide-term-implicits" 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 2 e-32))))))))) ((20) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "elaborate-term" 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 3 e-33))))))))) ((21) (let ((e-34 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "print-definition" 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 (vector 5 (vector 1 e-34 (vector 0 )))))))))))) ((22) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "repl-completions" 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 1 (vector 0 ))))))))) ((23) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 )) eta-0))) ((13) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 19 )) eta-0))) (else (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 13 )) eta-0)))))))
+(define REPL-IDEMode-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 ((REPL-IDEMode-Idris-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 (Context-Core-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 (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 ((Error-Idris-perror arg-0 arg-2 arg-4 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 0 (vector 1 e-13)))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
+(define REPL-IDEMode-Idris-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) (REPL-IDEMode-Idris-replWrap (REPL-Idris-interpret 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 (Package-Idris-findIpkg arg-0 arg-4 (vector 1 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))) (let ((fname (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) e-1) (else (let ((e-3 (vector-ref sc2 1))) e-3)))))) (REPL-IDEMode-Idris-replWrap (lambda (eta-1) (let ((act-25 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 5 fname)) 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 ((e-6 (vector-ref sc2 1))) (SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting arg-3 arg-4 fname e-6 eta-1))))))) eta-0)))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 (vector 0 (REPLOpts-Idris-replFC) (vector 1 e-3)))) eta-0))) (else (let ((e-39 (vector-ref sc1 1))) (let ((sc2 e-39)) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 0 e-42 e-43 (vector 1 e-3)))) eta-0)))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 1 1 e-5 e-6 (vector 1 e-7)))) eta-0)))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 2 1 e-8 (vector 1 e-9)))) eta-0))))) ((5) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "add-missing" 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 (vector 25 (vector 0 (vector 0 ))))))))))) ((6) (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))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 3 1 e-12 (vector 1 e-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-14) e-15))) eta-0))))))) ((7) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 4 1 e-16 (vector 1 e-17)))) eta-0))))) ((8) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 5 1 e-18 (vector 1 e-19)))) eta-0))))) ((9) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 6 1 e-20 (vector 1 e-21)))) eta-0))))) ((10) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 7 1 e-22 (vector 1 e-23)))) eta-0))))) ((11) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "docs-for" 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 (vector 5 (vector 0 )))))))))) ((12) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "apropros" 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 (vector 5 (vector 0 )))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "who-calls" 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 1 (vector 0 ))))))))) ((15) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "calls-who" 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 1 (vector 0 ))))))))) ((16) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "browse-namespace" 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 1 (vector 0 ))))))))) ((17) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "normalise-term" 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 2 e-30))))))))) ((18) (let ((e-31 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "show-term-implicits" 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 2 e-31))))))))) ((19) (let ((e-32 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "hide-term-implicits" 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 2 e-32))))))))) ((20) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "elaborate-term" 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 3 e-33))))))))) ((21) (let ((e-34 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "print-definition" 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 (vector 5 (vector 1 e-34 (vector 0 )))))))))))) ((22) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "repl-completions" 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 1 (vector 0 ))))))))) ((23) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 22 )) eta-0))) ((13) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 )) eta-0))) (else (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 14 )) eta-0)))))))
 (define REPL-IDEMode-Idris-printIDEResultWithHighlight (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))))
 (define REPL-IDEMode-Idris-printIDEResult (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 0 )))))))
 (define REPL-IDEMode-Idris-printIDEError (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "error") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 0 )))))))
-(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-25 (let ((act-25 (REPL-IDEMode-Idris-getInput e-2 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 ((act-26 (let ((act-26 (File-System-fEOF e-2 ext-0))) (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 ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--17989-8943 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0)))))))))))))))))))))))))))))
-(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-26 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--16487-7567 arg-1 arg-0 e-5 osock act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0))))))))))
+(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-25 (let ((act-25 (REPL-IDEMode-Idris-getInput e-2 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 ((act-26 (let ((act-26 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (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 ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--18917-9334 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0)))))))))))))))))))))))))))))
+(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Socket-Network-socket 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 2 ) (vector 1 ) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int e-2)) ext-0))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to open socket") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Socket-Network-bind 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5 (vector 1 (vector 2 arg-0)) arg-1) ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17344-7893 arg-1 arg-0 e-5 osock act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0))))))))))
 (define REPL-IDEMode-Idris-idePutStrLn (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 ))))))))
-(define REPL-IDEMode-Idris-handleIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((22) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))
+(define REPL-IDEMode-Idris-handleIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((24) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))
 (define REPL-IDEMode-Idris-getNChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getChar arg-0 eta-0))) (let ((act-25 ((REPL-IDEMode-Idris-getNChars arg-0 e-0) eta-0))) (vector 1 act-24 act-25))))))))))
-(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--16843-7861 arg-0 act-24 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-24))) ext-0))))
-(define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-24 (File-System-fGetLine arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((act-25 (PrimIO-putStrLn "Failed to read a line" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))
-(define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-24 (File-System-fEOF arg-0 ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (let ((act-25 (PrimIO-putStrLn "Alas the file is done, aborting" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-25 (File-System-fGetChar arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-26 (PrimIO-putStrLn "Failed to read a character" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))))))
-(define REPL-IDEMode-Idris-displayIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpHole eta-0)) e-20))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--17513-8640-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--17513-8653-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((23) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-28))))) ((1) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-29))) ((2) (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))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-30 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-31) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-32) "\u000a")))) e-33))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Data-Socket-Network-case--1992-7296 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 ))))))
-(define Data-Socket-Network-n--1992-7272-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
-(define Data-Socket-Network-n--1992-7273-toInt (lambda (arg-0 arg-1) (Data-Socket-Network-n--1992-7272-toIntC-39 arg-0 arg-1)))
-(define Data-Socket-Network-n--1992-7274-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--1992-7273-toInt arg-0 eta-0)) (Strings-Data-split (lambda (c) (Prelude-C-61C-61_Eq__Char c #\.)) arg-0))))
+(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--17734-8216 arg-0 act-24 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-24))) ext-0))))
+(define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-24 ((File-System-fGetLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a line") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))))))
+(define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-24 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Alas the file is done, aborting") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-25 ((File-System-fGetChar 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))))))))))
+(define REPL-IDEMode-Idris-displayIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((10) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((13) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((14) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((15) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((16) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((17) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((18) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((19) (let ((e-20 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpHole eta-0)) e-20))))) ((21) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((20) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--18434-9024-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--18434-9037-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((25) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\u000a" e-28))))) ((1) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-29))) ((2) (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))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-30 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-31) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-32) "\u000a")))) e-33))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Data-Socket-Network-case--2088-7607 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 ))))))
+(define Data-Socket-Network-n--2088-7582-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
+(define Data-Socket-Network-n--2088-7583-toInt (lambda (arg-0 arg-1) (Data-Socket-Network-n--2088-7582-toIntC-39 arg-0 arg-1)))
+(define Data-Socket-Network-n--2088-7584-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--2088-7583-toInt arg-0 eta-0)) (Strings-Data-split (lambda (c) (Prelude-C-61C-61_Eq__Char c #\.)) arg-0))))
 (define Data-Socket-Network-toCode_ToCode__SocketType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) (else 3)))))
 (define Data-Socket-Network-toCode_ToCode__SocketFamily (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) (else 10)))))
-(define Data-Socket-Network-show_Show__SocketAddress (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))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Int eta-0)) (vector 1 e-0 (vector 1 e-1 (vector 1 e-2 (vector 1 e-3 (vector 0 ))))))))))))) ((1) "NOT IMPLEMENTED YET") ((2) (let ((e-4 (vector-ref sc0 1))) e-4)) (else "Invalid")))))
+(define Data-Socket-Network-show_Show__SocketAddress (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))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Int eta-0)) (vector 1 e-0 (vector 1 e-1 (vector 1 e-2 (vector 1 e-3 (vector 0 ))))))))))))) ((1) "NOT IMPLEMENTED YET") ((2) (let ((e-4 (vector-ref sc0 1))) e-4)) (else "Invalid")))))
 (define Socket-Data-Socket-Network-socketType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Data-Socket-Network-parseIPv4 (lambda (arg-0) (Data-Socket-Network-case--1992-7296 arg-0 (Data-Socket-Network-n--1992-7274-splitted arg-0))))
-(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-0 (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 0 )) (vector 0 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 1 )) (vector 1 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 2 )) (vector 2 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 3 )) (vector 3 )) (vector 0 ))))))))
-(define Data-Socket-Network-getErrno (lambda (ext-0) (Data-Socket-Network-idrnet_errno ext-0)))
+(define Data-Socket-Network-parseIPv4 (lambda (arg-0) (Data-Socket-Network-case--2088-7607 arg-0 (Data-Socket-Network-n--2088-7584-splitted arg-0))))
+(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-0 (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 0 )) (vector 0 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 1 )) (vector 1 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 2 )) (vector 2 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 3 )) (vector 3 )) (vector 0 ))))))))
+(define Data-Socket-Network-getErrno (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Data-Socket-Network-idrnet_errno eta-0)))))))
 (define Socket-Data-Socket-Network-family (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Socket-Data-Socket-Network-descriptor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Data-Socket-Network-SocketError (lambda () (vector "Int" )))
 (define Data-Socket-Network-BACKLOG (lambda () 20))
-(define Socket-Network-case--2068-7703 (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-25 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-24)))))))))))
-(define Socket-Network-case--2045-7679 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (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))) (lambda (eta-0) (let ((act-24 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-25 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-24))))))))))))))
-(define Socket-Network-case--2010-7639 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) 0))))))
-(define Socket-Network-case--1891-7548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) 0))))))
-(define Socket-Network-case--1809-7462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-3 arg-2 arg-1 arg-0))))))))
-(define Socket-Network-n--1891-7515-saString (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))) (Data-Socket-Network-show_Show__SocketAddress e-1))) (else "")))))
-(define Socket-Network-socket (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (FFI-Network-idrnet_socket (Data-Socket-Network-toCode_ToCode__SocketFamily arg-0) (Data-Socket-Network-toCode_ToCode__SocketType arg-1) arg-2 ext-0))) ((Socket-Network-case--1809-7462 arg-2 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-listen (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-socket_listen (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-BACKLOG) ext-0))) ((Socket-Network-case--2010-7639 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-bind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (FFI-Network-idrnet_bind (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-toCode_ToCode__SocketFamily (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))) (Data-Socket-Network-toCode_ToCode__SocketType (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Socket-Network-n--1891-7515-saString arg-2 arg-1 arg-0 arg-1) arg-2 ext-0))) ((Socket-Network-case--1891-7548 arg-2 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-accept (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-idrnet_create_sockaddr ext-0))) (let ((act-25 (FFI-Network-idrnet_accept (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) act-24 ext-0))) ((Socket-Network-case--2045-7679 arg-0 act-24 act-25 (Prelude-C-61C-61_Eq__Int act-25 (Prelude-negate_Neg__Int 1))) ext-0)))))
-(define Raw-Socket-Network-case--1489-7487 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (FFI-Network-idrnet_sockaddr_ipv4 arg-0 eta-0))) (Data-Socket-Network-parseIPv4 act-24)))) ((3) (lambda (eta-0) (vector 1 ))) ((0) (lambda (eta-0) (vector 3 )))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1489(7487) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1489(7487) at Network/Socket/Raw.idr:63:1--75:1"))))))
-(define Raw-Socket-Network-sockaddr_free (lambda (arg-0 ext-0) (FFI-Network-idrnet_free arg-0 ext-0)))
-(define Raw-Socket-Network-getSockAddr (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-idrnet_sockaddr_family arg-0 ext-0))) ((Raw-Socket-Network-case--1489-7487 arg-0 act-24 (Data-Socket-Network-getSocketFamily act-24)) ext-0))))
-(define SyntaxHighlight-IDEMode-Idris-case--6115-6660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-0)))
-(define SyntaxHighlight-IDEMode-Idris-case--5882-6455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 )))))))
-(define SyntaxHighlight-IDEMode-Idris-case--5796-6350 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
-(define SyntaxHighlight-IDEMode-Idris-n--5851-6390-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 ))))
+(define Socket-Network-case--2256-8186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (Raw-Socket-Network-getSockAddr 'erased arg-1 arg-3)) (lambda (sockaddr) (let ((sc2 (let ((sc3 arg-1)) (let ((e-8 (vector-ref sc3 1))) e-8)))) (let ((e-8 (vector-ref sc2 2))) ((((e-8 'erased) 'erased) (Raw-Socket-Network-sockaddr_free 'erased arg-1 arg-3)) (lambda (_-8213) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-12 (vector-ref sc4 1))) e-12)))) (let ((e-11 (vector-ref sc3 2))) ((e-11 'erased) (vector 1 (vector 0 (vector 0 arg-4 e-1 e-2 e-3) sockaddr)))))))))))))))))))
+(define Socket-Network-case--2220-8143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((((e-1 'erased) 'erased) (lambda (eta-0) (vector 0 eta-0))) (Data-Socket-Network-getErrno 'erased arg-1))))) (else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (Raw-Socket-Network-getSockAddr 'erased arg-1 arg-3)) (lambda (sockaddr) (let ((sc3 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-8 (vector-ref sc3 2))) ((((e-8 'erased) 'erased) (Raw-Socket-Network-sockaddr_free 'erased arg-1 arg-3)) (lambda (_-8213) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-12 (vector-ref sc5 1))) e-12)))) (let ((e-11 (vector-ref sc4 2))) ((e-11 'erased) (vector 1 (vector 0 (vector 0 arg-4 e-1 e-2 e-3) sockaddr))))))))))))))))))))))
+(define Socket-Network-case--2159-8071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Data-Socket-Network-getErrno 'erased arg-1)) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) 0))))))))
+(define Socket-Network-case--1988-7924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Data-Socket-Network-getErrno 'erased arg-1)) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) 0))))))))
+(define Socket-Network-case--1855-7784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((((e-1 'erased) 'erased) (lambda (eta-0) (vector 0 eta-0))) (Data-Socket-Network-getErrno 'erased arg-1))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 arg-5 arg-4 arg-3 arg-2))))))))))
+(define Socket-Network-n--1988-7887-saString (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))) (Data-Socket-Network-show_Show__SocketAddress e-1))) (else "")))))
+(define Socket-Network-socket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_socket (Data-Socket-Network-toCode_ToCode__SocketFamily arg-2) (Data-Socket-Network-toCode_ToCode__SocketType arg-3) arg-4 eta-0)))))) (lambda (socket_res) (Socket-Network-case--1855-7784 'erased arg-1 arg-4 arg-3 arg-2 socket_res (Prelude-C-61C-61_Eq__Int socket_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-listen (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-socket_listen (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (Data-Socket-Network-BACKLOG) eta-0)))))) (lambda (listen_res) (Socket-Network-case--2159-8071 'erased arg-1 arg-2 listen_res (Prelude-C-61C-61_Eq__Int listen_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-bind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_bind (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (Data-Socket-Network-toCode_ToCode__SocketFamily (let ((sc2 arg-2)) (let ((e-8 (vector-ref sc2 2))) e-8))) (Data-Socket-Network-toCode_ToCode__SocketType (let ((sc2 arg-2)) (let ((e-7 (vector-ref sc2 3))) e-7))) (Socket-Network-n--1988-7887-saString 'erased arg-1 arg-4 arg-3 arg-2 arg-3) arg-4 eta-0)))))) (lambda (bind_res) (Socket-Network-case--1988-7924 'erased arg-1 arg-4 arg-3 arg-2 bind_res (Prelude-C-61C-61_Eq__Int bind_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-accept (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_create_sockaddr eta-0)))))) (lambda (sockaddr_ptr) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (FFI-Network-idrnet_accept (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) sockaddr_ptr eta-0)))))) (lambda (accept_res) (Socket-Network-case--2220-8143 'erased arg-1 arg-2 sockaddr_ptr accept_res (Prelude-C-61C-61_Eq__Int accept_res (Prelude-negate_Neg__Int 1)))))))))))))
+(define Raw-Socket-Network-case--1558-7869 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((sc2 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 1))) e-3)))) (let ((e-2 (vector-ref sc2 2))) ((((e-2 'erased) 'erased) (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 2))) ((e-5 'erased) (lambda (eta-0) (FFI-Network-idrnet_sockaddr_ipv4 arg-2 eta-0)))))) (lambda (ipv4_addr) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (Data-Socket-Network-parseIPv4 ipv4_addr))))))))) ((3) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 1))) e-3)))) (let ((e-4 (vector-ref sc3 1))) e-4)))) (let ((e-2 (vector-ref sc2 2))) ((e-2 'erased) (vector 1 ))))) ((0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 1))) e-3)))) (let ((e-4 (vector-ref sc3 1))) e-4)))) (let ((e-2 (vector-ref sc2 2))) ((e-2 'erased) (vector 3 )))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1558(7869) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1558(7869) at Network/Socket/Raw.idr:63:1--75:1"))))))
+(define Raw-Socket-Network-sockaddr_free (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (FFI-Network-idrnet_free arg-2 eta-0)))))))
+(define Raw-Socket-Network-getSockAddr (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_sockaddr_family arg-2 eta-0)))))) (lambda (addr_family_int) (Raw-Socket-Network-case--1558-7869 'erased arg-1 arg-2 addr_family_int (Data-Socket-Network-getSocketFamily addr_family_int))))))))
+(define SyntaxHighlight-IDEMode-Idris-case--6302-6915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-0)))
+(define SyntaxHighlight-IDEMode-Idris-case--6069-6708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 )))))))
+(define SyntaxHighlight-IDEMode-Idris-case--5982-6603 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
+(define SyntaxHighlight-IDEMode-Idris-n--6038-6643-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 ))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight (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))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC e-0) (vector 1 (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "name") (vector 1 (vector 1 (Name-Core-show_Show__Name e-1)) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "namespace") (vector 1 (vector 1 e-7) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "decor") (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration e-4) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "implicit") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "key") (vector 1 (vector 1 e-3) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "doc-overview") (vector 1 (vector 1 e-5) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "type") (vector 1 (vector 1 e-6) (vector 0 )))) (vector 0 ))))))))) (vector 0 )))))))))))))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "filename") (vector 1 (vector 1 e-0) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "start") (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-5) 1)) (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-6) 1)) (vector 0 ))))) (vector 1 (vector 0 (vector 1 (vector 4 "end") (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-9) 1)) (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-10) 1)) (vector 0 ))))) (vector 0 ))))))))))))))) (else (vector 0 (vector 0 )))))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "type")) ((1) (vector 4 "function")) ((2) (vector 4 "data")) ((3) (vector 4 "keyword")) (else (vector 4 "bound"))))))
 (define SyntaxHighlight-IDEMode-Idris-__Impl_SExpable_Highlight (lambda (ext-0) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight ext-0)))
-(define SyntaxHighlight-IDEMode-Idris-printOutput (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))) ((SyntaxHighlight-IDEMode-Idris-case--5796-6350 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define SyntaxHighlight-IDEMode-Idris-printOutput (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))) ((SyntaxHighlight-IDEMode-Idris-case--5982-6603 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 (List-Data-filter 'erased (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-inFile arg-2 eta-1)) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) (lambda (eta-0) (let ((act-24 (unbox arg-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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (SyntaxHighlight-IDEMode-Idris-outputNameSyntax arg-1 eta-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 (vector 1 arg-3))))))))))))
 (define SyntaxHighlight-IDEMode-Idris-outputNameSyntax (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((dec (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) (let ((hilite (Prelude-map_Functor__Maybe 'erased 'erased (lambda (d) (vector 0 e-2 e-6 1 "" d "" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-11) "")) dec))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-outputHighlight arg-0 eta-0 eta-1)))) hilite)))))))))))))
-(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-9039) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-9039)) (SyntaxHighlight-IDEMode-Idris-n--5851-6390-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0)))
+(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-2897) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-2897)) (SyntaxHighlight-IDEMode-Idris-n--6038-6643-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0)))
 (define SyntaxHighlight-IDEMode-Idris-inFile (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-4 arg-0))) (else 1)))))))
-(define Parser-IDEMode-Idris-case--2989-353 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--2989-329-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Parser-IDEMode-Idris-case--2991-334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Parser-IDEMode-Idris-n--2989-329-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--2991-334 arg-0 arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define Parser-IDEMode-Idris-case--3125-362 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--3125-338-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Parser-IDEMode-Idris-case--3127-343 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
+(define Parser-IDEMode-Idris-n--3125-338-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--3127-343 arg-0 arg-1 (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
 (define Parser-IDEMode-Idris-symbols (lambda () (vector 1 "(" (vector 1 ":" (vector 1 ")" (vector 0 ))))))
-(define Parser-IDEMode-Idris-sexp (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-499) (vector 7 1 (Source-Rule-Parser-exactIdent "True") (lambda () (lambda (_-510) (vector 0 (vector 2 0)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-487) (vector 7 1 (Source-Rule-Parser-exactIdent "False") (lambda () (lambda (_-523) (vector 0 (vector 2 1)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (vector 3 i))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-strLit) (lambda () (lambda (str) (vector 0 (vector 1 str))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-455) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 0 (vector 4 x)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-431) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp)) (lambda (xs) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-555) (vector 0 (vector 0 xs))))))))))))))))))))))
-(define Parser-IDEMode-Idris-parseSExp (lambda (arg-0) (Parser-IDEMode-Idris-ideParser 'erased 0 arg-0 (vector 7 1 (Parser-IDEMode-Idris-sexp) (lambda () (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-622) (vector 0 c)))))))))
-(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--2989-353 arg-0 (Core-Lexer-Text-lex 'erased (Parser-IDEMode-Idris-ideTokens) arg-0))))
+(define Parser-IDEMode-Idris-sexp (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-515) (vector 7 1 (Source-Rule-Parser-exactIdent "True") (lambda () (lambda (_-527) (vector 0 (vector 2 0)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-502) (vector 7 1 (Source-Rule-Parser-exactIdent "False") (lambda () (lambda (_-541) (vector 0 (vector 2 1)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (vector 3 i))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-strLit) (lambda () (lambda (str) (vector 0 (vector 1 str))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-467) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 0 (vector 4 x)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-441) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp)) (lambda (xs) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-576) (vector 0 (vector 0 xs))))))))))))))))))))))
+(define Parser-IDEMode-Idris-parseSExp (lambda (arg-0) (Parser-IDEMode-Idris-ideParser 'erased 0 arg-0 (vector 7 1 (Parser-IDEMode-Idris-sexp) (lambda () (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-646) (vector 0 c)))))))))
+(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--3125-362 arg-0 (Core-Lexer-Text-lex 'erased (Parser-IDEMode-Idris-ideTokens) arg-0))))
 (define Parser-IDEMode-Idris-ideTokens (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Parser-IDEMode-Idris-symbols)) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (x) (vector 5 x))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 0 ))))))))
 (define Parser-IDEMode-Idris-ideParser (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Parser-IDEMode-Idris-idelex arg-2)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-3 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))
-(void (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-main eta-0))))
+(void (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-Idris-main eta-0))))
 ) (collect-garbage)
diff --git a/bootstrap/idris2_app/idris2.ss b/bootstrap/idris2_app/idris2.ss
index 0bba4c5a6..218ac53d6 100755
--- a/bootstrap/idris2_app/idris2.ss
+++ b/bootstrap/idris2_app/idris2.ss
@@ -193,7 +193,10 @@
 
 (define (blodwen-condition) (make-condition))
 (define (blodwen-condition-wait c m) (condition-wait c m))
-(define (blodwen-condition-wait-timeout c m t) (condition-wait c m t))
+(define (blodwen-condition-wait-timeout c m t)
+  (let ((sec (div t 1000000))
+        (micro (mod t 1000000)))
+  (condition-wait c m (make-time 'time-duration (* 1000 micro) sec))))
 (define (blodwen-condition-signal c) (condition-signal c))
 (define (blodwen-condition-broadcast c) (condition-broadcast c))
 
@@ -271,10 +274,10 @@
 (define System-prim_getEnv (lambda (farg-0 farg-1) ((foreign-procedure #f "getenv" (string) void*) farg-0)))
 (define System-prim_exit (lambda (farg-0 farg-1) ((foreign-procedure #f "exit" (int) void) farg-0) (vector 0 )))
 (define System-prim__getArgs (lambda (farg-0) (blodwen-args )))
-(define PrimIO-prim__putStr (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_putStr" (string) void) farg-0) (vector 0 )))
+(define Prelude-prim__putStr (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_putStr" (string) void) farg-0) (vector 0 )))
+(define Prelude-prim__getString (lambda (farg-0) ((foreign-procedure #f "idris2_getString" (void*) string) farg-0)))
+(define Prelude-prim__getStr (lambda (farg-0) ((foreign-procedure #f "idris2_getStr" () string) )))
 (define PrimIO-prim__nullAnyPtr (lambda (farg-0) ((foreign-procedure #f "idris2_isNull" (void*) int) farg-0)))
-(define PrimIO-prim__getString (lambda (farg-0) ((foreign-procedure #f "idris2_getString" (void*) string) farg-0)))
-(define PrimIO-prim__getStr (lambda (farg-0) ((foreign-procedure #f "idris2_getStr" () string) )))
 (define File-System-prim_fileErrno (lambda (farg-0) ((foreign-procedure #f "idris2_fileErrno" () int) )))
 (define File-System-prim_error (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_fileError" (void*) int) farg-0)))
 (define File-System-prim__writeLine (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "idris2_writeLine" (void* string) int) farg-0 farg-1)))
@@ -311,7 +314,6 @@
 (define Buffer-Data-prim__getByte (lambda (farg-0 farg-1 farg-2) (blodwen-buffer-getbyte farg-0 farg-1)))
 (define Buffer-Data-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 Buffer-Data-prim__bufferSize (lambda (farg-0) (blodwen-buffer-size farg-0)))
-(define Commands-IDEMode-Idris-prim__printfHex (lambda (farg-0 farg-1 farg-2 farg-3) ((foreign-procedure #f "fprintf" (void* string int) void) farg-0 farg-1 farg-2) (vector 0 )))
 (define REPL-IDEMode-Idris-prim__fdopen (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "fdopen" (int string) void*) farg-0 farg-1)))
 (define Data-Socket-Network-idrnet_errno (lambda (farg-0) ((foreign-procedure #f "idrnet_errno" () int) )))
 (define FFI-Network-socket_listen (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "listen" (int int) int) farg-0 farg-1)))
@@ -408,69 +410,73 @@
 (define prim__cast_IntDouble (lambda (arg-0) (exact->inexact arg-0)))
 (define prim__cast_IntegerDouble (lambda (arg-0) (exact->inexact arg-0)))
 (define prim__cast_IntChar (lambda (arg-0) (cast-int-char arg-0)))
-(define Main-case--13577-9572 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
-(define Main-case--13567-9560 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0)))))))))
-(define Main-case--12227-9325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 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))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0))))))))
-(define Main-case--12451-9192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Main-case--12764-8921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn e-2 eta-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 ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))
-(define Main-case--12616-8852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 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) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (PrimIO-putStrLn e-4 eta-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 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))))))))))
-(define Main-case--12532-8729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-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 (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--12616-8852 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (CommandLine-Idris-ideSocketModeHostPort arg-0)))))))
-(define Main-case--12451-8671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Main-case--12532-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-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 (Context-Core-showTimeRecord arg-4 eta-0)))))))))))
-(define Main-case--12227-8616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((doRepl 0)) (Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord 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 ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0))))))))))))))))))
-(define Main-case--12227-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (vector 1 arg-13)))))))
-(define Main-case--12135-8425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (Main-updateREPLOpts arg-14 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 (Context-Core-getSession arg-4 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 ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 0)) ((Main-case--12227-8516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) 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 (REPLOpts-Idris-setMainFile arg-14 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 e-10)) (case (vector-ref sc8 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc9 (Prelude-not (let ((sc10 e-8)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc8 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-31 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 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))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-12) eta-1))))))) 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 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 0)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-33 (let ((act-33 (unbox arg-14))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Context-Core-showTimeRecord arg-4 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 ((e-15 (vector-ref sc12 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 doRepl e-14 e-15 (let ((sc13 e-14)) (let ((e-17 (vector-ref sc13 6))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--12011-8348 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 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 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-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 ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (vector 1 (vector 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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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))) (let ((act-28 (Main-updateREPLOpts arg-14 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-9 (vector-ref sc7 1))) (let ((act-29 (Context-Core-getSession arg-4 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-10 (vector-ref sc8 1))) (let ((act-30 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (vector 1 (vector 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-11 (vector-ref sc9 1))) (let ((act-31 (let ((_-0 0)) ((Main-case--12227-8516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) 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 ((e-12 (vector-ref sc10 1))) (let ((act-32 (REPLOpts-Idris-setMainFile arg-14 e-12 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-13 (vector-ref sc11 1))) (let ((act-33 (let ((sc12 e-12)) (case (vector-ref sc12 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc13 (Prelude-not (let ((sc14 e-10)) (let ((e-0 (vector-ref sc14 1))) e-0))))) (cond ((equal? sc13 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc12 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc13 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-14) eta-1))))))) eta-0))))))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-0 0)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-35 (let ((act-35 (unbox arg-14))) (vector 1 act-35)))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 doRepl e-16 e-17 (let ((sc17 e-16)) (let ((e-19 (vector-ref sc17 6))) e-19))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Main-case--12011-8279 (lambda (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)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1))))))
-(define Main-case--12002-8230 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((InitPrimitives-Core-addPrimitives 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 ((act-29 (Context-Core-setWorkingDir e-6 "." 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 (Main-updateEnv e-6 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) 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 ((Main-showInfo e-6 e-12 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Main-updateREPLOpts e-12 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 ((act-38 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((_-1 0)) ((Main-case--12227-8516 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (REPLOpts-Idris-setMainFile e-12 e-21 eta-0))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (let ((sc22 e-21)) (case (vector-ref sc22 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc23 (Prelude-not (let ((sc24 e-19)) (let ((e-0 (vector-ref sc24 1))) e-0))))) (cond ((equal? sc23 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc22 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-42 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-3 (vector-ref sc23 1))) (vector 0 e-3))) (else (let ((e-23 (vector-ref sc23 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-23) eta-1))))))) eta-0))))))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((_-1 0)) (let ((sc24 e-24)) (cond ((equal? sc24 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-44 (let ((act-44 (unbox e-12))) (vector 1 act-44)))) (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 (Context-Core-showTimeRecord e-6 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 ((e-26 (vector-ref sc26 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc27 e-25)) (let ((e-28 (vector-ref sc27 6))) e-28))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11996-8222 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Main-tryTTM 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 ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs 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 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-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 ((act-30 (Context-Core-setWorkingDir e-7 "." 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))) (let ((act-31 (Main-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-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 ((act-33 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Context-Core-getSession e-7 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 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (vector 1 (vector 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 (let ((_-2 0)) ((Main-case--12227-8516 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) 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 ((e-22 (vector-ref sc22 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-13 e-22 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 e-22)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-20)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc25 act-43)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-24) eta-1))))))) eta-0))))))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) 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 ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-13))) (vector 1 act-45)))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-46 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11850-8107 (lambda (arg-0 arg-1 arg-2 arg-3) (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-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6))))))))))
-(define Main-case--11833-8084 (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 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-8057 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0)))))))
-(define Main-case--11377-8022 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7979 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7928 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11552-7846 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-9))) eta-0)))))))
-(define Main-case--11377-7822 (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))) (let ((cg (vector 1 e-1))) (Main-case--11552-7846 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 cg (Options-Core-getCG e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Main-case--11377-7747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Main-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 (System-getEnv "EDITOR" 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-9 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-8 e-7))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Main-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (System-getEnv "IDRIS2_PREFIX" 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 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) 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 (System-getEnv "IDRIS2_PATH" 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 ((act-27 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (System-getEnv "IDRIS2_DATA" 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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (let ((act-30 (System-getEnv "IDRIS2_LIBS" ext-0))) (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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 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 (let ((act-32 (System-getEnv "IDRIS2_CG" ext-0))) (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 (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((cg (vector 1 e-1))) ((Main-case--11552-7846 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-1 cg (Options-Core-getCG e-1)) ext-0)))) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (SetOptions-Idris-addPkgDir arg-0 "prelude" 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 (SetOptions-Idris-addPkgDir arg-0 "base" 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 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc13 (let ((sc14 (let ((sc15 e-15)) (let ((e-4 (vector-ref sc15 5))) e-4)))) (let ((e-0 (vector-ref sc14 1))) e-0)))) (let ((e-4 (vector-ref sc13 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) 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 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-15)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) 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 (let ((act-39 (Directory-System-currentDir ext-0))) (vector 1 act-39)))) (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 ((sc16 e-20)) (case (vector-ref sc16 0) ((1) (let ((e-1 (vector-ref sc16 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Main-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 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 (vector 1 0))))))))(else (Main-tryYaffle e-3)))))))))))
-(define Main-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-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 (Main-tryTTM e-3)))))))))))
-(define Main-stMain (lambda (arg-0 ext-0) (let ((act-24 ((Main-tryYaffle 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 1) (let ((act-25 ((Main-tryTTM 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 ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-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 ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) 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-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-30 ((InitPrimitives-Core-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-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 ((e-12 (vector-ref sc9 1))) (let ((act-32 (Main-updateEnv 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) 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 ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Main-showInfo e-8 e-14 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 ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Main-updateREPLOpts e-14 ext-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 (Context-Core-getSession e-8 ext-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 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Main-case--12227-8516 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-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 (REPLOpts-Idris-setMainFile e-14 e-23 ext-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-44 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-25) eta-0))))))) ext-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 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Main-case--12451-8671 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-46 (let ((act-46 (unbox e-14))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Main-case--12451-9192 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-30 (vector-ref sc30 6))) e-30))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))
-(define Main-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((27) (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 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (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 (vector 1 0))))))))))))(else (Main-showInfo arg-0 arg-1 e-3)))))))))))
-(define Main-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (CommandLine-Idris-versionMsg) eta-0))) 1))) ((7) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))) 1))) ((5) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (IdrisPaths-yprefix) eta-0))) 1)))(else (Main-quitOpts e-3)))))))))))
-(define Main-main (lambda (ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Main-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Main-stMain e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (PrimIO-putStrLn e-5 ext-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) ext-0)))))))))
-(define Main-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((14) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Main-findInput e-3)))))))))))
-(define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3)))))))))))
-(define Main-banner (lambda () (Strings-Prelude-C-43C-43 "     ____    __     _         ___                                           \xa;" (Strings-Prelude-C-43C-43 "    /  _/___/ /____(_)____   |__ \\                                          \xa;" (Strings-Prelude-C-43C-43 "    / // __  / ___/ / ___/   __/ /     Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "  _/ // /_/ / /  / (__  )   / __/      https://www.idris-lang.org           \xa;" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/  /_/____/   /____/      Type :? for help                     \xa;" (Strings-Prelude-C-43C-43 "\xa;" "Welcome to Idris 2.  Enjoy yourself!"))))))))))
-(define Main-Yaffle-case--9983-7486 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTC" eta-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 ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 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 ((act-26 (PrimIO-putStrLn "Read TTC" eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTImp" 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 ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-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 ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-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 ((act-27 (Directory-Core-makeBuildDirectory arg-3 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 (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((act-29 (PrimIO-putStrLn "Written TTC" eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Processing as TTImp" 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 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 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) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-3 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 ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 (PrimIO-putStrLn "Written TTC" eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))
+(define Main-Idris-main (lambda (ext-0) (Driver-Idris-mainWithCodegens (vector 0 ) ext-0)))
+(define Driver-Idris-case--15257-10523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
+(define Driver-Idris-case--15246-10509 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0)))))))))
+(define Driver-Idris-case--13293-10407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 arg-5 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)))))))))))))))))))))))))))))
+(define Driver-Idris-case--13590-10201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 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))) ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))))))) eta-0))))))))
+(define Driver-Idris-case--13955-10054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Driver-Idris-case--14302-9749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))))))))
+(define Driver-Idris-case--14138-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 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) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-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 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))))))))))))))))
+(define Driver-Idris-case--14045-9537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-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 (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--14138-9673 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (CommandLine-Idris-ideSocketModeAddress arg-0)))))))
+(define Driver-Idris-case--13955-9473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Driver-Idris-case--14045-9537 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 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 (Context-Core-showTimeRecord arg-6 eta-0)))))))))))
+(define Driver-Idris-case--13590-9412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (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 (Context-Core-showTimeRecord 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 ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 6))) e-10))) eta-0))))))))))))))))))
+(define Driver-Idris-case--13590-9300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15)))))))
+(define Driver-Idris-case--13590-9240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 e-2 " ")))))
+(define Driver-Idris-case--13486-9110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 (Driver-Idris-updateREPLOpts arg-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-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 ((act-29 (let ((sc6 (Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-2 (vector-ref sc9 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 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 ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) 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 (REPLOpts-Idris-setMainFile arg-16 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc10 (Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 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 ((e-13 (vector-ref sc10 1))) ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))))))) 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 arg-0) 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 ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (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 (Context-Core-showTimeRecord arg-6 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 ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-20 (vector-ref sc14 6))) e-20))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13293-9023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackageOpts arg-6 arg-7 arg-16 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 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-25 ((SetOptions-Idris-preOptions arg-6 arg-16 arg-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 ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (let ((sc5 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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-9 (vector-ref sc7 1))) (let ((act-29 (Driver-Idris-updateREPLOpts arg-16 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-10 (vector-ref sc8 1))) (let ((act-30 (Context-Core-getSession arg-6 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-11 (vector-ref sc9 1))) (let ((act-31 (let ((sc10 (Prelude-not (let ((sc11 e-11)) (let ((e-1 (vector-ref sc11 2))) e-1))))) (cond ((equal? sc10 0) (let ((act-31 (REPLCommon-Idris-iputStrLn arg-16 (Driver-Idris-banner) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((sc12 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc12 0) (REPLCommon-Idris-iputStrLn arg-16 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc13 lamc-0)) (let ((e-2 (vector-ref sc13 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (let ((_-0 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 (let ((sc11 e-11)) (let ((e-2 (vector-ref sc11 3))) e-2))) 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-13 (vector-ref sc11 1))) (let ((act-33 (REPLOpts-Idris-setMainFile arg-16 e-13 eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (let ((sc13 e-13)) (case (vector-ref sc13 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "Loading prelude") (let ((sc14 (Prelude-not (let ((sc15 e-11)) (let ((e-0 (vector-ref sc15 1))) e-0))))) (cond ((equal? sc14 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-6 e-8 arg-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc13 1))) (Context-Core-logTime 'erased arg-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-34 (REPL-Idris-loadMainFile arg-6 e-8 arg-7 e-9 arg-16 e-2 eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc14 1))) ((REPL-Idris-displayErrors arg-6 e-8 arg-7 e-9 arg-16 e-15) eta-1))))))) eta-0))))))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((SetOptions-Idris-postOptions arg-6 e-8 arg-7 e-9 arg-16 arg-0) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((_-0 0)) (let ((sc15 e-16)) (cond ((equal? sc15 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl (Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-36 (let ((act-36 (unbox arg-16))) (vector 1 act-36)))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Context-Core-showTimeRecord arg-6 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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 doRepl e-17 e-18 (let ((sc18 e-17)) (let ((e-22 (vector-ref sc18 6))) e-22))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Driver-Idris-case--13293-8945 (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1))))))
+(define Driver-Idris-case--13293-8866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) arg-5)))))
+(define Driver-Idris-case--13280-8844 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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 (Context-Core-setCG e-6 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased 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 ((InitPrimitives-Core-addPrimitives 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 ((act-29 (Context-Core-setWorkingDir e-6 "." 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 (Driver-Idris-updateEnv e-6 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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) 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 ((Driver-Idris-showInfo e-6 e-12 arg-0) 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 ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (vector 1 (vector 0 ))) (else (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Driver-Idris-banner) 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 ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc23 lamc-0)) (let ((e-2 (vector-ref sc23 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc24 (Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-31 (vector-ref sc28 6))) e-31))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13272-8833 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM 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 ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs 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 ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (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-27 (vector-ref sc4 6))) (let ((e-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) 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))) (let ((act-28 (Context-Core-setCG e-7 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 3 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) 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 ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-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 ((act-30 (Context-Core-setWorkingDir e-7 "." 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))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (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 ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-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 ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (vector 1 (vector 0 ))) (else (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 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 (Context-Core-getSession e-7 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 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Driver-Idris-banner) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc25 lamc-0)) (let ((e-2 (vector-ref sc25 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) 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 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "Loading prelude") (let ((sc26 (Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))))))) 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 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 arg-0) 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 ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-32 (vector-ref sc30 6))) e-32))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--13120-8712 (lambda (arg-0 arg-1 arg-2 arg-3) (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-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 arg-2 e-5 e-6 e-7 e-8))))))))))))
+(define Driver-Idris-case--13098-8687 (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 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (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))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-5 e-6 e-7 e-8))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8651 (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) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0)))))))
+(define Driver-Idris-case--12561-8611 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8563 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8507 (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))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12783-8419 (lambda (arg-0 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) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-10))) eta-0)))))))
+(define Driver-Idris-case--12561-8392 (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-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--12783-8419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Driver-Idris-case--12561-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Driver-Idris-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 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "EDITOR") 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-11 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 6))) (let ((e-9 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-11 e-2 e-3 e-1 e-10 e-9 e-7 e-8))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 )))))))))))))))))
+(define Driver-Idris-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 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PREFIX") 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))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_PATH") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_DATA") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_LIBS") 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-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 ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "IDRIS2_CG") 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))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--12783-8419 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) 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 (unbox arg-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 (SetOptions-Idris-addPkgDir arg-0 "prelude" 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 (SetOptions-Idris-addPkgDir arg-0 "base" 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 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) 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 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) 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 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-40 (arg-3664 eta-0))) ((arg-3665 act-40) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (vector 1 act-40)))) (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 ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Driver-Idris-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((20) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 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 (vector 1 0))))))))(else (Driver-Idris-tryYaffle e-3)))))))))))
+(define Driver-Idris-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((21) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-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 (Driver-Idris-tryTTM e-3)))))))))))
+(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-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 ((Driver-Idris-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 (Context-Core-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 ((updated (Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 3 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (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-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 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))))))))))))))))))))))))))) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-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 (Context-Core-setCG e-8 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 3 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased 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 ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-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 ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv 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 ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) 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 ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) 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 ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (vector 1 (vector 0 ))) (else (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-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 (Driver-Idris-updateREPLOpts e-14 ext-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 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Driver-Idris-banner) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Strings-Prelude-C-43C-43 "With codegen for: " (Strings-Data-fastAppend (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc26 lamc-0)) (let ((e-2 (vector-ref sc26 1))) (Strings-Prelude-C-43C-43 e-2 " ")))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 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 ((_-2 0)) ((Driver-Idris-case--13590-9300 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-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 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc27 (Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 arg-1) ext-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 ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--13955-9473 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (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 ((doRepl 1)) ((Driver-Idris-case--13955-10054 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-33 (vector-ref sc31 6))) e-33))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))
+(define Driver-Idris-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((30) (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 (REPLCommon-Idris-iputStrLn arg-1 (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (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 (vector 1 0))))))))))))(else (Driver-Idris-showInfo arg-0 arg-1 e-3)))))))))))
+(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((10) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) eta-0))) 1))) ((8) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3)))))))))))
+(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0)) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) ext-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (CommandLine-Idris-usage)) ext-0)))))))))
+(define Driver-Idris-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((17) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Driver-Idris-findInput e-3)))))))))))
+(define Driver-Idris-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((13) 0)(else (Driver-Idris-checkVerbose e-3)))))))))))
+(define Driver-Idris-banner (lambda () (Strings-Prelude-C-43C-43 "     ____    __     _         ___                                           \xa;" (Strings-Prelude-C-43C-43 "    /  _/___/ /____(_)____   |__ \\                                          \xa;" (Strings-Prelude-C-43C-43 "    / // __  / ___/ / ___/   __/ /     Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "  _/ // /_/ / /  / (__  )   / __/      https://www.idris-lang.org           \xa;" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/  /_/____/   /____/      Type :? for help                     \xa;" (Strings-Prelude-C-43C-43 "\xa;" "Welcome to Idris 2.  Enjoy yourself!"))))))))))
+(define Main-Yaffle-case--10406-7980 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTC") eta-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 ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 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 ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") 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 ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-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 ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-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 ((act-27 (Directory-Core-makeBuildDirectory arg-3 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 (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Processing as TTImp") 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 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 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) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-3 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 ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" 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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))
 (define Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 ))))
 (define Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 ))))
-(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-11959 arg-11960 eta-0)))))))
-(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (Core-Core-newRef 'erased 'erased (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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-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 (Context-Core-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 ((Main-Yaffle-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 (Context-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-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 ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--9983-7486 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-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 (REPL-Yaffle-repl e-6 e-7 e-8 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5888 arg-5889 eta-0)))))))
+(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (Core-Core-newRef 'erased 'erased (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 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-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 (Context-Core-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 ((Main-Yaffle-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 (Context-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-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 ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--10406-7980 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-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 (REPL-Yaffle-repl e-6 e-7 e-8 ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))
 (define Main-Yaffle-usage (lambda () "Usage: yaffle <input file> [--timing]"))
-(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24))))))))
-(define System-case--1782-7109 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector 1 (PrimIO-prim__getString arg-1))))))))
-(define System-system (lambda (arg-0 ext-0) (System-prim_system arg-0 ext-0)))
-(define System-getEnv (lambda (arg-0 ext-0) (let ((act-24 (System-prim_getEnv arg-0 ext-0))) ((System-case--1782-7109 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define System-getArgs (lambda (ext-0) (System-prim__getArgs ext-0)))
-(define System-exitWith (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0)))) (else (let ((e-0 (vector-ref sc0 1))) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0)))))))))
-(define Strings-Data-with--2010-6280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2012-6310 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2012-6310 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9)))))))))))))))
-(define Strings-Data-case--2012-6310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 ))))))
-(define Strings-Data-case--1953-6245 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 ))))))
-(define Strings-Data-case--1866-6140 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3)))))))
-(define Strings-Data-case--1824-6095 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1822-6085-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define Strings-Data-case--1755-6033 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3)))))))
-(define Strings-Data-case--1747-6019 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4)))))))))))
-(define Strings-Data-case--1686-5959 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3)))))))
-(define Strings-Data-case--1681-5946 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1686-5959 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
-(define Strings-Data-n--1668-5930-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1668-5930-toFArgs arg-0 e-3)))))))))
-(define Strings-Data-n--2003-6278-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2010-6280 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
-(define Strings-Data-n--1822-6085-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1824-6095 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
-(define Strings-Data-n--1721-5981-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\  arg-2))))
-(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1681-5946 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0))))
+(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24))))))))
+(define System-case--1881-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-3))))))))))
+(define System-system (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim_system arg-2 eta-0)))))))
+(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim_getEnv arg-2 eta-0)))))) (lambda (env) (System-case--1881-7409 'erased arg-1 arg-2 env (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0))))))))
+(define System-getArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim__getArgs eta-0)))))))
+(define System-exitWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0))))))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0))))))))))))
+(define Strings-Data-with--2055-6529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 3))) (lambda (arg-5) (e-3 arg-5)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack e-1) 0)))(else (Strings-Data-case--2057-6559 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-0 #\9)))))))))))))))
+(define Strings-Data-case--2057-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-4) (Prelude-ord #\0)))))) (else (vector 0 ))))))
+(define Strings-Data-case--1998-6494 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int (Prelude-ord arg-0) (Prelude-ord #\0)))))) (else (vector 0 ))))))
+(define Strings-Data-case--1911-6389 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-pack e-2) (Prelude-pack e-3)))))))
+(define Strings-Data-case--1869-6344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1867-6334-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define Strings-Data-case--1800-6282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (Strings-Data-linesC-39 e-3)))))))
+(define Strings-Data-case--1792-6268 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc1 2))) (Strings-Data-linesC-39 e-4)))))))))))
+(define Strings-Data-case--1731-6208 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Strings-Data-wordsC-39 e-3)))))))
+(define Strings-Data-case--1726-6195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1731-6208 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
+(define Strings-Data-n--1713-6179-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "String" ) e-2 (Strings-Data-n--1713-6179-toFArgs arg-0 e-3)))))))))
+(define Strings-Data-n--2048-6527-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2055-6529 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
+(define Strings-Data-n--1867-6334-ltrimChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1869-6344 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
+(define Strings-Data-n--1766-6230-addSpace (lambda (arg-0 arg-1 arg-2) (List-Prelude-C-43C-43 'erased arg-1 (vector 1 #\  arg-2))))
+(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--1726-6195 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-0))))
 (define Strings-Data-words (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-wordsC-39 (Prelude-unpack arg-0)))))
-(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1721-5981-addSpace arg-0 eta-0 eta-1))) arg-0))))))
+(define Strings-Data-unwordsC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-foldr1 'erased (lambda (eta-0) (lambda (eta-1) (Strings-Data-n--1766-6230-addSpace arg-0 eta-0 eta-1))) arg-0))))))
 (define Strings-Data-unwords (lambda (ext-0) (Prelude-pack (Strings-Data-unwordsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0)))))
 (define Strings-Data-unlinesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased e-2 (vector 1 (integer->char 10) (Strings-Data-unlinesC-39 e-3))))))))))
 (define Strings-Data-unlines (lambda (ext-0) (Prelude-pack (Strings-Data-unlinesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-unpack eta-0)) ext-0)))))
@@ -480,110 +486,112 @@
 (define Strings-Data-strM (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Builtin-believe_me 'erased 'erased (vector 1 (string-ref arg-0 0) (substring arg-0 1 (string-length arg-0)))))))))
 (define Strings-Data-strIndex (lambda (ext-0 ext-1) (string-ref ext-0 ext-1)))
 (define Strings-Data-split (lambda (arg-0 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (List-Data-split 'erased arg-0 (Prelude-unpack arg-1)))))
-(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1866-6140 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1)))))
+(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--1911-6389 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1)))))
 (define Strings-Data-singleton (lambda (arg-0) (Prelude-strCons arg-0 "")))
-(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2003-6278-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2))))
-(define Strings-Data-parseNumWithoutSign (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))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1953-6245 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9)))))))))))
-(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1822-6085-ltrimChars arg-0 (Prelude-unpack arg-0)))))
-(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1747-6019 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0)))))))
+(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2048-6527-parsePosTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2))))
+(define Strings-Data-parseNumWithoutSign (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))) (let ((e-3 (vector-ref sc0 2))) (Strings-Data-case--1998-6494 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9)))))))))))
+(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1867-6334-ltrimChars arg-0 (Prelude-unpack arg-0)))))
+(define Strings-Data-linesC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1792-6268 arg-0 (List-Data-break 'erased (lambda (eta-0) (Prelude-isNL eta-0)) arg-0)))))))
 (define Strings-Data-lines (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-pack eta-0)) (Strings-Data-linesC-39 (Prelude-unpack arg-0)))))
-(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
-(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
+(define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
+(define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-unpack arg-0) (Prelude-unpack arg-1))))
 (define Strings-Data-foldr1 (lambda (arg-0 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1)(else ((arg-1 e-1) (Strings-Data-foldr1 'erased arg-1 e-2))))))))(else (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.foldr1 at Data/Strings.idr:11:1--12:1"))))))
-(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1668-5930-toFArgs arg-0 arg-0)))))))
+(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1713-6179-toFArgs arg-0 arg-0)))))))
 (define Strings-Data-break (lambda (arg-0 ext-0) (Strings-Data-span (lambda (eta-0) (Prelude-not (arg-0 eta-0))) ext-0)))
-(define List-Data-with--4384-5817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq)))))))))
-(define List-Data-with--4384-5759 (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 (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq)))))))))
-(define List-Data-with--4310-5736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4384-5759 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4384-5817 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3)))))))
-(define List-Data-case--3770-5150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1)))))
-(define List-Data-case--3661-5083 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3)))))))
-(define List-Data-case--3558-4936 (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 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4)))))))
-(define List-Data-case--3299-4672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3))))))))
-(define List-Data-case--2657-4076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5)))))
-(define List-Data-case--2359-3792 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7)))))))))))
-(define List-Data-case--2276-3718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3))))))
-(define List-Data-case--2250-3698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2276-3718 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2)))))))
-(define List-Data-case--2142-3579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3)))))))
-(define List-Data-case--2077-3496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2073-3478-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2073-3478-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
-(define List-Data-case--2007-3433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3))))))
-(define List-Data-case--1901-3332 (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-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2))))))
-(define List-Data-case--1870-3308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--1901-3332 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
-(define List-Data-case--1815-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2))))))
-(define List-Data-case--1759-3188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2))))))
-(define List-Data-case--1704-3134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define List-Data-n--3897-5259-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--3897-5259-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--3897-5259-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
-(define List-Data-n--3661-5033-splitRec (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3661-5033-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))
-(define List-Data-n--3661-5034-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3661-5033-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
-(define List-Data-n--2073-3478-nubByC-39 (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2077-3496 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1)))))))))
-(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 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) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4310-5736 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11)))))))))))))
+(define List-Data-with--4578-6063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_eq 'erased arg-5 arg-2 arg-6 arg-2 arg-7 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (List-Data-lemma_x_neq_xs_neq 'erased arg-5 arg-3 arg-6 arg-2 arg-7 e-3 eq)))))))))
+(define List-Data-with--4578-6004 (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 (eq) (List-Data-lemma_x_eq_xs_neq 'erased arg-5 arg-3 arg-5 arg-2 (vector 0 ) e-3 eq)))))))))
+(define List-Data-with--4503-5981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (List-Data-with--4578-6004 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))) (else (let ((e-3 (vector-ref sc0 1))) (List-Data-with--4578-6063 'erased arg-1 arg-6 arg-5 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2 arg-3 e-3)))))))
+(define List-Data-case--3961-5390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (List-Data-isPrefixOfBy 'erased arg-5 arg-2 arg-4)) (else 1)))))
+(define List-Data-case--3852-5323 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-mergeBy 'erased arg-2 (List-Data-sortBy 'erased arg-2 e-2) (List-Data-sortBy 'erased arg-2 e-3)))))))
+(define List-Data-case--3749-5176 (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 arg-1 (List-Data-mergeBy 'erased arg-5 arg-2 (vector 1 arg-3 arg-4))))(else (vector 1 arg-3 (List-Data-mergeBy 'erased arg-5 (vector 1 arg-1 arg-2) arg-4)))))))
+(define List-Data-case--3490-4912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (List-Data-mapMaybe 'erased 'erased arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (List-Data-mapMaybe 'erased 'erased arg-4 arg-3))))))))
+(define List-Data-case--2848-4306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) arg-3) (else arg-5)))))
+(define List-Data-case--2549-4021 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 ))) (else (let ((e-7 (vector-ref sc1 2))) (vector 1 e-2 (List-Data-split 'erased arg-2 e-7)))))))))))
+(define List-Data-case--2466-3947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-3 e-2) e-3))))))
+(define List-Data-case--2440-3927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2466-3947 'erased arg-2 arg-3 arg-1 (List-Data-span 'erased arg-3 arg-2))) (else (vector 0 (vector 0 ) (vector 1 arg-1 arg-2)))))))
+(define List-Data-case--2332-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-3) (else (vector 1 arg-2 (List-Data-deleteBy 'erased arg-4 arg-1 arg-3)))))))
+(define List-Data-case--2267-3725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2263-3707-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2263-3707-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
+(define List-Data-case--2197-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (List-Data-elemBy 'erased arg-4 arg-1 arg-3))))))
+(define List-Data-case--2091-3561 (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-6)) (else (List-Data-lookupBy 'erased 'erased arg-3 arg-4 arg-2))))))
+(define List-Data-case--2060-3537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((x (vector 0 e-2 e-3))) (List-Data-case--2091-3561 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
+(define List-Data-case--2005-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2))))))
+(define List-Data-case--1949-3417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (List-Data-filter 'erased arg-3 arg-2))) (else (List-Data-filter 'erased arg-3 arg-2))))))
+(define List-Data-case--1894-3363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-dropWhile 'erased arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define List-Data-n--4088-5499-spreadHeads (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 e-2 (vector 0 )) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 1 e-2 e-6) (List-Data-n--4088-5499-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
+(define List-Data-n--3852-5273-splitRec (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased e-5 e-8 (lambda (eta-0) (arg-6 (vector 1 e-7 eta-0)))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))(else (vector 0 arg-5 (arg-6 (vector 0 ))))))))
+(define List-Data-n--3852-5274-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3852-5273-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
+(define List-Data-n--2263-3707-nubByC-39 (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2267-3725 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1)))))))))
+(define List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 (lambda (arg-0 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) (vector 0 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (lambda (eta-0) (Equality-Decidable-negEqSym 'erased 'erased 'erased (lambda (eta-1) (List-Data-lemma_val_not_nil 'erased e-6 e-7 eta-1)) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (lambda (eta-0) (List-Data-lemma_val_not_nil 'erased e-2 e-3 eta-0)))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (List-Data-with--4503-5981 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11)))))))))))))
 (define List-Data-__Impl_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1)))
 (define List-Data-zipWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 ((arg-3 e-1) e-4) (List-Data-zipWith 'erased 'erased 'erased arg-3 e-2 e-5))))))))))))))))
 (define List-Data-zip (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-zipWith 'erased 'erased 'erased (lambda (x) (lambda (y) (vector 0 x y))) ext-0 ext-1)))
-(define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2))))
+(define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2))))
 (define List-Data-union (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-unionBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
-(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--3897-5259-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3)))))))))
+(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--4088-5499-spreadHeads 'erased e-2 e-3 e-2 (List-Data-transpose 'erased e-3)))))))))
 (define List-Data-toList (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (vector 0 )) arg-3))))))
 (define List-Data-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 e-3 (List-Data-take 'erased e-0 e-4)))))))))))))
 (define List-Data-tailC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 e-3)))))))
-(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2359-3792 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2))))
-(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2250-3698 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-sortBy (lambda (arg-0 arg-1 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3661-5083 'erased arg-2 arg-1 (List-Data-n--3661-5034-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3661-5083 'erased arg-2 arg-1 (List-Data-n--3661-5034-split 'erased arg-2 arg-1 arg-2)))))))
+(define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2549-4021 'erased arg-2 arg-1 (List-Data-break 'erased arg-1 arg-2))))
+(define List-Data-span (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2440-3927 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-sortBy (lambda (arg-0 arg-1 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 1 e-2 (vector 0 )))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3852-5323 'erased arg-2 arg-1 (List-Data-n--3852-5274-split 'erased arg-2 arg-1 arg-2)))))))
 (define List-Data-sort (lambda (arg-0 arg-1 ext-0) (List-Data-sortBy 'erased (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))) ext-0)))
 (define List-Data-reverseOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-reverseOnto 'erased (vector 1 e-2 arg-1) e-3))))))))
 (define List-Data-reverse (lambda (arg-0 ext-0) (List-Data-reverseOnto 'erased (vector 0 ) ext-0)))
 (define List-Data-replicate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (vector 1 arg-2 (List-Data-replicate 'erased e-0 arg-2))))))))
-(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2657-4076 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4)))
-(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2073-3478-nubByC-39 'erased (vector 0 ) ext-0 ext-1)))
+(define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--2848-4306 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4)))
+(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2263-3707-nubByC-39 'erased (vector 0 ) ext-0 ext-1)))
 (define List-Data-nub (lambda (arg-0 arg-1 ext-0) (List-Data-nubBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0)))
 (define List-Data-mergeReplicate (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-1 (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3))))))))))
-(define List-Data-mergeBy (lambda (arg-0 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)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3558-4936 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
-(define List-Data-mapMaybe (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3299-4672 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2)))))))))
-(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--1901-3332 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5)))))))))))))
+(define List-Data-mergeBy (lambda (arg-0 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)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3749-5176 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
+(define List-Data-mapMaybe (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--3490-4912 'erased 'erased e-2 e-3 arg-2 (arg-2 e-2)))))))))
+(define List-Data-lookupBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((x (vector 0 e-5 e-4))) (List-Data-case--2091-3561 'erased 'erased e-3 arg-2 arg-3 e-5 e-4 x ((arg-2 arg-3) e-5)))))))))))))
 (define List-Data-lookup (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (List-Data-lookupBy 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) ((e-1 arg-3) arg-4))))) ext-0 ext-1)))
 (define List-Data-length (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-3 (vector-ref sc0 2))) (+ 1 (List-Data-length 'erased e-3))))))))
 (define List-Data-lemma_x_neq_xs_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (arg-5 (vector 0 )))))
 (define List-Data-lemma_x_neq_xs_eq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((sc1 arg-7)) (arg-5 (vector 0 ))))))
 (define List-Data-lemma_x_eq_xs_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (let ((sc1 arg-7)) (arg-6 (vector 0 ))))))
 (define List-Data-lemma_val_not_nil (lambda (arg-3 arg-2 arg-1 arg-0) (blodwen-error-quit "No clauses")))
+(define List-Data-lastC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 1 (List-Data-last 'erased arg-1 (vector 0 ))))))))
 (define List-Data-last (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (List-Data-last 'erased (vector 1 e-5 e-6) (vector 0 ))))))))))))
 (define List-Data-isSuffixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-isPrefixOfBy 'erased arg-1 (List-Data-reverse 'erased arg-2) (List-Data-reverse 'erased arg-3))))
 (define List-Data-isSuffixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isSuffixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
-(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3770-5150 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
+(define List-Data-isPrefixOfBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0)(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1)(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (List-Data-case--3961-5390 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4))))))))))))))))
 (define List-Data-isPrefixOf (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-isPrefixOfBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
 (define List-Data-isNil (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) (else 1)))))
 (define List-Data-isCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0)))))
 (define List-Data-intersperse (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-mergeReplicate 'erased arg-1 e-3)))))))))
 (define List-Data-init (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-1 (List-Data-init 'erased (vector 1 e-5 e-6) (vector 0 )))))))))))))
-(define List-Data-find (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1815-3243 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-filter (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1759-3188 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
-(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2007-3433 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
-(define List-Data-dropWhile (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1704-3134 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-headC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
+(define List-Data-find (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2005-3472 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-filter (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1949-3417 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
+(define List-Data-elemBy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2197-3662 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
+(define List-Data-dropWhile (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--1894-3363 'erased e-2 e-3 arg-1 (arg-1 e-2)))))))))
 (define List-Data-drop (lambda (arg-0 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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 2))) (List-Data-drop 'erased e-0 e-4)))))))))))
-(define List-Data-deleteBy (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2142-3579 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
+(define List-Data-deleteBy (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-case--2332-3808 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
 (define List-Data-delete (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-deleteBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1)))
 (define List-Data-break (lambda (arg-0 arg-1 arg-2) (List-Data-span 'erased (lambda (eta-0) (Prelude-not (arg-1 eta-0))) arg-2)))
 (define List-Data-appendNilRightNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
 (define List-Data-appendAssociative (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
-(define Equality-Decidable-with--2157-2267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq)))))))))
-(define Equality-Decidable-with--2157-2189 (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 (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq)))))))))
-(define Equality-Decidable-with--2121-2160 (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2157-2189 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2157-2267 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3)))))))
-(define Equality-Decidable-case--2893-2902 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2893-2866-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2893-2867-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2826-2839 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2826-2803-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2826-2804-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2759-2776 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2759-2740-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2759-2741-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-case--2692-2713 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2692-2677-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2692-2678-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
-(define Equality-Decidable-n--2893-2867-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2826-2804-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2759-2741-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2692-2678-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2893-2866-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2826-2803-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2759-2740-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-n--2692-2677-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
-(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2893-2902 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2826-2839 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2692-2713 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1))))
-(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2759-2776 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1))))
-(define Equality-Decidable-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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2121-2160 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7)))))))))
+(define Equality-Decidable-with--2192-2340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (lambda (eq) (Equality-Decidable-lemma_fst_neq_snd_eq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 (vector 0 ) eq)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eq) (Equality-Decidable-lemma_both_neq 'erased 'erased 'erased 'erased 'erased 'erased arg-8 e-3 eq)))))))))
+(define Equality-Decidable-with--2192-2261 (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 (eq) (Equality-Decidable-lemma_snd_neq 'erased 'erased 'erased 'erased 'erased (vector 0 ) e-3 eq)))))))))
+(define Equality-Decidable-with--2155-2232 (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (Equality-Decidable-with--2192-2261 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))) (else (let ((e-3 (vector-ref sc0 1))) (Equality-Decidable-with--2192-2340 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3 arg-4 e-3)))))))
+(define Equality-Decidable-case--2934-2987 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2934-2951-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2934-2952-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2866-2923 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2866-2887-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2866-2888-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2798-2859 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2798-2823-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2798-2824-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-case--2730-2795 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2730-2759-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2730-2760-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
+(define Equality-Decidable-n--2934-2952-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2866-2888-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2798-2824-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2730-2760-primitiveNotEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2934-2951-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2866-2887-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2798-2823-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-n--2730-2759-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
+(define Equality-Decidable-decEq_DecEq__String (lambda (arg-0 arg-1) (Equality-Decidable-case--2934-2987 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--2866-2923 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--2730-2795 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-0 arg-1))))
+(define Equality-Decidable-decEq_DecEq__Char (lambda (arg-0 arg-1) (Equality-Decidable-case--2798-2859 arg-1 arg-0 (Prelude-C-61C-61_Eq__Char arg-0 arg-1))))
+(define Equality-Decidable-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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Equality-Decidable-with--2155-2232 'erased 'erased arg-2 e-2 e-6 (((Builtin-fst 'erased 'erased arg-2) e-2) e-6) e-3 e-7)))))))))
 (define Equality-Decidable-__Impl_DecEq_String (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__String ext-0 ext-1)))
 (define Equality-Decidable-__Impl_DecEq_Int (lambda (ext-0 ext-1) (Equality-Decidable-decEq_DecEq__Int ext-0 ext-1)))
 (define Equality-Decidable-__Impl_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-0 arg-1 arg-2 ext-0 ext-1) (Equality-Decidable-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 'erased 'erased arg-2 ext-0 ext-1)))
@@ -592,69 +600,65 @@
 (define Equality-Decidable-lemma_fst_neq_snd_eq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((sc1 arg-8)) (arg-6 (vector 0 ))))))
 (define Equality-Decidable-lemma_both_neq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (arg-6 (vector 0 )))))
 (define Equality-Decidable-decEq (lambda (arg-0 arg-1 ext-0 ext-1) ((arg-1 ext-0) ext-1)))
-(define Nat-Data-case--1459-338 (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 (Nat-Data-fromLteSucc 'erased 'erased eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 e-3))))))))
-(define Nat-Data-succNotLTEzero (lambda (arg-1 arg-0) (blodwen-error-quit "No clauses")))
 (define Nat-Data-pred (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) e-0))))))
 (define Nat-Data-plusZeroRightNeutral (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
 (define Nat-Data-plusSuccRightSucc (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
 (define Nat-Data-isSucc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0)))))
-(define Nat-Data-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) (Nat-Data-succNotLTEzero 'erased eta-0))))(else (let ((e-1 (- arg-1 1))) (Nat-Data-case--1459-338 e-0 e-1 (Nat-Data-isLTE e-0 e-1))))))))))))
-(define Nat-Data-fromLteSucc (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) e-2))))
-(define Prelude-case--8701-9384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3)))))))))))))
-(define Prelude-case--8926-9313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 ))))))
-(define Prelude-case--8861-9250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--8926-9313 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2)))))))))))
-(define Prelude-case--8699-9189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--8861-9250 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3))))))))))))
-(define Prelude-case--8733-9122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 )))))))
-(define Prelude-case--8698-9071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--8733-9122 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3)))))))))
-(define Prelude-case--8484-8858 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 )))))))
-(define Prelude-case--8464-8831 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8484-8858 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
-(define Prelude-case--8326-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2))))))))
-(define Prelude-case--8274-8629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2))))))))
-(define Prelude-case--7472-7854 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (x) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-show_Show__Int (char->integer arg-0)) x)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Prelude-case--7325-7832 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (x) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 x))))) (else (Prelude-case--7472-7854 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
-(define Prelude-case--7300-7667 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
-(define Prelude-case--6988-7432 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--6989-7418 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--6822-7242 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0)))))
-(define Prelude-case--6807-7228 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0)))))
-(define Prelude-case--6675-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6673-7105-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1)))))))
-(define Prelude-case--6613-7059 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else "")))))
-(define Prelude-case--6460-6933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4))))))
-(define Prelude-case--5780-6322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6)))))
-(define Prelude-case--5785-6213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Prelude-case--5786-6185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Prelude-case--4443-4670 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--4444-4656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--4358-4557 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
-(define Prelude-case--3242-3290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3242(3290) at Prelude.idr:485:3--491:1"))))))
-(define Prelude-case--3241-3271 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3241(3271) at Prelude.idr:482:3--485:3"))))))
-(define Prelude-case--3215-3241 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0)))))
-(define Prelude-case--3134-3176 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3134(3176) at Prelude.idr:449:3--456:1"))))))
-(define Prelude-case--3133-3157 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3133(3157) at Prelude.idr:446:3--449:3"))))))
-(define Prelude-case--3107-3127 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0)))))
-(define Prelude-case--2500-2788 (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 ((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 Prelude-case--2505-2663 (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 arg-4)))))
-(define Prelude-case--2506-2621 (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 arg-4)))))
-(define Prelude-case--2325-2387 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--2260-2370 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2325-2387 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
-(define Prelude-case--2265-2353 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--2266-2339 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1611-1745 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--1546-1728 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1611-1745 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
-(define Prelude-case--1551-1711 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1552-1697 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1492-1638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
-(define Prelude-case--1427-1621 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1492-1638 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
-(define Prelude-case--1432-1604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1433-1590 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1323-1503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-case--1324-1489 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Prelude-n--6673-7105-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6675-7115 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
-(define Prelude-n--6660-7094-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6660-7094-toFArgs arg-0 e-3)))))))))
-(define Prelude-n--7730-8097-showC-39 (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7730-8097-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3)))))))))))
-(define Prelude-n--6837-7254-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 )))))))))))))))))))
-(define Prelude-n--7325-7712-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7325-7712-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
-(define Prelude-n--7325-7711-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 )))))))))))))))))))))))))))))))))))
+(define Prelude-case--8976-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2))))))))) (else (Prelude-countFrom 'erased arg-2 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-2) arg-3)))))))))))))
+(define Prelude-case--9211-9496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 ))))))
+(define Prelude-case--9144-9431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 arg-6) arg-2)))) (Prelude-countFrom 'erased arg-4 (lambda (n) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 n) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-4) arg-3)))))))))) (else (Prelude-case--9211-9496 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-38C-38 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-4) arg-3))) (lambda () (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) arg-2)))))))))))
+(define Prelude-case--8974-9368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Prelude-takeBefore 'erased (lambda (arg-6) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-6) arg-4)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-6) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc2 3))) ((e-4 arg-3) arg-2)))))))))) (else (Prelude-case--9144-9431 'erased arg-1 arg-4 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-2)))) (let ((sc2 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc2 3))) ((e-9 arg-4) arg-3))))))))))))
+(define Prelude-case--9012-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-5 (vector-ref sc1 5))) ((e-5 arg-5) arg-2)))) (Prelude-countFrom 'erased arg-3 (lambda (x) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-3 (vector-ref sc1 3))) ((e-3 x) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (vector 1 arg-3 (vector 0 )))))))
+(define Prelude-case--8973-9246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-5) (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc1 6))) ((e-6 arg-5) arg-3)))) (Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-5) (let ((sc2 (let ((sc3 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Prelude-case--9012-9299 'erased arg-1 arg-3 arg-2 (let ((sc1 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc1 4))) ((e-4 arg-2) arg-3)))))))))
+(define Prelude-case--8752-9023 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (n) (Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 )))))))
+(define Prelude-case--8728-8995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-takeUntil 'erased (lambda (arg-3) (Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Prelude-case--8752-9023 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
+(define Prelude-case--8590-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-1 (Prelude-takeBefore 'erased arg-3 (arg-2))))))))
+(define Prelude-case--8538-8789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1 (vector 0 ))) (else (vector 1 arg-1 (Prelude-takeUntil 'erased arg-3 (arg-2))))))))
+(define Prelude-case--7521-7802 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-1) (Prelude-isDigit eta-1)) (Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Prelude-case--7373-7779 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 eta-0))))) (else (Prelude-case--7521-7802 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
+(define Prelude-case--7348-7613 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
+(define Prelude-case--7014-7363 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--7015-7349 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--6846-7164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0)))))
+(define Prelude-case--6831-7150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0)))))
+(define Prelude-case--6698-7036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (string-ref arg-1 arg-3) (Prelude-n--6696-7026-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1)))))))
+(define Prelude-case--6636-6980 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (string-substr arg-2 arg-1 arg-0)) (else "")))))
+(define Prelude-case--6482-6857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Prelude-elem 'erased arg-1 arg-2 arg-4))))))
+(define Prelude-case--5784-6270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6)))))
+(define Prelude-case--5789-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Prelude-case--5790-6133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Prelude-case--4410-4612 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--4411-4598 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--4320-4487 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
+(define Prelude-case--3182-3200 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3182(3200) at Prelude.idr:397:3--403:1"))))))
+(define Prelude-case--3181-3181 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (b/ arg-1 arg-0 63))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3181(3181) at Prelude.idr:394:3--397:3"))))))
+(define Prelude-case--3154-3149 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int arg-0)) (else arg-0)))))
+(define Prelude-case--3066-3078 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (remainder arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3066(3078) at Prelude.idr:361:3--368:1"))))))
+(define Prelude-case--3065-3059 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (quotient arg-1 arg-0))(else (Builtin-idris_crash 'erased "Unhandled input for Prelude.case block in 3065(3059) at Prelude.idr:358:3--361:3"))))))
+(define Prelude-case--3038-3027 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Integer arg-0)) (else arg-0)))))
+(define Prelude-case--2419-2682 (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 ((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 Prelude-case--2424-2557 (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 arg-4)))))
+(define Prelude-case--2425-2515 (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 arg-4)))))
+(define Prelude-case--2237-2265 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--2165-2248 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2237-2265 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
+(define Prelude-case--2170-2231 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--2171-2217 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1481-1581 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--1409-1564 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1481-1581 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
+(define Prelude-case--1414-1547 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1415-1533 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1355-1467 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
+(define Prelude-case--1283-1450 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1355-1467 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
+(define Prelude-case--1288-1433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1289-1419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1172-1325 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-case--1173-1311 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Prelude-n--6696-7026-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6698-7036 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
+(define Prelude-n--6683-7015-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Prelude-n--6683-7015-toFArgs arg-0 e-3)))))))))
+(define Prelude-n--7794-8062-showC-39 (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3)))))))))))
+(define Prelude-n--6861-7176-hexChars (lambda (arg-0) (vector 1 #\0 (vector 1 #\1 (vector 1 #\2 (vector 1 #\3 (vector 1 #\4 (vector 1 #\5 (vector 1 #\6 (vector 1 #\7 (vector 1 #\8 (vector 1 #\9 (vector 1 #\A (vector 1 #\B (vector 1 #\C (vector 1 #\D (vector 1 #\E (vector 1 #\F (vector 0 )))))))))))))))))))
+(define Prelude-n--7373-7659-getAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-2)) (vector 0 ))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Prelude-n--7373-7659-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
+(define Prelude-n--7373-7658-asciiTab (lambda (arg-0) (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 0 )))))))))))))))))))))))))))))))))))
 (define Prelude-traverse_Traversable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (vector 1 eta-0 eta-1))))))) (arg-4 e-2))))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased arg-3 arg-4 e-3)))))))))))
 (define Prelude-show_Show__String (lambda (arg-0) (Prelude-strCons #\" ((Prelude-showLitString (Prelude-unpack arg-0)) "\""))))
 (define Prelude-show_Show__Nat (lambda (arg-0) (Prelude-show_Show__Integer arg-0)))
@@ -665,7 +669,7 @@
 (define Prelude-show_Show__Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False")))))
 (define Prelude-show_Show__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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-3))) ")")))))))))
 (define Prelude-show_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 (vector 0 ) arg-2)))
-(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7730-8097-showC-39 'erased arg-1 arg-2 "" arg-2) "]"))))
+(define Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-n--7794-8062-showC-39 'erased arg-1 arg-2 "" arg-2) "]"))))
 (define Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 (vector 0 ) arg-3)))
 (define Prelude-showPrec_Show__String (lambda (arg-0 arg-1) (Prelude-show_Show__String arg-1)))
 (define Prelude-showPrec_Show__Nat (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1)))
@@ -679,10 +683,10 @@
 (define Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (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))) (Prelude-showCon arg-3 "Left" (Prelude-showArg 'erased (Builtin-fst 'erased 'erased arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-showCon arg-3 "Right" (Prelude-showArg 'erased (Builtin-snd 'erased 'erased arg-2) e-5))))))))
 (define Prelude-rangeFrom_Range__Nat (lambda (arg-0) (Prelude-countFrom 'erased arg-0 (lambda (eta-0) (+ 1 eta-0)))))
 (define Prelude-rangeFrom_Range__C-36a (lambda (arg-0 arg-1 arg-2) (Prelude-countFrom 'erased arg-2 (lambda (arg-3) (let ((sc0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) ((e-1 (let ((sc1 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-4 (vector-ref sc1 3))) (e-4 1)))) arg-3)))))))
-(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8464-8831 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0))))
-(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8698-9071 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
-(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8701-9384 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
-(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8699-9189 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3)))))))))
+(define Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Prelude-case--8728-8995 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-1 arg-0))))
+(define Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8973-9246 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
+(define Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--8976-9568 'erased arg-1 arg-2 arg-3 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 arg-3) arg-2))))))
+(define Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-case--8974-9368 'erased arg-1 arg-2 arg-3 arg-4 (let ((sc0 (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-4 (vector-ref sc0 4))) ((e-4 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-2)))) (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-9 (vector-ref sc1 3))) ((e-9 arg-4) arg-3)))))))))
 (define Prelude-pure_Applicative__Maybe (lambda (arg-0 ext-0) (vector 1 ext-0)))
 (define Prelude-pure_Applicative__List (lambda (arg-0 arg-1) (vector 1 arg-1 (vector 0 ))))
 (define Prelude-pure_Applicative__IO (lambda (arg-0 arg-1 ext-0) arg-1))
@@ -692,29 +696,30 @@
 (define Prelude-negate_Neg__Integer (lambda (arg-0) (- 0 arg-0)))
 (define Prelude-negate_Neg__Int (lambda (arg-0) (b- 0 arg-0 63)))
 (define Prelude-negate_Neg__Double (lambda (arg-0) (- arg-0)))
-(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3134-3176 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
-(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3242-3290 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
-(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2266-2339 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
-(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6989-7418 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1))))
-(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4444-4656 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1))))
-(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1552-1697 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
-(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1433-1590 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
-(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1324-1489 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1))))
-(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2506-2621 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
-(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5786-6185 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
-(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2265-2353 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1))))
-(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--6988-7432 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1))))
-(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4443-4670 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1))))
-(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1551-1711 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1))))
-(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1432-1604 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1))))
-(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1323-1503 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1))))
-(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2505-2663 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
-(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5785-6213 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
+(define Prelude-mod_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3066-3078 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
+(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3182-3200 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
+(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2171-2217 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
+(define Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7015-7349 arg-1 arg-0 (Prelude-C-60_Ord__Prec arg-0 arg-1))))
+(define Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4411-4598 arg-1 arg-0 (Prelude-C-60_Ord__Nat arg-0 arg-1))))
+(define Prelude-min_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1415-1533 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
+(define Prelude-min_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1289-1419 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
+(define Prelude-min_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1173-1311 arg-1 arg-0 (Prelude-C-60_Ord__Bool arg-0 arg-1))))
+(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2425-2515 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
+(define Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5790-6133 'erased arg-1 arg-3 arg-2 (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
+(define Prelude-max_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2170-2231 arg-1 arg-0 (Prelude-C-62_Ord__String arg-0 arg-1))))
+(define Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Prelude-case--7014-7363 arg-1 arg-0 (Prelude-C-62_Ord__Prec arg-0 arg-1))))
+(define Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Prelude-case--4410-4612 arg-1 arg-0 (Prelude-C-62_Ord__Nat arg-0 arg-1))))
+(define Prelude-max_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1414-1547 arg-1 arg-0 (Prelude-C-62_Ord__Integer arg-0 arg-1))))
+(define Prelude-max_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1288-1433 arg-1 arg-0 (Prelude-C-62_Ord__Int arg-0 arg-1))))
+(define Prelude-max_Ord__Bool (lambda (arg-0 arg-1) (Prelude-case--1172-1325 arg-1 arg-0 (Prelude-C-62_Ord__Bool arg-0 arg-1))))
+(define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-case--2424-2557 'erased 'erased arg-2 arg-3 arg-5 arg-4 (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5))))
+(define Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5789-6161 'erased arg-1 arg-3 arg-2 (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
 (define Prelude-map_Functor__Maybe (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 (arg-2 e-1)))) (else (vector 0 ))))))
 (define Prelude-map_Functor__List (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (arg-2 e-2) (Prelude-map_Functor__List 'erased 'erased arg-2 e-3)))))))))
 (define Prelude-map_Functor__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-3 (arg-3 ext-0))) (arg-2 act-3))))
 (define Prelude-map_Functor__C-40PairC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (arg-3 e-3)))))))
 (define Prelude-map_Functor__C-40EitherC-32C-36eC-41 (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))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (arg-3 e-5))))))))
+(define Prelude-liftIO_HasIO__IO (lambda (arg-0 arg-1) arg-1))
 (define Prelude-join_Monad__Maybe (lambda (arg-0 arg-1) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-1 (lambda (eta-0) eta-0))))
 (define Prelude-join_Monad__IO (lambda (arg-0 arg-1 ext-0) (let ((act-2 (arg-1 ext-0))) (act-2 ext-0))))
 (define Prelude-join_Monad__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) eta-0))))
@@ -724,16 +729,16 @@
 (define Prelude-foldr_Foldable__List (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) ((arg-2 e-2) (Prelude-foldr_Foldable__List 'erased 'erased arg-2 arg-3 e-3)))))))))
 (define Prelude-foldl_Foldable__List (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (Prelude-foldl_Foldable__List 'erased 'erased arg-2 ((arg-2 arg-3) e-2) e-3))))))))
 (define Prelude-empty_Alternative__List (lambda (arg-0) (vector 0 )))
-(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3133-3157 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
-(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3241-3271 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
-(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2260-2370 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
+(define Prelude-div_Integral__Integer (lambda (arg-0 arg-1) (Prelude-case--3065-3059 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 0))))
+(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--3181-3181 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 0))))
+(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--2165-2248 arg-1 arg-0 (Prelude-C-60_Ord__String arg-0 arg-1))))
 (define Prelude-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))) (Prelude-compare_Ord__Nat e-0 e-1)))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))(else (Prelude-compare_Ord__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))
 (define Prelude-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))) (Prelude-compare_Ord__Nat e-0 e-2)))))))))))
-(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1546-1728 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
-(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1427-1621 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
+(define Prelude-compare_Ord__Integer (lambda (arg-0 arg-1) (Prelude-case--1409-1564 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 arg-1))))
+(define Prelude-compare_Ord__Int (lambda (arg-0 arg-1) (Prelude-case--1283-1450 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-1))))
 (define Prelude-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 Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2500-2788 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6))))))))))))
-(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 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 ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5780-6322 'erased 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 Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-case--2419-2682 'erased 'erased arg-2 arg-3 e-2 e-3 e-6 e-7 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((e-4 e-2) e-6))))))))))))
+(define Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 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 ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Prelude-case--5784-6270 'erased 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 Prelude-cast_Cast__String_Integer (lambda (ext-0) (cast-string-int ext-0)))
 (define Prelude-cast_Cast__String_Int (lambda (ext-0) (cast-string-int ext-0)))
 (define Prelude-cast_Cast__String_Double (lambda (ext-0) (cast-string-double ext-0)))
@@ -747,13 +752,13 @@
 (define Prelude-cast_Cast__Double_Int (lambda (ext-0) (exact-floor ext-0)))
 (define Prelude-cast_Cast__Char_String (lambda (ext-0) (string ext-0)))
 (define Prelude-cast_Cast__Char_Int (lambda (ext-0) (char->integer ext-0)))
-(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3107-3127 arg-0 (Prelude-C-60_Ord__Integer arg-0 0))))
-(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3215-3241 arg-0 (Prelude-C-60_Ord__Int arg-0 0))))
+(define Prelude-abs_Abs__Integer (lambda (arg-0) (Prelude-case--3038-3027 arg-0 (Prelude-C-60_Ord__Integer arg-0 0))))
+(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3154-3149 arg-0 (Prelude-C-60_Ord__Int arg-0 0))))
 (define Prelude-__Ord_C-40EqC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Monoid_C-40SemigroupC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Monad_C-40ApplicativeC-32mC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Integral_C-40NumC-32tyC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__List 'erased 'erased func arg-3505))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4432) (lambda (arg-4434) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4432 arg-4434))))))))))
+(define Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-4362) (lambda (arg-4364) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4362 arg-4364))))))))))
 (define Prelude-__Impl_Show_String (lambda () (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x))))))
 (define Prelude-__Impl_Show_Nat (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x))))))
 (define Prelude-__Impl_Show_Integer (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Integer x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Integer d x))))))
@@ -767,49 +772,51 @@
 (define Prelude-__Impl_Semigroup_String (lambda (ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__String ext-0 ext-1)))
 (define Prelude-__Impl_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased ext-0 ext-1)))
 (define Prelude-__Impl_Semigroup_C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased ext-0 ext-1)))
-(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8716) (lambda (arg-8717) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8716 arg-8717))) (lambda (arg-8718) (lambda (arg-8719) (lambda (arg-8720) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8718 arg-8719 arg-8720)))) (lambda (arg-8721) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8721)) (lambda (arg-8722) (lambda (arg-8723) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8722 arg-8723))))))
-(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Prec arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Prec arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Prec arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Prec arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Prec arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Prec arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Prec arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Prec arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Prec arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Nat arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Nat arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Nat arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Nat arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Nat arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Nat arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Nat arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Integer arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Integer arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Integer arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Integer arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Integer arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Integer arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Integer arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980))))))
-(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased arg-2 arg-3 arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased arg-2 arg-3 arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased arg-2 arg-3 arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased arg-2 arg-3 arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased arg-2 arg-3 arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased arg-2 arg-3 arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased arg-2 arg-3 arg-979 arg-980))))))
-(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-979 arg-980))))))
-(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (Prelude-C-43_Num__Nat arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (Prelude-C-42_Num__Nat arg-2851 arg-2852))) (lambda (arg-2853) (Prelude-fromInteger_Num__Nat arg-2853)))))
-(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853))))
-(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853))))
-(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Integer arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Integer arg-2904 arg-2905))))))
-(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905))))))
-(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))))
-(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))))
-(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Prelude-join_Monad__Maybe 'erased arg-3737))))))
-(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (let ((act-17 (arg-3573 eta-0))) (let ((act-16 (arg-3575 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (let ((act-24 (arg-3734 eta-0))) ((arg-3735 act-24) eta-0))))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (let ((act-29 (arg-3737 eta-0))) (act-29 eta-0))))))))
-(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (let ((sc0 arg-3505)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3572) (vector 1 arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (let ((sc0 arg-3573)) (case (vector-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-3575)) (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)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3737))))))
-(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Integer arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Integer arg-3032 arg-3033))))))
-(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033))))))
+(define Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8876) (lambda (arg-8877) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8876 arg-8877))) (lambda (arg-8878) (lambda (arg-8879) (lambda (arg-8880) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8878 arg-8879 arg-8880)))) (lambda (arg-8881) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8881)) (lambda (arg-8882) (lambda (arg-8883) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8882 arg-8883))))))
+(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Prec arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Prec arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Prec arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Prec arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Prec arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Prec arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Prec arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Nat arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Nat arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Nat arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Nat arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Nat arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Nat arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Nat arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Integer arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Integer arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Integer arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Integer arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Integer arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788))))))
+(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased arg-2 arg-3 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased arg-2 arg-3 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased arg-2 arg-3 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased arg-2 arg-3 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased arg-2 arg-3 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased arg-2 arg-3 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased arg-2 arg-3 arg-787 arg-788))))))
+(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-787 arg-788))))))
+(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (Prelude-C-43_Num__Nat arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (Prelude-C-42_Num__Nat arg-2745 arg-2746))) (lambda (arg-2747) (Prelude-fromInteger_Num__Nat arg-2747)))))
+(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747))))
+(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747))))
+(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Integer arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Integer arg-2798 arg-2799))))))
+(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799))))))
+(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))))
+(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))))
+(define Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__Maybe 'erased arg-3667))))))
+(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-29 (arg-3667 eta-0))) (act-29 eta-0))))))))
+(define Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-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-3505)) (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)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3667))))))
+(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Integer arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Integer arg-2926 arg-2927))))))
+(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927))))))
+(define Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))))
 (define Prelude-__Impl_Functor_Maybe (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__Maybe 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_List (lambda (ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__List 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_IO (lambda (ext-4 ext-1 ext-2 ext-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased ext-2 ext-3 ext-0)))
 (define Prelude-__Impl_Functor_C-40PairC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased ext-2 ext-3)))
 (define Prelude-__Impl_Functor_C-40EitherC-32C-36eC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (let ((sc0 ext-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))) (vector 1 (ext-2 e-5))))))))
 (define Prelude-__Impl_Foldable_List (lambda () (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input)))))))))
-(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Prec arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Prec arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Ordering arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Ordering arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651))))))
-(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased arg-2 arg-3 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased arg-2 arg-3 arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
-(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
+(define Prelude-__Impl_Eq_String (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Prec arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Prec arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Ordering arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Ordering arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431))))))
+(define Prelude-__Impl_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-0 arg-1 arg-2 arg-3) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased arg-2 arg-3 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased arg-2 arg-3 arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
+(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
 (define Prelude-__Impl_Cast_Int_Integer (lambda (ext-0) (Prelude-cast_Cast__Int_Integer ext-0)))
-(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575))))))))
-(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__List 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__List 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3573 arg-3575))))))))
-(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (let ((act-17 (arg-3573 eta-0))) (let ((act-16 (arg-3575 eta-0))) (act-17 act-16)))))))))))
-(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (let ((sc0 arg-3505)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3572) (vector 1 arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (let ((sc0 arg-3573)) (case (vector-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-3575)) (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))))))))))))))))
+(define Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505))))))))
+(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__List 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__List 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3503 arg-3505))))))))
+(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16)))))))))))
+(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (let ((sc0 arg-3435)) (case (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 (func e-5)))))))))) (lambda (a) (lambda (arg-3502) (vector 1 arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (let ((sc0 arg-3503)) (case (vector-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-3505)) (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))))))))))))))))
+(define Prelude-__HasIO_C-40MonadC-32ioC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-__Applicative_C-40FunctorC-32fC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Prelude-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 Prelude-C-62_Ord__Prec (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Prec arg-0 arg-1) 2)))
@@ -822,7 +829,7 @@
 (define Prelude-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-61C-61_Eq__Ordering (Prelude-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 'erased 'erased arg-2 arg-3 arg-4 arg-5) 2)))
 (define Prelude-C-62_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 2)))
 (define Prelude-C-62C-62C-61_Monad__Maybe (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))) (arg-3 e-2)))))))
-(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2)))
+(define Prelude-C-62C-62C-61_Monad__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) arg-3) arg-2)))
 (define Prelude-C-62C-62C-61_Monad__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-1 (arg-2 ext-0))) ((arg-3 act-1) ext-0))))
 (define Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 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 Prelude-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)))))
@@ -871,7 +878,7 @@
 (define Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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 Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (List-Prelude-C-43C-43 'erased ext-0 ext-1)))
 (define Prelude-C-60C-42C-62_Applicative__Maybe (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 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 Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2)))
+(define Prelude-C-60C-42C-62_Applicative__List (lambda (arg-0 arg-1 arg-2 arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (f) (Prelude-map_Functor__List 'erased 'erased f arg-3))) arg-2)))
 (define Prelude-C-60C-42C-62_Applicative__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-6 (arg-2 ext-0))) (let ((act-5 (arg-3 ext-0))) (act-6 act-5)))))
 (define Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 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))) (let ((sc1 arg-4)) (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)))))))))))
 (define Prelude-C-47_Fractional__Double (lambda (ext-0 ext-1) (/ ext-0 ext-1)))
@@ -898,24 +905,22 @@
 (define Prelude-C-42_Num__Int (lambda (ext-0 ext-1) (b* ext-0 ext-1 63)))
 (define Prelude-C-42_Num__Double (lambda (ext-0 ext-1) (* ext-0 ext-1)))
 (define Prelude-C-124C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0) (else (arg-1))))))
-(define Prelude-unpack (lambda (arg-0) (Prelude-n--6673-7105-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0)))
-(define Prelude-uncurry (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-3 e-2) e-3))))))
+(define Prelude-unpack (lambda (arg-0) (Prelude-n--6696-7026-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0)))
 (define Prelude-traverse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-6) (lambda (arg-7) ((((((e-3 'erased) 'erased) 'erased) arg-4) arg-6) arg-7)))))))
-(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6807-7228 arg-0 (Prelude-isLower arg-0))))
-(define Prelude-toLower (lambda (arg-0) (Prelude-case--6822-7242 arg-0 (Prelude-isUpper arg-0))))
-(define Prelude-the (lambda (arg-0 arg-1) arg-1))
+(define Prelude-toUpper (lambda (arg-0) (Prelude-case--6831-7150 arg-0 (Prelude-isLower arg-0))))
+(define Prelude-toLower (lambda (arg-0) (Prelude-case--6846-7164 arg-0 (Prelude-isUpper arg-0))))
 (define Prelude-tan (lambda (arg-0) (tan arg-0)))
-(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8274-8629 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
-(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8326-8680 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
+(define Prelude-takeUntil (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8538-8789 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
+(define Prelude-takeBefore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Prelude-case--8590-8840 'erased e-1 e-2 arg-1 (arg-1 e-1)))))))
 (define Prelude-take (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Prelude-take 'erased e-0 (e-3))))))))))))
-(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6613-7059 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2)))))
+(define Prelude-substr (lambda (arg-0 arg-1 arg-2) (Prelude-case--6636-6980 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2)))))
 (define Prelude-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1)))
 (define Prelude-sqrt (lambda (arg-0) (sqrt arg-0)))
 (define Prelude-sin (lambda (arg-0) (sin arg-0)))
 (define Prelude-showPrec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 ")")))))))
-(define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (x) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) x))))(else (lambda (x) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) x)))))))))))))
-(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7325-7832 arg-0 (Prelude-n--7325-7712-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7325-7711-asciiTab arg-0))))))))
+(define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) eta-0))))(else (lambda (eta-0) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) eta-0)))))))))))))
+(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--7373-7779 arg-0 (Prelude-n--7373-7659-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7373-7658-asciiTab arg-0))))))))
 (define Prelude-showCon (lambda (arg-0 arg-1 arg-2) (Prelude-showParens (Prelude-C-62C-61_Ord__Prec arg-0 (vector 6 )) (Strings-Prelude-C-43C-43 arg-1 arg-2))))
 (define Prelude-showArg (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 " " (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 (vector 6 )) arg-2))))))
 (define Prelude-show (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
@@ -924,10 +929,13 @@
 (define Prelude-reverse (lambda (ext-0) (string-reverse ext-0)))
 (define Prelude-rangeFromTo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Prelude-rangeFrom (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2))))))
+(define Prelude-putStrLn (lambda (arg-0 arg-1 arg-2) (Prelude-putStr 'erased arg-1 (string-append arg-2 "\xa;"))))
+(define Prelude-putStr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__putStr arg-2 eta-0)))))))
 (define Prelude-pure (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) ((e-2 'erased) arg-3))))))
-(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7300-7667 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2))))
-(define Prelude-printLn (lambda (arg-0 arg-1 arg-2 ext-0) (PrimIO-putStrLn (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-2))) ext-0)))
+(define Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Prelude-case--7348-7613 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2))))
+(define Prelude-printLn (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-putStrLn 'erased (Builtin-fst 'erased 'erased arg-2) (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-3))))))
 (define Prelude-primNumShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((str (arg-1 arg-3))) (Prelude-showParens (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Prec arg-2 (vector 5 )) (lambda () (Prelude-firstCharIs (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 #\-)) str))) str))))
+(define Prelude-primIO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) arg-3)))))
 (define Prelude-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 Prelude-plus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (+ 1 (+ e-0 arg-1))))))))
 (define Prelude-pack (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-strCons e-2 (Prelude-pack e-3)))))))))
@@ -944,35 +952,34 @@
 (define Prelude-mapFst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (arg-3 e-2) e-3))))))
 (define Prelude-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1) ((((arg-3 'erased) 'erased) ext-0) ext-1)))
 (define Prelude-log (lambda (arg-0) (log arg-0)))
+(define Prelude-liftIO (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) ((e-2 'erased) arg-3))))))
 (define Prelude-length (lambda (arg-0) (Prelude-fromInteger_Num__Nat (string-length arg-0))))
 (define Prelude-isUpper (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\A) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\Z)))))
 (define Prelude-isSpace (lambda (arg-0) (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 #\ ) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 9)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 12)) (lambda () (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 11)) (lambda () (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 160))))))))))))))))
 (define Prelude-isOctDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\7)))))
 (define Prelude-isNL (lambda (arg-0) (Prelude-C-124C-124 (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10))))))
 (define Prelude-isLower (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\a) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\z)))))
-(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (Prelude-toUpper arg-0) (Prelude-n--6837-7254-hexChars arg-0))))
+(define Prelude-isHexDigit (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) (Prelude-toUpper arg-0) (Prelude-n--6861-7176-hexChars arg-0))))
 (define Prelude-isDigit (lambda (arg-0) (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-0 #\9)))))
 (define Prelude-isAlphaNum (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isDigit arg-0) (lambda () (Prelude-isAlpha arg-0)))))
 (define Prelude-isAlpha (lambda (arg-0) (Prelude-C-124C-124 (Prelude-isUpper arg-0) (lambda () (Prelude-isLower arg-0)))))
-(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4358-4557 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))))
+(define Prelude-integerToNat (lambda (arg-0) (Prelude-case--4320-4487 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))))
 (define Prelude-intToBool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0)))))
-(define Prelude-id (lambda (arg-0 arg-1) arg-1))
+(define Prelude-getLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Prelude-prim__getStr eta-0)))))))
 (define Prelude-fromInteger (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2))))))
 (define Prelude-foldr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 'erased) 'erased) arg-4) arg-5) arg-6))))))))
 (define Prelude-foldl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 'erased) 'erased) arg-4) arg-5) arg-6))))))))
 (define Prelude-floor (lambda (arg-0) (floor arg-0)))
-(define Prelude-flip (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4)))
 (define Prelude-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0)))))))
-(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6660-7094-toFArgs arg-0 arg-0)))))))
+(define Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Prelude-n--6683-7015-toFArgs arg-0 arg-0)))))))
 (define Prelude-exp (lambda (arg-0) (exp arg-0)))
-(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6460-6933 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2)))))))))))
+(define Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-case--6482-6857 'erased arg-1 arg-2 e-2 e-3 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2)))))))))))
 (define Prelude-either (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))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-4) e-5)))))))
 (define Prelude-div (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
-(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853))))
+(define Prelude-defaultInteger (lambda () (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747))))
 (define Prelude-countFrom (lambda (arg-0 arg-1 arg-2) (vector 0 arg-1 (lambda () (Prelude-countFrom 'erased (arg-2 arg-1) arg-2)))))
 (define Prelude-cos (lambda (arg-0) (cos arg-0)))
-(define Prelude-const (lambda (arg-0 arg-1 arg-2 ext-0) arg-2))
-(define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (x) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 x)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5))))))
+(define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (eta-0) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 eta-0)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5))))))
 (define Prelude-concat (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (((((e-1 'erased) 'erased) (lambda (arg-4) (lambda (arg-5) (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc1 1))) ((e-4 arg-4) arg-5)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-3))))))
 (define Prelude-compare (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-chr (lambda (ext-0) (cast-int-char ext-0)))
@@ -993,29 +1000,18 @@
 (define Prelude-C-60C-36C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((((arg-3 'erased) 'erased) arg-4) arg-5)))
 (define Prelude-C-60 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Prelude-C-47C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
-(define Prelude-C-46 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (arg-3 (arg-4 ext-0))))
 (define Prelude-C-45 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Strings-Prelude-C-43C-43 (lambda (arg-0 arg-1) (string-append arg-0 arg-1)))
 (define List-Prelude-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2)))))))))
 (define Prelude-C-43 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Prelude-C-42 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Prelude-C-38C-38 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else 1)))))
-(define PrimIO-case--433-454 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
-(define PrimIO-case--270-326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
-(define PrimIO-case--253-304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--270-326 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5))))
-(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--433-454 'erased arg-1 'erased (arg-1 w))))))
-(define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2))
-(define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f)))
-(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
-(define PrimIO-putStrLn (lambda (arg-0 ext-0) (PrimIO-putStr (string-append arg-0 "\xa;") ext-0)))
-(define PrimIO-putStr (lambda (arg-0 ext-0) (PrimIO-prim__putStr arg-0 ext-0)))
-(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
-(define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1))))
-(define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0)))
-(define PrimIO-primIO (lambda (arg-0 arg-1) arg-1))
-(define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1))
-(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--253-304 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0))))
-(define PrimIO-getLine (lambda (ext-0) (PrimIO-prim__getStr ext-0)))
+(define Basics-Prelude-uncurry (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-3 e-2) e-3))))))
+(define Basics-Prelude-the (lambda (arg-0 arg-1) arg-1))
+(define Basics-Prelude-id (lambda (arg-0 arg-1) arg-1))
+(define Basics-Prelude-flip (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4)))
+(define Basics-Prelude-const (lambda (arg-0 arg-1 arg-2 ext-0) arg-2))
+(define Basics-Prelude-C-46 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (arg-3 (arg-4 ext-0))))
 (define Builtin-sym (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 )))
 (define DPair-DPair-Builtin-snd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
 (define Builtin-snd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
@@ -1025,107 +1021,131 @@
 (define Builtin-believe_me (lambda (arg-0 arg-1 ext-0) ext-0))
 (define Builtin-assert_total (lambda (arg-0 arg-1) arg-1))
 (define Builtin-assert_smaller (lambda (arg-0 arg-1 arg-2 arg-3) arg-3))
+(define PrimIO-case--389-413 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
+(define PrimIO-case--276-337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
+(define PrimIO-case--258-315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--276-337 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5))))
+(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--389-413 'erased 'erased 'erased (arg-1 w))))))
+(define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2))
+(define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f)))
+(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
+(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
+(define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1))))
+(define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0)))
+(define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1))
+(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--258-315 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0))))
+(define PrimIO-fromPrim (lambda (arg-0 arg-1) arg-1))
+(define Maybe-Data-toMaybe (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (arg-2))) (else (vector 0 ))))))
 (define Maybe-Data-isJust (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else 0)))))
 (define Maybe-Data-fromMaybe (lambda (arg-0 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 REPL-Yaffle-case--12634-1531 (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) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-Yaffle-case--12613-1481 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Prelude-printLn 'erased (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x)))) e-2 eta-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 (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 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-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))
-(define REPL-Yaffle-case--11475-1344 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn 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 ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--12315-1247 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9))))))))
-(define REPL-Yaffle-case--12259-1183 (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))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0)))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered") eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11475-1132 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((bind-0 arg-5)) ((REPL-Yaffle-case--12259-1183 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--12029-975 (lambda (arg-0 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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed" eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11977-922 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9)) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-24))))))))
-(define REPL-Yaffle-case--11475-875 (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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (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))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9)) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-25))))))) (else (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (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) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) 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 (vector 1 0)))))))))))
-(define REPL-Yaffle-case--11475-741 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) 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-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-12 eta-1))) (vector 1 act-28))))))))) e-9) eta-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 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define REPL-Yaffle-case--11475-614 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 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-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 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-12 (vector-ref sc7 1))) (let ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-12 eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define REPL-Yaffle-case--11475-549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) 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 ((act-28 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))))
-(define REPL-Yaffle-case--11475-412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) 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 ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-7 eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))
-(define REPL-Yaffle-n--11475-463-printName (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-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 ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (vector 1 act-27)))))))))))))))))))))))))
-(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\xa;"))))))) eta-0))) (vector 1 act-24))))))))))
-(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (PrimIO-putStr "Yaffle> " 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 (let ((act-25 (PrimIO-getLine 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))) ((REPL-Yaffle-case--12613-1481 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0)))))))))))))
-(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Core-Core-show_Show__Error err) 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 (vector 1 0))))))) ext-0)))
-(define REPL-Yaffle-process (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))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 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)) (let ((e-2 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (vector 1 act-28))))))))) (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))) (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 (Context-Core-lookupTyName e-10 (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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11475-463-printName e-9 e-10 arg-2 arg-1 arg-0 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 (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 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)) (let ((e-3 (vector-ref sc2 2))) (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 ((Normalise-Core-getTerm 'erased e-3) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) 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 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-9 eta-0))) (vector 1 act-29))))))))) (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))) (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 (Context-Core-lookupTyName e-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-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 ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) 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-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 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-13 eta-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))) (let ((act-30 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-14 eta-0))) (vector 1 act-30))))))))) (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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (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 (Context-Core-lookupTyName 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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) 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-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) d eta-1))) (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))) (let ((act-30 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-14 eta-1))) (vector 1 act-30))))))))) e-13) eta-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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (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-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 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-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 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (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-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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (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)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 (PrimIO-putStrLn "Failed" eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11)) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 (PrimIO-putStrLn "Already defined" eta-0))) (vector 1 act-27))))))) (else (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (vector 1 act-27)))))))))))) (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 (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (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 0)))))))))))))))))))))) ((5) (let ((e-6 (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 ((Context-Core-lookupCtxtName e-6 (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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12259-1183 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (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 ((Context-Core-lookupCtxtName e-7 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn 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 ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-9 (vector-ref sc4 1))) (let ((act-28 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (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 ((Context-Core-lookupCtxtName 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo 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 (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "Bye for now!" 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 (vector 1 1)))))))))))
-(define Source-Parser-case--2587-355 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
+(define REPL-Yaffle-case--13213-1648 (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) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Yaffle-case--13184-1592 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-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 (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 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-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))
+(define REPL-Yaffle-case--11953-1432 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn 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 ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--12866-1332 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9))))))))
+(define REPL-Yaffle-case--12807-1266 (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))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--11953-1212 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn 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 ((bind-0 arg-5)) ((REPL-Yaffle-case--12807-1266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--12561-1042 (lambda (arg-0 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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--12507-986 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-9 eta-2)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25)))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))))))
+(define REPL-Yaffle-case--11953-937 (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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (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))) (let ((sc9 e-3)) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26)))))) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-26 (arg-3664 eta-2))) ((arg-3665 act-26) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (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) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) 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 (vector 1 0)))))))))))
+(define REPL-Yaffle-case--11953-790 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) 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-9 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-12) eta-1))) (vector 1 act-28))))))))) e-9) eta-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 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define REPL-Yaffle-case--11953-652 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (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-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 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-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 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-12 (vector-ref sc7 1))) (let ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define REPL-Yaffle-case--11953-576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) 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 ((act-28 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))))))
+(define REPL-Yaffle-case--11953-423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) 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 ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))
+(define REPL-Yaffle-n--11953-482-printName (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-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 ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27)))))))))))))))))))))))))
+(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\xa;")))))))) eta-0))) (vector 1 act-24))))))))))
+(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Yaffle> ") 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 (let ((act-25 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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))) ((REPL-Yaffle-case--13184-1592 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0)))))))))))))
+(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Core-Core-show_Show__Error err)) 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 (vector 1 0))))))) ext-0)))
+(define REPL-Yaffle-process (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))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 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)) (let ((e-2 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (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))) (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 (Context-Core-lookupTyName e-10 (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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--11953-482-printName e-9 e-10 arg-2 arg-1 arg-0 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 (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 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)) (let ((e-3 (vector-ref sc2 2))) (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 ((Normalise-Core-getTerm 'erased e-3) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 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 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) 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 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (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))) (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 (Context-Core-lookupTyName e-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-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 ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) 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-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 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-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))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-30 (arg-3664 eta-1))) ((arg-3665 act-30) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-2) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (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 (Context-Core-lookupTyName 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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) 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-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) eta-1 eta-2))) e-9) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) d eta-1))) (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))) (let ((act-30 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x))))) e-14) eta-1))) (vector 1 act-30))))))))) e-13) eta-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)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-toplevelFC) e-3) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (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-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 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-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 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (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-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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) e-11 eta-2)) eta-1))) (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)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-16 (vector-ref sc12 2))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16)) eta-1))) (vector 1 act-28)))))) (else (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-27 (arg-3664 eta-2))) ((arg-3665 act-27) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (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 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (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 0)))))))))))))))))))))) ((5) (let ((e-6 (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 ((Context-Core-lookupCtxtName e-6 (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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--12807-1266 e-6 arg-2 arg-1 arg-0 e-5 e-7 bind-0 fn e-8 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (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 ((Context-Core-lookupCtxtName e-7 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn 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 ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn 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-9 (vector-ref sc4 1))) (let ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-28 (arg-3664 eta-2))) ((arg-3665 act-28) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) 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 (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (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 ((Context-Core-lookupCtxtName 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo 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 (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Bye for now!") 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 (vector 1 1)))))))))))
+(define Source-Parser-case--2688-370 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
 (define Source-Parser-runParserTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 3 eta-0)) (Unlit-Parser-unlit arg-2 arg-4)) (lambda (str) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Source-Lexer-Parser-lexTo arg-3 str)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-5 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))))
 (define Source-Parser-runParser (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Source-Parser-runParserTo 'erased arg-1 arg-2 (lambda (eta-0) 1) ext-0 ext-1)))
-(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
+(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
 (define Either-Utils-mapError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-either 'erased 'erased 'erased (lambda () (lambda (eta-0) (vector 0 (arg-3 eta-0)))) (lambda () (lambda (eta-0) (vector 1 eta-0))) arg-4)))
-(define File-System-case--2751-8004 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2571-7844 (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)) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-2 eta-0))) (vector 1 (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-2 eta-0))) (vector 0 e-5)))))))))
-(define File-System-case--2559-7826 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-fPutStr e-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 0 e-5)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define File-System-case--2484-7764 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (vector 1 (Strings-Data-fastAppend e-2)))))) (else (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (File-System-returnError 'erased eta-0))))))))
-(define File-System-case--2396-7745 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-n--2396-7667-read arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 (Strings-Data-fastAppend e-3))))) (else (let ((act-25 (File-System-closeFile e-2 eta-0))) (File-System-returnError 'erased eta-0))))))))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2408-7708 (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))) (lambda (eta-0) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0)))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2398-7678 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-2)))) (else (lambda (eta-0) (let ((act-24 (File-System-fGetLine arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0))) (else (File-System-returnError 'erased eta-0)))))))))))
-(define File-System-case--2346-7634 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased arg-1 eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2315-7604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2251-7544 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased arg-1 eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
-(define File-System-case--2099-7402 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0)))))))
-(define File-System-case--2053-7364 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (Prelude-cast_Cast__Int_Char arg-1) eta-0)))))))
-(define File-System-case--1981-7290 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
-(define File-System-case--1920-7232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased arg-2 eta-0)))))))
-(define File-System-case--1793-7111 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (vector 1 )))) ((equal? sc0 1) (lambda (eta-0) (vector 0 (vector 2 )))) ((equal? sc0 2) (lambda (eta-0) (vector 0 (vector 3 )))) ((equal? sc0 3) (lambda (eta-0) (vector 0 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (vector 0 (vector 5 ))))(else (lambda (eta-0) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5)))))))))
-(define File-System-n--2396-7667-read (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-fEOF arg-2 ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 1 (List-Data-reverse 'erased arg-1))) (else (let ((act-25 (File-System-fGetLine arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2396-7667-read arg-0 (vector 1 e-2 arg-1) arg-2 ext-0))) (else (File-System-returnError 'erased ext-0)))))))))))
+(define File-System-case--3371-1833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 )))))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--3147-1627 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1651) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1692) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5))))))))))))))
+(define File-System-case--3126-1599 (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 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-2 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-7 (vector-ref sc4 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1651) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1692) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-5)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5))))))))))
+(define File-System-case--3014-1493 (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 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1515) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 (Strings-Data-fastAppend e-2))))))))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1))))))))))
+(define File-System-case--2883-1469 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1515) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2904-1415 (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-2 (vector-ref sc0 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2890-1366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))))))))))
+(define File-System-case--2797-1282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2741-1225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2631-1115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1))))))
+(define File-System-case--2365-845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (vector 0 )))))))
+(define File-System-case--2292-782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-cast_Cast__Int_Char arg-3)))))))
+(define File-System-case--2174-654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3)))))))
+(define File-System-case--2070-547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (File-System-returnError 'erased 'erased arg-1)) (else (File-System-ok 'erased 'erased arg-1 arg-4))))))
+(define File-System-case--1874-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5)))))))))))
+(define File-System-case--1836-322 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+")))))
+(define File-System-case--1836-316 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+")))))
+(define File-System-case--1836-310 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+")))))
+(define File-System-case--1836-304 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a")))))
+(define File-System-case--1836-298 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w")))))
+(define File-System-case--1836-292 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r")))))
+(define File-System-n--2883-1351-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1)))))))))))))))))
 (define File-System-show_Show__FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (Prelude-show_Show__Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists")))))
 (define File-System-showPrec_Show__FileError (lambda (arg-0 arg-1) (File-System-show_Show__FileError arg-1)))
 (define File-System-__Impl_Show_FileError (lambda () (vector 0 (lambda (x) (File-System-show_Show__FileError x)) (lambda (d) (lambda (x) (File-System-showPrec_Show__FileError d x))))))
-(define File-System-writeFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 1 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-fPutStr e-2 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define File-System-writeFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 1 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-4 arg-3)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-10 (vector-ref sc5 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1651) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1692) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 0 e-8)))))))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5))))))))))))))
 (define File-System-stdout (lambda () (File-System-prim__stdout)))
 (define File-System-stdin (lambda () (File-System-prim__stdin)))
-(define File-System-returnError (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim_fileErrno ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 0 (vector 1 ))) ((equal? sc0 1) (vector 0 (vector 2 ))) ((equal? sc0 2) (vector 0 (vector 3 ))) ((equal? sc0 3) (vector 0 (vector 4 ))) ((equal? sc0 4) (vector 0 (vector 5 )))(else (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-24 5)))))))))
-(define File-System-removeFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__removeFile arg-0 ext-0))) ((File-System-case--2315-7604 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define File-System-readFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-n--2396-7667-read arg-0 (vector 0 ) e-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 (Strings-Data-fastAppend e-3))))) (else (let ((act-26 (File-System-closeFile e-2 ext-0))) (File-System-returnError 'erased ext-0)))))))) (else (File-System-returnError 'erased ext-0)))))))
-(define File-System-openFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__open arg-0 (File-System-modeStr arg-1) 0 ext-0))) ((File-System-case--1920-7232 arg-1 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-24) 0)) ext-0))))
-(define File-System-ok (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "rb") ((1) "wb") ((2) "ab") ((3) "rb+") ((4) "wb+") (else "ab+")))))
-(define File-System-fileSize (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__fileSize arg-0 ext-0))) ((File-System-case--2346-7634 arg-0 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
-(define File-System-fileModifiedTime (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__fileModifiedTime arg-0 ext-0))) ((File-System-case--2251-7544 arg-0 act-24 (Prelude-C-62_Ord__Int act-24 0)) ext-0))))
-(define File-System-fileError (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim_error arg-0 ext-0))) (Prelude-C-47C-61_Eq__Int act-24 0))))
-(define File-System-fflush (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__flush arg-0 ext-0))) (vector 0 ))))
-(define File-System-fPutStr (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__writeLine arg-0 arg-1 ext-0))) ((File-System-case--2099-7402 arg-0 arg-1 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define File-System-fGetLine (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__readLine arg-0 ext-0))) ((File-System-case--1981-7290 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define File-System-fGetChar (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__readChar arg-0 ext-0))) (let ((act-25 (File-System-prim_error arg-0 ext-0))) ((File-System-case--2053-7364 arg-0 act-24 act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0)))))
-(define File-System-fEOF (lambda (arg-0 ext-0) (let ((act-24 (File-System-prim__eof arg-0 ext-0))) (Prelude-C-47C-61_Eq__Int act-24 0))))
-(define File-System-closeFile (lambda (arg-0 ext-0) (File-System-prim__close arg-0 ext-0)))
-(define File-System-chmodRaw (lambda (arg-0 arg-1 ext-0) (let ((act-24 (File-System-prim__chmod arg-0 arg-1 ext-0))) ((File-System-case--2751-8004 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define Unlit-Parser-case--1675-7241 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0))))))
-(define Unlit-Parser-case--1651-7216 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1675-7241 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1675-7241 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
-(define Unlit-Parser-case--1647-7195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1651-7216 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1651-7216 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
-(define Unlit-Parser-case--1617-7179 (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 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
-(define Unlit-Parser-case--1587-7164 (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 (Unlit-Parser-case--1617-7179 arg-0 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
-(define Unlit-Parser-case--1590-7147 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define Unlit-Parser-n--1587-7136-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1590-7147 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1587-7135-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
-(define Unlit-Parser-n--1587-7135-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0)))
+(define File-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5)))))))))))))))
+(define File-System-removeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__removeFile arg-2 eta-0)))))) (lambda (res) (File-System-case--2741-1225 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--2883-1351-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1515) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1553) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1))))))))))
+(define File-System-openFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__open arg-2 (File-System-modeStr arg-3) 0 eta-0)))))) (lambda (res) (File-System-case--2070-547 'erased arg-1 arg-3 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0))))))))
+(define File-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3))))))
+(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (File-System-case--1836-292 (Info-System-isWindows))) ((1) (File-System-case--1836-298 (Info-System-isWindows))) ((2) (File-System-case--1836-304 (Info-System-isWindows))) ((3) (File-System-case--1836-310 (Info-System-isWindows))) ((4) (File-System-case--1836-316 (Info-System-isWindows))) (else (File-System-case--1836-322 (Info-System-isWindows)))))))
+(define File-System-fileSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileSize arg-2 eta-0)))))) (lambda (res) (File-System-case--2797-1282 'erased arg-1 arg-2 res (Prelude-C-62C-61_Ord__Int res 0))))))))
+(define File-System-fileModifiedTime (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileModifiedTime arg-2 eta-0)))))) (lambda (res) (File-System-case--2631-1115 'erased arg-1 arg-2 res (Prelude-C-62_Ord__Int res 0))))))))
+(define File-System-fileError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (x) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int x 0))))))))))
+(define File-System-fflush (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__flush arg-2 eta-0)))))) (lambda (_-938) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 ))))))))))
+(define File-System-fPutStr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__writeLine arg-2 arg-3 eta-0)))))) (lambda (res) (File-System-case--2365-845 'erased arg-1 arg-2 arg-3 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define File-System-fGetLine (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readLine arg-2 eta-0)))))) (lambda (res) (File-System-case--2174-654 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define File-System-fGetChar (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__readChar arg-2 eta-0)))))) (lambda (c) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (File-System-prim_error arg-2 eta-0)))))) (lambda (ferr) (File-System-case--2292-782 'erased arg-1 arg-2 c ferr (Prelude-C-47C-61_Eq__Int ferr 0))))))))))))
+(define File-System-fEOF (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__eof arg-2 eta-0)))))) (lambda (res) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-47C-61_Eq__Int res 0))))))))))
+(define File-System-closeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (File-System-prim__close arg-2 eta-0)))))))
+(define File-System-chmodRaw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__chmod arg-2 arg-3 eta-0)))))) (lambda (ok) (File-System-case--3371-1833 'erased arg-1 arg-3 arg-2 ok (Prelude-C-61C-61_Eq__Int ok 0))))))))
+(define Info-System-prim__os (lambda () (blodwen-os)))
+(define Info-System-os (lambda () (blodwen-os)))
+(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
+(define Unlit-Parser-case--1705-7506 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (vector 0 (vector 0 ) arg-0)))))))(else (vector 0 (vector 0 ) arg-0))))))
+(define Unlit-Parser-case--1681-7481 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1705-7506 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
+(define Unlit-Parser-case--1677-7460 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 1 e-5) e-3)))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1681-7481 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
+(define Unlit-Parser-case--1647-7444 (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 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
+(define Unlit-Parser-case--1617-7429 (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 (Unlit-Parser-case--1647-7444 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
+(define Unlit-Parser-case--1620-7412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define Unlit-Parser-n--1617-7401-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1620-7412 arg-0 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1617-7400-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
+(define Unlit-Parser-n--1617-7400-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0)))
 (define Unlit-Parser-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))) (Literate-Text-unlit e-2 arg-1)))))))
 (define Unlit-Parser-styleOrg (lambda () (vector 0 (vector 1 (vector 0 "#+BEGIN_SRC idris" "#+END_SRC") (vector 1 (vector 0 "#+begin_src idris" "#+end_src") (vector 1 (vector 0 "#+COMMENT idris" "#+END_COMMENT") (vector 1 (vector 0 "#+comment idris" "#+end_comment") (vector 0 ))))) (vector 1 "#+IDRIS:" (vector 0 )) (vector 1 ".org" (vector 0 )))))
-(define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 0 )))))
+(define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 1 ".markdown" (vector 0 ))))))
 (define Unlit-Parser-styleBird (lambda () (vector 0 (vector 0 ) (vector 1 ">" (vector 1 "<" (vector 0 ))) (vector 1 ".lidr" (vector 0 )))))
 (define Unlit-Parser-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))) (Strings-Data-unwords (vector 1 e-2 (vector 1 arg-1 (vector 0 ))))))))))
-(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1647-7195 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
-(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1587-7164 arg-0 (Unlit-Parser-n--1587-7136-isStyle arg-0 (Unlit-Parser-styleBird)))))
-(define Literate-Text-with--2445-7416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 2))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-11) e-12))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2)))))))))
-(define Literate-Text-with--2226-7262 (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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-6 arg-5))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Data-unlines e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Data-unlines e-2)))))))))))
-(define Literate-Text-with--2137-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2226-7262 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 e-2 arg-7 arg-6 arg-5 arg-4 arg-0))))))))
-(define Literate-Text-case--2372-7355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 "")))(else (vector 0 (vector 0 e-6 e-10 e-11))))))))))))))))
-(define Literate-Text-case--2152-7187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-2)) "\xa;"))) (else "")))))
-(define Literate-Text-case--2087-7154 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))))
-(define Literate-Text-n--2137-7181-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Literate-Text-case--2152-7187 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) (integer->char 10) (Prelude-unpack arg-2)))))
-(define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-is (integer->char 10)) (Lexer-Text-any))))
+(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--1677-7460 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
+(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1617-7429 arg-0 (Unlit-Parser-n--1617-7401-isStyle arg-0 (Unlit-Parser-styleBird)))))
+(define Literate-Text-with--2565-7737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 5))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((2) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-13) e-14))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2)))))))))
+(define Literate-Text-with--2324-7569 (lambda (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-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-8 arg-7))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-8 (vector 1 "\xa;" (vector 1 (Strings-Data-unlines e-2) arg-7)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-8 (vector 1 "\xa;" (vector 1 (Strings-Data-unlines e-2) arg-7))))))))))
+(define Literate-Text-with--2206-7546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-8 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2324-7569 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 e-2 arg-9 arg-8 arg-7 arg-6 arg-0))))))))
+(define Literate-Text-case--2490-7674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11))))))))))))))))
+(define Literate-Text-case--2206-7487 (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) (Literate-Text-reduce arg-6 (vector 1 "\xa;" arg-7))) (else (Literate-Text-reduce arg-6 (vector 1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length arg-5) (+ 1 0)) (Prelude-length arg-4) arg-4) arg-7)))))))
+(define Literate-Text-case--2156-7427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))))
+(define Literate-Text-n--2206-7460-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-4)) "\xa;"))))
+(define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-newline) (Lexer-Text-any))))
 (define Literate-Text-unlit (lambda (ext-0 ext-1) (Literate-Text-extractCode ext-0 ext-1)))
-(define Literate-Text-reduce (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))) (let ((e-3 (vector-ref sc0 2))) (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-7)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Literate-Text-n--2137-7181-blank_content e-5 e-6 e-8 e-3 arg-1))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length e-9) (+ 1 0)) (Prelude-length e-10) e-10)))))) (else (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Literate-Text-with--2137-7247 e-13 (Strings-Data-lines e-13) e-5 e-6 e-12 e-11 e-3 arg-1))))))))))))))))))
-(define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 1 eta-0))) (vector 0 ))))))
-(define Literate-Text-line (lambda (arg-0) (vector 4 (vector 4 (Lexer-Text-exact arg-0) (lambda () (Lexer-Text-space))) (lambda () (Literate-Text-untilEOL)))))
-(define Literate-Text-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))) (Literate-Text-with--2445-7416 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2)))))))
+(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Data-fastAppend (List-Data-reverse 'erased arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2206-7460-blank_content e-5 e-6 e-7 e-8 e-10 e-3 arg-1) arg-1)))) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (Literate-Text-case--2206-7487 e-5 e-6 e-7 e-8 e-12 e-11 e-3 arg-1 (Prelude-C-61C-61_Eq__String e-11 (Strings-Data-trim e-12)))))) (else (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (Literate-Text-with--2206-7546 e-15 (Strings-Data-lines e-15) e-5 e-6 e-7 e-8 e-14 e-13 e-3 arg-1))))))))))))))))))))
+(define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Literate-Text-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) (vector 0 ))))))
+(define Literate-Text-notCodeLine (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-any) (lambda () (Literate-Text-untilEOL))))))
+(define Literate-Text-line (lambda (arg-0) (vector 4 (Lexer-Text-exact arg-0) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-space) (lambda () (Literate-Text-untilEOL))))))))
+(define Literate-Text-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))) (Literate-Text-with--2565-7737 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2)))))))
 (define LiterateStyle-Literate-Text-file_extensions (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Literate-Text-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))) (Literate-Text-case--2372-7355 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1))))))))
+(define Literate-Text-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))) (Literate-Text-case--2490-7674 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1))))))))
 (define Literate-Text-block (lambda (arg-0 arg-1) (Lexer-Text-surround (vector 4 (Lexer-Text-exact arg-0) (lambda () (Literate-Text-untilEOL))) (vector 4 (Lexer-Text-exact arg-1) (lambda () (Literate-Text-untilEOL))) (Lexer-Text-any))))
 (define Views-List-Data-snocListHelp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Views-List-Data-snocListHelp 'erased (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) (vector 1 e-2 arg-1 arg-2) e-3))))))))
 (define Views-List-Data-snocList (lambda (arg-0 arg-1) (Views-List-Data-snocListHelp 'erased (vector 0 ) (vector 0 ) arg-1)))
-(define Lexer-Text-case--2211-467 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3)))))))))
-(define Lexer-Text-case--2187-446 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3)))))))))
-(define Lexer-Text-case--2058-332 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))))
-(define Lexer-Text-n--2378-586-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2378-586-lexStr e-3)))))))))
-(define Lexer-Text-n--2378-587-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2378-586-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits))))))
+(define Lexer-Text-case--2271-480 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-like eta-0)) (vector 1 e-2 e-3)))))))))
+(define Lexer-Text-case--2247-459 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3)))))))))
+(define Lexer-Text-case--2114-341 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))))
+(define Lexer-Text-n--2441-602-lexStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact e-2) (Lexer-Text-n--2441-602-lexStr e-3)))))))))
+(define Lexer-Text-n--2441-603-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-602-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits))))))
 (define Lexer-Text-toTokenMap (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))) ext-0)))
 (define Lexer-Text-symbol (lambda () (Core-Lexer-Text-pred (lambda (x) (Prelude-not (Prelude-C-124C-124 (Prelude-isSpace x) (lambda () (Prelude-isAlphaNum x))))))))
 (define Lexer-Text-surround (lambda (arg-0 arg-1 arg-2) (vector 4 arg-0 (lambda () (Lexer-Text-manyThen 'erased arg-1 arg-2)))))
@@ -1134,7 +1154,7 @@
 (define Lexer-Text-some (lambda (arg-0) (vector 4 arg-0 (lambda () (Lexer-Text-many arg-0)))))
 (define Lexer-Text-quote (lambda (arg-0 arg-1) (Lexer-Text-surround arg-0 arg-0 arg-1)))
 (define Lexer-Text-opt (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased arg-0 (Core-Lexer-Text-empty))))
-(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) x (Prelude-unpack arg-0))))))
+(define Lexer-Text-oneOf (lambda (arg-0) (Core-Lexer-Text-pred (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) x (Prelude-unpack arg-0))))))
 (define Lexer-Text-octLit (lambda () (vector 4 (Lexer-Text-exact "0o") (lambda () (Lexer-Text-octDigits)))))
 (define Lexer-Text-octDigits (lambda () (Lexer-Text-some (Lexer-Text-octDigit))))
 (define Lexer-Text-octDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isOctDigit eta-0)))))
@@ -1149,14 +1169,14 @@
 (define Lexer-Text-hexLit (lambda () (vector 4 (Lexer-Text-approx "0x") (lambda () (Lexer-Text-hexDigits)))))
 (define Lexer-Text-hexDigits (lambda () (Lexer-Text-some (Lexer-Text-hexDigit))))
 (define Lexer-Text-hexDigit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isHexDigit eta-0)))))
-(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2187-446 arg-0 (Prelude-unpack arg-0))))
+(define Lexer-Text-exact (lambda (arg-0) (Lexer-Text-case--2247-459 arg-0 (Prelude-unpack arg-0))))
 (define Lexer-Text-escape (lambda (arg-0 arg-1) (vector 4 (Lexer-Text-is arg-0) (lambda () arg-1))))
 (define Lexer-Text-digits (lambda () (Lexer-Text-some (Lexer-Text-digit))))
 (define Lexer-Text-digit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isDigit eta-0)))))
 (define Lexer-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (arg-4 x) acc)))) (Core-Lexer-Text-fail 'erased)) arg-5)))))
 (define Lexer-Text-choice (lambda (arg-0 arg-1 arg-2 ext-0) (Lexer-Text-choiceMap 'erased 'erased arg-1 arg-2 (lambda (eta-0) eta-0) ext-0)))
-(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2378-587-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
-(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2211-467 arg-0 (Prelude-unpack arg-0))))
+(define Lexer-Text-charLit (lambda () (let ((q #\')) (vector 4 (vector 4 (Lexer-Text-is q) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2441-603-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
+(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2271-480 arg-0 (Prelude-unpack arg-0))))
 (define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) 0))))
 (define Token-Text-tokValue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Token-Text-TokType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
@@ -1165,28 +1185,32 @@
 (define Quantity-Text-between (lambda (arg-0 arg-1) (vector 0 arg-0 (vector 1 arg-1))))
 (define Quantity-Text-atMost (lambda (arg-0) (vector 0 0 (vector 1 arg-0))))
 (define Quantity-Text-atLeast (lambda (arg-0) (vector 0 arg-0 (vector 0 ))))
-(define Core-Lexer-Text-case--3006-7934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
-(define Core-Lexer-Text-case--2950-7882 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
-(define Core-Lexer-Text-case--2801-7763 (lambda (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) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10))))))
-(define Core-Lexer-Text-case--2587-7730 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2801-7763 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1))))))))
-(define Core-Lexer-Text-case--2599-7646 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2587-7541-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63) (vector 0 (Core-Lexer-Text-n--2587-7542-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4) e-6))))))))) (else (Core-Lexer-Text-n--2587-7543-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
-(define Core-Lexer-Text-case--2598-7565 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))))))))
-(define Core-Lexer-Text-case--2208-7399 (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))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3))))))
-(define Core-Lexer-Text-case--2208-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 ))))))
-(define Core-Lexer-Text-case--2208-7237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 ))))))
-(define Core-Lexer-Text-n--2587-7543-getFirstToken (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2599-7646 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8))))))))))))
-(define Core-Lexer-Text-n--2587-7542-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2598-7565 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7)))))
-(define Core-Lexer-Text-n--2587-7541-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7))))
-(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2587-7730 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2587-7543-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6))))
-(define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
-(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2208-7237 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2208-7286 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3)))))))))
+(define Core-Lexer-Text-case--3166-8286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
+(define Core-Lexer-Text-case--3110-8234 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (Prelude-fastPack e-11)))))))))))))))
+(define Core-Lexer-Text-case--2961-8115 (lambda (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) (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 (vector 0 ))))) (else (Core-Lexer-Text-tokenise 'erased arg-6 arg-8 arg-9 (vector 1 arg-7 arg-3) arg-2 arg-10))))))
+(define Core-Lexer-Text-case--2743-8082 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (Core-Lexer-Text-case--2961-8115 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-9 e-13 e-14 (arg-6 e-5))))))))))))) (else (vector 0 (List-Data-reverse 'erased arg-3) (vector 0 arg-5 (vector 0 arg-4 arg-1))))))))
+(define Core-Lexer-Text-case--2755-7996 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2743-7889-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2743-7890-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 lineC-39 colC-39 (arg-8 (Prelude-fastPack (List-Data-reverse 'erased e-5)))) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
+(define Core-Lexer-Text-case--2754-7915 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2)) 63))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))))))))
+(define Core-Lexer-Text-case--2267-7664 (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))) (Core-Lexer-Text-scan 'erased arg-1 e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased arg-2 e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-scan 'erased (arg-1) e-2 e-3))))))
+(define Core-Lexer-Text-case--2267-7548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 1 arg-1 arg-3) arg-2))) (else (vector 0 ))))))
+(define Core-Lexer-Text-case--2267-7499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 ))))))
+(define Core-Lexer-Text-n--2743-7891-getFirstToken (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Core-Lexer-Text-case--2755-7996 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-7 e-3 arg-8 (Core-Lexer-Text-scan 'erased e-6 (vector 0 ) arg-8))))))))))))
+(define Core-Lexer-Text-n--2743-7890-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2754-7915 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7)))))
+(define Core-Lexer-Text-n--2743-7889-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7))))
+(define TokenData-Core-Lexer-Text-rf--line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
+(define TokenData-Core-Lexer-Text-rf--endLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
+(define TokenData-Core-Lexer-Text-rf--endCol (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
+(define TokenData-Core-Lexer-Text-rf--col (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
+(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2743-8082 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2743-7891-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6))))
+(define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
+(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2267-7499 'erased e-3 e-2 arg-3 arg-2 'erased (Prelude-C-61C-61_Eq__Bool (Maybe-Data-isJust 'erased (Core-Lexer-Text-scan 'erased e-3 arg-2 arg-3)) e-2))))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Core-Lexer-Text-case--2267-7548 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-6 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased (e-7) e-2 e-3))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-10 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-11 e-2 e-3))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Core-Lexer-Text-scan 'erased e-13 arg-2 arg-3) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Core-Lexer-Text-scan 'erased e-14 e-2 e-3))))))))) (else (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (Core-Lexer-Text-scan 'erased e-18 arg-2 arg-3)) (lambda () (lambda (eta-0) (vector 1 eta-0))) (Core-Lexer-Text-scan 'erased e-17 arg-2 arg-3)))))))))
 (define Core-Lexer-Text-reject (lambda (arg-0 ext-0) (vector 2 1 ext-0)))
 (define Core-Lexer-Text-pred (lambda (ext-0) (vector 3 ext-0)))
 (define TokenData-Core-Lexer-Text-line (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3006-7934 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3)))))
-(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--2950-7882 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) 1) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2)))))
+(define Core-Lexer-Text-lexTo (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Lexer-Text-case--3166-8286 'erased arg-3 arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased arg-1 0 0 (vector 0 ) arg-2 (Prelude-unpack arg-3)))))
+(define Core-Lexer-Text-lex (lambda (arg-0 arg-1 arg-2) (Core-Lexer-Text-case--3110-8234 'erased arg-2 arg-1 (Core-Lexer-Text-tokenise 'erased (lambda (eta-0) 1) 0 0 (vector 0 ) arg-1 (Prelude-unpack arg-2)))))
 (define Core-Lexer-Text-fail (lambda (arg-0) (vector 1 )))
 (define Core-Lexer-Text-expect (lambda (arg-0 ext-0) (vector 2 0 ext-0)))
 (define Core-Lexer-Text-empty (lambda () (vector 0 )))
@@ -1197,129 +1221,131 @@
 (define Core-Lexer-Text-C-60C-43C-62 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))))))))
 (define Extra-Bool-Data-anyTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 e-2 (lambda () (Extra-Bool-Data-anyTrue e-3))))))))))
 (define Extra-Bool-Data-allTrue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 e-2 (lambda () (Extra-Bool-Data-allTrue e-3))))))))))
-(define Source-Rule-Parser-case--4635-8621 (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 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps)))))))))))
-(define Source-Rule-Parser-case--4544-8457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1))))))
-(define Source-Rule-Parser-case--4220-8124 (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 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4220-8091 (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 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4220-8062 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4177-8026 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4117-7990 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
-(define Source-Rule-Parser-case--4032-7900 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
-(define Source-Rule-Parser-case--4032-7876 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
-(define Source-Rule-Parser-case--3916-7801 (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 Source-Rule-Parser-case--3772-7650 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0))))))))
-(define Source-Rule-Parser-case--3772-7631 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0)))))))
-(define Source-Rule-Parser-case--3707-7556 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3677-7530 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3658-7513 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3627-7488 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1)))))))
-(define Source-Rule-Parser-case--3621-7479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3627-7488 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3579-7448 (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 Source-Rule-Parser-case--3571-7436 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3579-7448 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3529-7403 (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 Source-Rule-Parser-case--3521-7391 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3529-7403 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3479-7358 (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 Source-Rule-Parser-case--3470-7346 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3479-7358 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3428-7312 (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 Source-Rule-Parser-case--3419-7300 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3428-7312 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3400-7280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3381-7263 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3362-7246 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3334-7220 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Source-Rule-Parser-case--3209-7138 (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 6 e-2))))))))
-(define Source-Rule-Parser-case--3209-7105 (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 7 e-2))))))))
-(define Source-Rule-Parser-case--3203-7098 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3209-7105 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3209-7138 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Source-Rule-Parser-n--4635-8496-restOfBlock (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8519) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8552) (vector 0 (vector 0 (vector 0 ) ps))))))))))))
-(define Source-Rule-Parser-n--3770-7610-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 (Source-Rule-Parser-reservedNames))))
-(define Source-Rule-Parser-n--3770-7612-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))))
-(define Source-Rule-Parser-n--3770-7613-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-7695) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-7725) (vector 0 (vector 0 arg-0 n)))))))))))))
-(define Source-Rule-Parser-n--3770-7611-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3772-7631 e-2 (Source-Rule-Parser-n--3770-7610-reserved e-2)))(else (Source-Rule-Parser-case--3772-7650 e-2 e-3 (Source-Rule-Parser-n--3770-7610-reserved e-2))))))))))))
-(define Source-Rule-Parser-n--3183-7067-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
-(define Source-Rule-Parser-n--4216-8045-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 Source-Rule-Parser-n--4216-8046-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4220-8062 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4220-8091 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4220-8124 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 )))))))
+(define Source-Rule-Parser-case--4805-8974 (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 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps)))))))))))
+(define Source-Rule-Parser-case--4709-8802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1))))))
+(define Source-Rule-Parser-case--4372-8451 (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 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4372-8418 (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 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4372-8389 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4328-8353 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4267-8316 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry"))))))
+(define Source-Rule-Parser-case--4182-8225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
+(define Source-Rule-Parser-case--4182-8201 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation"))))))
+(define Source-Rule-Parser-case--4061-8124 (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 Source-Rule-Parser-case--3913-7966 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0))))))))
+(define Source-Rule-Parser-case--3913-7947 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0)))))))
+(define Source-Rule-Parser-case--3847-7872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3816-7844 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3786-7816 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 1 e-1 (vector 0 )))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3766-7797 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3735-7770 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 1 arg-1)))))))
+(define Source-Rule-Parser-case--3728-7761 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3735-7770 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3686-7728 (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 Source-Rule-Parser-case--3677-7716 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3686-7728 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3635-7681 (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 Source-Rule-Parser-case--3626-7669 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3635-7681 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3584-7634 (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 Source-Rule-Parser-case--3574-7622 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3584-7634 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3532-7586 (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 Source-Rule-Parser-case--3522-7574 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3532-7586 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3502-7552 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 5 e-0))))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3482-7533 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3462-7514 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3433-7486 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Source-Rule-Parser-case--3308-7402 (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 6 e-2))))))))
+(define Source-Rule-Parser-case--3308-7369 (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 7 e-2))))))))
+(define Source-Rule-Parser-case--3301-7362 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7369 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--3308-7402 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Source-Rule-Parser-n--4805-8841-restOfBlock (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8867) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8902) (vector 0 (vector 0 (vector 0 ) ps))))))))))))
+(define Source-Rule-Parser-n--3911-7926-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Rule-Parser-reservedNames))))
+(define Source-Rule-Parser-n--3911-7928-opNonNS (lambda () (vector 8 (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))))
+(define Source-Rule-Parser-n--3911-7929-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-8013) (vector 7 0 (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField))) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8045) (vector 0 (vector 0 arg-0 n)))))))))))))
+(define Source-Rule-Parser-n--3911-7927-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 1 "IMPOSSIBLE"))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Source-Rule-Parser-case--3913-7947 e-2 (Source-Rule-Parser-n--3911-7926-reserved e-2)))(else (Source-Rule-Parser-case--3913-7966 e-2 e-3 (Source-Rule-Parser-n--3911-7926-reserved e-2))))))))))))
+(define Source-Rule-Parser-n--3281-7329-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
+(define Source-Rule-Parser-n--4368-8372-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 Source-Rule-Parser-n--4368-8373-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4372-8389 arg-0 arg-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8418 arg-0 arg-1 e-0 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4372-8451 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 )))))))
 (define Source-Rule-Parser-unqualifiedName (lambda () (Source-Rule-Parser-identPart)))
-(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8200) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8189) (vector 0 (Source-Rule-Parser-n--4216-8045-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4216-8046-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 ))))))))))
-(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3419-7300 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3381-7263 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8530) (vector 0 (vector 3 )))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-8518) (vector 0 (Source-Rule-Parser-n--4368-8372-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4368-8373-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 ))))))))))
+(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3522-7574 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--3482-7533 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-reservedNames (lambda () (vector 1 "Type" (vector 1 "Int" (vector 1 "Integer" (vector 1 "Bits8" (vector 1 "Bits16" (vector 1 "Bits32" (vector 1 "Bits64" (vector 1 "String" (vector 1 "Char" (vector 1 "Double" (vector 1 "Lazy" (vector 1 "Inf" (vector 1 "Force" (vector 1 "Delay" (vector 0 )))))))))))))))))
-(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3400-7280 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3571-7436 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3621-7479 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8736) (vector 8 1 0 (vector 5 ) (lambda (_-8745) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8772) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps)))))))))))))
-(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3677-7530 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3770-7612-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3770-7613-opNS ns) (lambda () (Source-Rule-Parser-n--3770-7611-nameNS ns))))))))))
+(define Source-Rule-Parser-recField (lambda () (vector 1 "Expected record field" (lambda (x) (Source-Rule-Parser-case--3502-7552 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--3677-7716 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--3728-7761 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9094) (vector 8 1 0 (vector 5 ) (lambda (_-9104) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9135) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps)))))))))))))
+(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--3786-7816 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--3911-7928-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3911-7929-opNS ns) (lambda () (Source-Rule-Parser-n--3911-7927-nameNS ns))))))))))
 (define Source-Rule-Parser-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-continueF (vector 4 0 "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-continueF (vector 4 0 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 e-2 "'"))) arg-0)))))))
-(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3470-7346 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--3816-7844 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--3574-7622 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (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)(else 1))))) ((13) (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))))) ((12) 0)(else 1)))))
-(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3362-7246 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--3462-7514 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-init (lambda () 0))
-(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3658-7513 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3707-7556 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3521-7391 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3183-7067-isEOI (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda (_-7085) (vector 0 (vector 0 ))))))
-(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3334-7220 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--3766-7797 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--3847-7872 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--3626-7669 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3281-7329-isEOI (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-7348) (vector 0 (vector 0 ))))))
+(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3433-7486 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Source-Rule-Parser-documentation (lambda () (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 eta-2 eta-3))))) (lambda (eta-0) (Strings-Data-unlines eta-0)) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-documentationC-39)))))
-(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7792) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7784) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--3916-7801 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))))
+(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8115) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-8106) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4061-8124 arg-1 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))))
 (define Source-Rule-Parser-continue (lambda (ext-0) (Source-Rule-Parser-continueF (vector 4 1 "Unexpected end of expression") ext-0)))
-(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3203-7098 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Source-Rule-Parser-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))) (Source-Rule-Parser-case--4032-7876 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4032-7900 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block"))))))
-(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8589) (vector 8 1 0 (vector 5 ) (lambda (_-8598) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4635-8496-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4635-8621 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2))))))))
-(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8227) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39)))))))))))))
-(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8294) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 ))))))))
-(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8415) (vector 8 1 0 (vector 5 ) (lambda (_-8424) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8440) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4544-8457 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))
-(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8349) (vector 8 1 0 (vector 5 ) (lambda (_-8358) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8374) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1)))))))
-(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4177-8026 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))
-(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda (_-7977) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4117-7990 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))))
+(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--3301-7362 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Source-Rule-Parser-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))) (Source-Rule-Parser-case--4182-8201 e-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--4182-8225 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block"))))))
+(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8940) (vector 8 1 0 (vector 5 ) (lambda (_-8950) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--4805-8841-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4805-8974 'erased 'erased arg-4 arg-3 arg-2 col (Prelude-C-60C-61_Ord__Int col arg-2))))))))
+(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-8559) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39)))))))))))))
+(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8629) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 ))))))))
+(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8757) (vector 8 1 0 (vector 5 ) (lambda (_-8767) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8786) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4709-8802 'erased arg-2 arg-1 col (Prelude-C-60C-61_Ord__Int col arg-1))))))))
+(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8686) (vector 8 1 0 (vector 5 ) (lambda (_-8696) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8715) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1)))))))
+(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4328-8353 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))
+(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-8304) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4267-8316 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))))
 (define Source-Rule-Parser-Rule (lambda (ext-0) (Common-Rule-Parser-Rule (vector "Parser.Lexer.Source.Token" ) ext-0)))
 (define Source-Rule-Parser-IndentInfo (lambda () (vector "Int" )))
-(define TT-Core-case--9948-7647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9948-7163-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
-(define TT-Core-case--9718-7019 (lambda (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) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7))))))
-(define TT-Core-case--9475-6768 (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 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4)))))))
-(define TT-Core-case--8968-6322 (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 TT-Core-case--8903-6275 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
-(define TT-Core-case--8891-6257 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0))))))))
-(define TT-Core-case--8576-5998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9)))
-(define TT-Core-case--8427-5883 (lambda (arg-0 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 (vector 0 arg-5 (vector 0 ) arg-12))))
-(define TT-Core-case--8395-5831 (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) (TT-Core-case--8427-5883 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
-(define TT-Core-case--8281-5774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
-(define TT-Core-case--8094-5565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
-(define TT-Core-case--7928-5514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10)))
-(define TT-Core-case--7928-5440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8)))
-(define TT-Core-case--7427-5158 (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 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2))))))))
-(define TT-Core-case--7149-4820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10))))
-(define TT-Core-case--7149-4739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9)))
-(define TT-Core-case--6513-4135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
-(define TT-Core-case--6409-4082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
-(define TT-Core-case--6305-3994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
-(define TT-Core-case--6239-3910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
-(define TT-Core-case--5961-3678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
-(define TT-Core-case--5616-3406 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define TT-Core-case--5617-3392 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define TT-Core-case--2791-818 (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 TT-Core-case--2791-786 (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 TT-Core-case--2791-754 (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 TT-Core-case--2791-722 (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 TT-Core-n--5915-3620-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 (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1)))))))))))
-(define TT-Core-n--9948-7163-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)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) 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-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))
-(define TT-Core-n--6935-4509-getFA (lambda (arg-0 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))) (TT-Core-n--6935-4509-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
-(define TT-Core-n--5078-2956-eqPiInfo (lambda (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) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1)))))
-(define TT-Core-n--5078-2957-eqBinder (lambda (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 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-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5078-2956-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1)))))
-(define TT-Core-n--9718-6972-addRefsArgs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9718-6972-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3))))))))
-(define TT-Core-n--9604-6880-addMetaArgs (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9604-6880-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3))))))))
+(define TT-Core-case--10100-7772 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--10100-7252-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
+(define TT-Core-case--9870-7105 (lambda (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) (TT-Core-addRefs 'erased 0 arg-9 (NameMap-Data-insert 'erased arg-4 0 arg-8) arg-7)) (else (TT-Core-addRefs 'erased arg-10 arg-9 (TT-Core-addRefs 'erased arg-10 arg-9 (NameMap-Data-insert 'erased arg-4 arg-10 arg-8) arg-6) arg-7))))))
+(define TT-Core-case--9627-6854 (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 1 arg-3 arg-2 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) arg-4)))))))
+(define TT-Core-case--9120-6408 (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 TT-Core-case--9055-6361 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
+(define TT-Core-case--9043-6342 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Prelude-pure_Applicative__Maybe 'erased 0))))))))
+(define TT-Core-case--8728-6083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-7 arg-6 arg-9)))
+(define TT-Core-case--8579-5968 (lambda (arg-0 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 (vector 0 arg-5 (vector 0 ) arg-12))))
+(define TT-Core-case--8547-5916 (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) (TT-Core-case--8579-5968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
+(define TT-Core-case--8433-5859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
+(define TT-Core-case--8246-5650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
+(define TT-Core-case--8080-5599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (+ 1 arg-10)))
+(define TT-Core-case--8080-5525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (+ 1 arg-8)))
+(define TT-Core-case--7559-5232 (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 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 0 arg-6 arg-5 e-2))))))))
+(define TT-Core-case--7279-4885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (+ 1 arg-10))))
+(define TT-Core-case--7279-4803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 1 arg-9)))
+(define TT-Core-case--6639-4204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-6 arg-5 arg-8)))
+(define TT-Core-case--6535-4151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
+(define TT-Core-case--6431-4063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
+(define TT-Core-case--6365-3979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
+(define TT-Core-case--6087-3747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
+(define TT-Core-case--5723-3463 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define TT-Core-case--5724-3449 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define TT-Core-case--2872-840 (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 TT-Core-case--2872-808 (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 TT-Core-case--2872-776 (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 TT-Core-case--2872-744 (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 TT-Core-n--6039-3689-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 (TT-Core-show_Show__Covering arg-2)))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-show_Show__Terminating arg-1))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1)))))))))))
+(define TT-Core-n--10100-7252-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)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) 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-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((3) (let ((e-83 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-83) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))
+(define TT-Core-n--7065-4572-getFA (lambda (arg-0 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))) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
+(define TT-Core-n--5181-3002-eqPiInfo (lambda (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) ((1) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((2) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (TT-Core-eqTerm 'erased 'erased e-4 e-9)))(else 1)))))(else 1)))))
+(define TT-Core-n--5181-3003-eqBinder (lambda (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) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-25) (lambda () (TT-Core-eqTerm 'erased 'erased e-3 e-26)))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-6 e-29) (lambda () (TT-Core-eqTerm 'erased 'erased e-7 e-30)))))))))(else 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-11)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-33) (lambda () (TT-Core-eqTerm 'erased 'erased e-11 e-34)))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-n--5181-3002-eqPiInfo 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-37) (lambda () (TT-Core-eqTerm 'erased 'erased e-15 e-38)))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-18 e-41) (lambda () (TT-Core-eqTerm 'erased 'erased e-19 e-42)))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (TT-Core-eqTerm 'erased 'erased e-22 e-45))))))(else 1))))))(else 1)))))
+(define TT-Core-n--9870-7058-addRefsArgs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9870-7058-addRefsArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-addRefs 'erased arg-7 arg-6 arg-8 e-2) e-3))))))))
+(define TT-Core-n--9756-6966-addMetaArgs (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-n--9756-6966-addMetaArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-addMetas 'erased arg-6 e-2) e-3))))))))
 (define Totality-TT-Core-rf--isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define TT-Core-weaken_Weaken__Var (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2)))
 (define TT-Core-weaken_Weaken__Term (lambda (arg-0 arg-1 ext-0) (TT-Core-weakenNs_Weaken__Term arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define TT-Core-weakenNs_Weaken__Var (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-weaken_Weaken__Var e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TT-Core-weakenNs_Weaken__Var arg-0 e-3 arg-2)))))))))
 (define TT-Core-weakenNs_Weaken__Term (lambda (arg-0 arg-1 arg-2) (TT-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define TT-Core-show_Show__Visibility (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "private") ((1) "export") (else "public export")))))
-(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--5915-3620-showTot arg-0 t c)))))
+(define TT-Core-show_Show__Totality (lambda (arg-0) (let ((t (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((c (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (TT-Core-n--6039-3689-showTot arg-0 t c)))))
 (define TT-Core-show_Show__TotalReq (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "total") ((1) "covering") (else "partial")))))
 (define TT-Core-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))) (TT-Core-show_Show__PartialReason e-0)))))))
 (define TT-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "possibly not terminating due to call to " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))))(else (Strings-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "possibly not terminating due to recursive path " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))
 (define TT-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "not covering due to call to function " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))
 (define TT-Core-show_Show__Constant (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Prelude-show_Show__String e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Prelude-show_Show__Char e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "%MkWorld") ((10) "Int") ((11) "Integer") ((12) "Bits8") ((13) "Bits16") ((14) "Bits32") ((15) "Bits64") ((16) "String") ((17) "Char") ((18) "Double") (else "%World")))))
 (define TT-Core-show_Show__C-40VarC-32C-36nsC-41 (lambda (arg-0 arg-1) (Prelude-show_Show__Nat arg-1)))
-(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--9948-7647 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1))))
+(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--10100-7772 arg-0 arg-1 (TT-Core-getFnArgs 'erased arg-1))))
 (define TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "+" (TT-Core-show_Show__Constant e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "*" (TT-Core-show_Show__Constant e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "/" (TT-Core-show_Show__Constant e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%" (TT-Core-show_Show__Constant e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "neg " (TT-Core-show_Show__Constant e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shl " (TT-Core-show_Show__Constant e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shr " (TT-Core-show_Show__Constant e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "and " (TT-Core-show_Show__Constant e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "or " (TT-Core-show_Show__Constant e-9)))) ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "xor " (TT-Core-show_Show__Constant e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (TT-Core-show_Show__Constant e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<=" (TT-Core-show_Show__Constant e-12)))) ((13) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "==" (TT-Core-show_Show__Constant e-13)))) ((14) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">=" (TT-Core-show_Show__Constant e-14)))) ((15) (let ((e-15 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ">" (TT-Core-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))) (Strings-Prelude-C-43C-43 "cast-" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-17))))))) ((36) "believe_me") (else "crash")))))
 (define TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (Strings-Prelude-C-43C-43 "DefImplicit " (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-4))))))))))
 (define TT-Core-showPrec_Show__Totality (lambda (arg-0 arg-1) (TT-Core-show_Show__Totality arg-1)))
@@ -1330,13 +1356,13 @@
 (define TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-2)))
 (define TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased arg-2)))
 (define TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-3)))
-(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5617-3392 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1))))
-(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5616-3406 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1))))
+(define TT-Core-min_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5724-3449 arg-1 arg-0 (TT-Core-C-60_Ord__Visibility arg-0 arg-1))))
+(define TT-Core-max_Ord__Visibility (lambda (arg-0 arg-1) (TT-Core-case--5723-3463 arg-1 arg-0 (TT-Core-C-62_Ord__Visibility arg-0 arg-1))))
 (define TT-Core-map_Functor__PiInfo (lambda (arg-0 arg-1 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 TT-Core-map_Functor__Binder (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))) (vector 0 e-1 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-2) (arg-2 e-3)))))) ((1) (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 (arg-2 e-6) (arg-2 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 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-10) (arg-2 e-11)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 e-13 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-14) (arg-2 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 (arg-2 e-18) (arg-2 e-19)))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (vector 5 e-21 (arg-2 e-22)))))))))
 (define TT-Core-compare_Ord__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) ((1) 0) ((2) 0) (else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0) ((1) 1) (else 2)))) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 1) ((0) 2) (else 2))))))))
-(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Var n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Var vars ns arg-3225)))))))
-(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225)))))))
+(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Var n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Var vars ns arg-3271)))))))
+(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271)))))))
 (define TT-Core-__Impl_Show_Totality (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Totality x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Totality d x))))))
 (define TT-Core-__Impl_Show_TotalReq (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__TotalReq x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__TotalReq d x))))))
 (define TT-Core-__Impl_Show_Covering (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Covering x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Covering d x))))))
@@ -1345,20 +1371,20 @@
 (define TT-Core-__Impl_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x))))))
 (define TT-Core-__Impl_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 'erased d x))))))
 (define TT-Core-__Impl_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 d x))))))
-(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Visibility arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Visibility arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (TT-Core-compare_Ord__Visibility arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (TT-Core-C-60_Ord__Visibility arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (TT-Core-C-62_Ord__Visibility arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (TT-Core-C-60C-61_Ord__Visibility arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (TT-Core-C-62C-61_Ord__Visibility arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (TT-Core-max_Ord__Visibility arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (TT-Core-min_Ord__Visibility arg-979 arg-980))))))
+(define TT-Core-__Impl_Ord_Visibility (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (TT-Core-compare_Ord__Visibility arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (TT-Core-C-60_Ord__Visibility arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (TT-Core-C-62_Ord__Visibility arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (TT-Core-C-60C-61_Ord__Visibility arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (TT-Core-C-62C-61_Ord__Visibility arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (TT-Core-max_Ord__Visibility arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (TT-Core-min_Ord__Visibility arg-787 arg-788))))))
 (define TT-Core-__Impl_Functor_Binder (lambda (ext-0 ext-1 ext-2 ext-3) (TT-Core-map_Functor__Binder 'erased 'erased ext-2 ext-3)))
-(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Visibility arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Visibility arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__Constant arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__Constant arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-650 arg-651))))))
-(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-650 arg-651))))))
+(define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Visibility arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Visibility arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__Constant arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__Constant arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-430 arg-431))))))
+(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-430 arg-431))))))
 (define TT-Core-C-62_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 2)))
 (define TT-Core-C-62C-61_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0)))
 (define TT-Core-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 TT-Core-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 TT-Core-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 TT-Core-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-9 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-0 e-9)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Integer e-1 e-10)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-2 e-11)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-3 e-12)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Int e-4 e-13)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Integer e-5 e-14)))(else 1))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-6 e-15)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-7 e-16)))(else 1))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Double e-8 e-17)))(else 1))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) 0)(else 1)))) ((12) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) 0)(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))))(else 1)))))
-(define TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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)))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-4) e-9)))))(else 1)))))(else 1)))))
 (define TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-2 e-25) (lambda () (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) ((e-5 e-3) e-26)))))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-6) e-29))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-7) e-30)))))))))))(else 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-3)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-10 e-33) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-11) e-34)))))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-14 e-37) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-15) e-38)))))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-18) e-41))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-19) e-42)))))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-22) e-45))))))))(else 1))))))(else 1)))))
 (define TT-Core-C-60_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 0)))
@@ -1368,27 +1394,27 @@
 (define TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Prelude-not (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-1 arg-2))))
 (define TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2 arg-3))))
 (define TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
-(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6239-3910 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased)))))))))
+(define TT-Core-weakenVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6365-3979 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenVar 'erased 'erased e-3 arg-3 'erased)))))))))
 (define TT-Core-weakenNs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (((e-2 arg-1) arg-3) arg-4)))))))
-(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--5961-3678 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased)))))))))
+(define TT-Core-weakenNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--6087-3747 'erased 'erased arg-3 e-2 e-3 'erased (TT-Core-weakenNVar 'erased 'erased e-3 arg-3 'erased)))))))))
 (define TT-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (((e-1 arg-1) arg-2) arg-4))))))
 (define TT-Core-varIdx (lambda (arg-0 arg-1) arg-1))
-(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--7928-5440 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (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 ((idx (+ 1 e-9))) (TT-Core-case--7928-5514 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased)))))))))))))
+(define TT-Core-varEmbedSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) ((1) (let ((e-4 (vector-ref sc0 1))) (TT-Core-case--8080-5525 'erased 'erased arg-4 'erased 'erased e-4 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-4 arg-4 'erased)))) (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 ((idx (+ 1 e-9))) (TT-Core-case--8080-5599 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased)))))))))))))
 (define TT-Core-unchecked (lambda () (vector 0 (vector 0 ) (vector 0 ))))
 (define SubstEnv-TT-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 0 ) arg-2 arg-3)))
-(define TT-Core-substName (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))) (TT-Core-case--9475-6768 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3)))))
+(define TT-Core-substName (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))) (TT-Core-case--9627-6854 arg-0 e-3 e-2 e-1 arg-2 arg-1 (Name-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-substName arg-0 arg-1 arg-2 eta-0)) e-12) (TT-Core-substName (vector 1 e-11 arg-0) arg-1 (TT-Core-weaken_Weaken__Term e-11 arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-16) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-30) (TT-Core-substName arg-0 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 (TT-Core-substName arg-0 arg-1 arg-2 e-35))))))(else arg-3)))))
 (define SubstEnv-TT-Core-substEnv (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))) (let ((e-4 (vector-ref sc0 3))) (SubstEnv-TT-Core-find 'erased arg-0 arg-1 arg-2 e-4 e-2 e-3 'erased 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 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-18) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 1 e-17 arg-2) 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-22) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-27) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-36) (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 (SubstEnv-TT-Core-substEnv arg-0 arg-1 arg-2 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 SubstEnv-TT-Core-subst (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv (vector 1 arg-1 (vector 0 )) arg-0 (vector 0 ) (vector 1 arg-2 (vector 0 )) arg-3)))
 (define TT-Core-subExtend (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-3 (vector-ref sc0 2))) (vector 2 (TT-Core-subExtend 'erased 'erased e-3 arg-3))))))))
 (define TT-Core-subElem (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-12) (lambda (_-0) (vector 1 _-0))))) (else (let ((e-16 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-subElem 'erased 'erased 'erased e-0 'erased e-16) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))))
-(define TT-Core-shrinkTerm (lambda (arg-0 arg-1 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))) (TT-Core-case--7427-5158 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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 TT-Core-shrinkTerm (lambda (arg-0 arg-1 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))) (TT-Core-case--7559-5232 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-subElem 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (x) (TT-Core-shrinkTerm 'erased 'erased x arg-3)) e-14) (lambda (xsC-39) (vector 1 (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased 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 TT-Core-shrinkPi (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-4 arg-3) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
 (define TT-Core-shrinkBinder (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-2 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-3 arg-3) (lambda (bind-1) (vector 1 (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-6 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-7 arg-3) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-10 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-11 arg-3) (lambda (bind-1) (vector 1 (vector 2 e-9 bind-0 bind-1)))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-14 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-15 arg-3) (lambda (bind-1) (vector 1 (vector 3 e-13 bind-0 bind-1)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-18 arg-3) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
-(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
+(define TT-Core-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
 (define TT-Core-setMultiplicity (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 arg-2 e-2 e-3)))) ((1) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-2 e-6 e-7)))) ((2) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 arg-2 e-10 e-11)))) ((3) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-2 e-14 e-15)))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 arg-2 e-18 e-19)))) (else (let ((e-22 (vector-ref sc0 2))) (vector 5 arg-2 e-22)))))))
 (define TT-Core-sameVar (lambda (arg-0 arg-1 arg-2) (Prelude-C-61C-61_Eq__Nat arg-1 arg-2)))
-(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (TT-Core-case--8395-5831 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
-(define TT-Core-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) (TT-Core-case--8968-6322 e-3 e-1 arg-0 (TT-Core-isVar 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 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 (TT-Core-resolveNames arg-0 e-16) (TT-Core-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 (TT-Core-resolveNames arg-0 e-21) (TT-Core-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 (TT-Core-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 (TT-Core-resolveNames arg-0 e-30) (TT-Core-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 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1)))))
+(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (TT-Core-case--8547-5916 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
+(define TT-Core-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) (TT-Core-case--9120-6408 e-3 e-1 arg-0 (TT-Core-isVar 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 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 (TT-Core-resolveNames arg-0 e-16) (TT-Core-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 (TT-Core-resolveNames arg-0 e-21) (TT-Core-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 (TT-Core-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 (TT-Core-resolveNames arg-0 e-30) (TT-Core-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 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1)))))
 (define TT-Core-renameVars (lambda (arg-0 arg-1 arg-2 arg-3) (Builtin-believe_me 'erased 'erased arg-3)))
 (define TT-Core-renameTop (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-3)))
 (define TT-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3))))))
@@ -1397,50 +1423,50 @@
 (define TT-Core-notCovering (lambda () (vector 0 (vector 0 ) (vector 1 (vector 0 )))))
 (define TT-Core-nameAt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-1)(else (let ((e-3 (- arg-2 1))) (TT-Core-nameAt 'erased e-2 e-3 'erased))))))))))
 (define TT-Core-multiplicity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-5 (vector-ref sc0 1))) e-5)) ((2) (let ((e-9 (vector-ref sc0 1))) e-9)) ((3) (let ((e-13 (vector-ref sc0 1))) e-13)) ((4) (let ((e-17 (vector-ref sc0 1))) e-17)) (else (let ((e-21 (vector-ref sc0 1))) e-21))))))
-(define TT-Core-mkLocals (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))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8576-5998 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((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) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2))))
-(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--8891-6257 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2)))))))))
+(define TT-Core-mkLocals (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))) (let ((e-4 (vector-ref sc0 3))) (TT-Core-case--8728-6083 'erased arg-1 arg-2 'erased e-4 'erased e-3 e-2 arg-3 (TT-Core-addVars 'erased 'erased arg-1 arg-2 e-4 arg-3 'erased)))))) ((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) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-7 (vector 0 ) e-9)) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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))) (Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-14))) (lambda () (lambda (eta-0) eta-0)) (TT-Core-resolveRef 'erased 'erased arg-1 (vector 0 ) arg-3 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 eta-0)) e-18) (TT-Core-mkLocals 'erased (vector 1 e-17 arg-1) arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-22) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-27) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 arg-3 e-36) (TT-Core-mkLocals 'erased arg-1 arg-2 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 (TT-Core-mkLocals 'erased arg-1 arg-2 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 TT-Core-linFnType (lambda (arg-0 arg-1 arg-2) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-1) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-2))))
+(define TT-Core-isVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-case--9043-6342 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2)))))))))
 (define TT-Core-isTotal (lambda () (vector 0 (vector 0 ) (vector 0 ))))
 (define Totality-TT-Core-isTerminating (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Totality-TT-Core-isCovering (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6305-3994 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
-(define TT-Core-insertNames (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))) (TT-Core-case--6513-4135 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6409-4082 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
+(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6431-4063 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
+(define TT-Core-insertNames (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))) (TT-Core-case--6639-4204 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-18) (TT-Core-insertNames (vector 1 e-17 arg-0) arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-22) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-27) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 arg-2 e-36) (TT-Core-insertNames arg-0 arg-1 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 (TT-Core-insertNames arg-0 arg-1 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 TT-Core-insertNVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--6535-4151 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased)))))))))))))
 (define TT-Core-getRefs (lambda (arg-0 arg-1 arg-2) (TT-Core-addRefs 'erased 1 arg-1 (NameMap-Data-empty 'erased) arg-2)))
 (define TT-Core-getMetas (lambda (arg-0 arg-1) (TT-Core-addMetas 'erased (NameMap-Data-empty 'erased) arg-1)))
 (define TT-Core-getLoc (lambda (arg-0 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 TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--6935-4509-getFA 'erased arg-1 (vector 0 ) arg-1)))
+(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--7065-4572-getFA 'erased arg-1 (vector 0 ) arg-1)))
 (define TT-Core-getFn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (TT-Core-getFn 'erased e-2)))(else arg-1)))))
 (define TT-Core-getArgs (lambda (arg-0 ext-0) (Builtin-snd 'erased 'erased (TT-Core-getFnArgs 'erased ext-0))))
 (define TT-Core-forgetDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (vector 0 ))))))
 (define SubstEnv-TT-Core-findDrop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 arg-4 arg-5 arg-3)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 2))) (SubstEnv-TT-Core-findDrop 'erased 'erased e-3 e-4 arg-4 arg-5 'erased e-14)))))))))))))
 (define SubstEnv-TT-Core-find (lambda (arg-0 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) (SubstEnv-TT-Core-findDrop 'erased 'erased arg-1 arg-4 arg-5 arg-6 'erased arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 arg-5 arg-6 0))(else (let ((e-4 (- arg-4 1))) (TT-Core-weaken_Weaken__Term e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2) (SubstEnv-TT-Core-find 'erased arg-1 arg-2 e-3 e-4 arg-5 arg-6 'erased arg-8)))))))))))))
-(define TT-Core-eqTerm (lambda (arg-0 arg-1 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (Prelude-C-38C-38 (TT-Core-n--5078-2957-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-embedSub (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))) (TT-Core-case--8094-5565 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (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 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 TT-Core-eqTerm (lambda (arg-0 arg-1 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))) (Prelude-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))) (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) e-14 e-64)))))))(else 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (Prelude-C-38C-38 (TT-Core-n--5181-3003-eqBinder 'erased 'erased e-66 e-67 e-16 e-17 e-19 e-18 e-69 e-68 e-18 e-68) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-22 e-72) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-27 e-77) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (Prelude-C-38C-38 (TT-Core-eqTerm 'erased 'erased e-36 e-86) (lambda () (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-eqTerm 'erased 'erased 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))) (TT-Core-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))) (Prelude-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 TT-Core-embedSub (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))) (TT-Core-case--8246-5650 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-varEmbedSub 'erased 'erased 'erased arg-2 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-embedSub 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-embedSub 'erased 'erased (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 (TT-Core-embedSub 'erased 'erased arg-2 e-22) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-27) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-2 e-36) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased 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 TT-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2)))
 (define TT-Core-dropVar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-2)(else (let ((e-3 (- arg-2 1))) (vector 1 e-1 (TT-Core-dropVar 'erased e-2 e-3 'erased)))))))))))
 (define TT-Core-dropFirst (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (TT-Core-dropFirst 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (TT-Core-dropFirst 'erased 'erased e-3)))))))))))))
-(define TT-Core-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-5 (vector-ref sc1 1))) (TT-Core-case--2791-722 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2791-754 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2791-786 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2791-818 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (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 )))))(else (vector 0 ))))))
+(define TT-Core-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-5 (vector-ref sc1 1))) (TT-Core-case--2872-744 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2872-776 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2872-808 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2872-840 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (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 )))))(else (vector 0 ))))))
 (define TT-Core-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((10) 3) ((11) 4) ((12) 5) ((13) 6) ((14) 7) ((15) 8) ((16) 9) ((17) 10) ((18) 11) ((19) 12)(else 0)))))
 (define TT-Core-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 (TT-Core-C-61C-61_Eq__LazyReason arg-0 arg-1)))))))))
 (define TT-Core-binderType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) e-3)) ((1) (let ((e-7 (vector-ref sc0 3))) e-7)) ((2) (let ((e-11 (vector-ref sc0 3))) e-11)) ((3) (let ((e-15 (vector-ref sc0 3))) e-15)) ((4) (let ((e-19 (vector-ref sc0 3))) e-19)) (else (let ((e-22 (vector-ref sc0 2))) e-22))))))
 (define TT-Core-apply (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-apply 'erased arg-1 (vector 4 arg-1 arg-2 e-2) e-3))))))))
-(define TT-Core-addVars (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) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8281-5774 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased))))))))))))))
-(define TT-Core-addRefs (lambda (arg-0 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))) (NameMap-Data-insert 'erased 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))) (TT-Core-n--9718-6972-addRefsArgs 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased 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-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9718-7019 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3)))))
-(define TT-Core-addMetas (lambda (arg-0 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))) (TT-Core-n--9604-6880-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1)))))
+(define TT-Core-addVars (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) (TT-Core-weakenNVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (let ((idx (+ 1 e-4))) (TT-Core-case--8433-5859 'erased 'erased arg-3 e-4 e-2 e-3 'erased arg-5 idx (TT-Core-addVars 'erased 'erased e-3 arg-3 e-4 arg-5 'erased))))))))))))))
+(define TT-Core-addRefs (lambda (arg-0 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))) (NameMap-Data-insert 'erased 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))) (TT-Core-n--9870-7058-addRefsArgs 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-52) e-53) e-19))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 (TT-Core-binderType 'erased 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-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (TT-Core-case--9870-7105 'erased e-21 e-55 e-60 e-61 e-59 e-57 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-61 arg-2))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23))))))))(else (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-22) e-23)))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addRefs 'erased arg-1 arg-2 (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addRefs 'erased arg-1 arg-2 arg-3 e-41))) ((9) arg-3) ((10) arg-3) (else arg-3)))))
+(define TT-Core-addMetas (lambda (arg-0 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))) (TT-Core-n--9756-6966-addMetaArgs 'erased e-14 e-13 e-12 e-11 arg-1 (NameMap-Data-insert 'erased 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-52 (vector-ref sc1 2))) (let ((e-53 (vector-ref sc1 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-52) e-53) e-19))))(else (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 (TT-Core-binderType 'erased e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-22) e-23)))) ((5) (let ((e-28 (vector-ref sc0 4))) (TT-Core-addMetas 'erased arg-1 e-28))) ((6) (let ((e-32 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (TT-Core-addMetas 'erased arg-1 e-41))) ((9) arg-1) ((10) arg-1) (else arg-1)))))
 (define TT-Core-ClosedTerm (lambda () (vector "Core.TT.Term" (vector 0 ))))
 (define Algebra-RigCount (lambda () (vector "Algebra.ZeroOneOmega.ZeroOneOmega" )))
-(define Preorder-Algebra-case--1481-407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
-(define Preorder-Algebra-case--1438-368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3)))))
+(define Preorder-Algebra-case--1502-416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2)))))
+(define Preorder-Algebra-case--1459-377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-2) (else arg-3)))))
 (define Preorder-Algebra-top (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1438-368 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
-(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1481-407 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
+(define Preorder-Algebra-lub (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1459-377 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
+(define Preorder-Algebra-glb (lambda (arg-0 arg-1 arg-2 arg-3) (Preorder-Algebra-case--1502-416 'erased arg-1 arg-3 arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))))))
 (define Preorder-Algebra-C-60C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
 (define Preorder-Algebra-C-60 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-38C-38 (let ((sc0 (Builtin-fst 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-2) arg-3))) (lambda () (let ((sc0 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) arg-3)))))))
-(define Semiring-Algebra-case--1649-547 (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 (arg-4))))))
-(define Semiring-Algebra-case--1591-496 (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 (arg-4))))))
-(define Semiring-Algebra-case--1456-396 (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) arg-5) (else (arg-4 arg-3))))))
-(define Semiring-Algebra-case--1434-346 (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) arg-6) (else (Semiring-Algebra-case--1456-396 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4)))))))))))
+(define Semiring-Algebra-case--1670-556 (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 (arg-4))))))
+(define Semiring-Algebra-case--1612-505 (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 (arg-4))))))
+(define Semiring-Algebra-case--1477-405 (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) arg-5) (else (arg-4 arg-3))))))
+(define Semiring-Algebra-case--1455-355 (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) arg-6) (else (Semiring-Algebra-case--1477-405 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-3) (let ((sc2 (Builtin-fst 'erased 'erased arg-2))) (let ((e-4 (vector-ref sc2 4))) e-4)))))))))))
 (define Semiring-Algebra-C-124C-42C-124 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
 (define Semiring-Algebra-timesNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
 (define Semiring-Algebra-plusNeutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
@@ -1449,9 +1475,9 @@
 (define Semiring-Algebra-isLinear (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 1 0 (lambda (eta-0) 1) ext-0)))
 (define Semiring-Algebra-isErased (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 0 1 (lambda (eta-0) 1) ext-0)))
 (define Semiring-Algebra-erased (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1434-346 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5))))))))
-(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1591-496 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5))))
-(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1649-547 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5))))
+(define Semiring-Algebra-elimSemi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Semiring-Algebra-case--1455-355 'erased 'erased arg-2 arg-6 arg-5 arg-4 arg-3 (let ((sc0 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc0 1))) ((e-1 arg-6) (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-5 (vector-ref sc1 2))) e-5))))))))
+(define Semiring-Algebra-branchZero (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1612-505 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isErased 'erased arg-2 arg-5))))
+(define Semiring-Algebra-branchOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-case--1670-556 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Semiring-Algebra-isLinear 'erased arg-2 arg-5))))
 (define ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigPlus ext-0 ext-1)))
 (define ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (lambda (ext-0 ext-1) (ZeroOneOmega-Algebra-rigMult ext-0 ext-1)))
 (define ZeroOneOmega-Algebra-top_Top__ZeroOneOmega (lambda () (vector 2 )))
@@ -1462,119 +1488,119 @@
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega (lambda () (vector 0 )))
-(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x)))))
+(define ZeroOneOmega-Algebra-__Impl_Top_ZeroOneOmega (lambda () (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (lambda (x) (ZeroOneOmega-Algebra-topAbs_Top__ZeroOneOmega x)))))
 (define ZeroOneOmega-Algebra-__Impl_Show_ZeroOneOmega (lambda () (vector 0 (lambda (x) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x)) (lambda (d) (lambda (x) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x))))))
-(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
-(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244)))))))))
-(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))))
+(define ZeroOneOmega-Algebra-__Impl_Semiring_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
+(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253)))))))))
+(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))))
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (lambda (arg-0 arg-1) (Prelude-not (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))
 (define ZeroOneOmega-Algebra-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 ZeroOneOmega-Algebra-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 Vect-Data-n--2827-3488-go (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) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2827-3488-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4))))))))
+(define Vect-Data-n--2902-3573-go (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) arg-5) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-n--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4))))))))
 (define Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-2 ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) ext-0))))
 (define Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 arg-4)))
 (define Vect-Data-map_Functor__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 (arg-3 e-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased arg-3 e-4)))))))))
 (define Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) arg-5)))
-(define Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (Prelude-flip 'erased 'erased 'erased arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4)))
+(define Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (Basics-Prelude-flip 'erased 'erased 'erased arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4)))
 (define Vect-Data-__Impl_Show_C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (x) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 x)) (lambda (d) (lambda (x) (Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 d x))))))
 (define Vect-Data-__Impl_Functor_C-40VectC-32C-36nC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased ext-2 ext-3)))
 (define Vect-Data-__Impl_Foldable_C-40VectC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))))
-(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2827-3488-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2)))
+(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--2902-3573-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2)))
 (define Vect-Data-foldrImpl (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) (arg-5 arg-4)) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4))))))))
-(define NameMap-Data-case--4200-6572 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
-(define NameMap-Data-case--4200-6535 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
-(define NameMap-Data-case--4112-6450 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define NameMap-Data-case--3812-6261 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
-(define NameMap-Data-case--3812-6187 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
-(define NameMap-Data-case--3699-6163 (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) (NameMap-Data-case--3812-6187 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3812-6261 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
-(define NameMap-Data-case--3699-6089 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
-(define NameMap-Data-case--2958-6065 (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) (NameMap-Data-case--3699-6089 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3699-6163 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
-(define NameMap-Data-case--3586-6011 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
-(define NameMap-Data-case--3444-5969 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
-(define NameMap-Data-case--3469-5911 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
-(define NameMap-Data-case--3444-5869 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
-(define NameMap-Data-case--2958-5849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3444-5869 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3444-5969 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
-(define NameMap-Data-case--3272-5787 (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))) (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 NameMap-Data-case--3272-5719 (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))) (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 NameMap-Data-case--3169-5697 (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) (NameMap-Data-case--3272-5719 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3272-5787 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
-(define NameMap-Data-case--3169-5629 (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))) (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 NameMap-Data-case--2958-5607 (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) (NameMap-Data-case--3169-5629 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3169-5697 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2)))))))
-(define NameMap-Data-case--3030-5557 (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 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 NameMap-Data-case--3030-5503 (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 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 NameMap-Data-case--2958-5485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3030-5503 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3030-5557 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
-(define NameMap-Data-case--2958-5437 (lambda (arg-0 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 NameMap-Data-case--2878-5368 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define NameMap-Data-case--2619-5271 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define NameMap-Data-case--2619-5160 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define NameMap-Data-case--2456-5129 (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) (NameMap-Data-case--2619-5160 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2619-5271 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define NameMap-Data-case--2456-5019 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define NameMap-Data-case--2101-4988 (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) (NameMap-Data-case--2456-5019 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2456-5129 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4)))))))
-(define NameMap-Data-case--2230-4910 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define NameMap-Data-case--2230-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) ((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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define NameMap-Data-case--2101-4794 (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) (NameMap-Data-case--2230-4821 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2230-4910 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define NameMap-Data-case--2101-4692 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define NameMap-Data-case--1994-4631 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define NameMap-Data-case--1871-4584 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--1994-4631 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
-(define NameMap-Data-case--1871-4536 (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) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define NameMap-Data-case--1871-4493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define NameMap-Data-n--3985-6317-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased 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))) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
-(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--3985-6317-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
-(define NameMap-Data-treeLookup (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))) (NameMap-Data-case--1871-4493 'erased e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1871-4536 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1871-4584 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
-(define NameMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2101-4692 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2101-4794 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2101-4988 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
-(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2878-5368 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
-(define NameMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (NameMap-Data-case--2958-5437 'erased e-3 e-2 arg-2 n (Name-Core-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))) (NameMap-Data-case--2958-5485 'erased e-9 e-8 e-7 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-5607 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-5849 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-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))) (NameMap-Data-case--2958-6065 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25))))))))))))))))))))
+(define NameMap-Data-case--4227-6676 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
+(define NameMap-Data-case--4227-6639 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
+(define NameMap-Data-case--4139-6554 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define NameMap-Data-case--3837-6362 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
+(define NameMap-Data-case--3837-6288 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
+(define NameMap-Data-case--3724-6264 (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) (NameMap-Data-case--3837-6288 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (NameMap-Data-case--3837-6362 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
+(define NameMap-Data-case--3724-6190 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (NameMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
+(define NameMap-Data-case--2983-6166 (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) (NameMap-Data-case--3724-6190 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (NameMap-Data-case--3724-6264 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
+(define NameMap-Data-case--3611-6112 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
+(define NameMap-Data-case--3469-6070 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
+(define NameMap-Data-case--3494-6012 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (NameMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
+(define NameMap-Data-case--3469-5970 (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))) (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 (NameMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
+(define NameMap-Data-case--2983-5950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (NameMap-Data-case--3469-5970 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (NameMap-Data-case--3469-6070 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (NameMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
+(define NameMap-Data-case--3297-5888 (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))) (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 NameMap-Data-case--3297-5820 (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))) (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 NameMap-Data-case--3194-5798 (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) (NameMap-Data-case--3297-5820 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (NameMap-Data-case--3297-5888 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
+(define NameMap-Data-case--3194-5730 (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))) (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 NameMap-Data-case--2983-5708 (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) (NameMap-Data-case--3194-5730 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (NameMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (NameMap-Data-case--3194-5798 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Name-Core-C-60C-61_Ord__Name arg-6 arg-2)))))))
+(define NameMap-Data-case--3055-5658 (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 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 NameMap-Data-case--3055-5604 (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 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 NameMap-Data-case--2983-5586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3055-5604 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3055-5658 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
+(define NameMap-Data-case--2983-5538 (lambda (arg-0 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 NameMap-Data-case--2903-5469 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define NameMap-Data-case--2644-5372 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define NameMap-Data-case--2644-5261 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define NameMap-Data-case--2481-5230 (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) (NameMap-Data-case--2644-5261 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (NameMap-Data-case--2644-5372 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (NameMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define NameMap-Data-case--2481-5120 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define NameMap-Data-case--2126-5089 (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) (NameMap-Data-case--2481-5120 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (NameMap-Data-case--2481-5230 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Name-Core-C-60C-61_Ord__Name arg-8 arg-4)))))))
+(define NameMap-Data-case--2255-5011 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define NameMap-Data-case--2255-4922 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define NameMap-Data-case--2126-4895 (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) (NameMap-Data-case--2255-4922 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (NameMap-Data-case--2255-5011 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define NameMap-Data-case--2126-4793 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define NameMap-Data-case--2019-4732 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define NameMap-Data-case--1896-4685 (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) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (NameMap-Data-case--2019-4732 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Name-Core-C-60C-61_Ord__Name arg-7 arg-3)))))))
+(define NameMap-Data-case--1896-4637 (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) (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define NameMap-Data-case--1896-4594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define NameMap-Data-n--4010-6418-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased 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))) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
+(define NameMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (NameMap-Data-n--4010-6418-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
+(define NameMap-Data-treeLookup (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))) (NameMap-Data-case--1896-4594 'erased e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1896-4637 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--1896-4685 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
+(define NameMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (NameMap-Data-case--2126-4793 'erased arg-3 e-2 e-1 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2126-4895 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Name-Core-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))) (NameMap-Data-case--2126-5089 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Name-Core-C-60C-61_Ord__Name arg-2 e-11))))))))))))
+(define NameMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (NameMap-Data-case--2903-5469 'erased 'erased arg-3 arg-4 arg-2 (NameMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define NameMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (NameMap-Data-case--2983-5538 'erased e-3 e-2 arg-2 n (Name-Core-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))) (NameMap-Data-case--2983-5586 'erased e-9 e-8 e-7 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-5708 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-5950 'erased e-4 e-21 e-20 e-19 arg-2 (Name-Core-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))) (NameMap-Data-case--2983-6166 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Name-Core-C-60C-61_Ord__Name arg-2 e-25))))))))))))))))))))
 (define NameMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeToList 'erased 'erased e-3)))))))
 (define NameMap-Data-merge3 (lambda (arg-0 arg-1 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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-merge2 (lambda (arg-0 arg-1 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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-merge1 (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-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))) (NameMap-Data-branch5 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch6 'erased 'erased 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))) (NameMap-Data-branch7 'erased 'erased 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 NameMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
 (define NameMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased ext-0))))
-(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4112-6450 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
-(define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1)))
+(define NameMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (NameMap-Data-case--4139-6554 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1)))
 (define NameMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define NameMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4200-6535 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4200-6572 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
+(define NameMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--4227-6639 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4227-6676 'erased e-4 e-3 arg-1 (NameMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
 (define NameMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 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 NameMap-Data-branch6 (lambda (arg-0 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 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 NameMap-Data-branch5 (lambda (arg-0 arg-1 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 NameMap-Data-branch4 (lambda (arg-0 arg-1 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 Name-Core-with--2575-4031 (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 Name-Core-with--2953-4004 (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 Name-Core-with--2575-3983 (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)) (Name-Core-with--2953-4004 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2898-3956 (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 Name-Core-with--2575-3935 (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)) (Name-Core-with--2898-3956 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2847-3915 (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 Name-Core-with--2575-3891 (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)) (Name-Core-with--2847-3915 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
-(define Name-Core-with--2575-3857 (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 Name-Core-with--2766-3831 (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 Name-Core-with--2575-3820 (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)) (Name-Core-with--2766-3831 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2718-3790 (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 Name-Core-with--2575-3779 (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)) (Name-Core-with--2718-3790 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2667-3750 (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 Name-Core-with--2575-3735 (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)) (Name-Core-with--2667-3750 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-with--2575-3708 (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 Name-Core-with--2589-3682 (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 Name-Core-with--2575-3669 (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)) (Name-Core-with--2589-3682 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define Name-Core-case--2173-3604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2173-3376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
-(define Name-Core-case--2178-3337 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Name-Core-case--2179-3323 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Name-Core-with--2643-4127 (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 Name-Core-with--3021-4100 (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 Name-Core-with--2643-4079 (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)) (Name-Core-with--3021-4100 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2966-4052 (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 Name-Core-with--2643-4031 (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)) (Name-Core-with--2966-4052 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2915-4011 (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 Name-Core-with--2643-3987 (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)) (Name-Core-with--2915-4011 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
+(define Name-Core-with--2643-3953 (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 Name-Core-with--2834-3927 (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 Name-Core-with--2643-3916 (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)) (Name-Core-with--2834-3927 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2786-3886 (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 Name-Core-with--2643-3875 (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)) (Name-Core-with--2786-3886 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2735-3846 (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 Name-Core-with--2643-3831 (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)) (Name-Core-with--2735-3846 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-with--2643-3804 (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 Name-Core-with--2657-3778 (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 Name-Core-with--2643-3765 (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)) (Name-Core-with--2657-3778 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define Name-Core-case--2234-3700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__Int arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Name-Core-compare_Ord__Name arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2234-3472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
+(define Name-Core-case--2239-3433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Name-Core-case--2240-3419 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
 (define Name-Core-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) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) ")"))))(else (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 "." (Name-Core-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))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{P:" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-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 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-21) (Strings-Prelude-C-43C-43 ":" (Name-Core-show_Show__Name e-11))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case block in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) ")"))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "with block in " (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$resolved" (Prelude-show_Show__Int e-16))))))))
 (define Name-Core-showPrec_Show__Name (lambda (arg-0 arg-1) (Name-Core-show_Show__Name arg-1)))
-(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2179-3323 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1))))
-(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2178-3337 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1))))
-(define Name-Core-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))) (Name-Core-case--2173-3376 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3424 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3464 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3520 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3564 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2173-3604 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))
+(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2240-3419 arg-1 arg-0 (Name-Core-C-60_Ord__Name arg-0 arg-1))))
+(define Name-Core-max_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2239-3433 arg-1 arg-0 (Name-Core-C-62_Ord__Name arg-0 arg-1))))
+(define Name-Core-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))) (Name-Core-case--2234-3472 e-1 e-0 e-18 e-17 (Name-Core-compare_Ord__Name e-1 e-18)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-2 e-19)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3520 e-4 e-3 e-21 e-20 (Prelude-compare_Ord__Int e-4 e-21)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3560 e-6 e-5 e-23 e-22 (Prelude-compare_Ord__Int e-6 e-23)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-compare_Ord__Name e-8 e-25)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__String e-9 e-26)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3616 e-11 e-10 e-28 e-27 (Name-Core-compare_Ord__Name e-11 e-28)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3660 e-13 e-12 e-30 e-29 (Prelude-compare_Ord__Int e-13 e-30)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Name-Core-case--2234-3700 e-15 e-14 e-32 e-31 (Prelude-compare_Ord__Int e-15 e-32)))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-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))) (Prelude-compare_Ord__Int e-16 e-33)))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))
 (define Name-Core-__Impl_Show_Name (lambda () (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))))
-(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Name-Core-compare_Ord__Name arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Name-Core-C-60_Ord__Name arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Name-Core-C-62_Ord__Name arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Name-Core-C-60C-61_Ord__Name arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Name-Core-C-62C-61_Ord__Name arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Name-Core-max_Ord__Name arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Name-Core-min_Ord__Name arg-979 arg-980))))))
-(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651))))))
+(define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788))))))
+(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431))))))
 (define Name-Core-C-62_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2)))
 (define Name-Core-C-62C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0)))
-(define Name-Core-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-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))) (Name-Core-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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-10 e-27) (lambda () (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1)))))
+(define Name-Core-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-18) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-4 e-21) (lambda () (Prelude-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))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-22) (lambda () (Prelude-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))) (Name-Core-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))) (Prelude-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))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-10 e-27) (lambda () (Name-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-13 e-30) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-15 e-32) (lambda () (Prelude-C-61C-61_Eq__Int 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))) (Prelude-C-61C-61_Eq__Int e-16 e-33)))(else 1)))))(else 1)))))
 (define Name-Core-C-60_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 0)))
 (define Name-Core-C-60C-61_Ord__Name (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2)))
 (define Name-Core-C-47C-61_Eq__Name (lambda (arg-0 arg-1) (Prelude-not (Name-Core-C-61C-61_Eq__Name arg-0 arg-1))))
@@ -1582,14 +1608,14 @@
 (define Name-Core-showSep (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-0 (Name-Core-showSep arg-0 e-3)))))))))))))
 (define Name-Core-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 Name-Core-nameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-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))) (Name-Core-nameRoot e-5))) ((4) (let ((e-8 (vector-ref sc0 2))) (Name-Core-nameRoot e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) e-9)) ((6) (let ((e-11 (vector-ref sc0 2))) (Name-Core-nameRoot e-11))) ((7) (let ((e-12 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-12)))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$" (Prelude-show_Show__Int e-16))))))))
-(define Name-Core-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))) (Name-Core-with--2575-3669 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) 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))) (Name-Core-with--2575-3708 e-2 e-19 (Equality-Decidable-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))) (Name-Core-with--2575-3735 e-3 e-20 (Equality-Decidable-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))) (Name-Core-with--2575-3779 e-5 e-22 (Name-Core-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))) (Name-Core-with--2575-3820 e-7 e-24 (Equality-Decidable-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))) (Name-Core-with--2575-3857 e-9 e-26 (Equality-Decidable-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))) (Name-Core-with--2575-3891 e-10 e-27 (Equality-Decidable-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 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-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))) (Name-Core-with--2575-3935 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2575-3983 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2575-4031 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Name-Core-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))) (Name-Core-with--2643-3765 e-0 e-17 (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__String eta-0 eta-1))) 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))) (Name-Core-with--2643-3804 e-2 e-19 (Equality-Decidable-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))) (Name-Core-with--2643-3831 e-3 e-20 (Equality-Decidable-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))) (Name-Core-with--2643-3875 e-5 e-22 (Name-Core-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))) (Name-Core-with--2643-3916 e-7 e-24 (Equality-Decidable-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))) (Name-Core-with--2643-3953 e-9 e-26 (Equality-Decidable-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))) (Name-Core-with--2643-3987 e-10 e-27 (Equality-Decidable-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 'erased 'erased (vector 0 (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-decEq_DecEq__Int eta-0 eta-1))) (lambda (eta-0) (lambda (eta-1) (Equality-Decidable-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))) (Name-Core-with--2643-4031 e-12 e-29 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2643-4079 e-14 e-31 (Equality-Decidable-decEq_DecEq__Int 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))) (Name-Core-with--2643-4127 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Name-Core-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))) (Name-Core-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (Name-Core-isUserName e-7)))(else 0)))))
 (define Name-Core-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 FC-Core-show_Show__FC (lambda (arg-0) (Strings-Prelude-C-43C-43 (FC-Core-file arg-0) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (FC-Core-showPos (FC-Core-startPos arg-0)) (Strings-Prelude-C-43C-43 "--" (FC-Core-showPos (FC-Core-endPos arg-0))))))))
 (define FC-Core-showPrec_Show__FC (lambda (arg-0 arg-1) (FC-Core-show_Show__FC arg-1)))
 (define FC-Core-__Impl_Show_FC (lambda () (vector 0 (lambda (x) (FC-Core-show_Show__FC x)) (lambda (d) (lambda (x) (FC-Core-showPrec_Show__FC d x))))))
-(define FC-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-1 e-4) (lambda () (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))
-(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1)))))
+(define FC-Core-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-1 e-4) (lambda () (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))
+(define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-5) (lambda () (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1)))))
 (define FC-Core-toplevelFC (lambda () (vector 0 "(toplevel)" (vector 0 0 0) (vector 0 0 0))))
 (define FC-Core-startPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (vector 0 0 0))))))
 (define FC-Core-showPos (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (b+ e-2 1 63)) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
@@ -1598,82 +1624,84 @@
 (define FC-Core-endPos (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) e-2)) (else (vector 0 0 0))))))
 (define FC-Core-emptyFC (lambda () (vector 1 )))
 (define FC-Core-FilePos (lambda () (vector "Builtin.Pair" (vector "Int" ) (vector "Int" ))))
-(define Support-Parser-case--4481-9115 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 ))))))
-(define Support-Parser-case--4466-9093 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4481-9115 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
-(define Support-Parser-case--4220-8998 (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 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0))))))
-(define Support-Parser-case--4256-8931 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0))))))
-(define Support-Parser-case--4220-8882 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4256-8931 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 )))))))))))
-(define Support-Parser-case--3841-8850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4220-8882 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4220-8998 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0))))))))))))
-(define Support-Parser-case--3841-8800 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8759-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
-(define Support-Parser-case--3841-8711 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8670-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
-(define Support-Parser-n--3841-8759-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8759-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
-(define Support-Parser-n--3841-8670-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3841-8670-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
+(define Support-Parser-case--4583-2986 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (integer->char 0))) (else (vector 0 ))))))
+(define Support-Parser-case--4567-2964 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 (string-ref arg-1 0))) (else (Support-Parser-case--4583-2986 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
+(define Support-Parser-case--4318-2865 (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 1 e-1 (vector 0 ))))) (else (Support-Parser-escapeC-39 arg-0))))))
+(define Support-Parser-case--4354-2797 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (vector 1 arg-3 arg-4)) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-escapeC-39 arg-0))))))
+(define Support-Parser-case--4318-2747 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 arg-4) (lambda (bind-0) (vector 1 (vector 1 e-1 bind-0)))))) (else (Support-Parser-case--4354-2797 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 )))))))))))
+(define Support-Parser-case--3933-2715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (Support-Parser-case--4318-2747 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--4318-2865 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Prelude-cast_Cast__Int_Char (Prelude-cast_Cast__String_Int (Prelude-fastPack e-2))) bind-0))))))))))))
+(define Support-Parser-case--3933-2663 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
+(define Support-Parser-case--3933-2571 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Support-Parser-escapeC-39 e-3))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-cast_Cast__Int_Char bind-0) bind-1))))))))))))))
+(define Support-Parser-n--3933-2621-toOct (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2621-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
+(define Support-Parser-n--3933-2529-toHex (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--3933-2529-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63)))))))))))))
 (define Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 (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 ((e-3 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)) ")"))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 "Lex error at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-12 e-16)) (Strings-Prelude-C-43C-43 " input: " e-17))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-7)))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Strings-Prelude-C-43C-43 "Lit error(s) at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-19 e-18)) (Strings-Prelude-C-43C-43 " input: " e-20)))))))))))))
 (define Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 arg-3)))
 (define Support-Parser-__Impl_Show_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 d x))))))
-(define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) e-7)) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 2))) e-4)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-3 (vector-ref sc2 3))) e-3))) (vector 1 e-5 e-6)))))))))))))
+(define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) e-9)) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 2))) e-8)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-7 (vector-ref sc2 5))) e-7))) (vector 1 e-5 e-6)))))))))))))
 (define Support-Parser-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 Support-Parser-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 Support-Parser-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 Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4466-9093 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1)))))))
-(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3841-8711 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3841-8800 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3841-8850 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3841-8850 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0))))))))))))))
+(define Support-Parser-getCharLit (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escape arg-0) (lambda (e) (Support-Parser-case--4567-2964 arg-0 e (Prelude-C-61C-61_Eq__Nat (Prelude-length e) (Prelude-fromInteger_Num__Nat 1)))))))
+(define Support-Parser-escapeC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\\) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (cond ((equal? sc3 #\\) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\\ bind-0))))) ((equal? sc3 #\&) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased bind-0)))) ((equal? sc3 #\a) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 7) bind-0))))) ((equal? sc3 #\b) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 8) bind-0))))) ((equal? sc3 #\f) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 12) bind-0))))) ((equal? sc3 #\n) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 10) bind-0))))) ((equal? sc3 #\r) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 13) bind-0))))) ((equal? sc3 #\t) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 9) bind-0))))) ((equal? sc3 #\v) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (integer->char 11) bind-0))))) ((equal? sc3 #\') (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\' bind-0))))) ((equal? sc3 #\") (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-6) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 1 #\" bind-0))))) ((equal? sc3 #\x) (Support-Parser-case--3933-2571 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3933-2663 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3933-2715 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 e-2 bind-0))))))))))))))
 (define Support-Parser-escape (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 (Prelude-unpack arg-0)) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Prelude-fastPack bind-0))))))
-(define Parser-Text-case--2051-353 (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 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 ))))))
-(define Parser-Text-case--2035-335 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2051-353 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))
+(define Parser-Text-case--2103-364 (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 (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) arg-4))))) (else (vector 0 ))))))
+(define Parser-Text-case--2086-346 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-0 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-0 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))
 (define Parser-Text-some (lambda (arg-0 arg-1 arg-2) (vector 7 1 arg-2 (lambda () (lambda (bind-0) (vector 8 1 1 (Parser-Text-many 'erased 'erased arg-2) (lambda (bind-1) (vector 0 (vector 1 bind-0 bind-1)))))))))
 (define Parser-Text-sepBy1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 8 (Prelude-C-124C-124 1 (lambda () arg-3)) 1 (vector 8 1 arg-3 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f arg-5))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (vector 8 0 arg-3 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-4) (lambda (f-0) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 f-0 arg-5)))))))))
 (define Parser-Text-sepBy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Parser-Text-option 'erased 'erased arg-3 (vector 0 ) (Parser-Text-sepBy1 'erased 'erased 'erased arg-3 arg-4 arg-5))))
 (define Parser-Text-optional (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Text-option 'erased 'erased arg-2 (vector 0 ) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) (vector 1 eta-0)) arg-3))))
 (define Parser-Text-option (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (vector 9 1 1 arg-4 (lambda () (vector 0 arg-3)))) (else (vector 9 0 1 arg-4 (lambda () (vector 0 arg-3))))))))
-(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2051-353 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))))
+(define Parser-Text-match (lambda (arg-0 arg-1 arg-2) (vector 1 "Unrecognised input" (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((lamc-1 (vector 0 e-1 e-2))) (Parser-Text-case--2103-364 'erased arg-1 arg-2 e-1 e-2 lamc-1 (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc1 1))) ((e-4 e-1) arg-2))))))))))))
 (define Parser-Text-many (lambda (arg-0 arg-1 arg-2) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-some 'erased 'erased arg-2))))
 (define Parser-Text-count1 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 (Prelude-C-124C-124 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () 1)) arg-3 (lambda () (lambda (x) (vector 8 (Nat-Data-isSucc (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) 1 (Parser-Text-count 'erased 'erased arg-2 arg-3) (lambda (xs) (vector 0 (vector 1 x xs)))))))))
 (define Parser-Text-count (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (Parser-Text-many 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 0 (vector 0 )))(else (let ((e-6 (- e-5 1))) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Text-count1 'erased 'erased (Quantity-Text-atMost e-6) arg-3)))))))))))(else (let ((e-2 (- e-0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (Parser-Text-count1 'erased 'erased (Quantity-Text-atLeast e-2) arg-3)) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (cond ((equal? sc2 0) (vector 4 1 "Quantity out of order"))(else (let ((e-10 (- e-9 1))) (Parser-Text-count1 'erased 'erased (Quantity-Text-between (+ 1 e-2) e-10) arg-3))))))))))))))))))
 (define Parser-Text-choiceMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (((((e-1 'erased) 'erased) (lambda (x) (lambda (acc) (vector 9 arg-4 arg-4 (arg-5 x) (lambda () acc))))) (vector 4 1 "No more options")) arg-7)))))
 (define Parser-Text-choice (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Parser-Text-choiceMap 'erased 'erased 'erased 'erased arg-4 (lambda (eta-0) eta-0) arg-3 ext-0)))
-(define Core-Parser-Text-case--3260-1785 (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))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10)))))))))
-(define Core-Parser-Text-case--3096-1697 (lambda (arg-0 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) (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 e-9 e-10)))))))))
-(define Core-Parser-Text-case--2379-1636 (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))) (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))) (Core-Parser-Text-case--3096-1697 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10))))))))))
-(define Core-Parser-Text-case--2904-1537 (lambda (arg-0 arg-1 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) (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 e-9 e-10)))))))))
-(define Core-Parser-Text-case--2379-1472 (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))) (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))) (Core-Parser-Text-case--2904-1537 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10))))))))))
-(define Core-Parser-Text-case--2739-1358 (lambda (arg-0 arg-1 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 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6))))))
-(define Core-Parser-Text-case--2379-1334 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2739-1358 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-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 Core-Parser-Text-case--2379-1263 (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 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4)))))))
-(define Core-Parser-Text-case--2379-1148 (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 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5)))))))
-(define Core-Parser-Text-case--2379-1082 (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-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 Core-Parser-Text-case--3315-1803 (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))) (let ((e-5 (vector-ref sc0 4))) (vector 0 (vector 0 e-4 e-5))))) (else (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 (vector 0 e-9 e-10)))))))))
+(define Core-Parser-Text-case--3151-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) (let ((sc0 arg-12)) (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 e-9 e-10)))))))))
+(define Core-Parser-Text-case--2434-1654 (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))) (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))) (Core-Parser-Text-case--3151-1715 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-4) e-9) e-10))))))))))
+(define Core-Parser-Text-case--2959-1555 (lambda (arg-0 arg-1 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) (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 e-9 e-10)))))))))
+(define Core-Parser-Text-case--2434-1490 (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))) (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))) (Core-Parser-Text-case--2959-1555 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-9 e-10 e-8 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-5 e-9) e-10))))))))))
+(define Core-Parser-Text-case--2794-1376 (lambda (arg-0 arg-1 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 0 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6))))))
+(define Core-Parser-Text-case--2434-1352 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (Core-Parser-Text-case--2794-1376 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-5 e-4 e-3 e-2 (Prelude-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 Core-Parser-Text-case--2434-1281 (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 arg-3 (vector 1 arg-3 arg-4))) (else (vector 0 arg-5 1 arg-2 (vector 1 arg-3 arg-4)))))))
+(define Core-Parser-Text-case--2434-1166 (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 arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 arg-6 e-2 arg-5)))))))
+(define Core-Parser-Text-case--2434-1100 (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-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 Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 arg-2 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-34 (vector-ref sc1 1))) (vector 0 (arg-4 e-34))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc1 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc2 arg-3)) (cond ((equal? sc2 0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 3))) (let ((e-6 (vector-ref sc3 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc3 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 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-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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 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-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (vector 4 e-26 e-27)))) ((6) (let ((e-31 (vector-ref sc0 1))) (vector 6 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 arg-4 e-31))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (vector 1 e-21 (lambda (t) (Prelude-map_Functor__Maybe 'erased 'erased arg-4 (e-22 t)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (let ((e-6 (vector-ref sc2 4))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc2 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 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-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))) (vector 9 e-15 e-16 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-15 arg-4 e-17) (lambda () (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-16 arg-4 (e-18)))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (vector 7 e-10 e-11 (lambda () (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-10 arg-4 ((e-12) val)))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (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 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc1 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (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))) (vector 8 e-3 e-4 e-5 (lambda (val) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased e-4 arg-4 (e-6 val)))))))))(else (let ((sc0 arg-3)) (cond (else (vector 8 1 1 arg-5 (lambda (eta-0) (vector 0 (arg-4 eta-0)))))))))))))))))))))))))))
 (define Core-Parser-Text-__Impl_Functor_C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-1 ext-2 ext-3)))
 (define Core-Parser-Text-terminal (lambda (arg-0 arg-1 ext-0 ext-1) (vector 1 ext-0 ext-1)))
 (define Core-Parser-Text-seq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0 ext-1) (vector 8 arg-3 arg-4 ext-0 ext-1)))
 (define Core-Parser-Text-pure (lambda (arg-0 arg-1 ext-0) (vector 0 ext-0)))
 (define Core-Parser-Text-peek (lambda (arg-0) (vector 2 "Unrecognised token" (lambda (eta-0) 0))))
-(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3260-1785 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4))))
+(define Core-Parser-Text-parse (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-case--3315-1803 'erased 'erased arg-2 arg-4 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 arg-3 arg-4))))
 (define Core-Parser-Text-nextIs (lambda (arg-0 ext-0 ext-1) (vector 2 ext-0 ext-1)))
 (define Core-Parser-Text-mustWork (lambda (arg-0 arg-1 arg-2 ext-0) (vector 6 ext-0)))
 (define Core-Parser-Text-fatalError (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 0 ext-0)))
 (define Core-Parser-Text-fail (lambda (arg-0 arg-1 arg-2 ext-0) (vector 4 1 ext-0)))
-(define Core-Parser-Text-doParse (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-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2379-1148 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2379-1263 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (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))) (Core-Parser-Text-case--2379-1334 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (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))) (Core-Parser-Text-case--2379-1472 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2379-1636 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5))))))))))
+(define Core-Parser-Text-doParse (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-2 (vector-ref sc0 1))) (vector 1 arg-3 e-2 arg-5))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 e-6 e-7 (vector 0 ))) (else (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (vector 0 arg-3 e-6 e-7 (vector 1 e-42 e-43)))))))))) ((5) (vector 1 0 (vector 0 ) arg-5)) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-12 arg-5))) (let ((sc1 pC-39)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (vector 0 e-2 0 e-4 e-5)))))(else pC-39)))))) ((1) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1166 'erased 'erased e-16 e-15 e-46 e-47 arg-3 'erased (e-16 e-46)))))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-3 (vector 0 ) (vector 0 ))) (else (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 0 arg-3 1 "Expected end of input" (vector 1 e-50 e-51)))))))) ((2) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 arg-3 1 "End of input" (vector 0 ))) (else (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Core-Parser-Text-case--2434-1281 'erased e-20 e-19 e-54 e-55 arg-3 'erased 'erased (e-20 e-54)))))))))) ((9) (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))) (Core-Parser-Text-case--2434-1352 'erased 'erased e-24 e-26 e-23 e-25 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased 1 e-25 arg-5))))))) ((8) (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))) (Core-Parser-Text-case--2434-1490 'erased 'erased 'erased e-30 e-31 e-33 e-32 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-32 arg-5))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (Core-Parser-Text-case--2434-1654 'erased 'erased 'erased e-37 e-39 e-38 arg-5 arg-3 'erased (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5))))))))))
 (define Core-Parser-Text-commit (lambda (arg-0) (vector 5 )))
 (define Core-Parser-Text-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (lambda (eta-1) (vector 8 1 arg-4 eta-0 eta-1)))) (else (lambda (eta-0) (lambda (eta-1) (vector 7 arg-4 eta-0 eta-1))))))))
 (define Core-Parser-Text-C-60C-124C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1) (vector 9 arg-2 arg-3 ext-0 ext-1)))
 (define Core-Parser-Text-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 arg-5 (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
 (define Core-Parser-Text-C-60C-42 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-0)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
 (define Core-Parser-Text-C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 8 arg-3 arg-4 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-3 (lambda (eta-0) (lambda (eta-1) eta-1)) arg-5) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased arg-4 f arg-6)))))
-(define Common-Rule-Parser-case--1770-1872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))
+(define Common-Rule-Parser-case--1851-1942 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))
+(define Common-Rule-Parser-position (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2))) (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4)))))))))
 (define Common-Rule-Parser-location (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 tok)) (let ((e-2 (vector-ref sc0 2))) e-2))))))))
+(define Common-Rule-Parser-endLocation (lambda (arg-0) (vector 8 1 1 (vector 2 "Unrecognised token" (lambda (eta-0) 0)) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))
 (define Common-Rule-Parser-column (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location arg-0) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3)))))))
 (define Common-Rule-Parser-Rule (lambda (arg-0 arg-1) (vector "Text.Parser.Core.Grammar" (vector "Text.Lexer.Core.TokenData" arg-0) 0 arg-1)))
-(define Source-Lexer-Parser-case--2806-1066 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2806-1036-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Source-Lexer-Parser-case--2809-1041 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Source-Lexer-Parser-case--2597-841 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2595-809-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
-(define Source-Lexer-Parser-case--2596-817 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0))))))
-(define Source-Lexer-Parser-case--2557-790 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
-(define Source-Lexer-Parser-case--2548-774 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2557-790 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
-(define Source-Lexer-Parser-case--2510-746 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
-(define Source-Lexer-Parser-case--2501-730 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2510-746 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
-(define Source-Lexer-Parser-n--2595-810-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2597-841 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0)))))
-(define Source-Lexer-Parser-n--2595-809-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2596-817 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 (Source-Lexer-Parser-keywords)))))
-(define Source-Lexer-Parser-n--2806-1036-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2809-1041 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define Source-Lexer-Parser-case--2869-1079 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--2869-1049-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Source-Lexer-Parser-case--2872-1054 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
+(define Source-Lexer-Parser-case--2659-854 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--2657-821-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
+(define Source-Lexer-Parser-case--2658-829 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0))))))
+(define Source-Lexer-Parser-case--2619-802 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
+(define Source-Lexer-Parser-case--2610-786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2619-802 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
+(define Source-Lexer-Parser-case--2572-758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (Prelude-cast_Cast__Int_Integer e-2)))))))
+(define Source-Lexer-Parser-case--2563-742 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (let ((num (Strings-Data-strTail (Strings-Data-strTail arg-0)))) (Source-Lexer-Parser-case--2572-758 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
+(define Source-Lexer-Parser-n--2657-822-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2659-854 arg-0 (List-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0)))))
+(define Source-Lexer-Parser-n--2657-821-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2658-829 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 (Source-Lexer-Parser-keywords)))))
+(define Source-Lexer-Parser-n--2869-1049-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2872-1054 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
 (define Source-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "character " (Prelude-show_Show__String e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "double " (Prelude-show_Show__Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "literal " (Prelude-show_Show__Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "string " (Prelude-show_Show__String e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "hole identifier " e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "identifier " e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "namespaced identifier " (String-Utils-dotSep (List-Data-reverse 'erased e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "record field " e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "symbol " e-8))) ((9) "comment") ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "doc comment: \"" (Strings-Prelude-C-43C-43 e-10 "\"")))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "CGDirective " e-11))) ((12) "end of input") ((13) (let ((e-12 (vector-ref sc0 1))) e-12)) ((14) (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pragma " e-13))) (else (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unrecognised " e-14)))))))
 (define Source-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Source-Lexer-Parser-show_Show__Token arg-1)))
 (define Source-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x))))))
@@ -1684,181 +1712,185 @@
 (define Source-Lexer-Parser-singleBrace (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Source-Lexer-Parser-singleDash (+ 1 arg-0)))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0)))))
 (define Source-Lexer-Parser-reservedSymbols (lambda () (List-Prelude-C-43C-43 'erased (Source-Lexer-Parser-symbols) (vector 1 "%" (vector 1 "\\" (vector 1 ":" (vector 1 "=" (vector 1 "|" (vector 1 "|||" (vector 1 "<-" (vector 1 "->" (vector 1 "=>" (vector 1 "?" (vector 1 "!" (vector 1 "&" (vector 1 "**" (vector 1 ".." (vector 1 "~" (vector 0 )))))))))))))))))))
 (define Source-Lexer-Parser-recField (lambda () (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2595-810-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2595-809-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 ))))))))))))))))))
+(define Source-Lexer-Parser-rawTokens (lambda () (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Prelude-cast_Cast__String_Double x)))) (vector 1 (vector 0 (Lexer-Text-hexLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromHexLit x)))) (vector 1 (vector 0 (Lexer-Text-octLit) (lambda (x) (vector 2 (Source-Lexer-Parser-fromOctLit x)))) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-recField) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--2657-822-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2657-821-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 ))))))))))))))))))
 (define Source-Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (lambda () (Common-Lexer-Parser-identNormal)))))
 (define Source-Lexer-Parser-mkDirective (lambda (arg-0) (vector 11 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-0) arg-0)))))
-(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2806-1066 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1))))
+(define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--2869-1079 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1))))
 (define Source-Lexer-Parser-keywords (lambda () (vector 1 "data" (vector 1 "module" (vector 1 "where" (vector 1 "let" (vector 1 "in" (vector 1 "do" (vector 1 "record" (vector 1 "auto" (vector 1 "default" (vector 1 "implicit" (vector 1 "mutual" (vector 1 "namespace" (vector 1 "parameters" (vector 1 "with" (vector 1 "impossible" (vector 1 "case" (vector 1 "of" (vector 1 "if" (vector 1 "then" (vector 1 "else" (vector 1 "forall" (vector 1 "rewrite" (vector 1 "using" (vector 1 "interface" (vector 1 "implementation" (vector 1 "open" (vector 1 "import" (vector 1 "public" (vector 1 "export" (vector 1 "private" (vector 1 "infixl" (vector 1 "infixr" (vector 1 "infix" (vector 1 "prefix" (vector 1 "total" (vector 1 "partial" (vector 1 "covering" (vector 0 ))))))))))))))))))))))))))))))))))))))))
-(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~"))))
+(define Source-Lexer-Parser-isOpChar (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) arg-0 (Prelude-unpack ":!#$%&*+./<=>?@\\^|-~"))))
 (define Source-Lexer-Parser-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2548-774 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
-(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2501-730 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
+(define Source-Lexer-Parser-fromOctLit (lambda (arg-0) (Source-Lexer-Parser-case--2610-786 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
+(define Source-Lexer-Parser-fromHexLit (lambda (arg-0) (Source-Lexer-Parser-case--2563-742 arg-0 (Prelude-C-60C-61_Ord__Nat (Prelude-length arg-0) (Prelude-fromInteger_Num__Nat 2)))))
 (define Source-Lexer-Parser-doubleLit (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits))))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-digits) (lambda () (Lexer-Text-is #\.))) (lambda () (Lexer-Text-digits))) (lambda () (Lexer-Text-opt (vector 4 (vector 4 (Lexer-Text-is #\e) (lambda () (Lexer-Text-opt (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-is #\-) (Lexer-Text-is #\+))))) (lambda () (Lexer-Text-digits)))))))))))
 (define Source-Lexer-Parser-doubleDash (lambda (arg-0) (vector 5 (Lexer-Text-many (Lexer-Text-is #\-)) (Lexer-Text-choice 'erased 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 1 (vector 4 (Lexer-Text-is #\}) (lambda () (Source-Lexer-Parser-toEndComment arg-0))) (vector 1 (vector 5 (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))) (vector 0 )))))))
 (define Source-Lexer-Parser-docComment (lambda () (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\|) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-is #\|))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))))
 (define Source-Lexer-Parser-cgDirective (lambda () (vector 4 (Lexer-Text-exact "%cg") (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 0)))) (cond ((equal? sc1 1) (vector 5 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))) (else (vector 4 (let ((sc2 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc2 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-some (Lexer-Text-space)) (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isAlphaNum eta-0)))))) (lambda () (Lexer-Text-many (Lexer-Text-space)))) (lambda () (Lexer-Text-is #\{)))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot #\}))))))) (lambda () (Lexer-Text-is #\})))))) (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))
 (define Source-Lexer-Parser-blockComment (lambda () (vector 4 (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Text-is #\-))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 0))))))
 (define String-Utils-stripQuotes (lambda (arg-0) (Prelude-substr (+ 1 0) (Prelude-minus (Prelude-length arg-0) (+ 1 (+ 1 0))) arg-0)))
-(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y))))))))))))))))
-(define Octal-Utils-n--1493-585-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1493-585-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
+(define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 "." y))))))))))))))))
+(define Octal-Utils-n--1514-594-fromOctCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1514-594-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
 (define Octal-Utils-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 Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1493-585-fromOctCharsC-39 1 ext-0)))
+(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1514-594-fromOctCharsC-39 1 ext-0)))
 (define Octal-Utils-fromOct (lambda (ext-0) (Octal-Utils-fromOctChars (Prelude-unpack ext-0))))
-(define IntV-Views-Primitives-Data-case--1494-394 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0))))))
-(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1494-394 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 )))))))))))
-(define Hex-Utils-with--1439-542 (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))) (Hex-Utils-n--1437-533-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
-(define Hex-Utils-n--1557-649-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1557-649-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
-(define Hex-Utils-n--1437-533-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1439-542 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2))))))
+(define IntV-Views-Primitives-Data-case--1515-403 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-negate_Neg__Int (Prelude-div_Integral__Int arg-1 (Prelude-abs_Abs__Int arg-0)))) (else (Prelude-div_Integral__Int arg-1 arg-0))))))
+(define IntV-Views-Primitives-Data-divides (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((dividend (IntV-Views-Primitives-Data-case--1515-403 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 )))))))))))
+(define Hex-Utils-with--1773-551 (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))) (Hex-Utils-n--1771-542-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
+(define Hex-Utils-case--1823-598 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus arg-1 (Prelude-length arg-0)) arg-2)) arg-0)) (else arg-0)))))
+(define Hex-Utils-case--1771-580 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-pack (Hex-Utils-n--1771-542-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0")))))
+(define Hex-Utils-n--1937-701-fromHexCharsC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Prelude-toLower e-2)) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--1937-701-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63)))))))))))))
+(define Hex-Utils-n--1771-542-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1773-551 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2))))))
+(define Hex-Utils-leftPad (lambda (arg-0 arg-1 arg-2) (Hex-Utils-case--1823-598 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Nat (Prelude-length arg-2) arg-1))))
 (define Hex-Utils-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 Hex-Utils-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 Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1557-649-fromHexCharsC-39 1 ext-0)))
+(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--1937-701-fromHexCharsC-39 1 ext-0)))
 (define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Prelude-unpack ext-0))))
-(define Hex-Utils-asHex (lambda (arg-0) (Prelude-pack (Hex-Utils-n--1437-533-asHexC-39 arg-0 arg-0 (vector 0 )))))
+(define Hex-Utils-asHex (lambda (arg-0) (Hex-Utils-case--1771-580 arg-0 (Prelude-C-62_Ord__Int arg-0 0))))
 (define Extra-String-Data-join (lambda (arg-0 arg-1 arg-2 arg-3) (Extra-String-Data-drop (Prelude-length arg-1) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (((((e-2 'erased) 'erased) (lambda (acc) (lambda (x) (Strings-Prelude-C-43C-43 acc (Strings-Prelude-C-43C-43 arg-1 x))))) "") arg-3))))))
 (define Extra-String-Data-drop (lambda (arg-0 arg-1) (Prelude-substr arg-0 (Prelude-length arg-1) arg-1)))
-(define Common-Lexer-Parser-case--1612-304 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3))))))))))
+(define Common-Lexer-Parser-case--1638-313 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3))))))))))
 (define Common-Lexer-Parser-spacesOrNewlines (lambda () (Lexer-Text-some (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-space) (Lexer-Text-newline)))))
 (define Common-Lexer-Parser-namespacedIdent (lambda () (vector 4 (Common-Lexer-Parser-namespaceIdent) (lambda () (Lexer-Text-opt (vector 4 (Lexer-Text-is #\.) (lambda () (Common-Lexer-Parser-identNormal))))))))
 (define Common-Lexer-Parser-namespaceIdent (lambda () (vector 4 (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))) (lambda () (Lexer-Text-many (vector 4 (vector 4 (Lexer-Text-is #\.) (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 1 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 1 ) eta-0)))))))) (lambda () (Core-Lexer-Text-expect 'erased (Lexer-Text-is #\.)))))))))
 (define Common-Lexer-Parser-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 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 #\') 0) ((equal? sc0 #\_) 0)(else (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160))))))))))))
 (define Common-Lexer-Parser-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) (Prelude-C-124C-124 (Prelude-isUpper arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160)))))(else (Prelude-C-124C-124 (Prelude-isAlpha arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr 160))))))))))))
-(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1612-304 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
-(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1612-304 arg-1 arg-0 (Prelude-unpack arg-1))))
+(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--1638-313 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
+(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1638-313 arg-1 arg-0 (Prelude-unpack arg-1))))
 (define Common-Lexer-Parser-identNormal (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 2 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 2 ) eta-0))))))))
 (define Common-Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 0 ) eta-0))))))))
 (define Common-Lexer-Parser-ident (lambda (arg-0) (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart arg-0 eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-0 eta-0))))))))
 (define Common-Lexer-Parser-comment (lambda () (let ((sc0 (Prelude-C-124C-124 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))) (else (vector 4 (let ((sc1 (Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10))))))))))
-(define Unelab-TTImp-case--6697-8248 (lambda (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)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8)))))))
-(define Unelab-TTImp-case--9197-8186 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))
-(define Unelab-TTImp-case--6697-8148 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))))))))))
-(define Unelab-TTImp-case--6697-8092 (lambda (arg-0 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)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5))))))))
-(define Unelab-TTImp-case--8927-7997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 "_"))) (else (vector 0 ))))))
-(define Unelab-TTImp-case--8872-7918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-4)) (else (Unelab-TTImp-case--8927-7997 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6697-7854-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 'erased arg-2)))))))))
-(define Unelab-TTImp-case--6697-7876 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--8872-7918 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 e-2 _-0 e-5 (Unelab-TTImp-used 'erased 0 arg-7))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9)))))))))))))))
-(define Unelab-TTImp-case--8731-7801 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))
-(define Unelab-TTImp-case--6697-7763 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))))))))))
-(define Unelab-TTImp-case--6697-7699 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5))))))))))))))
-(define Unelab-TTImp-case--6694-7664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
-(define Unelab-TTImp-case--6691-7545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--6691-7496 (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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4))))))))))))
-(define Unelab-TTImp-case--6691-7447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--8172-7323 (lambda (arg-0 arg-1 arg-2 arg-3 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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
-(define Unelab-TTImp-case--8130-7292 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
-(define Unelab-TTImp-case--8090-7263 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))))))
-(define Unelab-TTImp-case--6691-7231 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4))))))))))))))))))
-(define Unelab-TTImp-case--7871-7080 (lambda (arg-0 arg-1 arg-2 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) ((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) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))
-(define Unelab-TTImp-case--7835-7039 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) 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 ((act-25 (let ((act-25 (unbox arg-6))) (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-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (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 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))
-(define Unelab-TTImp-case--6691-7011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-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 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (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-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (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 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-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))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))))))))))
-(define Unelab-TTImp-case--7707-6925 (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-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))
-(define Unelab-TTImp-case--6691-6902 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0)))))))))))))))
-(define Unelab-TTImp-case--7615-6845 (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) (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6691-6818-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8)))))
-(define Unelab-TTImp-case--7473-6757 (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-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))
-(define Unelab-TTImp-case--6691-6702 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))))))
-(define Unelab-TTImp-case--7335-6634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))
-(define Unelab-TTImp-case--6691-6582 (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 (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 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 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))))))
-(define Unelab-TTImp-case--7192-6485 (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 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 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))) (vector 1 (vector 0 e-6 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 Unelab-TTImp-case--6685-6467 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (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-8 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 Unelab-TTImp-case--6965-6308 (lambda (arg-0 arg-1 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) (Unelab-TTImp-n--6683-6050-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 Unelab-TTImp-case--6932-6272 (lambda (arg-0 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))) (Unelab-TTImp-case--6965-6308 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 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6911-6248 (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))) (Unelab-TTImp-case--6932-6272 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6683-6045-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6683-6233 (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 ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--6911-6248 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Unelab-TTImp-case--6710-6105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6046-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
-(define Unelab-TTImp-n--6526-5891-usedBinder (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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6)))))))
-(define Unelab-TTImp-n--6691-6819-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7615-6845 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-9 arg-8))))
-(define Unelab-TTImp-n--9428-8344-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 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 ))))))
-(define Unelab-TTImp-n--9428-8346-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9428-8345-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9428-8344-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
-(define Unelab-TTImp-n--9428-8345-showNScope (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) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-7))) "]")))))))
-(define Unelab-TTImp-n--6683-6048-nthArg (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6683-6047-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1))))))
-(define Unelab-TTImp-n--6691-6818-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 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-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 (Unelab-TTImp-n--6691-6818-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0))))))
-(define Unelab-TTImp-n--6683-6049-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6683-6048-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 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))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8))))))))))))))))))))))))))
-(define Unelab-TTImp-n--6683-6050-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) (let ((sc1 arg-7)) (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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6683-6049-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) 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-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6050-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0)))))))))))
-(define Unelab-TTImp-n--6697-7854-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-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
-(define Unelab-TTImp-n--6683-6046-idxOrDefault (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) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6683-6046-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6))))))))))
-(define Unelab-TTImp-n--6683-6047-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6710-6105 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
-(define Unelab-TTImp-n--6685-6447-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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))) (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (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))) (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6))))))
-(define Unelab-TTImp-n--6683-6045-findArgPos (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 3))) (vector 1 e-2)))(else (vector 0 ))))))
-(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-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))) (Prelude-C-124C-124 (Unelab-TTImp-n--6526-5891-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1)))))
+(define Unelab-TTImp-case--6917-8544 (lambda (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)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8)))))))
+(define Unelab-TTImp-case--9452-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 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))
+(define Unelab-TTImp-case--6917-8442 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))))))))))
+(define Unelab-TTImp-case--6917-8385 (lambda (arg-0 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)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5))))))))
+(define Unelab-TTImp-case--9181-8290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 "_"))) (else (vector 0 ))))))
+(define Unelab-TTImp-case--9125-8211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-4)) (else (Unelab-TTImp-case--9181-8290 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--6917-8139-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 'erased arg-2)))))))))
+(define Unelab-TTImp-case--6917-8168 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 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 e-2 _-0 e-5 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-10))))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9)))))))))))))))
+(define Unelab-TTImp-case--8976-8085 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))
+(define Unelab-TTImp-case--6917-8046 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))))))))))
+(define Unelab-TTImp-case--6917-7981 (lambda (arg-0 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) 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 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5))))))))))))))
+(define Unelab-TTImp-case--6914-7945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
+(define Unelab-TTImp-case--6911-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--6911-7773 (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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4))))))))))))
+(define Unelab-TTImp-case--6911-7722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--8411-7597 (lambda (arg-0 arg-1 arg-2 arg-3 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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
+(define Unelab-TTImp-case--8369-7566 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))
+(define Unelab-TTImp-case--8328-7537 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))))))
+(define Unelab-TTImp-case--6911-7504 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4))))))))))))))))))
+(define Unelab-TTImp-case--8106-7352 (lambda (arg-0 arg-1 arg-2 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) ((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) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))
+(define Unelab-TTImp-case--8069-7309 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) 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 ((act-25 (let ((act-25 (unbox arg-6))) (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-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (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 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (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 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))
+(define Unelab-TTImp-case--6911-7280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-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 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (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-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (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 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-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))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3)))))))))))))))))))))))))))))
+(define Unelab-TTImp-case--7938-7191 (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-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))
+(define Unelab-TTImp-case--6911-7168 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0)))))))))))))))
+(define Unelab-TTImp-case--7845-7110 (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) (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8)))))
+(define Unelab-TTImp-case--7703-7022 (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-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))
+(define Unelab-TTImp-case--6911-6967 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))))))
+(define Unelab-TTImp-case--7563-6896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))
+(define Unelab-TTImp-case--6911-6843 (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 (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 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 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))))))
+(define Unelab-TTImp-case--7417-6741 (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 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((7) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 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))) (vector 1 (vector 0 e-6 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 Unelab-TTImp-case--6905-6723 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (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-8 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 Unelab-TTImp-case--7190-6564 (lambda (arg-0 arg-1 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) (Unelab-TTImp-n--6903-6301-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 Unelab-TTImp-case--7157-6528 (lambda (arg-0 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))) (Unelab-TTImp-case--7190-6564 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 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-1) (List-Data-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--7136-6504 (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))) (Unelab-TTImp-case--7157-6528 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-3 e-4 e-2 (Unelab-TTImp-n--6903-6296-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--6903-6489 (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 ((_-0 (vector 1 e-1))) (Unelab-TTImp-case--7136-6504 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Unelab-TTImp-case--6930-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
+(define Unelab-TTImp-n--6744-6140-usedBinder (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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-2) (lambda () (Unelab-TTImp-used 'erased arg-5 e-3))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6)))))))
+(define Unelab-TTImp-n--6911-7084-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--7845-7110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-9 arg-8))))
+(define Unelab-TTImp-n--9688-8643-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 (TT-Core-nameAt 'erased arg-0 e-4 'erased))))(else (vector 0 ))))))
+(define Unelab-TTImp-n--9688-8645-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Prelude-C-43C-43 " " (Unelab-TTImp-n--9688-8644-showNScope arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Unelab-TTImp-n--9688-8643-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
+(define Unelab-TTImp-n--9688-8644-showNScope (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) "[no locals in scope]")(else (Strings-Prelude-C-43C-43 "[locals in scope: " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-7))) "]")))))))
+(define Unelab-TTImp-n--6903-6299-nthArg (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Unelab-TTImp-n--6903-6298-getNth arg-0 arg-1 arg-2 arg-3 'erased arg-6 (vector 4 e-1 e-2 e-3))))))(else (vector 10 arg-5 1))))))
+(define Unelab-TTImp-n--6911-7083-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 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Prelude-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 (Unelab-TTImp-n--6911-7083-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0))))))
+(define Unelab-TTImp-n--6903-6300-mkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pat (Unelab-TTImp-n--6903-6299-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 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))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8))))))))))))))))))))))))))
+(define Unelab-TTImp-n--6903-6301-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) (let ((sc1 arg-7)) (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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--6903-6300-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) 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-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6301-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0)))))))))))
+(define Unelab-TTImp-n--6917-8138-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define Unelab-TTImp-n--6917-8139-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-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
+(define Unelab-TTImp-n--6903-6297-idxOrDefault (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) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) e-3))(else (let ((sc1 arg-7)) arg-6)))))(else (let ((e-1 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (Unelab-TTImp-n--6903-6297-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased e-1 arg-6 e-7)))(else (let ((sc0 arg-7)) arg-6))))))))))
+(define Unelab-TTImp-n--6903-6298-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6930-6356 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
+(define Unelab-TTImp-n--6905-6703-getFnArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-1 (vector 1 (vector 0 e-0 e-2) arg-6)))))) ((9) (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))) (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-1 arg-2 arg-3 arg-4 e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-6)))))))(else (vector 0 arg-5 arg-6))))))
+(define Unelab-TTImp-n--6903-6296-findArgPos (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 3))) (vector 1 e-2)))(else (vector 0 ))))))
+(define Unelab-TTImp-used (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Prelude-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))) (Prelude-C-124C-124 (Unelab-TTImp-n--6744-6140-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unelab-TTImp-used 'erased arg-1 eta-0))) e-15))) ((4) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1)))))
 (define Unelab-TTImp-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
-(define Unelab-TTImp-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))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-3))))))))) ((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 (Context-Core-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 ((Context-Core-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))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased 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 ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-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 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased 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 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (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 ((xC-39 (Unelab-TTImp-n--6691-6819-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 (Unelab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-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 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased 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 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-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 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (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))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (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 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc))))))))))
+(define Unelab-TTImp-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))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-3))))))))) ((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 (Context-Core-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 ((Context-Core-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))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased 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 ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-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 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased 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 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (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 ((xC-39 (Unelab-TTImp-n--6911-7084-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 ((Normalise-Core-getTerm 'erased 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))) ((Unelab-TTImp-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 (Unelab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-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 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased 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 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-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 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (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))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (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 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 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 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-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 (vector-ref sc2 1))) (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 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc))))))))))
 (define Unelab-TTImp-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) ((Unelab-TTImp-unelabSugar 'erased arg-1 arg-2 e-5) ext-0))))))))
-(define Unelab-TTImp-unelabSugar (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--6685-6467 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6685-6447-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 )))))))))))
+(define Unelab-TTImp-unelabSugar (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--6905-6723 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6905-6703-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 )))))))))))
 (define Unelab-TTImp-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 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-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2))))))))))))))))
 (define Unelab-TTImp-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
 (define Unelab-TTImp-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))
-(define Unelab-TTImp-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 ((Context-Core-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))) ((Unelab-TTImp-case--6911-6248 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 Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-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))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((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) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (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 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--8872-7918 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Unelab-TTImp-used 'erased 0 arg-7))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 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 ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 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 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3))))))))))))))))
-(define Unelab-TTImp-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 ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9428-8346-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))))))
-(define Utils-TTImp-case--5701-7728 (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 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Utils-TTImp-case--5609-7693 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--5609-7631-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Utils-TTImp-case--5614-7666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
-(define Utils-TTImp-case--5613-7639 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Utils-TTImp-case--5546-7596 (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 ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0))))))
-(define Utils-TTImp-case--5541-7570 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5546-7596 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
-(define Utils-TTImp-case--5202-7323 (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 Utils-TTImp-case--5188-7306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5202-7323 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
-(define Utils-TTImp-case--4935-7174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
-(define Utils-TTImp-case--4935-7128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
-(define Utils-TTImp-case--4935-7095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 ))))))
-(define Utils-TTImp-case--4914-7073 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0)))))
-(define Utils-TTImp-n--5609-7630-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 arg-1)))(else (vector 1 0)))))))))))
-(define Utils-TTImp-n--5609-7631-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--5614-7666 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3))))
-(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--5609-7630-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) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--5609-7631-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2)))))))))))
+(define Unelab-TTImp-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 ((Context-Core-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))) ((Unelab-TTImp-case--7136-6504 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 Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-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))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((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) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (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 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) 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 ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--9125-8211 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--6917-8138-isNoSugar arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 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 ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 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 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 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)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3))))))))))))))))
+(define Unelab-TTImp-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 ((mkn (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9688-8645-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-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 'erased 'erased e-5)))))))))))))
+(define Utils-TTImp-case--5876-7996 (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 (TT-Core-C-60C-61_Ord__Visibility (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-1))) (cond ((equal? sc1 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-4 arg-2 arg-3 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Utils-TTImp-case--5782-7959 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Utils-TTImp-uniqueName arg-2 arg-1 (Utils-TTImp-n--5782-7895-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Utils-TTImp-case--5787-7931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__Int (b+ e-3 1 63)))))))))
+(define Utils-TTImp-case--5786-7904 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Utils-TTImp-case--5719-7860 (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 ((sc1 e-1)) (cond ((equal? sc1 #\_) (vector 0 (Prelude-reverse (Prelude-pack e-2)) (Prelude-cast_Cast__String_Int (Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0))))))
+(define Utils-TTImp-case--5714-7834 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "") (vector 0 arg-0 0))(else (Utils-TTImp-case--5719-7860 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
+(define Utils-TTImp-case--5373-7585 (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 Utils-TTImp-case--5359-7568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5373-7585 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
+(define Utils-TTImp-case--5106-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
+(define Utils-TTImp-case--5106-7390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-7)))))))
+(define Utils-TTImp-case--5106-7357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (Utils-TTImp-getUnique arg-2 arg-0)) (vector 0 ))) (else (vector 0 ))))))
+(define Utils-TTImp-case--5085-7335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Prelude-C-43C-43 arg-0 "'"))) (else arg-0)))))
+(define Utils-TTImp-n--5782-7894-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 arg-1)))(else (vector 1 0)))))))))))
+(define Utils-TTImp-n--5782-7895-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--5787-7931 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3))))
+(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--5782-7894-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) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--5782-7895-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2)))))))))))
 (define Utils-TTImp-substNamesTy (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))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2))))))))
 (define Utils-TTImp-substNamesDecl (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTy arg-0 arg-1 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 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 (Utils-TTImp-substNamesData arg-0 arg-1 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-13))))))(else arg-2)))))
 (define Utils-TTImp-substNamesData (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTy arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-7))))))))))
 (define Utils-TTImp-substNamesClause (lambda (arg-0 arg-1 arg-2) (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 ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-1))) arg-0))) (vector 0 e-0 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-4))) arg-0))) (vector 1 e-3 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNames boundC-39 arg-1 e-5) e-6 e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Utils-TTImp-substNames arg-0 (vector 0 ) e-9)))))))))
-(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5188-7306 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((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))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (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 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (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))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2)))))
+(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5359-7568 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 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))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 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 ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((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))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (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 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (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))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 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 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2)))))
 (define Utils-TTImp-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2)))))))
 (define Utils-TTImp-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 (Utils-TTImp-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-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 (Utils-TTImp-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1)))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-7)))))))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-1) (Utils-TTImp-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))) (vector 1 arg-0 (Utils-TTImp-substLoc arg-0 e-4) (Utils-TTImp-substLoc arg-0 e-5) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))))) (else (let ((e-9 (vector-ref sc0 2))) (vector 2 arg-0 (Utils-TTImp-substLoc arg-0 e-9))))))))
 (define Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-6) (Utils-TTImp-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 (Utils-TTImp-substLoc arg-0 e-12) (Utils-TTImp-substLoc arg-0 e-13)))))))) ((3) (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))) (vector 3 arg-0 e-15 e-16 (Utils-TTImp-substLoc arg-0 e-17) (Utils-TTImp-substLoc arg-0 e-18) (Utils-TTImp-substLoc arg-0 e-19)))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 arg-0 (Utils-TTImp-substLoc arg-0 e-21) (Utils-TTImp-substLoc arg-0 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-23)))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 5 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-25) (Utils-TTImp-substLoc arg-0 e-26))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 arg-0 (Utils-TTImp-substLoc arg-0 e-28) (Utils-TTImp-substLoc arg-0 e-29))))) ((9) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 arg-0 (Utils-TTImp-substLoc arg-0 e-31) e-32 (Utils-TTImp-substLoc arg-0 e-33)))))) ((10) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 arg-0 (Utils-TTImp-substLoc arg-0 e-35) (Utils-TTImp-substLoc arg-0 e-36))))) ((12) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 arg-0 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLoc arg-0 eta-0)) e-39))))) ((14) (let ((e-41 (vector-ref sc0 2))) (vector 14 arg-0 (Utils-TTImp-substLoc arg-0 e-41)))) ((17) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 arg-0 e-43 e-44 (Utils-TTImp-substLoc arg-0 e-45)))))) ((18) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 arg-0 e-47 (Utils-TTImp-substLoc arg-0 e-48))))) ((19) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 arg-0 e-50 (Utils-TTImp-substLoc arg-0 e-51))))) ((20) (let ((e-53 (vector-ref sc0 2))) (vector 20 arg-0 (Utils-TTImp-substLoc arg-0 e-53)))) ((21) (let ((e-55 (vector-ref sc0 2))) (vector 21 arg-0 (Utils-TTImp-substLoc arg-0 e-55))))(else arg-1)))))
-(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5541-7570 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0)))))
+(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5714-7834 arg-0 (Strings-Data-span (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-reverse arg-0)))))
 (define Utils-TTImp-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
-(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--4914-7073 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-1 arg-0))))
-(define Utils-TTImp-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))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 ))))))
-(define Utils-TTImp-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-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--4935-7095 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(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 ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(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 ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(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 ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 )))))))))
+(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--5085-7335 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 arg-0))))
+(define Utils-TTImp-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))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-4) (Utils-TTImp-findIBindVars e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-10) (Utils-TTImp-findIBindVars e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-13) (Utils-TTImp-findIBindVars e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-16) (Utils-TTImp-findIBindVars e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findIBindVars e-20) (Utils-TTImp-findIBindVars e-21))))) ((16) (let ((e-23 (vector-ref sc0 2))) (vector 1 (vector 1 e-23) (vector 0 )))) ((19) (let ((e-26 (vector-ref sc0 3))) (Utils-TTImp-findIBindVars e-26))) ((20) (let ((e-28 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-28))) ((21) (let ((e-30 (vector-ref sc0 2))) (Utils-TTImp-findIBindVars e-30))) ((12) (let ((e-33 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 ))))))
+(define Utils-TTImp-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-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--5106-7357 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(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 ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(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 ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(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 ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 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 ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 )))))))))
 (define Utils-TTImp-checkRefVisibility (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 ((Context-Core-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 ((sc3 (TT-Core-C-60C-61_Ord__Visibility (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-4))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 34 arg-1 arg-3 arg-2 (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)) arg-5) ext-0)) (else (vector 1 (vector 0 ))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define TTImp-TTImp-case--12094-10956 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Visibility 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 (TTImp-TTImp-fromBuf_TTC__ImpData 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-2))))) arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0)))))))
-(define TTImp-TTImp-case--11876-10561 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0)))))))
-(define TTImp-TTImp-case--11519-10186 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-1)))) arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0)))))))
-(define TTImp-TTImp-case--11420-10048 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0)))))))
-(define TTImp-TTImp-case--11248-9921 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0)))))))
-(define TTImp-TTImp-case--11125-9740 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0)))))))
-(define TTImp-TTImp-case--11052-9667 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0)))))))
-(define TTImp-TTImp-case--10948-9582 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0)))))))
-(define TTImp-TTImp-case--9532-8835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__AltType 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__BindMode 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0)))))))
-(define TTImp-TTImp-case--8651-7608 (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 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 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))) (vector 1 (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3))))))))))))))))))))
-(define TTImp-TTImp-case--8683-7464 (lambda (arg-0 arg-1 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 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 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 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6))))))))))))))))))
-(define TTImp-TTImp-case--8683-7360 (lambda (arg-0 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 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 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 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
-(define TTImp-TTImp-case--8682-7266 (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) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--8651-7242-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39)))))))))
-(define TTImp-TTImp-case--8403-7064 (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) (let ((act-24 ((Context-Core-inCurrentNS arg-4 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 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1))))))))
-(define TTImp-TTImp-n--7235-5933-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt))))))))))))))))))
-(define TTImp-TTImp-n--8651-7242-updateNs (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--8682-7266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
-(define TTImp-TTImp-n--9142-7803-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 TTImp-TTImp-n--8647-7214-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-n--8647-7214-setAs arg-0 arg-1 arg-2 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-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (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) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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 ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) 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))) (vector 1 (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define TTImp-TTImp-n--8651-7244-impAs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((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) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--8651-7244-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
-(define TTImp-TTImp-n--9136-7672-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define TTImp-TTImp-n--9136-7673-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define TTImp-TTImp-n--9142-7804-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7673-getFieldName arg-0 arg-1 eta-0)) arg-6)))
-(define TTImp-TTImp-n--9142-7805-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9142-7803-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)) (TTImp-TTImp-n--9142-7804-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))
-(define TTImp-TTImp-n--9142-7802-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) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9)))
-(define TTImp-TTImp-n--8651-7243-findImps (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--8651-7243-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--8683-7360 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--8651-7242-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--8683-7464 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define TTImp-TTImp-n--9136-7674-expandNS (lambda (arg-0 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) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3))))))))
-(define TTImp-TTImp-n--9136-7675-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))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9136-7672-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7672-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-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))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) 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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9142-7806-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define TTImp-TTImp-n--9142-7806-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9136-7674-expandNS arg-0 arg-1 (TTImp-TTImp-n--9142-7802-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)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9142-7805-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9142-7804-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))))
-(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7235-5933-wknName arg-0 arg-1 arg-2 eta-0)) arg-2)))
+(define TTImp-TTImp-case--12806-11559 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Visibility 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 (TTImp-TTImp-fromBuf_TTC__ImpData 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__Visibility 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0)))))))
+(define TTImp-TTImp-case--12577-11129 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0)))))))
+(define TTImp-TTImp-case--12179-10717 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0)))))))
+(define TTImp-TTImp-case--12075-10567 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0)))))))
+(define TTImp-TTImp-case--11882-10427 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0)))))))
+(define TTImp-TTImp-case--11747-10226 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0)))))))
+(define TTImp-TTImp-case--11669-10148 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0)))))))
+(define TTImp-TTImp-case--11554-10055 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0)))))))
+(define TTImp-TTImp-case--9960-9213 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 (TTImp-TTImp-fromBuf_TTC__RawImp arg-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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__AltType 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__BindMode 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__Name 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 ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 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 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 (TTImp-TTImp-fromBuf_TTC__RawImp 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))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0)))))))
+(define TTImp-TTImp-case--9065-7893 (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 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 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))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3))))))))))))))))))))
+(define TTImp-TTImp-case--9100-7745 (lambda (arg-0 arg-1 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 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 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 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6))))))))))))))))))
+(define TTImp-TTImp-case--9100-7638 (lambda (arg-0 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 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 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 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 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))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
+(define TTImp-TTImp-case--9099-7543 (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) (vector 1 arg-7)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39)))))))))
+(define TTImp-TTImp-case--8813-7337 (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) (let ((act-24 ((Context-Core-inCurrentNS arg-4 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 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1))))))))
+(define TTImp-TTImp-n--7619-6179-wknName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt))))))))))))))))))
+(define TTImp-TTImp-n--9065-7519-updateNs (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (vector 1 e-2))(else (TTImp-TTImp-case--9099-7543 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
+(define TTImp-TTImp-n--9569-8090-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 TTImp-TTImp-n--9061-7488-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-n--9061-7488-setAs arg-0 arg-1 arg-2 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-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (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) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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 ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) 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))) (vector 1 (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define TTImp-TTImp-n--9065-7521-impAs (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((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) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 (vector 1 e-11)) (vector 16 arg-6 e-11))))(else (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))(else (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9065-7521-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
+(define TTImp-TTImp-n--9563-7959-getName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define TTImp-TTImp-n--9563-7960-getFieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define TTImp-TTImp-n--9569-8091-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7960-getFieldName arg-0 arg-1 eta-0)) arg-6)))
+(define TTImp-TTImp-n--9569-8092-fnsRF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9569-8090-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)) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))
+(define TTImp-TTImp-n--9569-8089-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) (Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9)))
+(define TTImp-TTImp-n--9065-7520-findImps (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9065-7520-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--9100-7638 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--9065-7519-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--9100-7745 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-8 e-7 e-4 e-2 e-1 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define TTImp-TTImp-n--9563-7961-expandNS (lambda (arg-0 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) ((1) (let ((e-0 (vector-ref sc0 1))) (vector 0 arg-2 (vector 1 e-0)))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 0 arg-2 (vector 5 e-1)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3))))))))
+(define TTImp-TTImp-n--9563-7962-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))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 e-4)) (vector 0 )))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7959-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-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))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-0 arg-1 (List-Prelude-C-43C-43 'erased e-12 arg-2) 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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9569-8093-all arg-0 arg-1 e-14 e-16 e-26 e-28 e-30 e-29 e-27 e-15 arg-2))))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define TTImp-TTImp-n--9569-8093-all (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (vector 1 (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9563-7961-expandNS arg-0 arg-1 (TTImp-TTImp-n--9569-8089-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)) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-n--9569-8092-fnsRF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TTImp-TTImp-n--9569-8091-fnsUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))))))
+(define TTImp-TTImp-weaken_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7619-6179-wknName arg-0 arg-1 arg-2 eta-0)) arg-2)))
 (define TTImp-TTImp-weakenNs_Weaken__NestedNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 (List-Prelude-C-43C-43 'erased e-3 arg-0) (TTImp-TTImp-weakenNs_Weaken__NestedNames arg-0 e-3 arg-2)))))))))
-(define TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 e-23 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) 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 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0)))))))))))))))))
+(define TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTImp-TTImp-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 ((TTImp-TTImp-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-23 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) 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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) 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 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp 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 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0)))))))))))))))))
 (define TTImp-TTImp-toBuf_TTC__ImpTy (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpRecord (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-1)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-5)))) arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-2 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpDecl (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 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) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 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 ((TTImp-TTImp-toBuf_TTC__ImpData 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-13 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Visibility 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 ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-1)))) arg-0 e-20 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpData (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (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 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__ImpClause (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-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-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-1)))) arg-0 e-9 eta-0)))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0)))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__IField (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))))))))))))))))
-(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))
-(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0)))))))
+(define TTImp-TTImp-toBuf_TTC__ImpRecord (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-2 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpDecl (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 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) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 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 ((TTImp-TTImp-toBuf_TTC__ImpData 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-13 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Visibility 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 ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-1)))) arg-0 e-20 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name 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 ((TTImp-TTImp-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpData (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 ((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 (Binary-Utils-tag arg-0 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (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 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__ImpClause (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((TTC-Core-toBuf_TTC__FC arg-0 e-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-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-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-1)))) arg-0 e-9 eta-0)))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__IFieldUpdate (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0)))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__IField (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))))))))))))))))
+(define TTImp-TTImp-toBuf_TTC__FnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-0) eta-0)))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-1) eta-0)))))))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 eta-0)))))))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))))))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))
+(define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0)))))))
 (define TTImp-TTImp-toBuf_TTC__BindMode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-0) eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTImp-TTImp-toBuf_TTC__AltType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-0) eta-0))))))))))))
 (define TTImp-TTImp-show_Show__RawImp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-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))) (Strings-Prelude-C-43C-43 "(%pi " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-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))) (Strings-Prelude-C-43C-43 "(%lam " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-9) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-11) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-13) ")")))))))))))))))) ((3) (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))) (Strings-Prelude-C-43C-43 "(%let " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-15) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-16) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-17) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-18) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-19) ")"))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%case (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-21) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-22) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-23) ")")))))))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%local (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-25) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-26) ")"))))))) ((6) (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))) (Strings-Prelude-C-43C-43 "(%caselocal (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-28) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-30) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-31) ")"))))))))))))) ((7) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%record " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-34) ")"))))))) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-36) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-37) ")"))))))) ((9) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-39) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-40) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-41) "])")))))))))) ((10) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-43) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-44) ")"))))))) ((11) "%search") ((12) (let ((e-49 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(|" (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__RawImp arg-1)) e-49)) "|)")))) ((13) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%rewrite (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-51) (Strings-Prelude-C-43C-43 ") (" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-52) "))"))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%coerced " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-54) ")")))) ((15) (let ((e-57 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%bindhere " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-57) ")")))) ((16) (let ((e-59 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "$" e-59))) ((17) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-62) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-63) ")")))))) ((18) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-66) ")")))) ((19) (let ((e-69 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%delayed " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-69) ")")))) ((20) (let ((e-71 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%delay " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-71) ")")))) ((21) (let ((e-73 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%force " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-73) ")")))) ((22) (let ((e-75 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-75) ")")))) ((23) (let ((e-77 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotename " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%quotedecl " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%unquote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%runelab " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-83) ")")))) ((27) (let ((e-85 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "?" e-87))) ((30) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%logging " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-89) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-90) ")"))))))) ((28) "%type") ((31) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-95) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-96) ")")))))))))))
@@ -1876,58 +1908,58 @@
 (define TTImp-TTImp-showPrec_Show__ImpClause (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__ImpClause arg-1)))
 (define TTImp-TTImp-showPrec_Show__IFieldUpdate (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)))
 (define TTImp-TTImp-showPrec_Show__FnOpt (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__FnOpt arg-1)))
-(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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))) (let ((act-29 (TTImp-TTImp-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 (TTImp-TTImp-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 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-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 (TTImp-TTImp-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 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 21) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 22) (let ((act-25 (TTC-Core-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 (TTC-Core-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 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 26) (let ((act-25 (TTC-Core-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 (TTC-Core-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 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-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 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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))) (let ((act-29 (TTImp-TTImp-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 (TTImp-TTImp-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 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-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 (TTImp-TTImp-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 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 21) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 22) (let ((act-25 (TTC-Core-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 (TTC-Core-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 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-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 (TTImp-TTImp-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 26) (let ((act-25 (TTC-Core-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 (TTC-Core-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 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-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 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__ImpTy (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-fromBuf_TTC__RawImp 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 TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-0)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-4)))) arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 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 TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-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 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "ImpData" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 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 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (TTC-Core-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 (TTImp-TTImp-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 TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "FnOpt" ext-0)))))))))))
-(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "DataOpt" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 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 TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-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 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "ImpData" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTC-Core-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 (TTImp-TTImp-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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 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 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTImp-TTImp-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (TTC-Core-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 (TTImp-TTImp-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 TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "FnOpt" ext-0)))))))))))
+(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "DataOpt" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__BindMode (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "BindMode" ext-0)))))))))))
 (define TTImp-TTImp-fromBuf_TTC__AltType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTImp-TTImp-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 (Binary-Utils-corrupt 'erased "AltType" ext-0)))))))))))
-(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3225)))))))
-(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpTy arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpData arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__IField arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__FnOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__DataOpt arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__BindMode arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-8243 eta-0))))))
-(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__AltType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-8243 eta-0))))))
+(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3271)))))))
+(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpData arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__IField arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__BindMode arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-2106 eta-0))))))
+(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__AltType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-2106 eta-0))))))
 (define TTImp-TTImp-__Impl_Show_RawImp (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpTy (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpTy x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpTy d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpDecl (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x))))))
 (define TTImp-TTImp-__Impl_Show_ImpClause (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x))))))
 (define TTImp-TTImp-__Impl_Show_IFieldUpdate (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__IFieldUpdate x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__IFieldUpdate d x))))))
 (define TTImp-TTImp-__Impl_Show_FnOpt (lambda () (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x))))))
-(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-650 arg-651))))))
-(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651))))))
+(define TTImp-TTImp-__Impl_Eq_WithFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431))))))
+(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431))))))
 (define TTImp-TTImp-C-61C-61_Eq__WithFlag (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((sc1 arg-1)) 0))))
-(define TTImp-TTImp-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))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 TTImp-TTImp-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))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 TTImp-TTImp-C-47C-61_Eq__WithFlag (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-0 arg-1))))
 (define TTImp-TTImp-C-47C-61_Eq__DataOpt (lambda (arg-0 arg-1) (Prelude-not (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-0 arg-1))))
 (define NestedNames-TTImp-TTImp-names (lambda (arg-0 arg-1) arg-1))
-(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 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 ((TTImp-TTImp-lhsInCurrentNS 'erased 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 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))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--8403-7064 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--8647-7214-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2)))
+(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 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 ((TTImp-TTImp-lhsInCurrentNS 'erased 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))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased 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-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (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 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 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))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--8813-7337 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9061-7488-setAs arg-2 arg-1 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Prelude-C-43C-43 'erased arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2)))
 (define TTImp-TTImp-getFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-1))) ((10) (let ((e-4 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-4))) ((9) (let ((e-7 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-7))) ((17) (let ((e-13 (vector-ref sc0 4))) (TTImp-TTImp-getFn e-13))) ((18) (let ((e-16 (vector-ref sc0 3))) (TTImp-TTImp-getFn e-16)))(else arg-0)))))
 (define TTImp-TTImp-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-20 (vector-ref sc0 1))) e-20)) ((5) (let ((e-24 (vector-ref sc0 1))) e-24)) ((6) (let ((e-27 (vector-ref sc0 1))) e-27)) ((7) (let ((e-32 (vector-ref sc0 1))) e-32)) ((8) (let ((e-35 (vector-ref sc0 1))) e-35)) ((9) (let ((e-38 (vector-ref sc0 1))) e-38)) ((10) (let ((e-42 (vector-ref sc0 1))) e-42)) ((11) (let ((e-45 (vector-ref sc0 1))) e-45)) ((12) (let ((e-47 (vector-ref sc0 1))) e-47)) ((13) (let ((e-50 (vector-ref sc0 1))) e-50)) ((14) (let ((e-53 (vector-ref sc0 1))) e-53)) ((27) (let ((e-55 (vector-ref sc0 1))) e-55)) ((29) (let ((e-57 (vector-ref sc0 1))) e-57)) ((30) (let ((e-59 (vector-ref sc0 1))) e-59)) ((28) (let ((e-62 (vector-ref sc0 1))) e-62)) ((16) (let ((e-63 (vector-ref sc0 1))) e-63)) ((15) (let ((e-65 (vector-ref sc0 1))) e-65)) ((18) (let ((e-68 (vector-ref sc0 1))) e-68)) ((19) (let ((e-71 (vector-ref sc0 1))) e-71)) ((20) (let ((e-74 (vector-ref sc0 1))) e-74)) ((21) (let ((e-76 (vector-ref sc0 1))) e-76)) ((22) (let ((e-78 (vector-ref sc0 1))) e-78)) ((23) (let ((e-80 (vector-ref sc0 1))) e-80)) ((24) (let ((e-82 (vector-ref sc0 1))) e-82)) ((25) (let ((e-84 (vector-ref sc0 1))) e-84)) ((26) (let ((e-86 (vector-ref sc0 1))) e-86)) ((17) (let ((e-88 (vector-ref sc0 1))) e-88)) ((31) (let ((e-92 (vector-ref sc0 1))) e-92)) (else (let ((e-94 (vector-ref sc0 1))) e-94))))))
-(define TTImp-TTImp-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-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 ))))))
-(define TTImp-TTImp-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))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 ))))))
-(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9136-7675-defName arg-1 arg-0 arg-0 eta-0))) arg-1)))
+(define TTImp-TTImp-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-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5))))))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-10) (TTImp-TTImp-findImplicits e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-13) (TTImp-TTImp-findImplicits e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-16) (TTImp-TTImp-findImplicits e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-20) (TTImp-TTImp-findImplicits e-21))))) ((17) (let ((e-25 (vector-ref sc0 4))) (TTImp-TTImp-findImplicits e-25))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 ))))))
+(define TTImp-TTImp-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))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-4) (TTImp-TTImp-findIBinds e-5))))) ((2) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-10) (TTImp-TTImp-findIBinds e-11))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-13) (TTImp-TTImp-findIBinds e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-16) (TTImp-TTImp-findIBinds e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 ))))))
+(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9563-7962-defName arg-1 arg-0 arg-0 eta-0))) arg-1)))
 (define TTImp-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-apply (vector 8 (TTImp-TTImp-getFC arg-0) arg-0 e-2) e-3))))))))
-(define Value-Core-case--4849-3146 (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 Value-Core-case--4990-3154 (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 Value-Core-withHoles (lambda () (vector 0 0 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define Value-Core-withArgHoles (lambda () (vector 0 1 0 1 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define Value-Core-withAll (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 0 1 (vector 0 ) (vector 0 ))))
 (define EvalOpts-Value-Core-usedMetas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Value-Core-tcOnly (lambda () (Value-Core-case--4849-3146 (Value-Core-withArgHoles))))
+(define Value-Core-tcOnly (lambda () (Value-Core-case--4990-3154 (Value-Core-withArgHoles))))
 (define EvalOpts-Value-Core-tcInline (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define EvalOpts-Value-Core-removeAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define EvalOpts-Value-Core-reduceLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
@@ -1937,75 +1969,75 @@
 (define EvalOpts-Value-Core-evalAll (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Value-Core-defaultOpts (lambda () (vector 0 1 1 0 (IntMap-Data-empty 'erased) 1 1 (vector 0 ) (vector 0 ))))
 (define EvalOpts-Value-Core-argHolesOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define IntMap-Data-case--3912-2541 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
-(define IntMap-Data-case--3912-2504 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
-(define IntMap-Data-case--3824-2419 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define IntMap-Data-case--3573-2275 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
-(define IntMap-Data-case--3573-2201 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
-(define IntMap-Data-case--3460-2177 (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) (IntMap-Data-case--3573-2201 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3573-2275 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
-(define IntMap-Data-case--3460-2103 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
-(define IntMap-Data-case--2719-2079 (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) (IntMap-Data-case--3460-2103 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3460-2177 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
-(define IntMap-Data-case--3347-2025 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
-(define IntMap-Data-case--3205-1983 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
-(define IntMap-Data-case--3230-1925 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
-(define IntMap-Data-case--3205-1883 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
-(define IntMap-Data-case--2719-1863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3205-1883 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3205-1983 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
-(define IntMap-Data-case--3033-1801 (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))) (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 IntMap-Data-case--3033-1733 (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))) (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 IntMap-Data-case--2930-1711 (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) (IntMap-Data-case--3033-1733 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3033-1801 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
-(define IntMap-Data-case--2930-1643 (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))) (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 IntMap-Data-case--2719-1621 (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) (IntMap-Data-case--2930-1643 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2930-1711 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2)))))))
-(define IntMap-Data-case--2791-1571 (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 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 IntMap-Data-case--2791-1517 (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 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 IntMap-Data-case--2719-1499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2791-1517 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2791-1571 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
-(define IntMap-Data-case--2719-1451 (lambda (arg-0 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 IntMap-Data-case--2639-1382 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define IntMap-Data-case--2380-1285 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define IntMap-Data-case--2380-1174 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define IntMap-Data-case--2217-1143 (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) (IntMap-Data-case--2380-1174 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2380-1285 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define IntMap-Data-case--2217-1033 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define IntMap-Data-case--1862-1002 (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) (IntMap-Data-case--2217-1033 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2217-1143 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4)))))))
-(define IntMap-Data-case--1991-924 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define IntMap-Data-case--1991-835 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define IntMap-Data-case--1862-808 (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) (IntMap-Data-case--1991-835 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--1991-924 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define IntMap-Data-case--1862-706 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define IntMap-Data-case--1755-645 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define IntMap-Data-case--1632-598 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1755-645 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
-(define IntMap-Data-case--1632-550 (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) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define IntMap-Data-case--1632-507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define IntMap-Data-n--3746-2331-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased 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))) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
-(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
-(define IntMap-Data-treeLookup (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))) (IntMap-Data-case--1632-507 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1632-550 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1632-598 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
-(define IntMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1862-706 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1862-808 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1862-1002 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
-(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2639-1382 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
-(define IntMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (IntMap-Data-case--2719-1451 'erased e-3 e-2 arg-2 n (Prelude-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))) (IntMap-Data-case--2719-1499 'erased e-9 e-8 e-7 arg-2 (Prelude-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))) (IntMap-Data-case--2719-1621 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-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))) (IntMap-Data-case--2719-1863 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-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))) (IntMap-Data-case--2719-2079 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25))))))))))))))))))))
+(define IntMap-Data-case--3933-2550 (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))) (vector 1 (+ 1 arg-1) e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 arg-1 e-5)))))))
+(define IntMap-Data-case--3933-2513 (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))) (vector 1 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (vector 0 ))))))))
+(define IntMap-Data-case--3845-2428 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define IntMap-Data-case--3594-2284 (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))) (vector 0 (vector 2 arg-6 arg-5 arg-4 arg-3 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge3 'erased 'erased arg-6 arg-5 arg-4 arg-3 e-5))))))))
+(define IntMap-Data-case--3594-2210 (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))) (vector 0 (vector 2 arg-6 arg-5 e-2 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge2 'erased 'erased arg-6 arg-5 e-5 arg-3 arg-2))))))))
+(define IntMap-Data-case--3481-2186 (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) (IntMap-Data-case--3594-2210 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-4))) (else (IntMap-Data-case--3594-2284 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-2)))))))
+(define IntMap-Data-case--3481-2112 (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))) (vector 0 (vector 2 e-2 arg-5 arg-4 arg-3 arg-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (IntMap-Data-merge1 'erased 'erased e-5 arg-5 arg-4 arg-3 arg-2))))))))
+(define IntMap-Data-case--2740-2088 (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) (IntMap-Data-case--3481-2112 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-7 arg-6))) (else (IntMap-Data-case--3481-2186 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
+(define IntMap-Data-case--3368-2034 (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 2 e-2 e-3 e-4 arg-3 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))) (vector 0 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 arg-6))))))))))))
+(define IntMap-Data-case--3226-1992 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-7 e-8 e-9 e-10 e-11 arg-3 e-5))))))))))))))))
+(define IntMap-Data-case--3251-1934 (lambda (arg-0 arg-1 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))) (vector 1 (vector 2 arg-6 arg-3 e-2 e-3 e-4)))))) (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))) (vector 0 (IntMap-Data-branch4 'erased 'erased arg-6 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))
+(define IntMap-Data-case--3226-1892 (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))) (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 (IntMap-Data-branch4 'erased 'erased e-5 arg-3 e-7 e-8 e-9 e-10 e-11))))))))))))))))
+(define IntMap-Data-case--2740-1872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (IntMap-Data-case--3226-1892 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-4))) (else (IntMap-Data-case--3226-1992 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (IntMap-Data-treeDelete 'erased (+ 1 arg-1) arg-5 arg-2)))))))
+(define IntMap-Data-case--3054-1810 (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))) (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 IntMap-Data-case--3054-1742 (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))) (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 IntMap-Data-case--2951-1720 (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) (IntMap-Data-case--3054-1742 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-3))) (else (IntMap-Data-case--3054-1810 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-1)))))))
+(define IntMap-Data-case--2951-1652 (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))) (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 IntMap-Data-case--2740-1630 (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) (IntMap-Data-case--2951-1652 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (IntMap-Data-treeDelete 'erased 0 arg-6 arg-5))) (else (IntMap-Data-case--2951-1720 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-60C-61_Ord__Int arg-6 arg-2)))))))
+(define IntMap-Data-case--2812-1580 (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 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 IntMap-Data-case--2812-1526 (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 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 IntMap-Data-case--2740-1508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2812-1526 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2812-1580 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
+(define IntMap-Data-case--2740-1460 (lambda (arg-0 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 IntMap-Data-case--2660-1391 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define IntMap-Data-case--2401-1294 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define IntMap-Data-case--2401-1183 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define IntMap-Data-case--2238-1152 (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) (IntMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (IntMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (IntMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define IntMap-Data-case--2238-1042 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define IntMap-Data-case--1883-1011 (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) (IntMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (IntMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__Int arg-8 arg-4)))))))
+(define IntMap-Data-case--2012-933 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define IntMap-Data-case--2012-844 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define IntMap-Data-case--1883-817 (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) (IntMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (IntMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define IntMap-Data-case--1883-715 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define IntMap-Data-case--1776-654 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define IntMap-Data-case--1653-607 (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) (IntMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (IntMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__Int arg-7 arg-3)))))))
+(define IntMap-Data-case--1653-559 (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) (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (IntMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define IntMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define IntMap-Data-n--3767-2340-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (vector 1 (vector 0 e-1 e-2) arg-3)))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased 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))) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14) e-12) e-10)))))))))
+(define IntMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (IntMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0)))
+(define IntMap-Data-treeLookup (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))) (IntMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
+(define IntMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (IntMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (IntMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__Int arg-2 e-11))))))))))))
+(define IntMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IntMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define IntMap-Data-treeDelete (lambda (arg-0 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 ((n 0)) (IntMap-Data-case--2740-1460 'erased e-3 e-2 arg-2 n (Prelude-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))) (IntMap-Data-case--2740-1508 'erased e-9 e-8 e-7 arg-2 (Prelude-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))) (IntMap-Data-case--2740-1630 'erased e-16 e-15 e-14 e-13 e-12 arg-2 (Prelude-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))) (IntMap-Data-case--2740-1872 'erased e-4 e-21 e-20 e-19 arg-2 (Prelude-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))) (IntMap-Data-case--2740-2088 'erased e-4 e-28 e-27 e-26 e-25 e-24 arg-2 (Prelude-C-60C-61_Ord__Int arg-2 e-25))))))))))))))))))))
 (define IntMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeToList 'erased 'erased e-3)))))))
 (define IntMap-Data-merge3 (lambda (arg-0 arg-1 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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-merge2 (lambda (arg-0 arg-1 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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-merge1 (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-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))) (IntMap-Data-branch5 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch6 'erased 'erased 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))) (IntMap-Data-branch7 'erased 'erased 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 IntMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
 (define IntMap-Data-keys (lambda (arg-0 ext-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (IntMap-Data-toList 'erased ext-0))))
-(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3824-2419 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define IntMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (IntMap-Data-case--3845-2428 'erased e-2 arg-2 e-3 arg-1 (IntMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
 (define IntMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define IntMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3912-2504 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3912-2541 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
+(define IntMap-Data-delete (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (IntMap-Data-case--3933-2513 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3933-2550 'erased e-4 e-3 arg-1 (IntMap-Data-treeDelete 'erased (+ 1 e-4) arg-1 e-3)))))))))))))
 (define IntMap-Data-branch7 (lambda (arg-0 arg-1 arg-2 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 IntMap-Data-branch6 (lambda (arg-0 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 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 IntMap-Data-branch5 (lambda (arg-0 arg-1 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 IntMap-Data-branch4 (lambda (arg-0 arg-1 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 Env-Core-case--3713-6916 (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 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5)))))))
-(define Env-Core-case--3649-6895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3713-6916 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
-(define Env-Core-case--3649-6854 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 ))))))))
-(define Env-Core-case--3558-6779 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
-(define Env-Core-case--3357-6602 (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) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 arg-2 'erased arg-7)))))))
-(define Env-Core-case--2827-6069 (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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))
-(define Env-Core-case--2806-6045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3))))))))))
-(define Env-Core-n--3357-6657-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3357-6657-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3))))))))
-(define Env-Core-n--3357-6591-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9)))
-(define Env-Core-n--3357-6672-dropS (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3357-6672-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3357-6672-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))
+(define Env-Core-case--3787-7167 (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 1 arg-0 arg-4) (vector 2 arg-5))) (else (vector 0 arg-4 (vector 1 arg-5)))))))
+(define Env-Core-case--3723-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3787-7167 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
+(define Env-Core-case--3723-7105 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 (vector 0 )) (vector 2 (vector 0 )))) (else (vector 0 (vector 0 ) (vector 1 (vector 0 ))))))))
+(define Env-Core-case--3632-7030 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
+(define Env-Core-case--3431-6852 (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) arg-6) (else (Env-Core-findUsedInBinder arg-0 arg-7 (vector 1 arg-2 arg-6) (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 arg-2 'erased arg-7)))))))
+(define Env-Core-case--2900-6319 (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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))
+(define Env-Core-case--2879-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-defined arg-1 arg-4 arg-2) (lambda (_-0) (let ((sc1 _-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 1 (vector 0 0 (TT-Core-multiplicity 'erased arg-3))))))))))
+(define Env-Core-n--3431-6907-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-n--3431-6907-findUsedArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-findUsed arg-0 arg-7 arg-8 e-2) e-3))))))))
+(define Env-Core-n--3431-6841-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Prelude-C-61C-61_Eq__Integer arg-8 arg-9)))
+(define Env-Core-n--3431-6922-dropS (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))(else (let ((e-4 (- e-2 1))) (vector 1 e-4 (Env-Core-n--3431-6922-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))
 (define Env-Core-toVar (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (cond ((equal? sc1 0) (vector 1 0))(else (let ((e-3 (- arg-1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-toVar e-2 e-3) (lambda (_-0) (vector 1 (+ 1 _-0))))))))))(else (vector 0 ))))))
 (define Env-Core-shrinkEnv (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Env-Core-shrinkEnv 'erased 'erased e-4 e-8))) (else (let ((e-12 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-shrinkEnv 'erased 'erased e-4 e-12) (lambda (envC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-3 e-12) (lambda (bC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 bC-39 envC-39))))))))))))))))))
 (define Env-Core-revOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 ))))))
-(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3649-6854 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3649-6895 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2))))))))))
+(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--3723-7105 arg-0 arg-2 (Env-Core-isUsed 'erased 0 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-case--3723-7146 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2))))))))))
 (define Env-Core-mkShrink (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-mkShrinkSub e-2 e-3 arg-1))))))))
 (define Env-Core-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Env-Core-mkEnv arg-0 e-3))))))))
 (define Env-Core-letToLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 0 e-7 (vector 1 ) e-9) (Env-Core-letToLam 'erased e-5)))))(else (vector 1 e-4 (Env-Core-letToLam 'erased e-5))))))))))))
@@ -2015,37 +2047,37 @@
 (define Env-Core-getBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Env-Core-getBinderUnder 'erased 'erased arg-2 arg-3 arg-4 (vector 0 ) 'erased arg-6)))
 (define Env-Core-findUsedLocs (lambda (arg-0 arg-1 arg-2) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Env-Core-toVar arg-0 eta-0)) (Env-Core-findUsed arg-0 arg-1 (vector 0 ) arg-2))))
 (define Env-Core-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-2) e-3)))) ((4) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-6) e-7))))(else (Env-Core-findUsed arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3)))))))
-(define Env-Core-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))) (Env-Core-case--3357-6602 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3357-6591-eqNat arg-0 'erased e-4 'erased 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))) (Env-Core-n--3357-6657-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))) (Env-Core-n--3357-6672-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2)))))
+(define Env-Core-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))) (Env-Core-case--3431-6852 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (List-Data-elemBy 'erased (lambda (eta-0) (lambda (eta-1) (Env-Core-n--3431-6841-eqNat arg-0 'erased e-4 'erased 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))) (Env-Core-n--3431-6907-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))) (Env-Core-n--3431-6922-dropS arg-0 e-13 e-15 e-14 e-12 arg-2 arg-1 (Env-Core-findUsed (vector 1 e-13 arg-0) (vector 1 e-14 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (+ 1 eta-0)) (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-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))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-23) e-24)))) ((6) (let ((e-28 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-28))) ((7) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-32) e-33)))) ((8) (let ((e-37 (vector-ref sc0 3))) (Env-Core-findUsed arg-0 arg-1 arg-2 e-37)))(else arg-2)))))
 (define Env-Core-findSubEnv (lambda (arg-0 arg-1 arg-2) (Env-Core-mkShrink arg-0 (Env-Core-findUsedLocs arg-0 arg-1 arg-2))))
-(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--2806-6045 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2))))))))))))
+(define Env-Core-defined (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-case--2879-6294 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2))))))))))))
 (define Env-Core-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3))))))))))))
 (define Env-Core-allVarsNoLet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))(else (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9))))))))))))))))
 (define Env-Core-allVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-9 (vector-ref sc1 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9))))))))))))
 (define Env-Core-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13) arg-3))))))(else (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3)))))))))))))))
 (define Env-Core-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13) arg-3)))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-15 e-16 e-17) arg-3))))))(else (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3)))))))))))))))
-(define Core-Core-case--7454-10825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4)))))))
-(define Core-Core-case--7316-10709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2))))))
-(define Core-Core-case--7258-10651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Core-Core-case--7200-10594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2))))))
-(define Core-Core-case--6771-10145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
-(define Core-Core-case--6745-10131 (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 ((pC-39 (vector 0 e-2))) (Core-Core-case--6771-10145 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define Core-Core-case--6572-9937 (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))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5)))))))
-(define Core-Core-case--6442-9803 (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))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define Core-Core-case--5165-8566 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2))))))))
-(define Core-Core-case--4933-8541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))))))
-(define Core-Core-case--4933-8443 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\xa;\x9;" (Core-Core-show_Show__Error e-5))))))))
-(define Core-Core-case--4873-8294 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
-(define Core-Core-n--4933-8618-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
-(define Core-Core-n--4933-8619-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
-(define Core-Core-n--4933-9183-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1))))
+(define Core-Core-case--7680-4711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((e-1 (arg-1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (arg-2)) (else (Core-Core-cond 'erased arg-3 arg-4)))))))
+(define Core-Core-case--7535-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2))))))
+(define Core-Core-case--7476-4530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Core-Core-case--7417-4472 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased arg-3 arg-2))))))
+(define Core-Core-case--6981-4008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
+(define Core-Core-case--6953-3994 (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 ((pC-39 (vector 0 e-2))) (Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define Core-Core-case--6780-3805 (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))) (lambda (eta-0) (vector 0 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5)))))))
+(define Core-Core-case--6650-3670 (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))) (lambda (eta-0) (vector 0 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define Core-Core-case--5370-2429 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-2))))))))
+(define Core-Core-case--5136-2404 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-3)) e-0))))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))))))
+(define Core-Core-case--5136-2306 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) " is not a valid impossible pattern because it typechecks"))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\xa;\x9;" (Core-Core-show_Show__Error e-5))))))))
+(define Core-Core-case--5074-2155 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
+(define Core-Core-n--5136-2481-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
+(define Core-Core-n--5136-2482-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
+(define Core-Core-n--5136-3046-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1))))
 (define Core-Core-throw_Catchable__Core_Error (lambda (arg-0 ext-1 ext-0) (Core-Core-coreFail 'erased ext-1 ext-0)))
-(define Core-Core-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 ((age (Core-Core-case--4873-8294 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4)))))))
-(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\xa;\x9;" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-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-195 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-195)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\xa;\x9;" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--4933-8618-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--4933-8619-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-72 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-72))))))) ((20) (let ((e-73 (vector-ref sc0 1))) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-73) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-74) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-75))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-76)))) ((22) (let ((e-78 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-78) ":Can't infer type of record to update"))) ((23) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")))) (else (let ((e-198 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-198) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-83) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-85) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-88) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-90) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-87 e-91)))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-93) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-92 (Builtin-snd 'erased 'erased x))))) e-95)) "\xa;(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-97) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-96 e-100)))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-102) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-101 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-106) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-105 e-110) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-107) " can't be inferred")))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-111)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-113) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-112 e-117) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) ")"))))))))))))) ((33) (let ((e-119 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-119) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) " is solved by unification")))))) ((34) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-123) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-127))))))))))))))) ((35) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-128) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-129)))))) ((36) (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-130) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-132) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-134 (vector-ref sc0 1))) (let ((e-135 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-134) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-137 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-137) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-136 e-139))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-141) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-143) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-144)))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-146 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-146) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-145 e-148) " is not a rewrite rule type"))))))) ((42) (let ((e-149 (vector-ref sc0 1))) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-150)))) ((2) (let ((e-199 (vector-ref sc1 1))) (let ((sc2 e-199)) (let ((e-203 (vector-ref sc2 1))) (let ((e-204 (vector-ref sc2 2))) (let ((sc3 e-204)) (let ((e-208 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-203 e-208) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-150)))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-200) " is not fully applied"))))))))))) ((43) (let ((e-152 (vector-ref sc0 1))) (let ((e-153 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-153) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-152 e-155) " as it is has a polymorphic type"))))))) ((44) (let ((e-156 (vector-ref sc0 1))) (let ((e-157 (vector-ref sc0 2))) (let ((e-159 (vector-ref sc0 4))) (let ((e-160 (vector-ref sc0 5))) (let ((e-161 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-157) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-160) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-159) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-161)))))))))))))) ((45) (let ((e-162 (vector-ref sc0 1))) (let ((e-163 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-162) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-163 " can't be bound here")))))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-165 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-165) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-164 e-167))))))) ((47) (let ((e-168 (vector-ref sc0 1))) (let ((e-169 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-168) (Strings-Prelude-C-43C-43 ":" e-169))))) ((48) (let ((e-170 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170)))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-172))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176) ")"))))) ((51) (let ((e-177 (vector-ref sc0 1))) (let ((e-178 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-177) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found")))))) ((52) (let ((e-179 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--4933-9183-showMod e-179 eta-0)) e-179))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180))) ((55) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-181))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-183) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-184))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-186) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-187))))))))) ((58) (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-189) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-190))))))))) (else (let ((e-191 (vector-ref sc0 1))) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-191) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-192) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-193)))))))))))))
+(define Core-Core-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 ((age (Core-Core-case--5074-2155 e-2 e-1 e-0 (Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Prelude-C-43C-43 "TTC data is in an " (Strings-Prelude-C-43C-43 age (Strings-Prelude-C-43C-43 " format, file: " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ", expected version: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-2) (Strings-Prelude-C-43C-43 ", actual version: " (Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Corrupt TTC data for " e-4)))))))
+(define Core-Core-show_Show__Error (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Prelude-C-43C-43 ":Type mismatch: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Prelude-C-43C-43 ":Pattern variable " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Prelude-C-43C-43 " unifies with " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Prelude-C-43C-43 " = " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Prelude-C-43C-43 ":When unifying: " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Core-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 "Not a valid impossible pattern:\xa;\x9;" (Core-Core-show_Show__Error e-5)))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Prelude-C-43C-43 ":Undefined name " (Name-Core-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-196 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Prelude-C-43C-43 ":Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Prelude-C-43C-43 ":Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Prelude-C-43C-43 " is not covering:\xa;\x9;" (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) "Oh yes it is (Internal error!)") ((1) (let ((e-0 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1)) e-0))))) (else (let ((e-1 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Prelude-C-43C-43 ":There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Prelude-C-43C-43 ":Trying to use " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2481-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Core-Core-n--5136-2482-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-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) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased x))))) e-96)) "\xa;(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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-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) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " 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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-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))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--5136-3046-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-194)))))))))))))
 (define Core-Core-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") (else "Unknown reason")))))
 (define Core-Core-showPrec_Show__Error (lambda (arg-0 arg-1) (Core-Core-show_Show__Error arg-1)))
-(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 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 ((pC-39 (vector 0 e-2))) ((Core-Core-case--6771-10145 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))))
+(define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 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 ((pC-39 (vector 0 e-2))) ((Core-Core-case--6981-4008 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))))
 (define Core-Core-__Impl_Show_Error (lambda () (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))))
-(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-10040) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10040 eta-0)))) (lambda (a) (lambda (arg-10041) (lambda (arg-10042) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-10041 arg-10042 eta-0))))))))
+(define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-3908) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-3908 eta-0)))) (lambda (a) (lambda (arg-3909) (lambda (arg-3910) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-3909 arg-3910 eta-0))))))))
 (define Core-Core-wrapError (lambda (arg-0 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 Core-Core-when (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Core-Core-traverse_ (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased arg-2 e-3) eta-0)))))))))))))
@@ -2059,10 +2091,10 @@
 (define Core-Core-Core-runCore (lambda (arg-0 arg-1) arg-1))
 (define Core-Core-put (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (set-box! arg-3 arg-4))) (vector 1 act-24))))
 (define Core-Core-pure (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (IORef-Data-newIORef 'erased 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 Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 Core-Core-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (arg-2 e-5))))))) arg-3 ext-0)))
 (define Core-Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))))
-(define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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-73 (vector-ref sc0 1))) (vector 1 e-73))) ((21) (let ((e-76 (vector-ref sc0 1))) (let ((sc1 e-76)) (case (vector-ref sc1 0) ((1) (let ((e-195 (vector-ref sc1 1))) (let ((sc2 e-195)) (let ((e-201 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-201))))) (else (vector 0 )))))) ((22) (let ((e-78 (vector-ref sc0 2))) (vector 1 e-78))) ((23) (let ((e-80 (vector-ref sc0 1))) (vector 1 e-80))) ((24) (let ((e-83 (vector-ref sc0 1))) (vector 1 e-83))) ((25) (let ((e-85 (vector-ref sc0 1))) (vector 1 e-85))) ((26) (let ((e-88 (vector-ref sc0 2))) (vector 1 e-88))) ((27) (let ((e-93 (vector-ref sc0 2))) (vector 1 e-93))) ((28) (let ((e-97 (vector-ref sc0 2))) (vector 1 e-97))) ((29) (let ((e-102 (vector-ref sc0 2))) (vector 1 e-102))) ((30) (let ((e-106 (vector-ref sc0 2))) (vector 1 e-106))) ((31) (let ((e-111 (vector-ref sc0 1))) (let ((sc1 e-111)) (case (vector-ref sc1 0) ((1) (let ((e-203 (vector-ref sc1 1))) (let ((sc2 e-203)) (let ((e-208 (vector-ref sc2 1))) (vector 1 e-208))))) (else (vector 0 )))))) ((32) (let ((e-113 (vector-ref sc0 2))) (vector 1 e-113))) ((33) (let ((e-119 (vector-ref sc0 2))) (vector 1 e-119))) ((34) (let ((e-123 (vector-ref sc0 1))) (vector 1 e-123))) ((35) (let ((e-128 (vector-ref sc0 1))) (vector 1 e-128))) ((36) (let ((e-130 (vector-ref sc0 1))) (vector 1 e-130))) ((37) (let ((e-132 (vector-ref sc0 1))) (vector 1 e-132))) ((38) (let ((e-134 (vector-ref sc0 1))) (vector 1 e-134))) ((39) (let ((e-137 (vector-ref sc0 2))) (vector 1 e-137))) ((40) (let ((e-141 (vector-ref sc0 2))) (vector 1 e-141))) ((41) (let ((e-146 (vector-ref sc0 2))) (vector 1 e-146))) ((42) (let ((e-149 (vector-ref sc0 1))) (vector 1 e-149))) ((43) (let ((e-153 (vector-ref sc0 2))) (vector 1 e-153))) ((44) (let ((e-157 (vector-ref sc0 2))) (vector 1 e-157))) ((45) (let ((e-162 (vector-ref sc0 1))) (vector 1 e-162))) ((46) (let ((e-165 (vector-ref sc0 2))) (vector 1 e-165))) ((47) (let ((e-168 (vector-ref sc0 1))) (vector 1 e-168))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (let ((e-175 (vector-ref sc0 2))) (vector 1 e-175))) ((51) (let ((e-177 (vector-ref sc0 1))) (vector 1 e-177))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-184 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-184))) ((57) (let ((e-187 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-187))) ((58) (let ((e-190 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-190))) (else (let ((e-193 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-193)))))))
+(define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-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)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-202 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-202))))) (else (vector 0 )))))) ((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)) (case (vector-ref sc1 0) ((1) (let ((e-204 (vector-ref sc1 1))) (let ((sc2 e-204)) (let ((e-209 (vector-ref sc2 1))) (vector 1 e-209))))) (else (vector 0 )))))) ((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) (let ((e-176 (vector-ref sc0 2))) (vector 1 e-176))) ((51) (let ((e-178 (vector-ref sc0 1))) (vector 1 e-178))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-185 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-185))) ((57) (let ((e-188 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-188))) ((58) (let ((e-191 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-191))) (else (let ((e-194 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-194)))))))
 (define Core-Core-get (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (unbox arg-3))) (vector 1 act-24))))
 (define Core-Core-filterM (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 ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-filterM 'erased arg-1 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))) (vector 1 (vector 1 e-2 e-6)))))))) (else ((Core-Core-filterM 'erased arg-1 e-3) eta-0)))))))))))))))))
 (define Core-Core-coreRun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (arg-2 ext-0))) ((Prelude-either 'erased 'erased 'erased (lambda () arg-3) (lambda () arg-4) act-24) ext-0))))
@@ -2075,217 +2107,220 @@
 (define Core-Core-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 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 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-3 e-5) ext-0))))))))
 (define Core-Core-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-17 (let ((act-17 (lambda (arg-4) (lambda (arg-5) (let ((sc0 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 ((sc1 arg-5)) (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 Core-Core-C-60C-36C-62 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (arg-2 e-5))))))) arg-3 ext-0)))
-(define IORef-Data-writeIORef (lambda (arg-0 arg-1 arg-2 ext-0) (set-box! arg-1 arg-2)))
-(define IORef-Data-readIORef (lambda (arg-0 arg-1 ext-0) (unbox arg-1)))
+(define IORef-Data-writeIORef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (set-box! arg-3 arg-4)))))))
+(define IORef-Data-readIORef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (unbox arg-3)))))))
 (define IORef-Data-prim__writeIORef (lambda (arg-0 arg-1 arg-2 arg-3) (set-box! arg-1 arg-2)))
 (define IORef-Data-prim__readIORef (lambda (arg-0 arg-1 arg-2) (unbox arg-1)))
 (define IORef-Data-prim__newIORef (lambda (arg-0 arg-1 arg-2) (box arg-1)))
-(define IORef-Data-newIORef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (box arg-1))) act-24)))
-(define Context-Core-case--24320-25502 (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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (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 (let ((act-26 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24320-25473-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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-1)))))
-(define Context-Core-case--24168-25334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--24122-25293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0)))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--24047-25229 (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) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5)))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--23989-25201 (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))) (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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25)))))))))))))))))))))))))))))))
-(define Context-Core-case--23929-25151 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23846-25082 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23775-25012 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23704-24942 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--23617-24815 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
-(define Context-Core-case--23507-24707 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
-(define Context-Core-case--23437-24681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--23384-24625 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23331-24575 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23278-24525 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23203-24467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 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))))))))))))))))))))))))))))))
-(define Context-Core-case--23117-24397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 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))))))))))))))))))))))))))))))
-(define Context-Core-case--22975-24265 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 e-37 e-38 arg-0) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22908-24199 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 arg-0 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22842-24134 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 arg-0 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22776-24069 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22710-24004 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 arg-0 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22644-23939 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-35 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22559-23820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
-(define Context-Core-case--22503-23795 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 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))))))))))))))))))))))))))))))
-(define Context-Core-case--22435-23744 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22416-23674 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Context-Core-case--22320-23640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22299-23578 (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) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Context-Core-case--22231-23549 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 arg-0 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--22018-23339 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21941-23263 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21864-23187 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-0 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21781-23110 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21721-23041 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33) 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))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21664-22957 (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))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
-(define Context-Core-case--21606-22936 (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))) (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 ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) 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))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21421-22763 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) 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))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21341-22688 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) 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)))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--21191-22534 (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))) (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--21057-22458 (lambda (arg-0 arg-1 arg-2 arg-3 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-9)) (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))) (vector 0 arg-15 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)))))))))))))))))))))))))))))
-(define Context-Core-case--20908-22383 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 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))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (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))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 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)))))))))))))))))))))))))))))) (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-2))))))))))))))))
-(define Context-Core-case--20923-22302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3)))))
-(define Context-Core-case--20688-22085 (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 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3)))))
-(define Context-Core-case--20616-22060 (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))) (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))) (Context-Core-case--20688-22085 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3)))))
-(define Context-Core-case--20507-21916 (lambda (arg-0 arg-1 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 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 ))))))
-(define Context-Core-case--20363-21782 (lambda (arg-0 arg-1 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 0 )) (else arg-12)))))
-(define Context-Core-case--20285-21741 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ 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))))))))))))))))))))))))))))))
-(define Context-Core-case--20235-21658 (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 Context-Core-case--20145-21624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--20130-21565 (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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-26 (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))) (vector 0 e-0 e-1 e-26 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 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Context-Core-case--20060-21529 (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))) (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))) (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 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--19984-21460 (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-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))) (vector 0 e-0 e-1 e-2 arg-0 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)))))))))))))))))))))))))))))
-(define Context-Core-case--19932-21411 (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-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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))))
-(define Context-Core-case--19880-21360 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))
-(define Context-Core-case--19661-21269 (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)) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19661-21179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19613-21123 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Context-Core-case--19599-21079 (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) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-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 ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) arg-0 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))) ((Context-Core-case--19613-21123 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0)))))))
-(define Context-Core-case--19547-21061 (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))) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-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)))))))))))))))))))))))))))))
-(define Context-Core-case--19418-20947 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (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))))))))))))))))))))))))))))))
-(define Context-Core-case--19339-20874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19136-20780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-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))))))))))))))))))))))))))))))
-(define Context-Core-case--19136-20699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) 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))))))))))))))))))))))))))))))
-(define Context-Core-case--19049-20645 (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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-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))))))))))))))))))))))))))))))) (vector 1 act-24))))))))
-(define Context-Core-case--19049-20600 (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 (vector 0 ))))))
-(define Context-Core-case--18924-20499 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0)))))
-(define Context-Core-case--18903-20470 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18885-20455 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18903-20470 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18760-20368 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1)))))
-(define Context-Core-case--18739-20339 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18721-20324 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18739-20339 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18623-20242 (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))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18605-20227 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18623-20242 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18500-20137 (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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) 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))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18338-20122 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18500-20137 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--18344-20001 (lambda (arg-0 arg-1 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 ((Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) 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 1 arg-12 e-5))))))))) (else (Context-Core-n--18338-19977-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10))))))
-(define Context-Core-case--18280-19962 (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))) (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--18222-19907 (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))) (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))) (vector 0 e-0 (vector 1 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--18124-19799 (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-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0)))))))
-(define Context-Core-case--18106-19784 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18124-19799 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17771-19559 (lambda (arg-0 arg-1 arg-2 arg-3 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-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))
-(define Context-Core-case--17771-19490 (lambda (arg-0 arg-1 arg-2 arg-3 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))) e-1)) (else (vector 0 ))))))
-(define Context-Core-case--17747-19453 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-0 eta-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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--17771-19490 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--17747-19430-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
-(define Context-Core-case--17597-19315 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
-(define Context-Core-case--17512-19270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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-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 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--17494-19224 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17394-19135 (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 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Context-Core-case--17306-19088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
-(define Context-Core-case--17288-19040 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--17200-18992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
-(define Context-Core-case--17182-18944 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16992-18804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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))) (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 arg-0))))))))))))))))))))))))
-(define Context-Core-case--16974-18758 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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))) (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 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16821-18659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16803-18606 (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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16663-18529 (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)) (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-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 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16645-18464 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (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-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (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))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
-(define Context-Core-case--16548-18416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--16530-18361 (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 ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define Context-Core-case--16269-18110 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7)))))))))))
-(define Context-Core-case--16224-18059 (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 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--16157-18032 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) 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 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--16069-17924 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
-(define Context-Core-case--16026-17887 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
-(define Context-Core-case--15974-17863 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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))) (vector 0 arg-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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--15899-17797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 arg-0 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15882-17753 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (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 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15805-17712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20))))))))))))))))))))))))
-(define Context-Core-case--15788-17668 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15711-17627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15694-17583 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15619-17544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 arg-0 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))))))))))))))))))))))))
-(define Context-Core-case--15602-17500 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (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))) (vector 0 e-0 e-21 arg-0 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)))))))))))))))))))))) 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 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15502-17457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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-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 e-15 e-16 arg-6 e-18 e-19 e-20))))))))))))))))))))))))
-(define Context-Core-case--15483-17390 (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (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 )))))))))))))
-(define Context-Core-case--15466-17375 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15483-17390 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--15346-17303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
-(define Context-Core-case--15329-17249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 (vector 1 e-2)))))))))))
-(define Context-Core-case--15177-17219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
-(define Context-Core-case--15177-17128 (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 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0)))))))
-(define Context-Core-case--15160-17097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15177-17128 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (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-2))))))))))))))))
-(define Context-Core-case--15073-17011 (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 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define Context-Core-case--15065-17000 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15073-17011 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Context-Core-case--15008-16982 (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))) (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))) (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 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--14953-16930 (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))) (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))) (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 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Context-Core-case--14903-16881 (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))) (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))) (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))) (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 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--14833-16824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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))) (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 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Context-Core-case--14763-16768 (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))) (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-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--14763-16706-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))
-(define Context-Core-case--14766-16720 (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-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))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
-(define Context-Core-case--14663-16647 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-case--11616-13849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
-(define Context-Core-case--11615-13758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
-(define Context-Core-case--11485-13586 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
-(define Context-Core-case--11484-13567 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
-(define Context-Core-case--10527-12755 (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))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
-(define Context-Core-case--10526-12655 (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))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
-(define Context-Core-case--9934-12318 (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))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6))))))))
-(define Context-Core-case--9934-12269 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1))))))))
-(define Context-Core-case--9933-12073 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1)) 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 (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1)))))))))))))
-(define Context-Core-case--9861-12024 (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 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Context-Core-case--9860-12000 (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 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
-(define Context-Core-case--9781-11923 (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 Context-Core-case--9679-11877 (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9)))))))))))))
-(define Context-Core-case--9679-11849 (lambda (arg-0 arg-1 arg-2 arg-3) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))))
-(define Context-Core-case--9651-11808 (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 ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((Context-Core-n--9651-11782-commitStaged arg-0 (IntMap-Data-toList 'erased (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-12 (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))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-10 (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))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9))))))))))))))))))))))
-(define Context-Core-case--9634-11780 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--9541-11705 (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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9518-11685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-1))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define Context-Core-case--9455-11664 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-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)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-4))))))(else (vector 1 (vector 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))) ((Context-Core-n--9360-11518-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9455-11620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9360-11606 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--9455-11664 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
-(define Context-Core-case--9364-11576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--9360-11518-getMatches arg-0 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))) (vector 1 (vector 1 arg-2 e-5))))))))) (else (Context-Core-n--9360-11518-getMatches arg-0 arg-1 arg-3))))))
-(define Context-Core-case--9252-11498 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9259-11463 (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 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9252-11424 (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 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Context-Core-case--9045-11394 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9129-11328 (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))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
-(define Context-Core-case--9052-11311 (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) (let ((act-24 ((Context-Core-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))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9129-11328 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--9052-11253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
-(define Context-Core-case--9045-11239 (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 ((Context-Core-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))) ((Context-Core-case--9052-11253 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 ((Context-Core-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))) ((Context-Core-case--9129-11328 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-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 Context-Core-case--8943-11215 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--8950-11183 (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) (let ((act-24 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Context-Core-case--8943-11147 (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 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 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 ((Context-Core-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 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Context-Core-case--8873-11095 (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 (vector 0 arg-1 arg-0))) (else (vector 0 ))))))
-(define Context-Core-case--8861-11079 (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))) (Context-Core-case--8873-11095 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 ))))))
-(define Context-Core-case--8807-11052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--8742-11022 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))
-(define Context-Core-case--8742-10975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased e-5 e-2 arg-1) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
-(define Context-Core-case--8731-10960 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased e-6 e-2 arg-1) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
-(define Context-Core-case--8677-10935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))
-(define Context-Core-case--8612-10905 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))
-(define Context-Core-case--8612-10858 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased e-5 e-2 (vector 1 arg-1)) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
-(define Context-Core-case--8601-10843 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased e-6 e-2 (vector 1 arg-1)) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
-(define Context-Core-case--8556-10806 (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 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0))))))
-(define Context-Core-case--8476-10775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define Context-Core-case--8406-10676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0)))))))
-(define Context-Core-case--8400-10654 (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))) (Context-Core-case--8406-10676 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
-(define Context-Core-case--5588-8182 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else "")))))
-(define Context-Core-n--21495-22781-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-0)))
-(define Context-Core-n--20343-21763-toNothing (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)) (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 ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--20363-21782 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7)))))
-(define Context-Core-n--20616-22004-shrink (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 )))))))))
-(define Context-Core-n--24788-25897-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStr (Strings-Prelude-C-43C-43 e-2 ": ") eta-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 ((nano 1000000000)) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24788-25896-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s"))) eta-0))) (vector 1 act-25)))))))))))))))
-(define Context-Core-n--10874-13105-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
-(define Context-Core-n--14763-16706-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))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
-(define Context-Core-n--20472-21891-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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-4)) (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))) (Context-Core-case--20507-21916 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Context-Core-n--9360-11517-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0)))))
-(define Context-Core-n--20774-22144-justPos (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--20774-22144-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--20774-22144-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
-(define Context-Core-n--15062-16990-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-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))) ((Context-Core-case--15073-17011 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 Context-Core-n--17747-19429-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
-(define Context-Core-n--11173-13289-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11173-13289-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
-(define Context-Core-n--11172-13258-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11172-13258-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
-(define Context-Core-n--18338-19977-getPos (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) ((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))) (Context-Core-case--18344-20001 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0))))))))))
-(define Context-Core-n--9360-11518-getMatches (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Context-Core-n--9360-11518-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--9364-11576 arg-0 arg-1 e-6 e-3 (Context-Core-n--9360-11517-matches arg-0 arg-1 'erased arg-1 e-6)))))))))))))
-(define Context-Core-n--20231-21645-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--20235-21658 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
-(define Context-Core-n--10873-12972-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
-(define Context-Core-n--17747-19430-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
-(define Context-Core-n--20472-21866-couldBeParam (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))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 ))))))
-(define Context-Core-n--20908-22268-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 Context-Core-n--9651-11782-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9651-11782-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
-(define Context-Core-n--21495-22780-allParents (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--21495-22780-allParents arg-0 arg-1 e-3)))))))))
-(define Context-Core-n--20908-22267-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) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0)))))))
-(define Context-Core-n--24788-25896-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1))))))
-(define Context-Core-n--24320-25473-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5))))))
-(define Context-Core-n--20908-22269-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--20908-22268-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 ((Context-Core-addCtxt e-5 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 (vector-ref sc3 2))) ((Context-Core-n--20908-22269-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0))))))))))))))))))))))
+(define IORef-Data-newIORef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (box arg-3)))))) (lambda (m) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) m)))))))))
+(define Context-Core-case--25060-19943 (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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (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 (let ((act-26 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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-1)))))
+(define Context-Core-case--24899-19767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24851-19724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24773-19657 (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) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--24713-19627 (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))) (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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25)))))))))))))))))))))))))))))))
+(define Context-Core-case--24651-19576 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24565-19504 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24492-19432 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24419-19360 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--24326-19223 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
+(define Context-Core-case--24210-19106 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-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 ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) 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))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6)))))))))))))))))))
+(define Context-Core-case--24138-19079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--24084-19021 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--24030-18970 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23976-18919 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23898-18860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23808-18787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23659-18646 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23590-18578 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23522-18511 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23454-18444 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23386-18377 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23318-18310 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23231-18189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 9 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
+(define Context-Core-case--23174-18162 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 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))))))))))))))))))))))))))))))
+(define Context-Core-case--23104-18110 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--23081-18038 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Context-Core-case--22984-18000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22954-17937 (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) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Context-Core-case--22884-17899 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22814-17830 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22744-17761 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22664-17682 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22584-17603 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22504-17524 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22418-17444 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22356-17373 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) 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)))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22296-17286 (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))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
+(define Context-Core-case--22237-17263 (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))) (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 ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) 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))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--22047-17085 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) 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))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--21964-17006 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) 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)))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--21805-16843 (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))) (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--21669-16766 (lambda (arg-0 arg-1 arg-2 arg-3 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-9)) (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))) (vector 0 arg-15 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)))))))))))))))))))))))))))))
+(define Context-Core-case--21400-16689 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 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))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (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))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 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)))))))))))))))))))))))))))))) (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-2))))))))))))))))
+(define Context-Core-case--21452-16556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))
+(define Context-Core-case--21415-16509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))))))))))
+(define Context-Core-case--21179-16290 (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 (Context-Core-updateParams 'erased arg-3 arg-7))) (else arg-3)))))
+(define Context-Core-case--21107-16265 (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))) (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))) (Context-Core-case--21179-16290 arg-0 arg-1 arg-2 arg-3 e-5 e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-7 arg-2))))))(else arg-3))))))(else arg-3)))))
+(define Context-Core-case--20998-16121 (lambda (arg-0 arg-1 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 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 ))))))
+(define Context-Core-case--20854-15987 (lambda (arg-0 arg-1 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 0 )) (else arg-12)))))
+(define Context-Core-case--20773-15945 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20722-15858 (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 Context-Core-case--20629-15823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--20613-15762 (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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-26 (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))) (vector 0 e-0 e-1 e-26 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 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Context-Core-case--20540-15722 (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))) (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))) (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 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--20461-15648 (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-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))) (vector 0 e-0 e-1 e-2 arg-0 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)))))))))))))))))))))))))))))
+(define Context-Core-case--20408-15598 (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-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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))))
+(define Context-Core-case--20355-15546 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))
+(define Context-Core-case--20134-15453 (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)) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20134-15362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--20082-15306 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Context-Core-case--20067-15258 (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) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-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 ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) arg-0 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))) ((Context-Core-case--20082-15306 arg-0 arg-1 arg-2 arg-3 e-1 e-5 e-6 e-7 e-8 (NameMap-Data-lookup 'erased e-5 (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12)))) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "LHS of a transformation must be a function application") eta-0)))))))
+(define Context-Core-case--20014-15239 (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))) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-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)))))))))))))))))))))))))))))
+(define Context-Core-case--19881-15122 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (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))))))))))))))))))))))))))))))
+(define Context-Core-case--19799-15046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--19595-14949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-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))))))))))))))))))))))))))))))
+(define Context-Core-case--19595-14868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) 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))))))))))))))))))))))))))))))
+(define Context-Core-case--19505-14814 (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)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-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))))))))))))))))))))))))))))))) (vector 1 act-24))))))))
+(define Context-Core-case--19505-14769 (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 (vector 0 ))))))
+(define Context-Core-case--19380-14665 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0)))))
+(define Context-Core-case--19359-14636 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19339-14621 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19359-14636 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--19214-14532 (lambda (arg-0 arg-1 arg-2 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)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1)))))
+(define Context-Core-case--19193-14503 (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 ((flC-39 (let ((sc1 e-4)) (let ((e-8 (vector-ref sc1 2))) (vector 0 arg-0 e-8))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19173-14488 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19193-14503 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--19075-14404 (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))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--19055-14389 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--19075-14404 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18949-14296 (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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) 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))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-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 Context-Core-case--18783-14281 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18949-14296 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18789-14156 (lambda (arg-0 arg-1 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 ((Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) 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 1 arg-12 e-5))))))))) (else (Context-Core-n--18783-14132-getPos arg-0 arg-1 arg-2 arg-3 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10))))))
+(define Context-Core-case--18723-14116 (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))) (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--18663-14059 (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))) (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))) (vector 0 e-0 (vector 1 arg-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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--18565-13950 (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-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7))) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))) " is not a type constructor [setMutWith]")) eta-0)))))))
+(define Context-Core-case--18545-13935 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--18565-13950 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--18209-13708 (lambda (arg-0 arg-1 arg-2 arg-3 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-1)) (cond ((equal? sc0 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 10))) e-9)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-0))) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))
+(define Context-Core-case--18209-13639 (lambda (arg-0 arg-1 arg-2 arg-3 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))) e-1)) (else (vector 0 ))))))
+(define Context-Core-case--18183-13601 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-0 eta-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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Prelude-not (Context-Core-n--18183-13576-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
+(define Context-Core-case--18029-13459 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
+(define Context-Core-case--17944-13412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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-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 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17924-13366 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17820-13272 (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 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Context-Core-case--17732-13223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-22 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
+(define Context-Core-case--17712-13175 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-22 (vector-ref sc2 2))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 arg-0 e-22) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17624-13125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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 ((sc1 e-10)) (let ((e-21 (vector-ref sc1 1))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-21 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))))))))
+(define Context-Core-case--17604-13077 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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 ((sc2 e-10)) (let ((e-23 (vector-ref sc2 1))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 e-23 arg-0) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17412-12933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 ((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))) (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 arg-0))))))))))))))))))))))))
+(define Context-Core-case--17392-12887 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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))) (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 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17236-12784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17216-12730 (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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--17075-12651 (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)) (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-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 arg-9 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--17055-12585 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc4 e-11)) (let ((e-21 (vector-ref sc4 12))) e-21)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 (vector 9 e-10) (let ((sc4 e-11)) (let ((e-0 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (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-24 (vector-ref sc4 7))) (let ((e-23 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-22 (vector-ref sc4 11))) (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))) (vector 0 e-0 e-26 e-25 e-3 e-4 e-5 e-24 e-23 e-8 e-9 e-22 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0)))))))
+(define Context-Core-case--16957-12535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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 ((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-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 arg-7 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16937-12479 (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 ((flagsC-39 (vector 1 arg-0 (List-Data-filter 'erased (lambda (arg-6) (Context-Core-C-47C-61_Eq__DefFlag arg-6 arg-0)) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (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-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-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define Context-Core-case--16663-12211 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (arg-3 e-7)))))))))))
+(define Context-Core-case--16617-12160 (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 (vector 1 (arg-3 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16548-12132 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased arg-3 (vector 0 ) 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 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--16451-12015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
+(define Context-Core-case--16405-11975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setCtxt arg-1 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 (vector 1 e-2)))))))))))
+(define Context-Core-case--16352-11949 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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))) (vector 0 arg-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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--16277-11882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 arg-0 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16258-11838 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (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 e-13 e-14 e-15 arg-0 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16181-11795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 e-18 (vector 1 arg-0) e-20))))))))))))))))))))))))
+(define Context-Core-case--16162-11751 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 arg-0) 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--16085-11708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-15 e-16 e-17 (vector 1 arg-0) e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--16066-11664 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-1 (let ((sc1 e-1)) (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-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-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 e-13 e-14 e-15 e-16 e-17 (vector 1 arg-0) e-19 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 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15991-11623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (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 arg-0 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))))))))))))))))))))))))
+(define Context-Core-case--15972-11579 (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) (let ((act-24 (Context-Core-addDef arg-2 (vector 9 arg-1) (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (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))) (vector 0 e-0 e-21 arg-0 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)))))))))))))))))))))) 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 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15872-11534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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-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 e-15 e-16 arg-6 e-18 e-19 e-20))))))))))))))))))))))))
+(define Context-Core-case--15853-11467 (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (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 )))))))))))))
+(define Context-Core-case--15834-11452 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15853-11467 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (arg-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--15713-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
+(define Context-Core-case--15694-11323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 (vector 1 e-2)))))))))))
+(define Context-Core-case--15540-11291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (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))) (vector 0 arg-5 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)))))))))))))))))))))))))))))
+(define Context-Core-case--15540-11200 (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 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-clearUserHole arg-2 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) eta-0)))))))
+(define Context-Core-case--15521-11167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-0 arg-1 arg-2 arg-3 e-2 e-3 _-0 e-5 (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0)))) (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-2))))))))))))))))
+(define Context-Core-case--15433-11078 (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 0))) ((7) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
+(define Context-Core-case--15424-11067 (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 ((_-0 (vector 1 e-1))) (Context-Core-case--15433-11078 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Context-Core-case--15366-11048 (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))) (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))) (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 e-20 e-21 (NameMap-Data-delete 'erased arg-0 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--15310-10995 (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))) (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))) (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 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Context-Core-case--15259-10945 (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))) (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))) (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))) (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 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--15188-10887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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))) (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 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Context-Core-case--15115-10830 (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))) (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-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))
+(define Context-Core-case--15118-10780 (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-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 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Context-Core-case--15014-10705 (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))) (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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-case--11945-7897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
+(define Context-Core-case--11944-7801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-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))) (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-11 (vector-ref sc0 12))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-4 e-11 arg-5 arg-6 e-14 e-15 e-16 arg-3 e-18 e-19 arg-7)))))))))))))))))))
+(define Context-Core-case--11810-7618 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
+(define Context-Core-case--11809-7599 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-2 e-1)))))
+(define Context-Core-case--10793-6732 (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))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
+(define Context-Core-case--10792-6628 (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))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3 arg-1 arg-6))))))))
+(define Context-Core-case--10167-6267 (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))) (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 e-1 arg-6))))) (else (lambda (eta-0) (vector 1 (vector 2 arg-4 arg-3 arg-2 arg-6))))))))
+(define Context-Core-case--10167-6217 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (vector 9 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 arg-1))))))))
+(define Context-Core-case--10166-6008 (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))) (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1))) 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 (vector 1 (vector 1 arg-3 arg-2 (vector 9 arg-1)))))))))))))
+(define Context-Core-case--10091-5956 (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 9 e-1))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Context-Core-case--10090-5932 (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 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 9 arg-0))))))))
+(define Context-Core-case--10011-5852 (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 Context-Core-case--9908-5806 (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9)))))))))))))
+(define Context-Core-case--9908-5778 (lambda (arg-0 arg-1 arg-2 arg-3) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))))
+(define Context-Core-case--9878-5735 (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 ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((Context-Core-n--9878-5707-commitStaged arg-0 (IntMap-Data-toList 'erased (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-12 (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))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-10 (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))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9))))))))))))))))))))))
+(define Context-Core-case--9861-5705 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--9767-5630 (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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9742-5609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-1))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define Context-Core-case--9678-5585 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-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)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-4))))))(else (vector 1 (vector 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))) ((Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9678-5541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9582-5526 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--9678-5585 arg-0 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
+(define Context-Core-case--9586-5495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--9582-5437-getMatches arg-0 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))) (vector 1 (vector 1 arg-2 e-5))))))))) (else (Context-Core-n--9582-5437-getMatches arg-0 arg-1 arg-3))))))
+(define Context-Core-case--9470-5417 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupContextEntry (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9477-5382 (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 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9470-5338 (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 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Context-Core-case--9256-5308 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9345-5241 (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))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
+(define Context-Core-case--9263-5223 (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) (let ((act-24 ((Context-Core-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))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9345-5241 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9263-5160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6)))))))))))
+(define Context-Core-case--9256-5145 (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 ((Context-Core-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))) ((Context-Core-case--9263-5160 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 ((Context-Core-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))) ((Context-Core-case--9345-5241 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-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 Context-Core-case--9148-5121 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-lookupCtxtExactI (vector 9 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9155-5087 (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) (let ((act-24 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Context-Core-case--9148-5044 (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 ((Context-Core-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 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) 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 ((Context-Core-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 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Context-Core-case--9078-4992 (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 (vector 0 arg-1 arg-0))) (else (vector 0 ))))))
+(define Context-Core-case--9066-4976 (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))) (Context-Core-case--9078-4992 arg-0 arg-1 e-1 e-2 e-3 e-4 e-0 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)))))))))(else (vector 0 ))))))
+(define Context-Core-case--9012-4949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--8942-4919 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))
+(define Context-Core-case--8942-4867 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 arg-1) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
+(define Context-Core-case--8931-4851 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 arg-1) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
+(define Context-Core-case--8877-4826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))
+(define Context-Core-case--8807-4796 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))
+(define Context-Core-case--8807-4744 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-5 e-2 (vector 1 arg-1)) eta-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 (vector 1 (vector 0 e-2 e-3))))))))))))))))))
+(define Context-Core-case--8796-4728 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox 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 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-6 e-2 (vector 1 arg-1)) eta-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 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition 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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))))))))))))))))
+(define Context-Core-case--8751-4691 (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 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0))))))
+(define Context-Core-case--8666-4658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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))) (vector 0 e-0 (b+ arg-2 1 63) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define Context-Core-case--8596-4554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-3 (vector 1 (vector 0 arg-2 arg-1) e-2) arg-0)))))))
+(define Context-Core-case--8590-4532 (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))) (Context-Core-case--8596-4554 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
+(define Context-Core-case--5756-2041 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else "")))))
+(define Context-Core-n--22123-17104-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-0)))
+(define Context-Core-n--20834-15968-toNothing (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)) (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 ((tm (vector 1 (vector 0 e-4 e-5 e-6)))) (Context-Core-case--20854-15987 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7)))))
+(define Context-Core-n--21107-16209-shrink (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 )))))))))
+(define Context-Core-n--25540-20350-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-2 ": ")) eta-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 ((nano 1000000000)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25540-20349-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25)))))))))))))))
+(define Context-Core-n--11155-7101-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
+(define Context-Core-n--15115-10765-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 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Context-Core-n--20963-16096-mergeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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-4)) (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))) (Context-Core-case--20998-16121 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Context-Core-n--9582-5436-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0)))))
+(define Context-Core-n--21265-16349-justPos (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 arg-2 (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--21265-16349-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
+(define Context-Core-n--15421-11056-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-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))) ((Context-Core-case--15433-11078 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 Context-Core-n--18183-13575-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
+(define Context-Core-n--11472-7296-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11472-7296-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
+(define Context-Core-n--11471-7264-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name 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-5 (vector-ref sc2 1))) ((Context-Core-n--11471-7264-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
+(define Context-Core-n--18783-14132-getPos (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) ((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))) (Context-Core-case--18789-14156 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-3 e-5 arg-6 arg-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0))))))))))
+(define Context-Core-n--9582-5437-getMatches (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Context-Core-n--9582-5437-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--9586-5495 arg-0 arg-1 e-6 e-3 (Context-Core-n--9582-5436-matches arg-0 arg-1 'erased arg-1 e-6)))))))))))))
+(define Context-Core-n--20718-15845-getDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Context-Core-case--20722-15858 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
+(define Context-Core-n--11154-6960-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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 ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))))))))))))))))))))))))))))))
+(define Context-Core-n--18183-13576-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
+(define Context-Core-n--20963-16071-couldBeParam (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))) (vector 1 (vector 0 e-2 e-3 e-4))))))(else (vector 0 ))))))
+(define Context-Core-n--21400-16474-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 Context-Core-n--9878-5707-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9878-5707-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
+(define Context-Core-n--22123-17103-allParents (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))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 e-2 e-3) (Context-Core-n--22123-17103-allParents arg-0 arg-1 e-3)))))))))
+(define Context-Core-n--21400-16473-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) (vector 0 ))(else (let ((e-0 (- arg-9 1))) (Prelude-rangeFromTo_Range__Nat 0 e-0)))))))
+(define Context-Core-n--25540-20349-addZeros (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1)))))))(else (Prelude-pack arg-1))))))
+(define Context-Core-n--25060-19914-addZeros (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) "000") ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "00" (Prelude-cast_Cast__Char_String e-2))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "0" (Strings-Prelude-C-43C-43 (Prelude-cast_Cast__Char_String e-2) (Prelude-cast_Cast__Char_String e-6))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5)))))))(else (Prelude-pack arg-5))))))
+(define Context-Core-n--21400-16475-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--21400-16474-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 ((Context-Core-addCtxt e-5 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 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-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) ((Context-Core-n--21400-16475-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0))))))))))))))))))))))))))))))
 (define GlobalDef-Context-Core-rf--totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Context-Core-show_Show__SizeChange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Smaller") ((1) "Same") (else "Unknown")))))
 (define Context-Core-show_Show__SCCall (lambda (arg-0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
@@ -2300,15 +2335,15 @@
 (define Context-Core-resolved_HasNames__Terminating (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) (let ((act-24 ((Context-Core-resolved_HasNames__PartialReason arg-0 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))) (vector 1 (vector 2 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-resolved_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__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 ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))))))))))
 (define Context-Core-resolved_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-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 (Context-Core-case--9861-12024 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0)))))))
-(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10874-13105-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Context-Core-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 (Context-Core-case--10091-5956 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0)))))))
+(define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11155-7101-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-resolved_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) 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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Context-Core-case--9934-12269 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) ((Context-Core-case--9934-12318 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11173-13289-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
+(define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (Context-Core-case--10167-6217 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) ((Context-Core-case--10167-6267 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11472-7296-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
 (define Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) (((e-3 arg-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))) (vector 1 (vector 1 e-5))))))))))))))
 (define Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) ((Context-Core-case--10527-12755 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
+(define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) ((Context-Core-case--10793-6732 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
 (define Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))
 (define Context-Core-full_HasNames__Transform (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-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))) (let ((act-25 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 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))) (let ((act-27 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-4) 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 (vector 0 e-0 e-5 e-6 e-7 e-8)))))))))))))))))))))))))))))))
 (define Context-Core-full_HasNames__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Terminating arg-0 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 ((act-25 ((Context-Core-full_HasNames__Covering arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
@@ -2316,11 +2351,11 @@
 (define Context-Core-full_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__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 ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))))))))))
 (define Context-Core-full_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
 (define Context-Core-full_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) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-0) 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))) (vector 1 (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))))) (else (vector 1 (vector 9 e-0)))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10873-12972-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-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 ((Context-Core-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-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 Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) 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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--11154-6960-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
 (define Context-Core-full_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) 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))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) 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 (vector 2 e-5))))))))))))))
-(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) 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)) (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 (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36)) eta-0))) (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 (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11172-13258-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
+(define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) 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)) (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 (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36))) eta-0))) (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 (vector 1 (vector 1 e-1 e-2 (vector 9 e-36))))))))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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))) (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased 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 Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11471-7264-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2))))
 (define Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-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))) (vector 1 (vector 1 e-5))))))))))))))
 (define Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) 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))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-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))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
 (define Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 (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 ((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 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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 ((act-25 ((Context-Core-lookupCtxtExact e-1 arg-1) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-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))) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 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 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased 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))) (vector 1 (vector 3 e-5))))))))))))))
@@ -2329,38 +2364,38 @@
 (define Context-Core-__Impl_Show_SCCall (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x))))))
 (define Context-Core-__Impl_Show_DefFlag (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x))))))
 (define Context-Core-__Impl_Show_Def (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))))
-(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-11959 arg-11960 eta-0)))))))
-(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-11959 arg-11960))))))
-(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SizeChange arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SizeChange arg-650 arg-651))))))
-(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SCCall arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SCCall arg-650 arg-651))))))
-(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651))))))
+(define Context-Core-__Impl_HasNames_Transform (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-0)))))))
+(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5888 arg-5889))))))
+(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SizeChange arg-430 arg-431))))))
+(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431))))))
+(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431))))))
 (define Context-Core-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 Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (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))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Nat arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Context-Core-C-61C-61_Eq__SizeChange arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Context-Core-C-47C-61_Eq__SizeChange arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Nat arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SizeChange arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Context-Core-C-47C-61_Eq__SizeChange arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
-(define Context-Core-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-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(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-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Nat arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Nat arg-652 arg-653)))) arg-650 arg-651)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1)))))
+(define Context-Core-C-61C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (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))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Nat arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Context-Core-C-61C-61_Eq__SizeChange arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Context-Core-C-47C-61_Eq__SizeChange arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Nat arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SizeChange arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Context-Core-C-47C-61_Eq__SizeChange arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
+(define Context-Core-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-2 (vector-ref sc1 1))) (TT-Core-C-61C-61_Eq__TotalReq e-0 e-2)))(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-3 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Nat arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Nat arg-432 arg-433)))) arg-430 arg-431)))) e-1 e-3)))(else 1))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(else 1))))(else 1)))))
 (define Context-Core-C-47C-61_Eq__SizeChange (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SizeChange arg-0 arg-1))))
 (define Context-Core-C-47C-61_Eq__SCCall (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__SCCall arg-0 arg-1))))
 (define Context-Core-C-47C-61_Eq__DefFlag (lambda (arg-0 arg-1) (Prelude-not (Context-Core-C-61C-61_Eq__DefFlag arg-0 arg-1))))
 (define Defs-Context-Core-warnings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-25 (vector-ref sc0 26))) e-25))))
 (define Context-Context-Core-visibleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Context-Core-visibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-visibleIn ns arg-1 arg-2))) arg-0)))
-(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0)))))(else 0)))))
+(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))))(else 0)))))
 (define GlobalDef-Context-Core-visibility (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define GlobalDef-Context-Core-vars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define Defs-Context-Core-userHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22))))
 (define Context-Core-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 ((Context-Core-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))) (let ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20472-21866-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--20472-21891-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--15483-17390 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 Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20963-16071-couldBeParam 'erased arg-2 eta-0)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-dropReps 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--20963-16096-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--15853-11467 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 Context-Core-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 ((Context-Core-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 ((flagsC-39 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define TypeFlags-Context-Core-uniqueAuto (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Defs-Context-Core-typeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
@@ -2370,7 +2405,7 @@
 (define GlobalDef-Context-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Defs-Context-Core-toSave (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Context-Core-toResolvedNames (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 ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) (((e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0))))))))))
-(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--20774-22144-justPos 'erased e-2 0 e-2)))))))
+(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--21265-16349-justPos 'erased e-2 0 e-2)))))))
 (define Defs-Context-Core-toIR (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
 (define Context-Core-toFullNames (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 ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0))))))))))
 (define Defs-Context-Core-toCompileCase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
@@ -2379,52 +2414,54 @@
 (define GlobalDef-Context-Core-specArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))))
 (define GlobalDef-Context-Core-sizeChange (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
-(define Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--24788-25897-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0))))))))
-(define Context-Core-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 (let ((act-25 (Directory-System-changeDir arg-1 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 ((act-26 (let ((act-26 (Directory-System-currentDir 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-29 (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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 ((sc5 e-4)) (let ((e-37 (vector-ref sc5 1))) (let ((e-36 (vector-ref sc5 2))) (let ((e-35 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((sc6 e-37)) (let ((e-44 (vector-ref sc6 2))) (let ((e-43 (vector-ref sc6 3))) (let ((e-42 (vector-ref sc6 4))) (let ((e-38 (vector-ref sc6 5))) (let ((e-39 (vector-ref sc6 6))) (let ((e-40 (vector-ref sc6 7))) (let ((e-41 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-44 e-43 e-42 e-38 e-39 e-40 e-41) e-36 e-35 e-34 e-30 e-31 e-32 e-33) e-28 e-27 e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))
+(define Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--25540-20350-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0))))))))
+(define Context-Core-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 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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-29 (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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 ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))
 (define Context-Core-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-26 (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 ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-setVisibility (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 ((Context-Core-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 ((act-26 (Context-Core-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-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 e-2 e-3 e-4 e-22 e-21 e-7 e-8 arg-3 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18739-20339 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-setUndottedRecordProjections (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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 e-37 arg-1 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 arg-1 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19193-14503 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-setUndottedRecordProjections (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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 arg-1 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 arg-1 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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 (vector-ref sc4 2))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 arg-1 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 arg-1 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 arg-1 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 arg-1 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 (Context-Core-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 (Context-Core-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-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite e-7 e-6 e-4) e-28 e-27 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 arg-1 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 arg-1 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 (Context-Core-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 (Context-Core-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 (Context-Core-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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair e-6 e-7 e-8 e-4) e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 arg-1 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 arg-1 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 arg-1 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Context-Core-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 ((Context-Core-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc6 e-11)) (let ((e-21 (vector-ref sc6 12))) e-21)))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-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 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18124-19799 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-setLogLevel (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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18565-13950 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-setLogLevel (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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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))) (let ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (let ((act-26 (Context-Core-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 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18903-20470 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19359-14636 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-1 e-4) e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18500-20137 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18623-20242 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 arg-1 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--18949-14296 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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 ((Context-Core-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))) ((Context-Core-case--19075-14404 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 arg-1 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 e-38 e-39 e-40 arg-1 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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 (vector-ref sc4 1))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 e-25 arg-3) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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 ((Context-Core-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 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 arg-1 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 e-37 e-38 arg-1) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-40 e-35 e-36 arg-1 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-46 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-46 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43 e-44 e-45) e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 arg-1 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 e-38 e-39 arg-1) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-41 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-41 e-36 e-37 arg-1 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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 ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35) e-1 e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Defs-Context-Core-saveTypeHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Defs-Context-Core-saveTransforms (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))
 (define Defs-Context-Core-saveAutoHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11))))
 (define GlobalDef-Context-Core-safeErase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--8861-11079 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
+(define Context-Core-returnDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (vector 1 (vector 0 arg-1 arg-2))) (else (Context-Core-case--9066-4976 arg-2 arg-1 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
 (define Context-Context-Core-resolvedAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Context-Core-resolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Context-Core-resolveName (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 e-0))))(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 ((Context-Core-getPosition arg-1 (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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-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))))))))))))))))))))))))
@@ -2434,18 +2471,18 @@
 (define GlobalDef-Context-Core-refersToM (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))
 (define Context-Core-refersTo (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () (NameMap-Data-empty 'erased)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12)))))
 (define Context-Core-reducibleInAny (lambda (arg-0 arg-1 arg-2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-reducibleIn ns arg-1 arg-2))) arg-0)))
-(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 arg-0))(else 0))))(else 0))))))(else 0)))))
+(define Context-Core-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) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0)))) ((5) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 arg-0))(else 0))))(else 0))))))(else 0)))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (vector 1 arg-1 e-25)))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 e-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 ((Context-Core-prettyName arg-0 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))) (let ((act-26 ((Context-Core-prettyName arg-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 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 e-2) 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 ((act-25 ((Context-Core-prettyName arg-0 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 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 9 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))) (let ((act-25 ((Context-Core-prettyName arg-0 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-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))
+(define Context-Core-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))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-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 ((Context-Core-prettyName arg-0 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))) (let ((act-26 ((Context-Core-prettyName arg-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 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 e-2) 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 ((act-25 ((Context-Core-prettyName arg-0 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 (Strings-Prelude-C-43C-43 "case block in " e-6))))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 9 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))) (let ((act-25 ((Context-Core-prettyName arg-0 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-7 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "with block in " e-7))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Name-Core-show_Show__Name arg-1))))))))
 (define Context-Context-Core-possibles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Defs-Context-Core-peFailures (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-23 (vector-ref sc0 24))) e-23))))
-(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1))))
+(define Context-Core-paramPos (lambda (arg-0 arg-1) (Context-Core-combinePos 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-getConPs (vector 0 ) (vector 0 ) arg-0 eta-0)) arg-1))))
 (define Defs-Context-Core-options (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Defs-Context-Core-openHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define GlobalDef-Context-Core-noCycles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
 (define Defs-Context-Core-nextTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Context-Context-Core-nextEntry (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased (b+ (IOArray-Data-max 'erased e-5) (Context-Core-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! 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 (vector 0 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-11 (vector-ref sc2 6))) (let ((e-10 (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 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))))))))))))))))
+(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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 (Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-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! 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 (vector 0 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-11 (vector-ref sc2 6))) (let ((e-10 (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 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))))))))))))))))
 (define Context-Core-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-2 arg-3 arg-5 (TT-Core-unchecked) (vector 0 ) (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Defs-Context-Core-nestedNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Defs-Context-Core-namedirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
@@ -2460,32 +2497,32 @@
 (define Context-Core-lookupDefTyExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0)))
 (define Context-Core-lookupDefName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0)))
 (define Context-Core-lookupDefExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-17 (vector-ref sc0 18))) e-17))) ext-2 ext-1 ext-0)))
-(define Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9360-11606 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
-(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--8943-11147 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--8943-11215 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9045-11239 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9252-11424 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9252-11498 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define Context-Core-logTimeWhen (lambda (arg-0 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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased 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 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--24320-25473-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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 Context-Core-lookupCtxtName (lambda (arg-0 arg-1) (Context-Core-case--9582-5526 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
+(define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9148-5044 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9148-5121 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-lookupCtxtExact (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9256-5145 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--9470-5338 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (Context-Core-case--9470-5417 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-logTimeWhen (lambda (arg-0 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 ((Clock-System-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 ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased 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 ((Clock-System-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 ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--25060-19914-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer time 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 Context-Core-logTime (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-logTimeWhen 'erased arg-1 (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 6))) e-11)) arg-2 arg-3) ext-0))))))))
-(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24047-25229 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24168-25334 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
-(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24122-25293 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24773-19657 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24899-19767 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Context-Core-case--24851-19724 arg-2 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
 (define GlobalDef-Context-Core-location (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define GlobalDef-Context-Core-linearChecked (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 arg-1 e-35 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--21495-22781-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--21495-22780-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 arg-1 e-36 e-37 e-38 e-39 e-40) e-30 e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--22123-17104-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--22123-17103-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))))))
 (define Context-Core-isUndottedRecordProjections (lambda (arg-0 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))) (lambda (eta-0) (let ((act-24 (unbox arg-0))) (vector 1 act-24))) ext-0)))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
-(define Context-Core-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))) ((Context-Core-case--23507-24707 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--24210-19106 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0))))))))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
 (define Context-Core-isExtension (lambda (arg-0 arg-1) (Options-Core-isExtension arg-0 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))))
-(define Context-Core-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))) ((Context-Core-case--23617-24815 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8))) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--24326-19223 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-8 (vector-ref sc1 9))) e-8))))))))))
 (define GlobalDef-Context-Core-invertible (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
 (define Context-Context-Core-inlineOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define Context-Core-initSize (lambda () 10000))
 (define Context-Core-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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-initDefs (lambda (ext-0) (let ((act-24 (Context-Core-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 (vector 0 ) (vector 1 "Main" (vector 0 )) (vector 0 ) (Options-Core-defaults) (NameMap-Data-empty 'erased) 100 (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (vector 0 ) (NameMap-Data-empty 'erased) 5381 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) (vector 0 ))))))))))
-(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (IOArray-Data-newArray 'erased 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 (Core-Core-newRef 'erased 'erased (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 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1))))))))))))))
+(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Core-Core-newRef 'erased 'erased (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 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1))))))))))))))
 (define Context-Core-initCtxt (lambda (ext-0) (Context-Core-initCtxtS (Context-Core-initSize) ext-0)))
 (define GlobalDef-Context-Core-inferrable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Context-Core-inCurrentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0))))))))))) ((7) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 3))) e-27)) arg-1))))))))) ((8) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((6) (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-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) (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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((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))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
@@ -2495,14 +2532,14 @@
 (define PMDefInfo-Context-Core-holeInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define SearchData-Context-Core-hintGroups (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Context-Core-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 ((Context-Core-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Context-Core-setVisibility arg-0 arg-1 e-8 (vector 0 ) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
-(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 (Directory-System-currentDir 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))
-(define Context-Core-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 ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Name-Core-compare_Ord__Name arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Name-Core-C-60_Ord__Name arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Name-Core-C-62_Ord__Name arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Name-Core-C-60C-61_Ord__Name arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Name-Core-C-62C-61_Ord__Name arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Name-Core-max_Ord__Name arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Name-Core-min_Ord__Name arg-979 arg-980)))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--15062-16990-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0)))))))))
+(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))
+(define Context-Core-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 ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Name-Core-compare_Ord__Name arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Name-Core-C-60_Ord__Name arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Name-Core-C-62_Ord__Name arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Name-Core-C-60C-61_Ord__Name arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Name-Core-C-62C-61_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-max_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-min_Ord__Name arg-787 arg-788)))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-22 (vector-ref sc1 23))) e-22)))))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-n--15421-11056-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0)))))))))
 (define Context-Core-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 ((Context-Core-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
-(define Context-Core-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 (Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--17771-19490 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 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19429-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19429-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--17747-19430-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--17747-19430-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
-(define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8)))))))))))
-(define Context-Core-getPs (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 ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--20616-22004-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--20616-22060 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--20616-22060 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))))))
-(define Context-Core-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 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8556-10806 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define Context-Core-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 (Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--18209-13639 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 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13575-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Context-Core-n--18183-13576-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
+(define Context-Core-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 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9)))))))))))
+(define Context-Core-getPs (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 ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) arg-1) arg-2 e-4))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--21107-16209-shrink arg-0 e-1 e-6 e-7 e-8 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--21107-16265 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))))))
+(define Context-Core-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 (vector 0 e-0 arg-1)))))(else (Context-Core-case--8751-4691 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 (b+ 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))))))))))))))))))))))))))))))) (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-26 (vector-ref sc2 7))) e-26))))))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
@@ -2510,9 +2547,9 @@
 (define Context-Core-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 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))
 (define Context-Core-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 Context-Core-getFullName (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) (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 ((Context-Core-lookupCtxtExact (vector 9 e-0) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (lambda (eta-0) (vector 1 arg-1)))))))
-(define Context-Core-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))) (Context-Core-case--9781-11923 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3))))))))))
+(define Context-Core-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))) (Context-Core-case--10011-5852 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3))))))))))
 (define Context-Core-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 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
-(define Context-Core-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--20231-21645-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))
+(define Context-Core-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--20718-15845-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))
 (define Context-Core-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 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
 (define Context-Core-getContent (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Context-Core-getConPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((bacc (Context-Core-getPs arg-0 arg-1 arg-2 e-8))) (Context-Core-getConPs (vector 1 e-2 arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) bacc) arg-2 e-4))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))
@@ -2531,23 +2568,23 @@
 (define TypeFlags-Context-Core-external (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-1) e-2) e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define GlobalDef-Context-Core-eraseArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20343-21763-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3))))))))))))
+(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--20834-15968-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3))))))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-2) (Name-Core-C-47C-61_Eq__Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define SearchData-Context-Core-detArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define GlobalDef-Context-Core-definition (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
 (define Context-Core-defaultPI (lambda () (vector 0 (vector 0 ) 1)))
 (define Context-Core-defaultFlags (lambda () (vector 0 1 1)))
-(define Context-Core-decode (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef 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 ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox 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 (Context-Core-resolved_HasNames__GlobalDef arg-0 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))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased e-7 arg-1 (vector 1 e-8)) eta-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))) (lambda (eta-0) (vector 1 e-1))))))))
+(define Context-Core-decode (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef 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 ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox 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 (Context-Core-resolved_HasNames__GlobalDef arg-0 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))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a-0) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8341) arg-8341))) e-7 arg-1 (vector 1 e-8)) eta-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))) (lambda (eta-0) (vector 1 e-1))))))))
 (define Defs-Context-Core-currentNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Context-Context-Core-content (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define GlobalDef-Context-Core-compexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
-(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--9651-11808 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))))
+(define Context-Core-commitCtxt (lambda (arg-0) (Context-Core-case--9878-5735 arg-0 (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))))
 (define Context-Core-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 ((Context-Core-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))) (Context-Core-setCtxt arg-0 e-6 ext-0)))))))))))))
 (define Context-Core-combinePos (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))) (let ((e-3 (vector-ref sc0 2))) (List-Data-filter 'erased (lambda (x) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Prelude-elem 'erased arg-1 x eta-0))) e-3)) e-2))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (NameMap-Data-delete 'erased arg-1 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) 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))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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 ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 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 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--14763-16706-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--15115-10765-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-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 (Context-Core-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)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 9 e-10)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
 (define Defs-Context-Core-cgdirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
 (define Context-Context-Core-branchDepth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
@@ -2558,44 +2595,44 @@
 (define Context-Context-Core-allPublic (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define Defs-Context-Core-allImported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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))) ((Context-Core-case--19599-21079 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0))))))))
+(define Context-Core-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))) ((Context-Core-case--20067-15258 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0))))))))
 (define Context-Core-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 ((Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-27) e-26 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 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
-(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8400-10654 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
-(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8590-4532 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
+(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 arg-3 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
 (define Context-Core-addName (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 e-0))))(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 ((Context-Core-newEntry arg-1 (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)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-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 Context-Core-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-26 (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))) (vector 0 e-0 (vector 1 arg-1 e-1) e-2 e-3 e-4 e-26 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))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Context-Core-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-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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-1 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((hs (Context-Core-case--19049-20600 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) 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))))))))))))))))))))))))))))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))))))
+(define Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((hs (Context-Core-case--19505-14769 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) 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))))))))))))))))))))))))))))))) (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-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) 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))))))))))))))))))))))))))))))) (vector 1 act-27)))))))))))))))))))))))
 (define Context-Core-addHashWithNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased 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))) (Context-Core-addHash 'erased arg-1 arg-2 e-5 ext-0))))))))
 (define Context-Core-addHash (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 (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc2 arg-2)) (let ((e-27 (vector-ref sc2 2))) ((e-27 (let ((sc3 e-5)) (let ((e-39 (vector-ref sc3 16))) e-39))) arg-3))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
-(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-1 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8731-10960 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
-(define Context-Core-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))) ((Context-Core-case--20130-21565 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG arg-1)) ext-0))))))))
-(define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15177-17128 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (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 Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 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))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-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 ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--20908-22267-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-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 ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--20908-22269-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) 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 ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10))))))))))))))))))))))))))))))))))))))))
-(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8601-10843 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
+(define Context-Core-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))
+(define Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8931-4851 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
+(define Context-Core-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))) ((Context-Core-case--20613-15762 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0))))))))
+(define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--15540-11200 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (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 Context-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 e-41 (List-Prelude-C-43C-43 'erased e-42 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-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 ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 9 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-8 (vector-ref sc4 4))) e-8))) e-1)) (Context-Core-n--21400-16473-allDet e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 e-4) (Context-Core-defaultFlags) (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-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 ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--21400-16475-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) 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 ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 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)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10))))))))))))))))))))))))))))))))))))))))
+(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--8796-4728 arg-2 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Prelude-fromInteger_Num__Nat 0)))))
 (define Context-Core-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 ((Context-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 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)))))))))))))))))))))))))))))) (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 Context-Core-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-addDef arg-1 arg-2 (vector 0 (FC-Core-emptyFC) arg-2 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) (vector 2 ) arg-4 (vector 1 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) 1 1 0 (vector 4 arg-0 arg-5) (vector 0 ) (vector 0 ) (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 (vector 1 (vector 0 ))))))))
 (define Context-Core-Grow (lambda () (Context-Core-initSize)))
-(define Directory-System-case--1759-8269 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
-(define Directory-System-case--1721-8229 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased arg-1 eta-0)))))))
-(define Directory-System-case--1689-8197 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector 1 (PrimIO-prim__getString arg-0))))))))
-(define Directory-System-case--1641-8149 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (Directory-System-returnError 'erased eta-0)))))))
-(define Directory-System-case--1533-8045 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (vector 1 )))) ((equal? sc0 1) (lambda (eta-0) (vector 0 (vector 2 )))) ((equal? sc0 2) (lambda (eta-0) (vector 0 (vector 3 )))) ((equal? sc0 3) (lambda (eta-0) (vector 0 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (vector 0 (vector 5 ))))(else (lambda (eta-0) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5)))))))))
-(define Directory-System-returnError (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_fileErrno ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (vector 0 (vector 1 ))) ((equal? sc0 1) (vector 0 (vector 2 ))) ((equal? sc0 2) (vector 0 (vector 3 ))) ((equal? sc0 3) (vector 0 (vector 4 ))) ((equal? sc0 4) (vector 0 (vector 5 )))(else (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-24 5)))))))))
-(define Directory-System-openDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_openDir arg-0 ext-0))) ((Directory-System-case--1721-8229 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-24) 0)) ext-0))))
-(define Directory-System-ok (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Directory-System-dirEntry (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_dirEntry arg-0 ext-0))) ((Directory-System-case--1759-8269 arg-0 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define Directory-System-currentDir (lambda (ext-0) (let ((act-24 (Directory-System-prim_currentDir ext-0))) ((Directory-System-case--1689-8197 act-24 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-24)) 0)) ext-0))))
-(define Directory-System-createDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_createDir arg-0 ext-0))) ((Directory-System-case--1641-8149 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 0)) ext-0))))
-(define Directory-System-closeDir (lambda (arg-0 ext-0) (Directory-System-prim_closeDir arg-0 ext-0)))
-(define Directory-System-changeDir (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-prim_changeDir arg-0 ext-0))) (Prelude-C-61C-61_Eq__Int act-24 0))))
-(define Clock-System-with--1756-611 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 ))))))))))))
-(define Clock-System-case--1758-647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-System-case--1957-2323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 (Prelude-prim__getString arg-3)))))))
+(define Directory-System-case--1882-2240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-returnError 'erased 'erased arg-1)) (else (Directory-System-ok 'erased 'erased arg-1 arg-3))))))
+(define Directory-System-case--1823-2179 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (Prelude-prim__getString arg-2))))))))))
+(define Directory-System-case--1737-2089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Directory-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (Directory-System-returnError 'erased 'erased arg-1))))))
+(define Directory-System-case--1564-1910 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 1 )))))) ((equal? sc0 1) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 2 )))))) ((equal? sc0 2) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 3 )))))) ((equal? sc0 3) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 4 )))))) ((equal? sc0 4) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 (vector 5 ))))))(else (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-3 5)))))))))))
+(define Directory-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Prelude-C-45_Neg__Int err 5)))))))))))))))
+(define Directory-System-openDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_openDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1882-2240 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0))))))))
+(define Directory-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3))))))
+(define Directory-System-dirEntry (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_dirEntry arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1957-2323 'erased arg-1 arg-2 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define Directory-System-currentDir (lambda (arg-0 arg-1) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_currentDir eta-0)))))) (lambda (res) (Directory-System-case--1823-2179 'erased arg-1 res (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased res)) 0))))))))
+(define Directory-System-createDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_createDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--1737-2089 'erased arg-1 arg-2 res (Prelude-C-61C-61_Eq__Int res 0))))))))
+(define Directory-System-closeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Directory-System-prim_closeDir arg-2 eta-0)))))))
+(define Directory-System-changeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim_changeDir arg-2 eta-0)))))) (lambda (ok) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (Prelude-C-61C-61_Eq__Int ok 0))))))))))
+(define Clock-System-with--1792-640 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 ))))))))))))
+(define Clock-System-case--1794-677 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 )))))))
 (define Clock-System-seconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Clock-System-prim_clockTimeMonotonic (lambda (ext-0) (apply blodwen-clock-time-monotonic (blodwen-read-args (vector 0 )))))
 (define Clock-System-osClockValid (lambda (arg-0 ext-0) (apply blodwen-is-time? (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-0 (vector 0 ))))))
@@ -2603,132 +2640,132 @@
 (define Clock-System-isClockMandatory (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (vector 1 )) ((6) (vector 1 ))(else (vector 0 ))))))
 (define Clock-System-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (apply blodwen-clock-second (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (let ((act-25 (apply blodwen-clock-nanosecond (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (vector 0 arg-0 act-24 act-25)))))
 (define Clock-System-fetchOSClock (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (apply blodwen-clock-time-utc (blodwen-read-args (vector 0 ))))) ((1) (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0))) ((3) (lambda (eta-0) (apply blodwen-clock-time-process (blodwen-read-args (vector 0 ))))) ((4) (lambda (eta-0) (apply blodwen-clock-time-thread (blodwen-read-args (vector 0 ))))) ((5) (lambda (eta-0) (apply blodwen-clock-time-gccpu (blodwen-read-args (vector 0 ))))) ((6) (lambda (eta-0) (apply blodwen-clock-time-gcreal (blodwen-read-args (vector 0 ))))) (else (lambda (eta-0) (Clock-System-prim_clockTimeMonotonic eta-0)))))))
-(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1756-611 arg-0 (Clock-System-isClockMandatory arg-0))))
-(define StringMap-Data-case--4210-2815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))
-(define StringMap-Data-case--3845-2449 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
-(define StringMap-Data-case--2639-1382 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
-(define StringMap-Data-case--2380-1285 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
-(define StringMap-Data-case--2380-1174 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
-(define StringMap-Data-case--2217-1143 (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) (StringMap-Data-case--2380-1174 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2380-1285 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
-(define StringMap-Data-case--2217-1033 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
-(define StringMap-Data-case--1862-1002 (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) (StringMap-Data-case--2217-1033 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2217-1143 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4)))))))
-(define StringMap-Data-case--1991-924 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
-(define StringMap-Data-case--1991-835 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
-(define StringMap-Data-case--1862-808 (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) (StringMap-Data-case--1991-835 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--1991-924 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
-(define StringMap-Data-case--1862-706 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
-(define StringMap-Data-case--1755-645 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
-(define StringMap-Data-case--1632-598 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1755-645 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3)))))))
-(define StringMap-Data-case--1632-550 (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) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
-(define StringMap-Data-case--1632-507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define StringMap-Data-n--3746-2331-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased 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))) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
-(define StringMap-Data-n--4201-2804-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))))
-(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3746-2331-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0)))
-(define StringMap-Data-treeLookup (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))) (StringMap-Data-case--1632-507 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1632-550 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1632-598 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
-(define StringMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1862-706 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1862-808 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1862-1002 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
-(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2639-1382 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
+(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--1792-640 arg-0 (Clock-System-isClockMandatory arg-0))))
+(define StringMap-Data-case--4236-2826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))
+(define StringMap-Data-case--3870-2462 (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 1 arg-1 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (+ 1 arg-1) e-5)))))))
+(define StringMap-Data-case--2660-1391 (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 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 1 e-8 e-12 e-13))))))))))))))
+(define StringMap-Data-case--2401-1294 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 arg-4) (vector 0 arg-3 (vector 1 e-8 e-12 e-13))))))))))))))))
+(define StringMap-Data-case--2401-1183 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 arg-6 arg-5 e-8) (vector 0 e-12 (vector 1 e-13 arg-3 arg-2))))))))))))))))
+(define StringMap-Data-case--2238-1152 (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) (StringMap-Data-case--2401-1183 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-4))) (else (StringMap-Data-case--2401-1294 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-9 (StringMap-Data-treeInsertC-39 'erased 'erased arg-7 arg-9 arg-2)))))))
+(define StringMap-Data-case--2238-1042 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-8 e-12 e-13) (vector 0 arg-5 (vector 1 arg-4 arg-3 arg-2))))))))))))))))
+(define StringMap-Data-case--1883-1011 (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) (StringMap-Data-case--2238-1042 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-8 arg-2 arg-7))) (else (StringMap-Data-case--2238-1152 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-2 (Prelude-C-60C-61_Ord__String arg-8 arg-4)))))))
+(define StringMap-Data-case--2012-933 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 arg-4 arg-3 e-8 e-12 e-13))))))))))))))
+(define StringMap-Data-case--2012-844 (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))) (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (vector 0 (vector 2 e-8 e-12 e-13 arg-3 arg-2))))))))))))))
+(define StringMap-Data-case--1883-817 (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) (StringMap-Data-case--2012-844 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-5))) (else (StringMap-Data-case--2012-933 'erased 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-6 arg-2 arg-3)))))))
+(define StringMap-Data-case--1883-715 (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 (vector 0 arg-4 arg-1) (vector 0 arg-4 (vector 0 arg-3 arg-2))))) ((equal? sc0 1) (vector 0 (vector 0 arg-4 arg-1))) (else (vector 1 (vector 0 (vector 0 arg-3 arg-2) (vector 0 arg-3 (vector 0 arg-4 arg-1)))))))))
+(define StringMap-Data-case--1776-654 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-2))))))
+(define StringMap-Data-case--1653-607 (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) (StringMap-Data-treeLookup 'erased 'erased arg-7 arg-6)) (else (StringMap-Data-case--1776-654 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (Prelude-C-60C-61_Ord__String arg-7 arg-3)))))))
+(define StringMap-Data-case--1653-559 (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) (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-4)) (else (StringMap-Data-treeLookup 'erased 'erased arg-5 arg-2))))))
+(define StringMap-Data-case--1653-516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define StringMap-Data-n--3767-2340-treeToListC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (arg-3 (vector 0 e-1 e-2))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased 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))) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
+(define StringMap-Data-n--4227-2814-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (StringMap-Data-toList 'erased arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39))))))))))
+(define StringMap-Data-treeToList (lambda (arg-0 arg-1 ext-0) (StringMap-Data-n--3767-2340-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0)))
+(define StringMap-Data-treeLookup (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))) (StringMap-Data-case--1653-516 'erased e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1653-559 'erased 'erased e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1653-607 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
+(define StringMap-Data-treeInsertC-39 (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 1))) (let ((e-2 (vector-ref sc0 2))) (StringMap-Data-case--1883-715 'erased arg-3 e-2 e-1 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1883-817 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (Prelude-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))) (StringMap-Data-case--1883-1011 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (Prelude-C-60C-61_Ord__String arg-2 e-11))))))))))))
+(define StringMap-Data-treeInsert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringMap-Data-case--2660-1391 'erased 'erased arg-3 arg-4 arg-2 (StringMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4))))
 (define StringMap-Data-toList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeToList 'erased 'erased e-3)))))))
 (define StringMap-Data-singleton (lambda (arg-0 arg-1 arg-2) (vector 1 0 (vector 0 arg-1 arg-2))))
-(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--4201-2804-inserted 'erased arg-3 arg-2 arg-1) arg-2)))
+(define StringMap-Data-mergeWith (lambda (arg-0 arg-1 arg-2 arg-3) (StringMap-Data-insertFrom 'erased (StringMap-Data-n--4227-2814-inserted 'erased arg-3 arg-2 arg-1) arg-2)))
 (define StringMap-Data-mergeLeft (lambda (arg-0 arg-1 arg-2) (StringMap-Data-mergeWith 'erased (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2)))
 (define StringMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
-(define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1)))
-(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3845-2449 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
-(define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1)))
+(define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1)))
+(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3870-2462 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
+(define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1)))
 (define StringMap-Data-empty (lambda (arg-0) (vector 0 )))
-(define IOArray-Data-case--1930-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (List-Data-reverse 'erased arg-2))) (else (lambda (eta-0) (let ((act-24 ((IOArray-Data-readArray 'erased arg-1 arg-4) eta-0))) ((IOArray-Data-n--1925-6155-iter 'erased arg-1 (b+ arg-4 1 63) arg-3 (vector 1 act-24 arg-2)) eta-0))))))))
-(define IOArray-Data-case--1800-6109 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-1)) (else arg-2)))))
-(define IOArray-Data-case--1806-6045 (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 0 ))) (else (lambda (eta-0) (let ((act-24 (vector-ref arg-5 arg-3))) (let ((act-25 (vector-set! arg-4 arg-3 act-24))) ((IOArray-Data-n--1800-6033-copyFrom 'erased arg-1 arg-2 arg-5 arg-4 (Prelude-C-45_Neg__Int arg-3 1)) eta-0)))))))))
-(define IOArray-Data-case--1756-6007 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector-ref (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-1)))))))
-(define IOArray-Data-case--1697-5955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 ))) (else (lambda (eta-0) (vector-set! (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-2 (vector 1 arg-1))))))))
-(define IOArray-Data-n--1925-6155-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1930-6165 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-62C-61_Ord__Int arg-2 arg-3))))
-(define IOArray-Data-n--1800-6033-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1806-6045 'erased arg-1 arg-2 arg-5 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-5 0))))
-(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-case--1697-5955 'erased arg-3 arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (IOArray-Data-max 'erased arg-1)))))))
-(define IOArray-Data-toList (lambda (arg-0 arg-1) (IOArray-Data-n--1925-6155-iter 'erased arg-1 0 (IOArray-Data-max 'erased arg-1) (vector 0 ))))
-(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2) (IOArray-Data-case--1756-6007 'erased arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (IOArray-Data-max 'erased arg-1)))))))
-(define IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2)))
-(define IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3)))
-(define IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2)))
-(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2) (let ((newsizeC-39 (IOArray-Data-case--1800-6109 'erased arg-2 arg-1 (Prelude-C-60_Ord__Int arg-1 (IOArray-Data-max 'erased arg-2))))) (lambda (eta-0) (let ((act-24 (IOArray-Data-newArray 'erased newsizeC-39 eta-0))) (let ((act-25 ((IOArray-Data-n--1800-6033-copyFrom 'erased arg-2 arg-1 (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 act-24)) (let ((e-2 (vector-ref sc0 2))) e-2)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-2) 1)) eta-0))) act-24))))))
-(define IOArray-Data-newArray (lambda (arg-0 arg-1 ext-0) (let ((act-24 (make-vector arg-1 (vector 0 )))) (vector 0 arg-1 act-24))))
+(define IOArray-Data-case--2076-6517 (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) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4)))))))))))
+(define IOArray-Data-case--1894-6434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-3)) (else arg-4)))))
+(define IOArray-Data-case--1905-6348 (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 ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-6413) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Prelude-C-45_Neg__Int arg-5 1)))))))))))))))
+(define IOArray-Data-case--1829-6287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-3))))))))))
+(define IOArray-Data-case--1752-6214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-4 (vector 1 arg-3)))))))))))
+(define IOArray-Data-n--2066-6507-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--2076-6517 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (Prelude-C-62C-61_Ord__Int arg-4 arg-5))))
+(define IOArray-Data-n--1894-6336-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--1905-6348 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (Prelude-C-60_Ord__Int arg-7 0))))
+(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--1752-6214 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3)))))))
+(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2066-6507-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 ))))
+(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--1829-6287 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-4 0) (lambda () (Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3)))))))
+(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--1894-6434 'erased 'erased arg-2 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--1894-6336-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-6483) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39))))))))))))))
+(define IOArray-Data-newArray (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (make-vector arg-3 (vector 0 ))))))) (lambda (bind-0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 arg-3 bind-0))))))))))
 (define IOArray-IOArray-Data-maxSize (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define IOArray-Data-max (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define IOArray-IOArray-Data-content (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Binary-Utils-case--5234-9952 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0)))))))
-(define Binary-Utils-case--5232-9906 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
-(define Binary-Utils-case--5169-9845 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32))))))))
-(define Binary-Utils-case--5160-9827 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5169-9845 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1))))))))
-(define Binary-Utils-case--4710-9428 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0)))))))
-(define Binary-Utils-case--4416-9164 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getDouble (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0)))))))
-(define Binary-Utils-case--4414-9101 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setDouble (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setDouble (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--4332-9020 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0)))))))
-(define Binary-Utils-case--4252-8935 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 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 ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-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 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0)))))))
-(define Binary-Utils-case--4152-8919 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (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 eta-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 (Binary-Utils-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0)))))))
-(define Binary-Utils-case--4150-8849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-copyData (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)) 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--4007-8770 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getString (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 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0)))))))
-(define Binary-Utils-case--4005-8707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-setString (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3864-8623 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getInt (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (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))))))) eta-0)))))))
-(define Binary-Utils-case--3862-8560 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setInt (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setInt (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3809-8500 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getByte (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0)))))))
-(define Binary-Utils-case--3742-8436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setByte (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setByte (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26)))))))))))))))))
-(define Binary-Utils-case--3624-8373 (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))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))
-(define Binary-Utils-case--3624-8336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5)))))
-(define Binary-Utils-case--3595-8301 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
-(define Binary-Utils-case--3572-8278 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
-(define Binary-Utils-case--3494-8203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize e-2 eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Binary-Utils-case--3403-8122 (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 ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3))))))))
-(define Binary-Utils-n--5027-9709-writeAll (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 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-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 ((Binary-Utils-n--5027-9709-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
-(define Binary-Utils-n--5029-9736-readElems (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 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5029-9736-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
-(define Binary-Utils-n--4947-9658-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--4947-9658-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
-(define Binary-Utils-n--4945-9622-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--4945-9622-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63))))))))
-(define Binary-Utils-n--4945-9623-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--4945-9622-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0)))
-(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4005-8707 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0)))))))))))))))
+(define Prims-IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2)))
+(define Prims-IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3)))
+(define Prims-IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2)))
+(define Binary-Utils-case--5420-3916 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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))) (vector 1 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5)))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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))) (vector 1 (Binary-Utils-fromLimbs e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0)))))))
+(define Binary-Utils-case--5418-3867 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
+(define Binary-Utils-case--5355-3804 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32))))))))
+(define Binary-Utils-case--5346-3786 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5355-3804 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1))))))))
+(define Binary-Utils-case--4879-3367 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0)))))))
+(define Binary-Utils-case--4566-3082 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getDouble (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0)))))))
+(define Binary-Utils-case--4564-3015 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setDouble (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setDouble (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--4476-2928 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0)))))))
+(define Binary-Utils-case--4393-2838 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 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 ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-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 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0)))))))
+(define Binary-Utils-case--4284-2821 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Buffer-Data-copyData (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 eta-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 (Binary-Utils-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0)))))))
+(define Binary-Utils-case--4282-2746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-copyData (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)) 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--4128-2661 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getString (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 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "String length " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " at " (Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0)))))))
+(define Binary-Utils-case--4126-2593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 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 (Buffer-Data-setString (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3976-2503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getInt (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Prelude-C-43C-43 "Int " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 (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))))))) eta-0)))))))
+(define Binary-Utils-case--3974-2436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setInt (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setInt (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3918-2371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-getByte (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)) 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 (set-box! arg-0 (Binary-Utils-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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0)))))))
+(define Binary-Utils-case--3847-2303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-setByte (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 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 ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Buffer-Data-setByte (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 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 ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26)))))))))))))))))
+(define Binary-Utils-case--3728-2239 (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))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))
+(define Binary-Utils-case--3728-2201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5)))))
+(define Binary-Utils-case--3698-2166 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
+(define Binary-Utils-case--3674-2142 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") eta-0)))))))
+(define Binary-Utils-case--3596-2066 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-rawSize e-2 eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Binary-Utils-case--3500-1978 (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 ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3))))))))
+(define Binary-Utils-n--5210-3666-writeAll (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 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-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 ((Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
+(define Binary-Utils-n--5212-3694-readElems (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 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5212-3694-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
+(define Binary-Utils-n--5125-3610-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((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))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
+(define Binary-Utils-n--5123-3573-length_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-3 (vector-ref sc0 2))) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63))))))))
+(define Binary-Utils-n--5123-3574-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5123-3573-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0)))
+(define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4126-2593 arg-1 arg-0 req e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) req)) eta-0)))))))))))))))
 (define Binary-Utils-toBuf_TTC__Nat (lambda (arg-0 arg-1) (Binary-Utils-toBuf_TTC__Integer arg-0 (Prelude-cast_Cast__Nat_Integer arg-1))))
-(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5232-9906 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3862-8560 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--4414-9101 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
+(define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--5418-3867 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 0))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3974-2436 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--4564-3015 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 8)) ext-0))))))))
 (define Binary-Utils-toBuf_TTC__Char (lambda (arg-0 arg-1 ext-0) (Binary-Utils-toBuf_TTC__Int arg-0 (Prelude-cast_Cast__Char_Int arg-1) ext-0)))
 (define Binary-Utils-toBuf_TTC__Bool (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
-(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4150-8849 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0)))))))))))))))
+(define Binary-Utils-toBuf_TTC__Binary (lambda (arg-0 arg-1) (let ((len (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((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))) ((Binary-Utils-case--4282-2746 arg-1 arg-0 len e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-6) len)) eta-0)))))))))))))))
 (define Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (vector 1 (vector 0 ))))))
 (define Binary-Utils-toBuf_TTC__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-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) 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 ((sc2 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0)))))))))))))
 (define Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 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 ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-2) eta-0))))))))))))))
-(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--4945-9623-TailRec_length 'erased 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 ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0)))))))
-(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5027-9709-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4)))
+(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5123-3574-TailRec_length 'erased 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 ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0)))))))
+(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5210-3666-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4)))
 (define Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) 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 ((sc2 ((Builtin-snd 'erased 'erased arg-2) e-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0)))))))))))))
-(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4007-8770 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
+(define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4128-2661 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
 (define Binary-Utils-fromBuf_TTC__Nat (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-fromInteger_Num__Nat e-5)))))))))
-(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0)))))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3864-8623 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--4416-9164 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
+(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromLimbs e-6))))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0)))))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3976-2503 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--4566-3082 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 8)) ext-0))))))))
 (define Binary-Utils-fromBuf_TTC__Char (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-cast_Cast__Int_Char e-5)))))))))
 (define Binary-Utils-fromBuf_TTC__Bool (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Bool" ext-0)))))))))))
-(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4152-8919 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
+(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-case--4284-2821 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0)))))))))))))
 (define Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 (vector 0 ))))
 (define Binary-Utils-fromBuf_TTC__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-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((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 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc1 2))) ((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 (vector 0 e-5 e-6))))))))))))))
 (define Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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 (vector-ref sc2 2))) ((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 (Binary-Utils-corrupt 'erased "Maybe" ext-0)))))))))))
-(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-n--4947-9658-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0))))))))
-(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5029-9736-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1)))
+(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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))) ((Binary-Utils-n--5125-3610-readElems 'erased arg-1 arg-2 (vector 0 ) (Prelude-cast_Cast__Int_Integer e-5)) ext-0))))))))
+(define Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Utils-n--5212-3694-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1)))
 (define Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((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 'erased 'erased arg-2) e-5))) (let ((e-2 (vector-ref sc1 2))) ((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 (vector 0 e-5 e-6))))))))))))))
-(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Integer arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_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-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-8243 eta-0))))))
-(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-8243)))))
-(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-8243 eta-0))))))
+(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Integer arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_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-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased arg-2 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2106 eta-0))))))
+(define Binary-Utils-__Impl_TTC_C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2106)))))
+(define Binary-Utils-__Impl_TTC_C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2106 eta-0))))))
 (define Binary-Utils-writeToFile (lambda (arg-0 arg-1 ext-0) (Buffer-Data-writeBufferToFile 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)) ext-0)))
 (define Binary-Binary-Utils-used (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Binary-Utils-toRead (lambda (arg-0) (Prelude-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 Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5160-9827 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0))))
+(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--5346-3786 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 0))))
 (define Binary-Utils-toBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3742-8436 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3847-2303 arg-1 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0))))))))
 (define Binary-Binary-Utils-size (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-createBufferFromFile arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize 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 Binary-Utils-newBinary (lambda (arg-0 arg-1) (vector 0 arg-0 0 arg-1 0)))
@@ -2736,33 +2773,33 @@
 (define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer 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))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0)))))))))))
 (define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 (Buffer-Data-newBuffer (Binary-Utils-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))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0)))))))))))
 (define Binary-Utils-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 (b+ e-1 arg-0 63) e-2 e-3))))))))
-(define Binary-Utils-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))) ((Binary-Utils-case--3809-8500 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0))))))))
+(define Binary-Utils-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))) ((Binary-Utils-case--3918-2371 arg-0 e-5 (Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-5) 1)) ext-0))))))))
 (define Binary-Utils-fromLimbs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (+ (Prelude-cast_Cast__Int_Integer e-2) (blodwen-shl (Binary-Utils-fromLimbs e-3) 32)))))))))
 (define Binary-Utils-fromBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (e-2 arg-2))))))
-(define Binary-Utils-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 ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3624-8336 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-resizeBuffer e-0 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 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))))))))))))))
+(define Binary-Utils-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 ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--3728-2201 e-3 e-2 e-1 e-0 arg-0 newsize (Prelude-C-60_Ord__Int (Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Buffer-Data-resizeBuffer e-0 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 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))))))))))))))
 (define Binary-Utils-corrupt (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 2 arg-1)) ext-0)))
 (define Binary-Binary-Utils-buf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Binary-Utils-blockSize (lambda () 655360))
 (define Binary-Utils-avail (lambda (arg-0) (Prelude-C-45_Neg__Int (Prelude-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 Binary-Utils-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 (b+ e-1 arg-0 63) e-2 (b+ e-3 arg-0 63)))))))))
-(define Buffer-Data-case--2197-8618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4)))))
-(define Buffer-Data-case--2186-8598 (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 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2197-8618 arg-0 arg-1 e-1 _-0 act-24 (Prelude-C-60_Ord__Int arg-0 act-24))))) (let ((act-25 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-26 (Buffer-Data-freeBuffer arg-1 eta-0))) (vector 1 e-1)))))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Buffer-Data-case--2046-8487 (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) (let ((act-24 (File-System-closeFile arg-1 eta-0))) (vector 1 arg-5)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--2023-8462 (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))) (lambda (eta-0) (let ((act-24 (Buffer-Data-readBufferData arg-1 e-1 0 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((act-25 (File-System-closeFile arg-1 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
-(define Buffer-Data-case--2005-8443 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-newBuffer e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-readBufferData arg-1 e-1 0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((act-26 (File-System-closeFile arg-1 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1993-8427 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-fileSize e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-newBuffer e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Buffer-Data-readBufferData e-2 e-1 0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((1) (let ((act-27 (File-System-closeFile e-2 eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1897-8351 (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 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile arg-3 eta-0))) (vector 1 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1884-8329 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (File-System-closeFile e-2 eta-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Buffer-Data-case--1824-8280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 2 ))))))))
-(define Buffer-Data-case--1764-8226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
-(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 1 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (File-System-closeFile e-2 ext-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
-(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__writeBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1824-8280 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
+(define Buffer-Data-case--2283-2534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4)))))
+(define Buffer-Data-case--2272-2514 (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 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-0 arg-1 e-1 _-0 act-24 (Prelude-C-60_Ord__Int arg-0 act-24))))) (let ((act-25 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-26 (Buffer-Data-freeBuffer arg-1 eta-0))) (vector 1 e-1)))))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Buffer-Data-case--2129-2400 (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) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 arg-5)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--2106-2374 (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))) (lambda (eta-0) (let ((act-24 (Buffer-Data-readBufferData arg-1 e-1 0 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
+(define Buffer-Data-case--2086-2354 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-newBuffer e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-readBufferData arg-1 e-1 0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--2073-2335 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 (Buffer-Data-newBuffer e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Buffer-Data-readBufferData e-2 e-1 0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((1) (let ((act-27 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1974-2255 (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 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3) eta-0))) (vector 1 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1959-2232 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Buffer-Data-case--1897-2180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 2 ))))))))
+(define Buffer-Data-case--1835-2124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 0 (vector 1 ))))))))
+(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 1 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-writeBufferData e-2 arg-1 0 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-3)))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__writeBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1897-2180 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
 (define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setString arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setInt arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setDouble arg-0 arg-1 arg-2 ext-0)))
 (define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setByte arg-0 arg-1 arg-2 ext-0)))
-(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2197-8618 arg-1 arg-0 e-1 _-0 act-25 (Prelude-C-60_Ord__Int arg-1 act-25))))) (let ((act-26 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-27 (Buffer-Data-freeBuffer arg-0 ext-0))) (vector 1 e-1))))))) (else (vector 0 )))))))
-(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__readBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1764-8226 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
+(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2283-2534 arg-1 arg-0 e-1 _-0 act-25 (Prelude-C-60_Ord__Int arg-1 act-25))))) (let ((act-26 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-27 (Buffer-Data-freeBuffer arg-0 ext-0))) (vector 1 e-1))))))) (else (vector 0 )))))))
+(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Buffer-Data-prim__readBufferData arg-0 arg-1 arg-2 arg-3 ext-0))) ((Buffer-Data-case--1835-2124 arg-0 arg-3 arg-2 arg-1 act-24 (Prelude-C-62C-61_Ord__Int act-24 0)) ext-0))))
 (define Buffer-Data-rawSize (lambda (arg-0 ext-0) (Buffer-Data-prim__bufferSize arg-0)))
 (define Buffer-Data-newBuffer (lambda (arg-0 ext-0) (let ((act-24 (Buffer-Data-prim__newBuffer arg-0 ext-0))) (vector 1 act-24))))
 (define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__getString arg-0 arg-1 arg-2 ext-0)))
@@ -2770,51 +2807,58 @@
 (define Buffer-Data-getDouble (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getDouble arg-0 arg-1 ext-0)))
 (define Buffer-Data-getByte (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getByte arg-0 arg-1 ext-0)))
 (define Buffer-Data-freeBuffer (lambda (arg-0 ext-0) (vector 0 )))
-(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-fileSize e-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (Buffer-Data-newBuffer e-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-27 (Buffer-Data-readBufferData e-2 e-1 0 e-3 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((1) (let ((act-28 (File-System-closeFile e-2 ext-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-fileSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-26 (Buffer-Data-newBuffer e-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-27 (Buffer-Data-readBufferData e-2 e-1 0 e-3 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((1) (let ((act-28 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 e-1))) (else (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5)))))))) (else (vector 0 (vector 1 )))))))) (else (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5)))))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Buffer-Data-prim__copyData arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))
-(define Options-Core-case--5266-1733 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
-(define Options-Core-case--5244-1713 (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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
-(define Options-Core-case--5222-1690 (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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
-(define Options-Core-case--5200-1667 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
-(define Options-Core-case--5177-1643 (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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7)))))))))))
-(define Options-Core-case--5150-1621 (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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7)))))))))))
-(define Options-Core-case--5130-1600 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
-(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__LangExt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__LangExt arg-650 arg-651))))))
-(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__CG arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__CG arg-650 arg-651))))))
+(define Options-Core-case--5543-1882 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8))))))))))))))
+(define Options-Core-case--5512-1852 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8)))))))))))))
+(define Options-Core-case--5489-1831 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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-7 e-8))))))))))))))))
+(define Options-Core-case--5466-1807 (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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (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 (vector 1 arg-0) e-11) e-7 e-8))))))))))))))))
+(define Options-Core-case--5443-1783 (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 ((sc1 e-6)) (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 (vector 1 arg-0) e-10 e-11) e-7 e-8))))))))))))))))
+(define Options-Core-case--5419-1758 (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))) (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 (vector 0 arg-1 arg-0)) e-6 e-7 e-8))))))))))))
+(define Options-Core-case--5391-1735 (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))) (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-2 arg-1 arg-0)) e-5 e-6 e-7 e-8))))))))))))
+(define Options-Core-case--5370-1713 (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-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 Options-Core-show_Show__CG (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "chez") ((1) "racket") ((2) "gambit") (else (let ((e-0 (vector-ref sc0 1))) e-0))))))
+(define Options-Core-showPrec_Show__CG (lambda (arg-0 arg-1) (Options-Core-show_Show__CG arg-1)))
+(define Options-Core-__Impl_Show_CG (lambda () (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x))))))
+(define Options-Core-__Impl_Eq_LangExt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431))))))
+(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431))))))
 (define Options-Core-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 Options-Core-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))))(else 1)))))
+(define Options-Core-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 ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1)))))
 (define Options-Core-C-47C-61_Eq__LangExt (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__LangExt arg-0 arg-1))))
 (define Options-Core-C-47C-61_Eq__CG (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__CG arg-0 arg-1))))
 (define Dirs-Options-Core-working_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define ElabDirectives-Options-Core-undottedRecordProjections (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define ElabDirectives-Options-Core-unboundImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ElabDirectives-Options-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Options-Core-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-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))) (Strings-Data-unlines (vector 1 (Strings-Prelude-C-43C-43 "+ Working Directory   :: " (Prelude-show_Show__String e-0)) (vector 1 (Strings-Prelude-C-43C-43 "+ Source Directory    :: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-1)) (vector 1 (Strings-Prelude-C-43C-43 "+ Build Directory     :: " (Prelude-show_Show__String e-2)) (vector 1 (Strings-Prelude-C-43C-43 "+ Executable Directory     :: " (Prelude-show_Show__String e-3)) (vector 1 (Strings-Prelude-C-43C-43 "+ Installation Prefix :: " (Prelude-show_Show__String e-4)) (vector 1 (Strings-Prelude-C-43C-43 "+ Extra Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5)) (vector 1 (Strings-Prelude-C-43C-43 "+ CG Library Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6)) (vector 1 (Strings-Prelude-C-43C-43 "+ Data Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-7)) (vector 0 )))))))))))))))))))))
+(define Options-Core-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-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))) (Strings-Data-unlines (vector 1 (Strings-Prelude-C-43C-43 "+ Working Directory      :: " (Prelude-show_Show__String e-0)) (vector 1 (Strings-Prelude-C-43C-43 "+ Source Directory       :: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-1)) (vector 1 (Strings-Prelude-C-43C-43 "+ Build Directory        :: " (Prelude-show_Show__String e-2)) (vector 1 (Strings-Prelude-C-43C-43 "+ Output Directory       :: " (Prelude-show_Show__String (Options-Core-outputDirWithDefault arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "+ Installation Prefix    :: " (Prelude-show_Show__String e-4)) (vector 1 (Strings-Prelude-C-43C-43 "+ Extra Directories      :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5)) (vector 1 (Strings-Prelude-C-43C-43 "+ CG Library Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6)) (vector 1 (Strings-Prelude-C-43C-43 "+ Data Directories       :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-7)) (vector 0 ))))))))))))))))))))
 (define Dirs-Options-Core-source_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define PairNames-Options-Core-sndName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define PPrinter-Options-Core-showImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define PPrinter-Options-Core-showFullEnv (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-0 arg-1)) e-6 e-7)))))))))))
-(define Options-Core-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))) (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)))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
-(define Options-Core-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 ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
+(define Options-Core-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 (vector 0 arg-0 arg-1)) e-6 e-7 e-8))))))))))))
+(define Options-Core-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 Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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))) (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-7 e-8))))))))))))))))
+(define Options-Core-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 (vector 1 arg-0 e-7) e-8)))))))))))))
 (define Options-Options-Core-session (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Options-Options-Core-rewritenames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define RewriteNames-Options-Core-rewriteName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Options-Options-Core-printing (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Options-Options-Core-primnames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
+(define Dirs-Options-Core-prefix_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Options-Options-Core-pairnames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define PairNames-Options-Core-pairType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Dirs-Options-Core-output_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Options-Core-outputDirWithDefault (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec")) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
 (define Session-Options-Core-noprelude (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Session-Options-Core-nobanner (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Session-Options-Core-logTimings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Session-Options-Core-logLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Dirs-Options-Core-lib_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define ElabDirectives-Options-Core-lazyActive (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__LangExt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__LangExt arg-650 arg-651)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7)))))
-(define Options-Core-getCG (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Strings-Data-toLower arg-0) (Options-Core-availableCGs))))
+(define Options-Core-isExtension (lambda (arg-0 arg-1) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__LangExt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__LangExt arg-430 arg-431)))) arg-0 (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 8))) e-7)))))
+(define Options-Core-getCG (lambda (arg-0 arg-1) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Strings-Data-toLower arg-1) (Options-Core-availableCGs arg-0))))
 (define PPrinter-Options-Core-fullNamespace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define PairNames-Options-Core-fstName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define PrimNames-Options-Core-fromStringName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
@@ -2823,7 +2867,7 @@
 (define Session-Options-Core-findipkg (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Dirs-Options-Core-extra_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Options-Options-Core-extensions (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
-(define Dirs-Options-Core-exec_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Options-Core-execBuildDir (lambda (arg-0) (Path-Utils-C-60C-47C-62 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) "exec")))
 (define RewriteNames-Options-Core-equalType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Options-Options-Core-elabDirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Session-Options-Core-dumpvmcode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
@@ -2831,110 +2875,108 @@
 (define Session-Options-Core-dumpcases (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Session-Options-Core-dumpanf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
 (define Options-Options-Core-dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Dirs-Options-Core-dir_prefix (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ))))
+(define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ))))
 (define Options-Core-defaultSession (lambda () (vector 0 1 1 1 (vector 0 ) 0 1 1 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Options-Core-defaultPPrint (lambda () (vector 0 1 0 1)))
 (define Options-Core-defaultElab (lambda () (vector 0 0 0 (vector 1 ) (+ 1 (+ 1 (+ 1 0))) 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)))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (Path-Utils-C-60C-47C-62 "build" "exec") "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 ))))
+(define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (vector 0 ) "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 ))))
 (define Session-Options-Core-debugElabCheck (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define Dirs-Options-Core-data_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
 (define Session-Options-Core-codegen (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Options-Core-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
+(define Options-Core-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 Dirs-Options-Core-build_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Options-Core-availableCGs (lambda () (vector 1 (vector 0 "chez" (vector 0 )) (vector 1 (vector 0 "racket" (vector 1 )) (vector 1 (vector 0 "gambit" (vector 2 )) (vector 0 ))))))
+(define Options-Core-availableCGs (lambda (arg-0) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 "chez" (vector 0 )) (vector 1 (vector 0 "racket" (vector 1 )) (vector 1 (vector 0 "gambit" (vector 2 )) (vector 0 )))) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))))
 (define ElabDirectives-Options-Core-autoImplicitLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define ElabDirectives-Options-Core-ambigLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Info-System-prim__os (lambda () (blodwen-os)))
-(define Info-System-os (lambda () (blodwen-os)))
-(define Info-System-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
-(define Path-Utils-case--4011-3265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2))))))
-(define Path-Utils-case--3969-3248 (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))) (Path-Utils-case--4011-3265 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1)))))
-(define Path-Utils-case--3969-3226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3))))))
-(define Path-Utils-case--3825-3133 (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 Path-Utils-case--3811-3089 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3825-3133 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3108) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3750-3029-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3))))))))))))))
-(define Path-Utils-case--3750-3079 (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))) (Path-Utils-case--3811-3089 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0)))))))))
-(define Path-Utils-case--3753-3049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3750-3029-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 ))))))
-(define Path-Utils-case--3688-2983 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))
-(define Path-Utils-case--3600-2900 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2))))))))))))))))
-(define Path-Utils-case--3579-2874 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1)))))))
-(define Path-Utils-case--3493-2830 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1))))))
-(define Path-Utils-case--3489-2790 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath)))))))))))
-(define Path-Utils-case--3454-2781 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))))))
-(define Path-Utils-case--3454-2766 (lambda (arg-0 arg-1) (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))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3)))))))
-(define Path-Utils-case--3440-2753 (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 (List-Prelude-C-43C-43 'erased (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 Path-Utils-case--3435-2740 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3440-2753 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
-(define Path-Utils-case--3403-2713 (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 Path-Utils-case--3400-2706 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3403-2713 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 Path-Utils-case--3373-2686 (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)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath))))))
-(define Path-Utils-case--3252-2652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) (vector 0 ) e-3)))))))))
-(define Path-Utils-case--3252-2616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))))
-(define Path-Utils-case--3221-2555 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0)))))))
-(define Path-Utils-case--3119-2482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk"))))))
-(define Path-Utils-case--2901-2205 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) e-2)))))))))
-(define Path-Utils-case--2719-2072 (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 Path-Utils-case--2719-2052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else "")))))
-(define Path-Utils-case--2472-1839 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
-(define Path-Utils-case--2467-1834 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
-(define Path-Utils-n--3750-3029-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3753-3049 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4))))))))))))))))
-(define Path-Utils-n--3561-2855-findNormal (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3561-2855-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Options-Options-Core-additionalCGs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
+(define Options-Core-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 (vector 1 arg-0 e-8))))))))))))))
+(define Path-Utils-case--4118-3329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Path-Utils-show_Show__Path (Path-Utils-setFileNameC-39 (Strings-Prelude-C-43C-43 e-2 arg-4) arg-2))))))
+(define Path-Utils-case--4075-3312 (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))) (Path-Utils-case--4118-3329 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1)))))
+(define Path-Utils-case--4075-3290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Prelude-C-43C-43 "." arg-3))))))
+(define Path-Utils-case--3931-3196 (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 Path-Utils-case--3917-3151 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--3931-3196 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3170) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3))))))))))))))
+(define Path-Utils-case--3856-3141 (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))) (Path-Utils-case--3917-3151 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0)))))))))
+(define Path-Utils-case--3859-3111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3856-3091-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 ))))))
+(define Path-Utils-case--3794-3045 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))
+(define Path-Utils-case--3705-2961 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Prelude-pack (List-Data-reverse 'erased e-7)) (Prelude-pack (List-Data-reverse 'erased e-2))))))))))))))))
+(define Path-Utils-case--3684-2934 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1)))))))
+(define Path-Utils-case--3598-2890 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 arg-1 arg-2) (vector 0 )) 1))))))
+(define Path-Utils-case--3594-2850 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((parentPath (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (List-Data-init 'erased (vector 1 e-2 e-3) (vector 0 )) 1)))))) (let ((lastPath (vector 0 (vector 0 ) 1 (vector 1 (List-Data-last 'erased (vector 1 e-2 e-3) (vector 0 )) (vector 0 )) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))) (vector 1 (vector 0 parentPath lastPath)))))))))))
+(define Path-Utils-case--3559-2841 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 3))) e-5)) (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 3))) e-5))) (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 4))) e-4))))))))
+(define Path-Utils-case--3559-2826 (lambda (arg-0 arg-1) (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))) (vector 0 (let ((sc1 arg-1)) (let ((e-7 (vector-ref sc1 1))) e-7)) e-1 e-2 e-3)))))))
+(define Path-Utils-case--3545-2813 (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 (List-Prelude-C-43C-43 'erased (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 Path-Utils-case--3540-2800 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3545-2813 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
+(define Path-Utils-case--3508-2773 (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 Path-Utils-case--3505-2766 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3508-2773 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 Path-Utils-case--3478-2746 (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)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) e-5))(else (Path-Utils-emptyPath))))))(else (Path-Utils-emptyPath))))))
+(define Path-Utils-case--3352-2712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3)))))))))
+(define Path-Utils-case--3352-2676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))))
+(define Path-Utils-case--3320-2610 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 arg-0)))))))
+(define Path-Utils-case--3213-2534 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 e-1))) (else (vector 4 1 "Expect Disk"))))))
+(define Path-Utils-case--2984-2243 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2)))))))))
+(define Path-Utils-case--2796-2102 (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 Path-Utils-case--2796-2082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else "")))))
+(define Path-Utils-case--2539-1857 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
+(define Path-Utils-case--2534-1852 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
+(define Path-Utils-n--3856-3091-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--3859-3111 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4))))))))))))))))
+(define Path-Utils-n--3666-2915-findNormal (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3666-2915-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Path-Path-Utils-rf--volume (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Path-Path-Utils-rf--hasTrailSep (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Path-Path-Utils-rf--hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Path-Path-Utils-rf--body (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Path-Utils-tokValue_TokenKind__PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (vector 0 ))))))
 (define Path-Utils-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))) (Strings-Prelude-C-43C-43 "\\\\" (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Strings-Data-singleton e-2) ":")))))))
-(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2719-2052 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2719-2072 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr))))))))))
+(define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--2796-2082 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--2796-2102 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Prelude-C-43C-43 volStr (Strings-Prelude-C-43C-43 rootStr (Strings-Prelude-C-43C-43 bodyStr trailStr))))))))))
 (define Path-Utils-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 Path-Utils-showPrec_Show__Path (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path arg-1)))
-(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))))
+(define Path-Utils-__Impl_TokenKind_PathTokenKind (lambda () (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))))
 (define Path-Utils-__Impl_Show_Path (lambda () (vector 0 (lambda (x) (Path-Utils-show_Show__Path x)) (lambda (d) (lambda (x) (Path-Utils-showPrec_Show__Path d x))))))
-(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651))))))
-(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651))))))
-(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651))))))
+(define Path-Utils-__Impl_Eq_Volume (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431))))))
+(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431))))))
+(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431))))))
 (define Path-Utils-TokType_TokenKind__PathTokenKind (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector "String" )) (else (vector "Builtin.Unit" ))))))
 (define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-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))) (Prelude-C-61C-61_Eq__Char e-2 e-5)))(else 1)))))(else 1)))))
 (define Path-Utils-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))) (Prelude-C-61C-61_Eq__Char e-0 e-1)))(else 1)))))(else 1)))))
-(define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Volume arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Volume arg-650 arg-651)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) e-2 e-6)))))))))))))))
+(define Path-Utils-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))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Volume arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Volume arg-430 arg-431)))) e-0 e-4) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Bool e-1 e-5) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) e-2 e-6)))))))))))))))
 (define Path-Utils-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))) (Prelude-C-61C-61_Eq__String e-0 e-1)))(else 1)))))(else 1)))))
 (define Path-Utils-C-47C-61_Eq__Volume (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Volume arg-0 arg-1))))
 (define Path-Utils-C-47C-61_Eq__PathTokenKind (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__PathTokenKind arg-0 arg-1))))
 (define Path-Utils-C-47C-61_Eq__Body (lambda (arg-0 arg-1) (Prelude-not (Path-Utils-C-61C-61_Eq__Body arg-0 arg-1))))
-(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2384) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2410) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
-(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2504) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d)))))))))
-(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\))) (lambda () (lambda (_-2258) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\?)) (lambda () (lambda (_-2288) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\)) (lambda () (lambda (_-2305) (vector 0 (vector 0 )))))))))))))
-(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\))) (lambda () (lambda (_-2319) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2358) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
-(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3750-3079 arg-1 arg-0 (Path-Utils-parse arg-0))))
-(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3489-2790 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
+(define Path-Utils-verbatimUnc (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2430) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2458) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
+(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2557) (vector 7 1 (Path-Utils-disk) (lambda () (lambda (d) (vector 0 d)))))))))
+(define Path-Utils-verbatim (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2298) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\?)) (lambda () (lambda (_-2328) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (lambda (_-2346) (vector 0 (vector 0 )))))))))))))
+(define Path-Utils-unc (lambda () (vector 7 0 (Parser-Text-count 'erased 'erased (Quantity-Text-exactly (+ 1 (+ 1 0))) (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\))) (lambda () (lambda (_-2362) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2402) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
+(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3856-3141 arg-1 arg-0 (Path-Utils-parse arg-0))))
+(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3594-2850 arg-0 (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
 (define Path-Utils-splitParent (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-splitParentC-39 (Path-Utils-parse arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3))))))))))
-(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3600-2900 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0))))))
-(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3579-2874 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1)))))
+(define Path-Utils-splitFileName (lambda (arg-0) (Path-Utils-case--3705-2961 arg-0 (List-Data-break 'erased (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\.)) (List-Data-reverse 'erased (Prelude-unpack arg-0))))))
+(define Path-Utils-setFileNameC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3684-2934 arg-1 arg-0 (Maybe-Data-isJust 'erased (Path-Utils-fileNameC-39 arg-1)))))
 (define Path-Utils-pathTokenMap (lambda () (Lexer-Text-toTokenMap 'erased (vector 1 (vector 0 (Lexer-Text-is #\/) (vector 1 #\/)) (vector 1 (vector 0 (Lexer-Text-is #\\) (vector 1 #\\)) (vector 1 (vector 0 (Lexer-Text-is #\:) (vector 1 #\:)) (vector 1 (vector 0 (Lexer-Text-is #\?) (vector 1 #\?)) (vector 1 (vector 0 (Lexer-Text-some (Lexer-Text-non (Lexer-Text-oneOf "/\\:?"))) (vector 0 )) (vector 0 )))))))))
-(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2472-1839 (Info-System-isWindows))))
+(define Path-Utils-pathSeparator (lambda () (Path-Utils-case--2539-1857 (Info-System-isWindows))))
 (define Path-Utils-parseVolume (lambda () (vector 9 0 0 (Path-Utils-verbatimUnc) (lambda () (vector 9 0 0 (Path-Utils-verbatimDisk) (lambda () (vector 9 0 0 (Path-Utils-unc) (lambda () (Path-Utils-disk)))))))))
-(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__Body arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__Body arg-650 arg-651)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep)))))))))))))))
-(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text))))))))))
-(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3373-2686 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0)))))
+(define Path-Utils-parsePath (lambda () (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Path-Utils-parseVolume)) (lambda (vol) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (root) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator)) (Path-Utils-parseBody)) (lambda (body) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Parser-Text-some 'erased 'erased (Path-Utils-bodySeparator))) (lambda (trailSep) (let ((body-0 (List-Data-filter 'erased (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-47C-61_Eq__String (Strings-Data-ltrim e-0) "")))(else 0)))) body))) (let ((body-1 (let ((sc0 body-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-delete 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__Body arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__Body arg-430 arg-431)))) (vector 0 ) e-3))))))))) (vector 0 (vector 0 vol (Maybe-Data-isJust 'erased root) body-1 (Maybe-Data-isJust 'erased trailSep)))))))))))))))
+(define Path-Utils-parseBody (lambda () (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (let ((sc0 text)) (cond ((equal? sc0 "..") (vector 0 (vector 1 ))) ((equal? sc0 ".") (vector 0 (vector 0 )))(else (vector 0 (vector 2 text))))))))))
+(define Path-Utils-parse (lambda (arg-0) (Path-Utils-case--3478-2746 arg-0 (Core-Parser-Text-parse 'erased 'erased 1 (Path-Utils-parsePath) (Path-Utils-lexPath arg-0)))))
 (define Path-Utils-parentC-39 (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (Path-Utils-splitParentC-39 arg-0))))
 (define Path-Utils-parent (lambda (arg-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Path eta-0)) (Path-Utils-parentC-39 (Path-Utils-parse arg-0)))))
-(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2901-2205 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0))))
+(define Path-Utils-lexPath (lambda (arg-0) (Path-Utils-case--2984-2243 arg-0 (Core-Lexer-Text-lex 'erased (Path-Utils-pathTokenMap) arg-0))))
 (define Path-Utils-joinPath (lambda (arg-0) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Path-Utils-C-60C-47C-62 eta-0 eta-1))) "" arg-0)))
-(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3400-2706 arg-0 (Info-System-isWindows))))
+(define Path-Utils-isAbsoluteC-39 (lambda (arg-0) (Path-Utils-case--3505-2766 arg-0 (Info-System-isWindows))))
 (define Path-Utils-isAbsolute (lambda (arg-0) (Path-Utils-isAbsoluteC-39 (Path-Utils-parse arg-0))))
 (define Path-Path-Utils-hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3561-2855-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
+(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3666-2915-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
 (define Path-Utils-fileName (lambda (arg-0) (Path-Utils-fileNameC-39 (Path-Utils-parse arg-0))))
 (define Path-Utils-extension (lambda (arg-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-fileName arg-0) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (Builtin-snd 'erased 'erased (Path-Utils-splitFileName bind-0)))))))
 (define Path-Utils-emptyPath (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) 1)))
-(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3119-2482 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\:)) (lambda () (lambda (_-2471) (vector 0 (vector 1 (Prelude-toUpper disk)))))))))))))
-(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2467-1834 (Info-System-isWindows))))
-(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-650 arg-651)))) (vector 0 (lambda (arg-237) (Path-Utils-TokType_TokenKind__PathTokenKind arg-237)) (lambda (kind) (lambda (arg-238) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-238))))) (vector 1 #\/))))))
-(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3435-2740 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))))))))
+(define Path-Utils-disk (lambda () (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3213-2534 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\:)) (lambda () (lambda (_-2523) (vector 0 (vector 1 (Prelude-toUpper disk)))))))))))))
+(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2534-1852 (Info-System-isWindows))))
+(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-430 arg-431)))) (vector 0 (lambda (arg-246) (Path-Utils-TokType_TokenKind__PathTokenKind arg-246)) (lambda (kind) (lambda (arg-247) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-247))))) (vector 1 #\/))))))
+(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3540-2800 arg-1 arg-0 (Prelude-C-124C-124 (Path-Utils-isAbsoluteC-39 arg-1) (lambda () (Maybe-Data-isJust 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))))))))
 (define Path-Utils-PathToken (lambda () (vector "Text.Token.Token" (vector "Utils.Path.PathTokenKind" ))))
 (define Path-Utils-C-60C-47C-62 (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path (Path-Utils-appendC-39 (Path-Utils-parse arg-0) (Path-Utils-parse arg-1)))))
-(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--3969-3226 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--3969-3248 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39)))))))
-(define Hash-Core-case--3143-7324 (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 (Hash-Core-n--3133-7312-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2))))))
-(define Hash-Core-n--3133-7312-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3143-7324 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4))))
+(define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--4075-3290 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--4075-3312 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39)))))))
+(define Hash-Core-case--3238-7602 (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 (Hash-Core-n--3226-7590-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2))))))
+(define Hash-Core-n--3226-7590-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3238-7602 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (Prelude-C-61C-61_Eq__Int arg-3 arg-4))))
 (define Hash-Core-hash_Hashable__String (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__String 5381 ext-0)))
 (define Hash-Core-hash_Hashable__Nat (lambda (ext-0) (Prelude-cast_Cast__Nat_Int ext-0)))
 (define Hash-Core-hash_Hashable__Name (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__Name 5381 ext-0)))
@@ -2944,33 +2986,33 @@
 (define Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 5381 ext-0)))
 (define Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 5381 ext-0)))
 (define Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 5381 ext-0)))
-(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3133-7312-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1)))
-(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0)))
+(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3226-7590-hashChars arg-1 arg-0 arg-0 0 (Prelude-cast_Cast__Nat_Int (Prelude-length arg-1)) arg-1)))
+(define Hash-Core-hashWithSalt_Hashable__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0)))
 (define Hash-Core-hashWithSalt_Hashable__Nat (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Nat arg-1) 63)))
-(define Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1)))))))
+(define Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-0 e-4) e-5)))) ((9) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1)))))))
 (define Hash-Core-hashWithSalt_Hashable__Integer (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Integer arg-1) 63)))
 (define Hash-Core-hashWithSalt_Hashable__Int (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Int arg-1) 63)))
-(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11))))))
+(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-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))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0)) ((1) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1)) ((2) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2)) (else (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3)) e-4)))))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-abs_Abs__Int arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 (b+ (b* arg-2 33 63) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) 63) e-3))))))))
 (define Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 (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 ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0) e-1) e-2)) e-3))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1) e-5)) 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 ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2) e-9) e-10)) 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 ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3) e-13) e-14)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 4) e-17)) e-18)))) e-19))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 5) e-21)) e-22))))))))))
-(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Nat arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Nat arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Integer arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Integer arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Int arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Int arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7066 arg-7067))))))
-(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7066 arg-7067))))))
+(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Nat arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Nat arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Integer arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Integer arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7328 arg-7329))))))
+(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7328 arg-7329))))))
 (define Hash-Core-hashWithSalt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
 (define Hash-Core-hash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2))))))
-(define CaseTree-Core-case--3841-7803 (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 CaseTree-Core-case--3715-7729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 )))))))
-(define CaseTree-Core-case--3382-7363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3))))
-(define CaseTree-Core-n--3600-7556-getSet (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-5 (vector-ref sc0 5))) (CaseTree-Core-n--3600-7555-getAltSets 'erased arg-1 arg-2 arg-3 'erased 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 CaseTree-Core-n--3600-7555-getAltSets (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3600-7555-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3600-7554-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
-(define CaseTree-Core-n--3600-7554-getAltSet (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-4 (vector-ref sc0 4))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3600-7556-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13)))))))
+(define CaseTree-Core-case--3925-7911 (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 CaseTree-Core-case--3799-7837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 3 arg-1 arg-0)) (else (vector 2 arg-1 (vector 1 (TT-Core-show_Show__Constant arg-0)) 0 (vector 0 )))))))
+(define CaseTree-Core-case--3464-7474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Prelude-C-43C-43 'erased arg-2 (List-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-insertCaseAltNames arg-2 arg-1 arg-7 eta-0)) arg-3))))
+(define CaseTree-Core-n--3684-7664-getSet (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-5 (vector-ref sc0 5))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased 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 CaseTree-Core-n--3684-7663-getAltSets (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7663-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3684-7662-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
+(define CaseTree-Core-n--3684-7662-getAltSet (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-4 (vector-ref sc0 4))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3684-7664-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13)))))))
 (define CaseTree-Core-weaken_Weaken__CaseTree (lambda (arg-0 arg-1 ext-0) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define CaseTree-Core-weakenNs_Weaken__CaseTree (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-insertCaseNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define CaseTree-Core-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "@(" (Strings-Prelude-C-43C-43 (CaseTree-Core-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<TyCon>" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x)))) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-13))) ((4) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-16) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(Delay " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-21) ")")))) ((6) (let ((e-23 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-23))) (else (let ((e-25 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-25) ")"))))))))
@@ -2979,25 +3021,25 @@
 (define CaseTree-Core-showPrec_Show__Pat (lambda (arg-0 arg-1) (CaseTree-Core-show_Show__Pat arg-1)))
 (define CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2)))
 (define CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2)))
-(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3225)))))))
+(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3271)))))))
 (define CaseTree-Core-__Impl_Show_Pat (lambda () (vector 0 (lambda (x) (CaseTree-Core-show_Show__Pat x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__Pat d x))))))
 (define CaseTree-Core-__Impl_Show_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 d x))))))
 (define CaseTree-Core-__Impl_Show_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 arg-0 d x))))))
-(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-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))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 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 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3841-7803 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25)))))))
-(define CaseTree-Core-mkPatC-39 (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((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-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((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-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 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))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3715-7729 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))
-(define CaseTree-Core-insertCaseNames (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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3382-7363 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 ))))))
+(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-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))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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))) (TT-Core-apply 'erased e-8 (vector 1 e-8 (vector 3 0 e-10) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseTree-Core-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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (CaseTree-Core-mkTerm arg-0 e-16)) (CaseTree-Core-mkTerm (vector 1 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 (CaseTree-Core-mkTerm arg-0 e-20) (CaseTree-Core-mkTerm arg-0 e-21))))))) ((6) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (CaseTree-Core-case--3925-7911 e-23 e-22 arg-0 (TT-Core-isVar e-23 arg-0))))) (else (let ((e-25 (vector-ref sc0 2))) (TT-Core-embed 'erased 'erased e-25)))))))
+(define CaseTree-Core-mkPatC-39 (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-3)) ((2) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (vector 1 e-1 e-3 e-28 e-29 arg-0)))) ((3) (let ((e-31 (vector-ref sc1 2))) (vector 2 e-1 e-3 e-31 arg-0)))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))))) ((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-35 (vector-ref sc1 3))) (let ((tC-39 (SubstEnv-TT-Core-subst (vector 0 ) e-6 (vector 10 e-5 1) e-8))) (vector 4 e-5 e-6 (CaseTree-Core-mkPatC-39 (vector 0 ) e-35 e-35) (CaseTree-Core-mkPatC-39 (vector 0 ) tC-39 tC-39)))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))))) ((4) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((parg (CaseTree-Core-mkPatC-39 (vector 0 ) e-12 e-12))) (CaseTree-Core-mkPatC-39 (vector 1 parg arg-0) arg-1 e-11))))) ((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-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-39 (CaseTree-Core-mkPatC-39 (vector 0 ) e-17 e-17)))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-17)))))))(else (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 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))) (vector 5 e-19 e-20 (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-21) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-1 e-22))))))) ((9) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (CaseTree-Core-case--3799-7837 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1))))))
+(define CaseTree-Core-insertCaseNames (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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--3464-7474 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 ))))))
 (define CaseTree-Core-insertCaseAltNames (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))) (vector 0 e-1 e-2 e-3 (CaseTree-Core-insertCaseNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 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))) (vector 1 e-6 e-7 (CaseTree-Core-insertCaseNames (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 arg-2 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (CaseTree-Core-insertCaseNames arg-0 arg-1 arg-2 e-13))))))))
-(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3600-7556-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3)))
-(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7648) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0)))
+(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3684-7664-getSet 'erased arg-3 arg-2 arg-1 'erased arg-2 arg-3)))
+(define CaseTree-Core-getMetas (lambda (arg-0 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7756) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0)))
 (define CaseTree-Core-argToPat (lambda (arg-0) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-0 arg-0)))
-(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7638) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0)))
-(define CompileExpr-Core-case--5912-2790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6)))
-(define CompileExpr-Core-case--5763-2655 (lambda (arg-0 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 (vector 0 arg-12 arg-5))))
-(define CompileExpr-Core-case--5731-2603 (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) (CompileExpr-Core-case--5763-2655 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
-(define CompileExpr-Core-case--4819-1733 (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 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5)))))))
-(define CompileExpr-Core-case--4443-1399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5)))
-(define CompileExpr-Core-case--3868-842 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2)))))
-(define CompileExpr-Core-case--3806-797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2))))))
+(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-7746) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0)))
+(define CompileExpr-Core-case--6024-2814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-8 arg-6)))
+(define CompileExpr-Core-case--5875-2679 (lambda (arg-0 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 (vector 0 arg-12 arg-5))))
+(define CompileExpr-Core-case--5843-2627 (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) (CompileExpr-Core-case--5875-2679 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased 'erased 'erased 'erased (TT-Core-weakenNVar 'erased 'erased (List-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4))))))
+(define CompileExpr-Core-case--4929-1760 (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 13 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 arg-5)))))))
+(define CompileExpr-Core-case--4553-1426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-7 arg-5)))
+(define CompileExpr-Core-case--3968-858 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (CompileExpr-Core-uniqueName 'erased (CompileExpr-Core-tryNext arg-2) arg-1)) (else arg-2)))))
+(define CompileExpr-Core-case--3906-813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (CompileExpr-Core-elem 'erased arg-4 arg-2))))))
 (define CompileExpr-Core-weaken_Weaken__CExp (lambda (arg-0 arg-1 ext-0) (CompileExpr-Core-weakenNs_Weaken__CExp arg-1 (vector 1 arg-0 (vector 0 )) ext-0)))
 (define CompileExpr-Core-weakenNs_Weaken__CExp (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-insertNames (vector 0 ) arg-0 arg-1 arg-2)))
 (define CompileExpr-Core-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-3) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat 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))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-6) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-7)))))))))) (else (let ((e-8 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (CompileExpr-Core-show_Show__NamedCExp e-8))))))))
@@ -3012,13 +3054,13 @@
 (define CompileExpr-Core-showPrec_Show__NamedCExp (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedCExp arg-1)))
 (define CompileExpr-Core-showPrec_Show__CFType (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__CFType arg-1)))
 (define CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-2)))
-(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3225)))))))
+(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3271)))))))
 (define CompileExpr-Core-__Impl_Show_NamedConstAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConstAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConstAlt d x))))))
 (define CompileExpr-Core-__Impl_Show_NamedConAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConAlt d x))))))
 (define CompileExpr-Core-__Impl_Show_NamedCExp (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x))))))
 (define CompileExpr-Core-__Impl_Show_CFType (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x))))))
 (define CompileExpr-Core-__Impl_Show_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 arg-0 d x))))))
-(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3868-842 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2))))
+(define CompileExpr-Core-uniqueName (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-case--3968-858 'erased arg-2 arg-1 (CompileExpr-Core-elem 'erased arg-1 arg-2))))
 (define CompileExpr-Core-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 (b+ 1 e-2 63)))))(else (vector 2 (Name-Core-nameRoot arg-0) 0))))))
 (define CompileExpr-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-substEnv (vector 0 ) arg-0 arg-1 arg-2 arg-3)))
 (define CompileExpr-Core-substEnv (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))) (CompileExpr-Core-find 'erased arg-0 arg-1 arg-2 e-2 e-3 'erased arg-3)))) ((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 ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-substEnv (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-substEnv arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
@@ -3026,15 +3068,15 @@
 (define CompileExpr-Core-substConAlt (lambda (arg-0 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))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-substEnv (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 e-4)))))))))
 (define CompileExpr-Core-shrinkConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-2)))))))
 (define CompileExpr-Core-shrinkConAlt (lambda (arg-0 arg-1 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))) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-shrinkCExp 'erased 'erased (TT-Core-subExtend 'erased 'erased e-3 arg-2) e-4)))))))))
-(define CompileExpr-Core-shrinkCExp (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))) (CompileExpr-Core-case--4819-1733 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) 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 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
-(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (CompileExpr-Core-case--5731-2603 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
+(define CompileExpr-Core-shrinkCExp (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))) (CompileExpr-Core-case--4929-1760 'erased 'erased 'erased e-2 'erased e-3 arg-2 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 2 arg-2) e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-16) 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 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConAlt 'erased 'erased arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkConstAlt 'erased 'erased arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-shrinkCExp 'erased 'erased arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (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))) (CompileExpr-Core-case--5843-2627 'erased e-3 e-2 e-1 arg-6 arg-5 arg-3 arg-2 'erased 'erased (Name-Core-C-61C-61_Eq__Name arg-6 e-2))))))))))
 (define CompileExpr-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3)))))(else (CompileExpr-Core-mkLocals (vector 0 ) arg-0 arg-1 arg-2 arg-3))))))
 (define CompileExpr-Core-mkLocalsConstAlt (lambda (arg-0 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))) (vector 0 e-1 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-2)))))))
 (define CompileExpr-Core-mkLocalsConAlt (lambda (arg-0 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 ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-mkLocals (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 scC-39))))))))))
-(define CompileExpr-Core-mkLocals (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))) (CompileExpr-Core-case--5912-2790 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-mkLocals (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))) (CompileExpr-Core-case--6024-2814 arg-0 arg-1 arg-2 e-2 'erased 'erased e-3 arg-3 (TT-Core-addVars 'erased 'erased arg-0 arg-1 e-2 arg-3 'erased))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 1 e-6 e-7)) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Core-resolveRef 'erased 'erased arg-0 (vector 0 ) arg-3 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-10 arg-0) arg-1 arg-2 arg-3 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-mkLocals (vector 1 e-14 arg-0) arg-1 arg-2 arg-3 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-16) 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 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocalsConstAlt arg-0 arg-1 arg-2 arg-3 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-mkLocals arg-0 arg-1 arg-2 arg-3 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
 (define CompileExpr-Core-insertNamesConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-2)))))))
 (define CompileExpr-Core-insertNamesConAlt (lambda (arg-0 arg-1 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 ((scC-39 e-4)) (vector 0 e-1 e-2 e-3 (CompileExpr-Core-insertNames (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 scC-39))))))))))
-(define CompileExpr-Core-insertNames (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))) (CompileExpr-Core-case--4443-1399 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) 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 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
+(define CompileExpr-Core-insertNames (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))) (CompileExpr-Core-case--4553-1426 arg-0 arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))) ((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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-10 arg-0) arg-1 arg-2 e-11))) (vector 2 e-9 e-10 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 ((scC-39 (CompileExpr-Core-insertNames (vector 1 e-14 arg-0) arg-1 arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-16) 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 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 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))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-26))))))) ((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))) (vector 6 e-28 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-31))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 7 e-33 e-34 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-35)))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (vector 8 e-37 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-41))))) ((10) (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))) (vector 10 e-43 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConAlt arg-0 arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-46))))))) ((11) (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))) (vector 11 e-48 (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNamesConstAlt arg-0 arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-insertNames arg-0 arg-1 arg-2 eta-0)) e-51))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (vector 12 e-53 e-54)))) ((13) (let ((e-56 (vector-ref sc0 1))) (vector 13 e-56))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (vector 14 e-58 e-59))))))))
 (define CompileExpr-Core-getLocName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Core-getLocName 'erased 'erased e-0 e-8 'erased)))))))))
 (define NamedCExp-CompileExpr-Core-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-4 (vector-ref sc0 1))) e-4)) ((3) (let ((e-7 (vector-ref sc0 1))) e-7)) ((4) (let ((e-11 (vector-ref sc0 1))) e-11)) ((5) (let ((e-14 (vector-ref sc0 1))) e-14)) ((6) (let ((e-19 (vector-ref sc0 1))) e-19)) ((7) (let ((e-22 (vector-ref sc0 1))) e-22)) ((8) (let ((e-25 (vector-ref sc0 1))) e-25)) ((9) (let ((e-27 (vector-ref sc0 1))) e-27)) ((10) (let ((e-29 (vector-ref sc0 1))) e-29)) ((11) (let ((e-33 (vector-ref sc0 1))) e-33)) ((12) (let ((e-37 (vector-ref sc0 1))) e-37)) ((13) (let ((e-39 (vector-ref sc0 1))) e-39)) (else (let ((e-40 (vector-ref sc0 1))) e-40))))))
 (define CompileExpr-Core-getFC (lambda (arg-0 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-29 (vector-ref sc0 2))) e-29)) ((7) (let ((e-33 (vector-ref sc0 1))) e-33)) ((8) (let ((e-37 (vector-ref sc0 1))) e-37)) ((9) (let ((e-40 (vector-ref sc0 1))) e-40)) ((10) (let ((e-43 (vector-ref sc0 1))) e-43)) ((11) (let ((e-48 (vector-ref sc0 1))) e-48)) ((12) (let ((e-53 (vector-ref sc0 1))) e-53)) ((13) (let ((e-56 (vector-ref sc0 1))) e-56)) (else (let ((e-58 (vector-ref sc0 1))) e-58))))))
@@ -3046,263 +3088,263 @@
 (define CompileExpr-Core-findDrop (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) (vector 0 arg-3 arg-4)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-6)) (let ((e-8 (vector-ref sc2 1))) e-8)))(else (let ((e-4 (- arg-3 1))) (let ((sc1 arg-6)) (let ((e-14 (vector-ref sc1 2))) (CompileExpr-Core-findDrop 'erased 'erased e-3 e-4 arg-4 'erased e-14)))))))))))))
 (define CompileExpr-Core-find (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (CompileExpr-Core-findDrop 'erased 'erased arg-2 arg-4 arg-5 'erased arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 0 0 arg-5))(else (let ((e-4 (- arg-4 1))) (CompileExpr-Core-weaken_Weaken__CExp e-2 (List-Prelude-C-43C-43 'erased e-3 arg-3) (CompileExpr-Core-find 'erased e-3 arg-2 arg-3 e-4 arg-5 'erased arg-7)))))))))))))
 (define CompileExpr-Core-embed (lambda (arg-0 arg-1 arg-2) (Builtin-believe_me 'erased 'erased arg-2)))
-(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3806-797 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2)))))))))
+(define CompileExpr-Core-elem (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Core-case--3906-813 'erased 'erased e-3 e-2 arg-1 (Name-Core-C-61C-61_Eq__Name arg-1 e-2)))))))))
 (define CompileExpr-Core-conArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 e-6 (CompileExpr-Core-conArgs 'erased e-3 e-7)))))))))))
 (define CompileExpr-Core-addLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((rec (CompileExpr-Core-addLocs 'erased e-3 arg-2))) (vector 1 (CompileExpr-Core-uniqueName 'erased e-2 rec) rec)))))))))
-(define TTC-Core-case--13578-14008 (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) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 (TTC-Core-fromBuf_TTC__Visibility arg-0 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 (TTC-Core-fromBuf_TTC__Totality arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 eta-1)))) arg-0 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-8243 eta-1)))) arg-0 eta-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 (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 )))))))))
-(define TTC-Core-case--13454-13667 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0)))))))
-(define TTC-Core-case--13303-13554 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0)))))))
-(define TTC-Core-case--13238-13453 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0)))))))
-(define TTC-Core-case--12645-13145 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8243 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) arg-8244 eta-2)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2)))))) arg-8243 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2))))) arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 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 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2)))) arg-8243 eta-1)))) arg-0 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))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (Binary-Utils-fromBuf_TTC__Nat 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) 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))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0)))))))
-(define TTC-Core-case--12506-12723 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0)))))))
-(define TTC-Core-case--12296-12510 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0)))))))
-(define TTC-Core-case--12088-12381 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0)))))))
-(define TTC-Core-case--11788-12114 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-2))))) arg-8243 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) 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))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0)))))))
-(define TTC-Core-case--11178-11394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
-(define TTC-Core-case--10711-11373 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((bind-0 0)) ((TTC-Core-case--11178-11394 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Bool arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-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 ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
-(define TTC-Core-case--9837-10857 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10366-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10367-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10368-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
-(define TTC-Core-case--10189-10829 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0)))))))
-(define TTC-Core-case--10188-10565 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0)))))))
-(define TTC-Core-case--10187-10378 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0)))))))
-(define TTC-Core-case--9698-9901 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0)))))))
-(define TTC-Core-case--9621-9813 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0)))))))
-(define TTC-Core-case--9525-9728 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0)))))))
-(define TTC-Core-case--9460-9646 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0)))))))
-(define TTC-Core-case--9150-9434 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 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 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0)))))))
-(define TTC-Core-case--8964-9218 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0)))))))
-(define TTC-Core-case--8177-8638 (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 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0)))))))
-(define TTC-Core-case--7832-8334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-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 (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-8243 eta-1)))) 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))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) 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))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8177-8638 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
-(define TTC-Core-case--7830-8015 (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) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) arg-6 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 ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0)))))))))))))))
-(define TTC-Core-case--7780-7966 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0)))))))
-(define TTC-Core-case--7417-7755 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0)))))))
-(define TTC-Core-case--7255-7479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0)))))))
-(define TTC-Core-case--7190-7382 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0)))))))
-(define TTC-Core-case--6821-7154 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0)))))))
-(define TTC-Core-case--6676-6908 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0)))))))
-(define TTC-Core-case--6598-6793 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0)))))))
-(define TTC-Core-case--6255-6590 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0)))))))
-(define TTC-Core-case--6138-6344 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0)))))))
-(define TTC-Core-n--9837-10368-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0)))))))))))
-(define TTC-Core-n--9837-10367-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0)))))))))))
-(define TTC-Core-n--9837-10366-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0)))))))))))
-(define TTC-Core-n--13576-13768-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1)))))
+(define TTC-Core-case--14322-15092 (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) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 (TTC-Core-fromBuf_TTC__Visibility arg-0 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 (TTC-Core-fromBuf_TTC__Totality arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-1)))) arg-0 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 (Binary-Utils-fromBuf_TTC__Bool arg-0 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-1)))) arg-0 eta-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 (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 )))))))))
+(define TTC-Core-case--14190-14719 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0)))))))
+(define TTC-Core-case--14034-14602 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0)))))))
+(define TTC-Core-case--13966-14497 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0)))))))
+(define TTC-Core-case--13318-14160 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 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 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 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 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 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))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__Bool 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (Binary-Utils-fromBuf_TTC__Nat 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) 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))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0)))))))
+(define TTC-Core-case--13164-13698 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0)))))))
+(define TTC-Core-case--12906-13449 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0)))))))
+(define TTC-Core-case--12678-13296 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) 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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) 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))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0)))))))
+(define TTC-Core-case--12361-13010 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 10 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) 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))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0)))))))
+(define TTC-Core-case--11710-12192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
+(define TTC-Core-case--11197-12168 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((bind-0 0)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Bool arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 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))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__Nat 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 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-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 ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC 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 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
+(define TTC-Core-case--10285-11605 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-fromBuf1 arg-0 arg-1 eta-0)))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11079-fromBuf2 arg-0 arg-1 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
+(define TTC-Core-case--10657-11577 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0)))))))
+(define TTC-Core-case--10656-11283 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0)))))))
+(define TTC-Core-case--10655-11091 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0)))))))
+(define TTC-Core-case--10134-10585 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0)))))))
+(define TTC-Core-case--10052-10491 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason 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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0)))))))
+(define TTC-Core-case--9949-10400 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-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))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0)))))))
+(define TTC-Core-case--9881-10313 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0)))))))
+(define TTC-Core-case--9548-10075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-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 ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-0) 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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-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))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 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 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0)))))))
+(define TTC-Core-case--9352-9838 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Nat 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0)))))))
+(define TTC-Core-case--8496-9194 (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 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0)))))))
+(define TTC-Core-case--8125-8853 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-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 (Binary-Utils-fromBuf_TTC__Nat 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-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 (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2106 eta-1)))) 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))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) 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))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 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 (TTC-Core-fromBuf_TTC__UseSide 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 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))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant 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))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--8496-9194 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
+(define TTC-Core-case--8123-8510 (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) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Prelude-cast_Cast__Nat_Int arg-1) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) arg-6 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 ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0)))))))))))))))
+(define TTC-Core-case--8070-8458 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0)))))))
+(define TTC-Core-case--7690-8233 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-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))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 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))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount 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 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0)))))))
+(define TTC-Core-case--7517-7935 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Nat 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))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0)))))))
+(define TTC-Core-case--7449-7831 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0)))))))
+(define TTC-Core-case--7059-7591 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char 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))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double 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))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0)))))))
+(define TTC-Core-case--6910-7332 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0)))))))
+(define TTC-Core-case--6829-7212 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0)))))))
+(define TTC-Core-case--6451-6990 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-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 (TTC-Core-fromBuf_TTC__Name 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))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int 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 (Binary-Utils-fromBuf_TTC__Int 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))) (vector 1 (vector 8 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0)))))))
+(define TTC-Core-case--6325-6722 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) 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))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0)))))))
+(define TTC-Core-n--10285-11080-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0)))))))))))
+(define TTC-Core-n--10285-11079-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0)))))))))))
+(define TTC-Core-n--10285-11078-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0)))))))))))
+(define TTC-Core-n--14320-14827-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((7) 0) ((8) 0)(else 1)))))
 (define TTC-Core-toBuf_TTC__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__UseSide (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
 (define TTC-Core-toBuf_TTC__TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__Bool 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define TTC-Core-toBuf_TTC__Transform (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0))))))))))))))))))))))))))
+(define TTC-Core-toBuf_TTC__Transform (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-4) eta-0))))))))))))))))))))))))))
 (define TTC-Core-toBuf_TTC__Totality (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Terminating arg-0 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 ((TTC-Core-toBuf_TTC__Covering arg-0 e-1) eta-0)))))))))))
 (define TTC-Core-toBuf_TTC__TotalReq (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__Terminating (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__PartialReason arg-0 e-0) eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__SizeChange (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
-(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__SizeChange arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8243 eta-0)))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)))))))
-(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0)))
+(define TTC-Core-toBuf_TTC__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0)))))))
+(define TTC-Core-toBuf_TTC__RigCount (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0)) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)) (lambda (eta-0) (lambda (eta-1) (Binary-Utils-tag arg-0 2 eta-1))) ext-0)))
 (define TTC-Core-toBuf_TTC__RewriteNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
-(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__PrimNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
+(define TTC-Core-toBuf_TTC__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0)))))))))))
 (define TTC-Core-toBuf_TTC__PMDefInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((TTC-Core-toBuf_TTC__HoleInfo 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
 (define TTC-Core-toBuf_TTC__NameType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0)))))))))))))))))
-(define TTC-Core-toBuf_TTC__Name (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0))))))))
+(define TTC-Core-toBuf_TTC__Name (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-9) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 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 ((TTC-Core-toBuf_TTC__Name arg-0 e-11) eta-0))))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))))))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-15 eta-0))))))))))))) (else (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't write resolved name " (Prelude-show_Show__Int e-16))) eta-0))))))))
 (define TTC-Core-toBuf_TTC__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0)))))))
 (define TTC-Core-toBuf_TTC__HoleInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-0) eta-0))))))))))))
-(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--13576-13768-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 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 ((Binary-Utils-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 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-8243 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 TTC-Core-toBuf_TTC__FC (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 e-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
+(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 eta-0)))) arg-0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased 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 ((TTC-Core-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 (Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14320-14827-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 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 ((Binary-Utils-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 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 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 TTC-Core-toBuf_TTC__FC (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__String arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-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 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0)))))))
 (define TTC-Core-toBuf_TTC__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((4) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__TotalReq arg-0 e-0) eta-0)))))))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
-(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8243 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) arg-8244 eta-2)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2)))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-12) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-15 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-16 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 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-18 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 ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-2)))) arg-8243 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
-(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 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 ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2106 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) arg-2107 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2)))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-12) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-15 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-16 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 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-18 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 ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-2)))) arg-2106 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Nat 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 ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-0 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) 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 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-28 eta-0)))))))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0)))))))
+(define TTC-Core-toBuf_TTC__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__Constant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-0 eta-0)))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((Binary-Utils-toBuf_TTC__Integer arg-0 e-1) eta-0)))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 (Binary-Utils-toBuf_TTC__Int arg-0 e-2 eta-0)))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-3 eta-0)))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0)))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__Integer arg-0 e-5) eta-0)))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-6) eta-0)))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Char arg-0 e-7 eta-0)))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__Double arg-0 e-8 eta-0)))))))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))) ((11) (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0))) ((12) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) ((13) (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0))) ((14) (lambda (eta-0) (Binary-Utils-tag arg-0 14 eta-0))) ((15) (lambda (eta-0) (Binary-Utils-tag arg-0 15 eta-0))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-0 16 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-0 17 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-0 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 19 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__CFType 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0)))))))
-(define TTC-Core-toBuf_TTC__CDef (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-0 e-2) 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-1)))) arg-0 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0))))))))))))
-(define TTC-Core-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))) (TTC-Core-case--7830-8015 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0)))))))
+(define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((9) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__CFType 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-0 e-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((13) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 12 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 13 eta-0)))))))
+(define TTC-Core-toBuf_TTC__CDef (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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-0 e-2) 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-1)))) arg-0 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 ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0))))))))))))
+(define TTC-Core-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))) (TTC-Core-case--8123-8510 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Prelude-C-60_Ord__Nat e-4 (Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((TTC-Core-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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0)))))))
 (define TTC-Core-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) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-18) eta-0)))))))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-1 12 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-1 13 eta-0))) ((22) (lambda (eta-0) (Binary-Utils-tag arg-1 17 eta-0))) ((24) (lambda (eta-0) (Binary-Utils-tag arg-1 19 eta-0))) ((25) (lambda (eta-0) (Binary-Utils-tag arg-1 20 eta-0))) ((26) (lambda (eta-0) (Binary-Utils-tag arg-1 22 eta-0))) ((27) (lambda (eta-0) (Binary-Utils-tag arg-1 23 eta-0))) ((28) (lambda (eta-0) (Binary-Utils-tag arg-1 24 eta-0))) ((29) (lambda (eta-0) (Binary-Utils-tag arg-1 25 eta-0))) ((30) (lambda (eta-0) (Binary-Utils-tag arg-1 26 eta-0))) ((31) (lambda (eta-0) (Binary-Utils-tag arg-1 27 eta-0))) ((32) (lambda (eta-0) (Binary-Utils-tag arg-1 32 eta-0))) ((33) (lambda (eta-0) (Binary-Utils-tag arg-1 33 eta-0))) ((34) (lambda (eta-0) (Binary-Utils-tag arg-1 34 eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 99 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 ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-20) eta-0))))))))))))))))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-3) eta-0)))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-4) eta-0)))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-6) eta-0)))))))) ((4) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-7) eta-0)))))))) ((6) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-8) eta-0)))))))) ((7) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-9) eta-0)))))))) ((8) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 37 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0)))))))) ((9) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 38 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-11) eta-0)))))))) ((10) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-12) eta-0)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-13) eta-0)))))))) ((12) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-14) eta-0)))))))) ((13) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-15) eta-0)))))))) ((14) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-16) eta-0)))))))) ((15) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-17) eta-0)))))))) ((19) (lambda (eta-0) (Binary-Utils-tag arg-1 14 eta-0))) ((20) (lambda (eta-0) (Binary-Utils-tag arg-1 15 eta-0))) ((21) (lambda (eta-0) (Binary-Utils-tag arg-1 16 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 101 eta-0))))))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((23) (lambda (eta-0) (Binary-Utils-tag arg-1 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 100 eta-0))))))(else (blodwen-error-quit "Nat case not covered"))))))))))))))))))
 (define TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-2 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-2 2 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 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 ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-4) eta-0))))))))))))))
-(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0)))))))
-(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (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 ((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 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0))))))))))))
-(define TTC-Core-toBuf_TTC__C-40CExpC-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) 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 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-21 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-26 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) 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 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-31) 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (let ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0)))))))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0)))))))
+(define TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 (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 ((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 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) 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 ((act-26 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Name arg-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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 e-8) eta-0)))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 e-13) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CExpC-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-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 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) 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 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-21 eta-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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-26 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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) 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 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-31) 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) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Name arg-1 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 (let ((act-25 ((TTC-Core-toBuf_TTC__FC 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 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 (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 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 ((TTC-Core-toBuf_TTC__FC arg-1 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 ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0)))))))))))))))))
 (define TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Constant arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2) eta-0)))))))))))
-(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-1)))) arg-1 e-2) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0)))))))))))))))))))))
-(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0))))))))))))
+(define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-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 ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-1)))) arg-1 e-2) 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-1 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 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-4) eta-0)))))))))))))))))))))
+(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 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 ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (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 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount 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 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-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 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0))))))))))))
 (define TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 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 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9) eta-0)))))))))))))))
 (define TTC-Core-fromBuf_TTC__Visibility (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Visibility" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__UseSide (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "UseSide" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__TypeFlags (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 ((TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 ((TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__Totality (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
 (define TTC-Core-fromBuf_TTC__TotalReq (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "TotalReq" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__Terminating (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "Terminating" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__SizeChange (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "SizeChange" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__SizeChange arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8243 eta-0)))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__SizeChange arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__SizeChange arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2106 eta-0)))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__SizeChange arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 (vector 0 e-5 e-6))))))))))))))
+(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 2) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__RewriteNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "PartialReason" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "PartialReason" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__PairNames (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 TTC-Core-fromBuf_TTC__PMDefInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-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 (vector 0 e-5 e-6))))))))))))))
 (define TTC-Core-fromBuf_TTC__NameType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "NameType" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Name" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Name" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__LazyReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "LazyReason" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "HoleInfo" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1)))) arg-8243 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 ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-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))) ((TTC-Core-case--13578-14008 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0))))))))))))))))))))))))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-corrupt 'erased "FC" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1)))) arg-2106 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 ((refs (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-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))) ((TTC-Core-case--14322-15092 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0))))))))))))))))))))))))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-corrupt 'erased "FC" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__DefFlag (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (vector 0 )))) ((equal? sc1 10) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "DefFlag" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) arg-8243 eta-0)))) (lambda (y) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244 arg-8245))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0)))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) arg-8244 eta-1)))) (lambda (y) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8241 arg-8244))) (lambda (arg-8244) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8244))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8245) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-8245))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1)))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-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 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-corrupt 'erased "Def" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-corrupt 'erased "Covering" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) arg-2106 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107 arg-2108))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) arg-2107 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2104 arg-2107))) (lambda (arg-2107) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2107))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2108) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2108))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1)))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-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 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-corrupt 'erased "Def" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-corrupt 'erased "Covering" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__Constant (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 2) (let ((act-25 (Binary-Utils-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 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-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 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-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 4 e-6)))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-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 6) (let ((act-25 (Binary-Utils-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 7) (let ((act-25 (Binary-Utils-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 7 e-6)))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-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 8 e-6)))))))) ((equal? sc1 9) (vector 1 (vector 9 ))) ((equal? sc1 10) (vector 1 (vector 10 ))) ((equal? sc1 11) (vector 1 (vector 11 ))) ((equal? sc1 12) (vector 1 (vector 12 ))) ((equal? sc1 13) (vector 1 (vector 13 ))) ((equal? sc1 14) (vector 1 (vector 14 ))) ((equal? sc1 15) (vector 1 (vector 15 ))) ((equal? sc1 16) (vector 1 (vector 16 ))) ((equal? sc1 17) (vector 1 (vector 17 ))) ((equal? sc1 18) (vector 1 (vector 18 ))) ((equal? sc1 19) (vector 1 (vector 19 )))(else (Binary-Utils-corrupt 'erased "Constant" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 )))(else (Binary-Utils-corrupt 'erased "CG" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CFType arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-8244 eta-1))))) arg-8243 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 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 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 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 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 (Binary-Utils-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8177-8638 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10366-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) (TTC-Core-n--9837-10367-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--9837-10368-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CG" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 9 ))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 10 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 11 e-6)))))))) ((equal? sc1 10) (let ((act-25 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CFType arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2107 eta-1))))) arg-2106 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 12 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 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 13 e-6 e-7))))))))))))) ((equal? sc1 12) (vector 1 (vector 7 ))) ((equal? sc1 13) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 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 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 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 (Binary-Utils-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 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 ((idx (Prelude-fromInteger_Num__Nat (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--8496-9194 arg-1 arg-0 e-5 bind-0 e-6 idx (TTC-Core-getName idx arg-0)) ext-0))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11078-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) (TTC-Core-n--10285-11079-fromBuf2 arg-1 arg-0 eta-0)))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (lambda (eta-0) (TTC-Core-n--10285-11080-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
 (define TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-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 (vector-ref sc2 2))) ((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 (Binary-Utils-corrupt 'erased "PiInfo" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 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 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CaseTree" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "CaseAlt" ext-0)))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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)) ((TTC-Core-case--11178-11394 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CExp" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 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 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CaseTree" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-corrupt 'erased "CaseAlt" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (Binary-Utils-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)) ((TTC-Core-case--11710-12192 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-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 (Binary-Utils-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 ((TTC-Core-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 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-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 (TTC-Core-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))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (TTC-Core-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 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "CExp" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (TTC-Core-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 (vector 0 e-5 e-6))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 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 ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8))))))))))))))))))))))))
-(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0)))))))))))
+(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 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 ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-7 arg-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))) (vector 1 (vector 0 e-5 e-6 e-7 e-8))))))))))))))))))))))))
+(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-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 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 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 (TTC-Core-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 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-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 (TTC-Core-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 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-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 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0)))))))))))
 (define TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-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))) (let ((act-25 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1) 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 (vector 1 e-5 e-6)))))))))))))))))))
-(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Visibility arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__UseSide arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__SizeChange arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__PartialReason arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__NameType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__LazyReason arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__DefFlag arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Constant arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CFType arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-8243)))))
-(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-8243 eta-0))))))
-(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-8240 arg-8242))) (lambda (arg-8243) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-8243)))))
+(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Visibility arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__UseSide arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__SizeChange arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__PartialReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__NameType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__LazyReason arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__DefFlag arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Constant arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CFType arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2106)))))
+(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2106 eta-0))))))
+(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2103 arg-2105))) (lambda (arg-2106) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2106)))))
 (define TTC-Core-getName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-1)) (vector 0 ))))))(else (let ((e-1 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (TTC-Core-getName e-1 e-7)))(else (let ((sc0 arg-1)) (vector 0 )))))))))))
-(define Normalise-Core-case--16992-13615 (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 arg-2))) (else (Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
-(define Normalise-Core-case--16850-13348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16754-13172 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((act-28 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8)))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16662-13086 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16570-13000 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16475-12911 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--16083-12496 (lambda (arg-0 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) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12460 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15936-12372 (lambda (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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0)))))))
-(define Normalise-Core-case--15263-12335 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs 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))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12269 (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) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12172 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12090 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--15263-12027 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5))))))
-(define Normalise-Core-case--15263-11798 (lambda (arg-0 arg-1 arg-2 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 (((arg-2 arg-10) arg-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 (((arg-6 arg-10) arg-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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11801-11666 (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 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1)))))))
-(define Normalise-Core-case--11801-11606 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
-(define Normalise-Core-case--11801-11542 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
-(define Normalise-Core-case--11797-11460 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--14037-10689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 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 (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13924-10609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14037-10689 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13814-10531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--13924-10609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13713-10455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--13814-10531 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (Normalise-Core-n--11794-10044-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13629-10383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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))) (Normalise-Core-case--13713-10455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--11794-10044-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13557-10323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Normalise-Core-case--13629-10383 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13487-10274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13423-10224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13364-10178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (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 ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (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 ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Normalise-Core-case--13315-10134 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) 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 ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (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))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13557-10323 arg-0 arg-1 arg-2 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-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11794-10096 (lambda (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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) 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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-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 ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) 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 ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (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))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13557-10323 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-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--13017-9894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12977-9848 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--11791-9818 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12762-9678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 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 ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12708-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (Normalise-Core-case--12762-9678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-case--12539-9476 (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) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11788-9444 (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 (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-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 (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 (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11785-9342 (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))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11782-9248 (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) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--12108-9111 (lambda (arg-0 arg-1 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) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--11782-8859-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-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--12068-9074 (lambda (arg-0 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) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--11782-8859-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-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11782-9045 (lambda (arg-0 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) (Normalise-Core-case--12068-9074 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--11782-8857-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-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-case--11262-8361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8))))
-(define Normalise-Core-case--11280-8291 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Normalise-Core-n--11262-8265-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13))))))
-(define Normalise-Core-case--9750-7649 (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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10)))))))))))))
-(define Normalise-Core-case--10635-7574 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7))))))))))
-(define Normalise-Core-case--9735-7151 (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
-(define Normalise-Core-case--9973-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) (vector 1 (+ 1 arg-13))))
-(define Normalise-Core-case--9992-7047 (lambda (arg-0 arg-1 arg-2 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 (+ 1 arg-14))))
-(define Normalise-Core-case--9973-6971 (lambda (arg-0 arg-1 arg-2 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9735-6955-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Normalise-Core-case--9735-6913 (lambda (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) (vector 1 (vector 0 arg-8 arg-4 arg-11))))
-(define Normalise-Core-case--9814-6859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-17)))
-(define Normalise-Core-case--9243-6352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8))))))))
-(define Normalise-Core-case--9190-6267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) 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-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 Normalise-Core-case--6507-6229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Normalise-Core-case--9190-6267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8))))))))
-(define Normalise-Core-case--9048-6142 (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) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Normalise-Core-case--6506-6110 (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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6506-6076-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) 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))) ((Normalise-Core-case--9048-6142 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--6505-6044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3)))))))
-(define Normalise-Core-case--8704-5918 (lambda (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)) (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-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7)))))))))))
-(define Normalise-Core-case--6503-5799 (lambda (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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 ((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 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 Normalise-Core-case--6502-5666 (lambda (arg-0 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Normalise-Core-case--6501-5568 (lambda (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) (Normalise-Core-evalTree arg-0 arg-1 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 Normalise-Core-case--6501-5452 (lambda (arg-0 arg-1 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-5291 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-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) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6501-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 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Normalise-Core-case--6500-5022 (lambda (arg-0 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))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased 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 Normalise-Core-case--7497-4812 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7454-4776 (lambda (arg-0 arg-1 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) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7414-4744 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--6498-4715 (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-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-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))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 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 (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
-(define Normalise-Core-case--7121-4501 (lambda (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 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
-(define Normalise-Core-case--6495-4469 (lambda (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) (Normalise-Core-case--7121-4501 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
-(define Normalise-Core-case--6493-4302 (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) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7))))))))
-(define Normalise-Core-case--6493-4193 (lambda (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) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 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 ((Normalise-Core-eval arg-0 arg-1 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 Normalise-Core-case--6493-4044 (lambda (arg-0 arg-1 arg-2 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-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 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11))))))
-(define Normalise-Core-case--6421-3849 (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
-(define Normalise-Core-case--6407-3807 (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 (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))))))))))))))
-(define Normalise-Core-case--6330-3794 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6407-3807 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 Normalise-Core-case--6334-3748 (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 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6330-3728-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
-(define Normalise-Core-case--6217-3698 (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))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0)))))))
-(define Normalise-Core-case--6238-3669 (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7))))))))))))
-(define Normalise-Core-case--6217-3643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-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 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-n--11782-8856-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3)))))))
-(define Normalise-Core-n--11262-8433-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3)))))))
-(define Normalise-Core-n--11262-8431-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) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
-(define Normalise-Core-n--11262-8432-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8431-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8431-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 ))))))
-(define Normalise-Core-n--9750-7552-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-11) (let ((sc0 arg-11)) (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-11)))))
-(define Normalise-Core-n--6504-5954-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6504-5954-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8)))))))))))))
-(define Normalise-Core-n--6330-3728-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6334-3748 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
-(define Normalise-Core-n--16992-13384-repSub (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) 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))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 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))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (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))) (vector 1 (TT-Core-apply 'erased e-10 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (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))) (vector 1 (TT-Core-apply 'erased e-16 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--16992-13384-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--16992-13383-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((act-25 ((Normalise-Core-n--16992-13384-repSub 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 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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 ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0))))))))))))
-(define Normalise-Core-n--16992-13383-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))))
-(define Normalise-Core-n--11794-10045-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-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--11794-10045-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 ))))))))))
-(define Normalise-Core-n--11791-9586-getArgPos (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) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6))))))))))))
-(define Normalise-Core-n--9735-6955-findName (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 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))) (Normalise-Core-case--9973-6971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9735-6955-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
-(define Normalise-Core-n--11262-8265-findIdx (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11280-8291 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9))))))))))))
-(define Normalise-Core-n--11794-10044-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-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 ))))))
-(define Normalise-Core-n--11782-8857-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8857-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 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11782-8856-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 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Normalise-Core-n--6506-6076-evalAll (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-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))) (let ((act-25 ((Normalise-Core-n--6506-6076-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define Normalise-Core-n--16850-13252-dumpEnv (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 ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 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 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased 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 ((Normalise-Core-n--16850-13252-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
-(define Normalise-Core-n--11782-8858-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-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--11782-8858-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 'erased e-3 e-8)))))))))))
-(define Normalise-Core-n--11782-8859-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8858-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 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11782-8858-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 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1)))))))))))
-(define Normalise-Core-n--11791-9587-convertMatches (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) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--12708-9637 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--11791-9586-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2))))))))))))
-(define Normalise-Core-n--6501-5518-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1)))))
-(define Normalise-Core-n--6493-3998-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6493-3998-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))
-(define Normalise-Core-n--6494-4400-applyToStack (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) ((0) (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 ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) 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))) ((Normalise-Core-n--6494-4400-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((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-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((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 (List-Prelude-C-43C-43 'erased e-14 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 ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Normalise-Core-n--9735-6830-addLater (lambda (arg-0 arg-1 arg-2 arg-3 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) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--9814-6859 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--9735-6830-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased)))))))))
+(define Normalise-Core-case--17369-13939 (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 arg-2))) (else (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
+(define Normalise-Core-case--17223-13646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--17121-13461 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((act-28 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--17024-13370 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16927-13279 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16827-13185 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 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 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--16421-12758 (lambda (arg-0 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) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12721 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--16273-12633 (lambda (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-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0)))))))
+(define Normalise-Core-case--15582-12595 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs 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))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12529 (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) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12432 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12350 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--15582-12287 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-2 arg-5)) (else (Normalise-Core-chkConvCaseBlock arg-0 arg-4 arg-9 arg-8 arg-7 arg-3 arg-2 arg-6 arg-5))))))
+(define Normalise-Core-case--15582-12045 (lambda (arg-0 arg-1 arg-2 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 (((arg-2 arg-10) arg-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 (((arg-6 arg-10) arg-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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12104-11909 (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 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1)))))))
+(define Normalise-Core-case--12104-11849 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
+(define Normalise-Core-case--12104-11785 (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) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
+(define Normalise-Core-case--12100-11703 (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) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14355-10931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 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 (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14242-10851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14355-10931 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14132-10773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (Normalise-Core-case--14242-10851 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--14031-10697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--14132-10773 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13947-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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))) (Normalise-Core-case--14031-10697 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (Normalise-Core-n--12097-10281-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13875-10565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Normalise-Core-case--13947-10625 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13804-10516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((_-0 (vector 1 e-1))) (Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13739-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13679-10418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (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 ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (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 ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Normalise-Core-case--13629-10373 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) 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 ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (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))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--13875-10565 arg-0 arg-1 arg-2 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-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12097-10334 (lambda (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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) 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 ((_-0 (vector 0 e-0 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((7) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-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 ((_-1 (vector 0 e-6 (vector 7 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) 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 ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (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))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--13875-10565 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-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13329-10131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13288-10084 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12094-10053 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-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) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13070-9910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 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 ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--13016-9869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (Normalise-Core-case--13070-9910 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-case--12846-9708 (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) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12091-9675 (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 (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-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 (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 (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12088-9573 (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))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12085-9478 (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) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12413-9341 (lambda (arg-0 arg-1 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) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-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-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12373-9303 (lambda (arg-0 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) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12085-9088-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-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--12085-9274 (lambda (arg-0 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) (Normalise-Core-case--12373-9303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12085-9086-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-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-case--11550-8573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8))))
+(define Normalise-Core-case--11568-8502 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13))))))
+(define Normalise-Core-case--9985-7840 (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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10)))))))))))))
+(define Normalise-Core-case--10895-7760 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 0 0 e-2 e-3 e-4 e-5 e-6 e-7))))))))))
+(define Normalise-Core-case--9970-7317 (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
+(define Normalise-Core-case--10211-7272 (lambda (arg-0 arg-1 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 (+ 1 arg-13))))
+(define Normalise-Core-case--10230-7212 (lambda (arg-0 arg-1 arg-2 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 (+ 1 arg-14))))
+(define Normalise-Core-case--10211-7135 (lambda (arg-0 arg-1 arg-2 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-12) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Normalise-Core-case--9970-7077 (lambda (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) (vector 1 (vector 0 arg-8 arg-4 arg-11))))
+(define Normalise-Core-case--10052-7023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-17)))
+(define Normalise-Core-case--9470-6506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8))))))))
+(define Normalise-Core-case--9417-6420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) 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-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 Normalise-Core-case--6714-6382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Normalise-Core-case--9417-6420 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8))))))))
+(define Normalise-Core-case--9274-6295 (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) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Normalise-Core-case--6713-6262 (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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) 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))) ((Normalise-Core-case--9274-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--6712-6194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3)))))))
+(define Normalise-Core-case--8927-6067 (lambda (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)) (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-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-11) e-7)))))))))))
+(define Normalise-Core-case--6710-5948 (lambda (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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 ((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 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased 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 Normalise-Core-case--6709-5814 (lambda (arg-0 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Normalise-Core-case--6708-5715 (lambda (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) (Normalise-Core-evalTree arg-0 arg-1 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 Normalise-Core-case--6708-5599 (lambda (arg-0 arg-1 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5438 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6708-5242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Normalise-Core-case--6707-5169 (lambda (arg-0 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))) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased 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 Normalise-Core-case--7717-4959 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7673-4922 (lambda (arg-0 arg-1 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) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7633-4889 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--6705-4860 (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-1 (vector-ref sc0 1))) (let ((redok (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-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))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 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 (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))
+(define Normalise-Core-case--7339-4645 (lambda (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 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
+(define Normalise-Core-case--6702-4613 (lambda (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) (Normalise-Core-case--7339-4645 arg-0 arg-1 'erased arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5))))))))
+(define Normalise-Core-case--6700-4445 (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) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7))))))))
+(define Normalise-Core-case--6700-4332 (lambda (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) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 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 ((Normalise-Core-eval arg-0 arg-1 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 Normalise-Core-case--6700-4175 (lambda (arg-0 arg-1 arg-2 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-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 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11))))))
+(define Normalise-Core-case--6628-3980 (lambda (arg-0 arg-1 arg-2) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
+(define Normalise-Core-case--6614-3938 (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 (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))))))))))))))
+(define Normalise-Core-case--6537-3925 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6614-3938 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 Normalise-Core-case--6541-3879 (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 (vector 0 arg-2 arg-5) arg-4)) (else (vector 1 (vector 0 arg-2 arg-3) (Normalise-Core-n--6537-3859-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
+(define Normalise-Core-case--6424-3829 (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))) (Normalise-Core-useMeta 0 arg-3 (vector 9 e-1) arg-1 arg-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-2) eta-0)))))))
+(define Normalise-Core-case--6445-3800 (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7))))))))))))
+(define Normalise-Core-case--6424-3774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-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 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-n--12085-9085-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3)))))))
+(define Normalise-Core-n--11550-8646-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3)))))))
+(define Normalise-Core-n--11550-8644-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) (Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0))))))))))
+(define Normalise-Core-n--11550-8645-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8644-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 ))))))
+(define Normalise-Core-n--9985-7738-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-11) (let ((sc0 arg-11)) (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-11)))))
+(define Normalise-Core-n--6711-6103-takeStk (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 1 (vector 0 (Vect-Data-reverse 'erased 'erased arg-8) arg-7)))(else (let ((e-0 (- arg-6 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-3 arg-4 'erased e-0 e-4 (vector 1 e-3 arg-8)))))))))))))
+(define Normalise-Core-n--6537-3859-set (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--6541-3879 arg-0 arg-1 e-6 e-7 e-3 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
+(define Normalise-Core-n--17369-13682-repSub (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) 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))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 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))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (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))) (vector 1 (TT-Core-apply 'erased e-10 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (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))) (vector 1 (TT-Core-apply 'erased e-16 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Normalise-Core-n--17369-13682-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17369-13681-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((act-25 ((Normalise-Core-n--17369-13682-repSub 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 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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 ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0))))))))))))
+(define Normalise-Core-n--17369-13681-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-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))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0))))))))
+(define Normalise-Core-n--12097-10282-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-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))(else (vector 0 )))))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12097-10282-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6)))(else (vector 0 ))))))))))
+(define Normalise-Core-n--12094-9818-getArgPos (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) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6))))))))))))
+(define Normalise-Core-n--9970-7119-findName (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 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))) (Normalise-Core-case--10211-7135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--9970-7119-findName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
+(define Normalise-Core-n--11550-8476-findIdx (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--11568-8502 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Prelude-C-61C-61_Eq__Nat e-6 arg-9))))))))))))
+(define Normalise-Core-n--12097-10281-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-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2)))(else (vector 0 ))))))
+(define Normalise-Core-n--12085-9086-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9086-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 e-3 e-7 arg-14) (lambda (rest) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12085-9085-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 e-2 e-6 (List-Prelude-C-43C-43 'erased e-3 arg-0) (List-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Normalise-Core-n--6713-6226-evalAll (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-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))) (let ((act-25 ((Normalise-Core-n--6713-6226-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define Normalise-Core-n--17223-13546-dumpEnv (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 ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 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 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased 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 ((Normalise-Core-n--17223-13546-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
+(define Normalise-Core-n--12085-9087-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-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12085-9087-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 'erased e-3 e-8)))))))))))
+(define Normalise-Core-n--12085-9088-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-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 'erased arg-12 e-2) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12085-9087-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 'erased arg-13 e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1)))))))))))
+(define Normalise-Core-n--12094-9819-convertMatches (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) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--13016-9869 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12094-9818-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2))))))))))))
+(define Normalise-Core-n--6708-5665-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1)))))
+(define Normalise-Core-n--6700-4129-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-2 arg-1 arg-9 arg-10 e-2) (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))
+(define Normalise-Core-n--6701-4543-applyToStack (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) ((0) (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 ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) 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))) ((Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((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-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-29 e-30) e-8)))))) ((0) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-33 e-34 'erased (List-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((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 (List-Prelude-C-43C-43 'erased e-14 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 ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Normalise-Core-n--9970-6994-addLater (lambda (arg-0 arg-1 arg-2 arg-3 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) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Normalise-Core-case--10052-7023 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-2 e-3 'erased (Normalise-Core-n--9970-6994-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased)))))))))
 (define Normalise-Core-quote_Quote__Term (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-quoteGen_Quote__Term arg-0 e-5 arg-1 arg-2 arg-3 ext-0))))))))
 (define Normalise-Core-quote_Quote__NF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Normalise-Core-quoteGen_Quote__NF arg-0 e-5 arg-1 arg-2 arg-3) ext-0))))))))
 (define Normalise-Core-quote_Quote__Closure (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-quoteGen_Quote__Closure arg-0 e-5 arg-1 arg-2 arg-3 ext-0))))))))
@@ -3313,27 +3355,27 @@
 (define Normalise-Core-convert_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Normalise-Core-convGen_Convert__NF arg-0 e-5 arg-1 arg-2 arg-3 arg-4) ext-0))))))))
 (define Normalise-Core-convert_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (Normalise-Core-convGen_Convert__Closure arg-0 e-5 arg-1 arg-2 arg-3 arg-4 ext-0))))))))
 (define Normalise-Core-convGen_Convert__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 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 ((act-25 ((Normalise-Core-nf arg-0 arg-2 arg-3 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0)))))))))))))
-(define Normalise-Core-convGen_Convert__NF (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-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "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 ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) 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-99 arg-2) 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-108 arg-2) 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (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-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (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-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12090 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12172 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12269 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12335 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15263-12460 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))
+(define Normalise-Core-convGen_Convert__NF (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-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "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 ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) 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-99 arg-2) 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-108 arg-2) 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (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-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (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-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (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-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 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) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12350 arg-0 e-53 e-56 e-12 e-15 e-16 e-14 e-13 e-57 e-55 e-54 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12432 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12529 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12595 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--15582-12721 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))
 (define Normalise-Core-convGen_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 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 ((Normalise-Core-evalClosure arg-0 arg-2 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))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0)))))))))))))
-(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))))
-(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (Normalise-Core-quoteGen_Quote__NF vars arg-6622 arg-6624 arg-6625 arg-6627)))))))))
-(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))))
-(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157 eta-0)))))))))))
-(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (Normalise-Core-convGen_Convert__NF vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157))))))))))
-(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8145) (lambda (arg-8146) (lambda (arg-8148) (lambda (arg-8149) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8145 arg-8146 arg-8148 arg-8149 eta-0))))))) (lambda (vars) (lambda (arg-8151) (lambda (arg-8153) (lambda (arg-8154) (lambda (arg-8156) (lambda (arg-8157) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8151 arg-8153 arg-8154 arg-8156 arg-8157 eta-0)))))))))))
-(define Normalise-Core-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))) (Normalise-Core-case--6217-3643 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6217-3698 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))))
+(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))))
+(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (Normalise-Core-quoteGen_Quote__NF vars arg-6780 arg-6782 arg-6783 arg-6785)))))))))
+(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))))
+(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0)))))))))))
+(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (Normalise-Core-convGen_Convert__NF vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367))))))))))
+(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8355) (lambda (arg-8356) (lambda (arg-8358) (lambda (arg-8359) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8355 arg-8356 arg-8358 arg-8359 eta-0))))))) (lambda (vars) (lambda (arg-8361) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8361 arg-8363 arg-8364 arg-8366 arg-8367 eta-0)))))))))))
+(define Normalise-Core-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))) (Normalise-Core-case--6424-3774 e-0 arg-4 arg-3 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 4))) e-3))))))(else (Normalise-Core-case--6424-3829 arg-4 arg-3 arg-2 arg-1 (Context-Core-getNameID arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))))
 (define Normalise-Core-updateLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 1 arg-8) e-5)))(else arg-7))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-0 'erased e-10 arg-8)))))(else arg-7)))))))))
-(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6330-3794 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2))))))))
-(define Normalise-Core-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8265-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11262-8432-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11262-8433-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) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
-(define Normalise-Core-tryAlt (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) ((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-10)) (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))) (Normalise-Core-case--6501-5095 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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))) (Normalise-Core-case--6501-5189 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6501-5291 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6501-5452 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6501-5568 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6501-5518-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))
+(define Normalise-Core-updateLimit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (Normalise-Core-case--6537-3925 arg-2 arg-1 (Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2))))))))
+(define Normalise-Core-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8476-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11550-8645-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11550-8646-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) (Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
+(define Normalise-Core-tryAlt (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) ((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-10)) (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))) (Normalise-Core-case--6708-5242 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__Int e-31 e-5)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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))) (Normalise-Core-case--6708-5336 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (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-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--6708-5438 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-61C-61_Eq__String (TT-Core-show_Show__Constant e-16) e-47)))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--6708-5599 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(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-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--6708-5715 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6708-5665-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))
 (define Normalise-Core-toClosure (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 ) arg-1 (vector 0 ) arg-2 arg-3)))
-(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6504-5954-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 ))))
-(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
-(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 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)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--16992-13384-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0)))))))))))
+(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--6711-6103-takeStk arg-0 arg-1 'erased arg-4 arg-3 'erased arg-3 arg-4 (vector 0 ))))
+(define Normalise-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
+(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 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)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17369-13682-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0)))))))))))
 (define Normalise-Core-replace (lambda (arg-0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (Normalise-Core-replaceC-39 arg-0 0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0)))
 (define Normalise-Core-quotePi (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Normalise-Core-quoteHead (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))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--9735-6913 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9735-6830-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (Normalise-Core-case--9735-7151 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9735-6955-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 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-4 e-9 e-10 e-5))))))))))))))))
-(define Normalise-Core-quoteGenNF (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 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 (Normalise-Core-genName arg-2 "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-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (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))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 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 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 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 ((Normalise-Core-quoteArgs 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-10 (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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-16 (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9750-7552-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9750-7552-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-36 (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 Normalise-Core-quoteHead (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))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--9970-7077 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-6994-addLater arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (Normalise-Core-case--9970-7317 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--9970-7119-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 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-4 e-9 e-10 e-5))))))))))))))))
+(define Normalise-Core-quoteGenNF (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 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 (Normalise-Core-genName arg-2 "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-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (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))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 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 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 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 ((Normalise-Core-quoteArgs 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-10 (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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-16 (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--9985-7738-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-apply 'erased e-36 (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 Normalise-Core-quoteGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6)))))))))
 (define Normalise-Core-quoteBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((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) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 e-5 e-8 e-9))))))))))))))))) ((2) (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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF 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))) (vector 1 (vector 5 e-21 e-5)))))))))))))))
 (define Normalise-Core-quoteArgs (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 e-2) 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 ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (let ((act-26 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) 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-6 e-7)))))))))))))))))))))))))
@@ -3347,20 +3389,20 @@
 (define Normalise-Core-normalise (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf 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))) (Normalise-Core-quote_Quote__NF arg-0 arg-1 arg-2 e-5 ext-0))))))))
 (define Normalise-Core-nfOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-eval arg-2 arg-1 arg-0 (vector 0 ) arg-3 (vector 0 ) arg-4 (vector 0 ))))
 (define Normalise-Core-nf (lambda (arg-0 arg-1 arg-2 arg-3) (Normalise-Core-eval arg-1 (Value-Core-defaultOpts) arg-0 (vector 0 ) arg-2 (vector 0 ) arg-3 (vector 0 ))))
-(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16570-13000 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16475-12911 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16754-13172 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16662-13086 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
-(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16850-13348 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16927-13279 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--16827-13185 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17121-13461 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17024-13370 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
+(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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))) ((Normalise-Core-case--17223-13646 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-2)) ext-0))))))))
 (define Normalise-Core-isFromTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define Normalise-Core-gnf (lambda (arg-0 arg-1 arg-2) (vector 0 0 (lambda (eta-0) (vector 1 arg-2)) (lambda (c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox 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))) ((Normalise-Core-nf arg-0 e-5 arg-1 arg-2) eta-0)))))))))))
 (define Normalise-Core-glueBack (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 1 (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-3 eta-0))))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-3))))))
 (define Normalise-Core-getValArity (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 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))) (vector 1 (+ 1 e-9))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0)))))))
 (define Normalise-Core-getTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define Normalise-Core-getNF (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) (e-3 arg-1)))))
-(define Normalise-Core-getMatchingVars (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-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(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-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--11788-9444 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-getMatchingVars (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-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(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-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--12091-9675 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Normalise-Core-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 e-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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 e-1 e-3 e-7) eta-0))) (else (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Normalise-Core-getMatchingVarAlt (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (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))) (Normalise-Core-case--11782-9045 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-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-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--11782-9248 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-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-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Normalise-Core-getMatchingVarAlt (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (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))) (Normalise-Core-case--12085-9274 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-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-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--12085-9478 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-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-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Normalise-Core-getCaseBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-6)) (else (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (arg-7) (vector 1 e-2 arg-7)) (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased e-3 e-11 arg-6)))))))))))))
 (define Normalise-Core-getArity (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf 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))) ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) ext-0))))))))
 (define Normalise-Core-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 (b+ 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)))))))))))))
@@ -3368,31 +3410,31 @@
 (define Normalise-Core-gErased (lambda (arg-0 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 Normalise-Core-findAlt (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) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-tryAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 e-1)))) ((1) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0)) (else (vector 1 (vector 2 ))))))))))))))))))
 (define Normalise-Core-evalWithOpts (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (Normalise-Core-eval arg-2 arg-3 arg-0 arg-1 ext-0 ext-1 ext-2 ext-3)))
-(define Normalise-Core-evalTree (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 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) 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 ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--6503-5799 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Normalise-Core-evalTree (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 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) 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 ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--6710-5948 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
 (define Normalise-Core-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-5 arg-7 e-0 e-1 arg-8)))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 3 arg-5 arg-7 e-2 e-3 arg-8)))))) ((0) (lambda (eta-0) (vector 1 (arg-9))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-0)) (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 ((redok (Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc2 arg-0)) (let ((e-2 (vector-ref sc2 3))) e-2)) (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3))) (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)) (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))))))) (let ((sc2 redok)) (cond ((equal? sc2 0) (let ((act-25 ((Normalise-Core-useMeta (let ((sc3 e-1)) (let ((e-15 (vector-ref sc3 16))) e-15)) arg-5 arg-7 arg-0 arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-updateLimit arg-6 arg-7 e-2) eta-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))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-3 e-3 arg-4 arg-5 (let ((sc7 e-1)) (let ((e-21 (vector-ref sc7 8))) e-21)) (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17)) (let ((sc7 e-1)) (let ((e-11 (vector-ref sc7 12))) e-11)) arg-8 arg-9) eta-0))) (else (vector 1 (arg-9)))))))))))) (else (vector 1 (arg-9))))))))))) (else (vector 1 (arg-9)))))))) (else (vector 1 (arg-9))))))))))))))))
-(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6506-6110 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5))))
+(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--6713-6262 arg-0 arg-1 arg-3 arg-6 arg-5 arg-2 arg-4 (Normalise-Core-takeFromStack arg-0 arg-1 'erased arg-2 arg-5))))
 (define Normalise-Core-evalMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-3 0 arg-4 (vector 1 ) (vector 9 arg-6) (List-Prelude-C-43C-43 'erased arg-7 arg-8) (lambda () (vector 1 arg-4 (vector 2 arg-5 arg-6 arg-7) arg-8)))))
-(define Normalise-Core-evalLocal (lambda (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-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--6495-4469 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14)))))))))))))
-(define Normalise-Core-evalLocClosure (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))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6494-4400-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6)))))))
-(define Normalise-Core-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) (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))) (Normalise-Core-case--6507-6229 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11))))))))
-(define Normalise-Core-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) (Normalise-Core-case--6500-5022 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5))))
+(define Normalise-Core-evalLocal (lambda (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-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--6702-4613 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Prelude-C-38C-38 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (lambda () (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (lambda () (Maybe-Data-fromMaybe 'erased (lambda () 0) arg-7))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (let ((sc2 arg-11)) (let ((e-8 (vector-ref sc2 1))) (Normalise-Core-evalLocClosure arg-0 arg-1 arg-3 arg-5 arg-6 arg-7 arg-10 e-8))))(else (let ((e-4 (- arg-8 1))) (let ((sc1 arg-11)) (let ((e-14 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 e-3 arg-5 arg-6 arg-7 e-4 'erased arg-10 e-14)))))))))))))
+(define Normalise-Core-evalLocClosure (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))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-evalWithOpts arg-2 e-1 arg-0 e-2 e-4 e-3 e-5 arg-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (Normalise-Core-n--6701-4543-applyToStack arg-0 arg-1 arg-2 e-7 arg-6 arg-5 arg-4 arg-3 e-7 arg-6)))))))
+(define Normalise-Core-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) (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))) (Normalise-Core-case--6714-6382 arg-0 arg-1 arg-2 e-1 e-3 e-4 e-2 e-0 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 (Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Prelude-C-124C-124 (Prelude-not (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-11 (vector-ref sc1 2))) e-11)) (lambda () (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5))))))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11))))))))
+(define Normalise-Core-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) (Normalise-Core-case--6707-5169 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5))))
 (define Normalise-Core-evalClosure (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 ((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))) (Normalise-Core-eval arg-1 e-2 arg-0 e-1 e-4 e-3 e-5 (vector 0 )))))))) (else (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-7))))))))
 (define Normalise-Core-evalArg (lambda (arg-0 arg-1 arg-2) (Normalise-Core-evalClosure arg-0 arg-1 arg-2)))
-(define Normalise-Core-eval (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((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))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6493-3998-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((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-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) 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 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6493-4044 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-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 () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((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))) (Normalise-Core-case--6493-4193 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (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 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 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))) (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-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 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) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((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 Normalise-Core-eval (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((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))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6700-4129-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((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-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) 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 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--6700-4175 arg-0 arg-1 arg-2 arg-3 e-17 e-19 e-56 e-57 e-55 b e-16 arg-7 arg-5 arg-4 (Prelude-C-38C-38 (Prelude-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 () (Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((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))) (Normalise-Core-case--6700-4332 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (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 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 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))) (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-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 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) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((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 Normalise-Core-convert (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6)))))))))
 (define Normalise-Core-convGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) ((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7))))))))))
-(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 arg-5)) (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))) (Normalise-Core-case--11801-11542 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--11801-11606 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--11801-11666 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))
-(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact 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) ((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 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (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 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) 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))) ((Normalise-Core-n--11791-9587-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 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 Normalise-Core-chkConvHead (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-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--11797-11460 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) 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-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 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-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 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-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 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-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 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) 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 ((_-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))) ((Normalise-Core-case--13557-10323 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 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))) eta-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 (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 arg-5)) (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))) (Normalise-Core-case--12104-11785 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (Normalise-Core-case--12104-11849 arg-0 e-7 e-6 e-5 e-15 e-14 e-13 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-5 e-13))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))))(else (Normalise-Core-case--12104-11909 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5))))))))
+(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact 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) ((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 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (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 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) 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))) ((Normalise-Core-n--12094-9819-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 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 Normalise-Core-chkConvHead (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-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (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-5)) (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))) (Normalise-Core-case--12100-11703 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) 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-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 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-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 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-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 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-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 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) 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 ((_-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))) ((Normalise-Core-case--13875-10565 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 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))) eta-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 (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Normalise-Core-argsFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 (vector 0 ) arg-4))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-argsFromStack arg-0 arg-1 'erased e-3 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-5 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-6 e-5) e-4))))))))))))))))))
 (define Normalise-Core-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-1 arg-2 arg-3 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-3 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))) (vector 1 (Prelude-C-38C-38 e-5 (lambda () e-8)))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Normalise-Core-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.Value.Closure" arg-0))))
-(define Primitives-Core-case--5661-1411 (lambda (arg-0 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 7 (string-ref arg-2 arg-4))))) (else (vector 0 ))))))
-(define Primitives-Core-case--5403-1164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ arg-3 (Prelude-mod_Integral__Integer arg-1 arg-3))))))))))
-(define Primitives-Core-case--5326-1093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 4 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 4 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
-(define Primitives-Core-case--5249-1022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 3 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 3 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
-(define Primitives-Core-case--5172-951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 arg-3))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ arg-3 (Prelude-mod_Integral__Int arg-1 arg-3) 63)))))))))
+(define Primitives-Core-case--5781-1385 (lambda (arg-0 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 7 (string-ref arg-2 arg-4))))) (else (vector 0 ))))))
+(define Primitives-Core-case--5535-1142 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 5 (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))) (else (vector 1 (vector 8 arg-2 (vector 5 (+ (Primitives-Core-b64max) (Prelude-mod_Integral__Integer arg-1 (Primitives-Core-b64max)))))))))))
+(define Primitives-Core-case--5470-1082 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b32max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b32max)) 63)))))))))
+(define Primitives-Core-case--5405-1022 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b16max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b16max)) 63)))))))))
+(define Primitives-Core-case--5340-962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (vector 8 arg-2 (vector 2 (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)))))) (else (vector 1 (vector 8 arg-2 (vector 2 (b+ (Primitives-Core-b8max) (Prelude-mod_Integral__Int arg-1 (Primitives-Core-b8max)) 63)))))))))
 (define Primitives-Core-unaryOp (lambda (arg-0 arg-1 arg-2) (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 ((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)) (case (vector-ref sc2 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) (arg-0 e-6)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Prim-Primitives-Core-type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Prim-Primitives-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
@@ -3402,17 +3444,17 @@
 (define Primitives-Core-strSubstr (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (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) ((6) (let ((e-23 (vector-ref sc8 1))) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (string-substr e-7 e-15 e-23)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strReverse (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-reverse e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strLength (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Nat_Int (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5661-1411 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-strIndex (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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)) (case (vector-ref sc6 0) ((0) (Primitives-Core-case--5781-1385 'erased e-13 e-7 e-5 e-15 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int e-15 0) (lambda () (Prelude-C-60_Ord__Nat (Prelude-cast_Cast__Int_Integer e-15) (Prelude-length e-7))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strHead (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 "") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 0 ))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 ))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (string-ref e-7 0)))))(else (vector 0 )))))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strCons (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((7) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-strCons e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-strAppend (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((6) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (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) ((6) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Strings-Prelude-C-43C-43 e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftR e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shr e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-shr e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-shr e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-shr e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-shr e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftL e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (blodwen-bits-shl e-2 e-8 63) 256)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (blodwen-bits-shl e-3 e-9 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (blodwen-bits-shl e-4 e-10 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (blodwen-shl e-5 e-11) 18446744073709551616)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftL e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (blodwen-bits-shl e-2 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (blodwen-bits-shl e-3 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (blodwen-bits-shl e-4 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (blodwen-shl e-5 e-11) (Primitives-Core-b64max))))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-prim (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "prim__" arg-0))))
 (define Primitives-Core-predTy (lambda (arg-0 arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (vector 9 (FC-Core-emptyFC) arg-1))))
 (define Primitives-Core-opName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "add_" (TT-Core-show_Show__Constant e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "sub_" (TT-Core-show_Show__Constant e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "mul_" (TT-Core-show_Show__Constant e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "div_" (TT-Core-show_Show__Constant e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "mod_" (TT-Core-show_Show__Constant e-4))))) ((5) (let ((e-5 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "negate_" (TT-Core-show_Show__Constant e-5))))) ((6) (let ((e-6 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "shl_" (TT-Core-show_Show__Constant e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "shr_" (TT-Core-show_Show__Constant e-7))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "and_" (TT-Core-show_Show__Constant e-8))))) ((9) (let ((e-9 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "or_" (TT-Core-show_Show__Constant e-9))))) ((10) (let ((e-10 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "xor_" (TT-Core-show_Show__Constant e-10))))) ((11) (let ((e-11 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "lt_" (TT-Core-show_Show__Constant e-11))))) ((12) (let ((e-12 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "lte_" (TT-Core-show_Show__Constant e-12))))) ((13) (let ((e-13 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "eq_" (TT-Core-show_Show__Constant e-13))))) ((14) (let ((e-14 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "gte_" (TT-Core-show_Show__Constant e-14))))) ((15) (let ((e-15 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "gt_" (TT-Core-show_Show__Constant e-15))))) ((16) (Primitives-Core-prim "strLength")) ((17) (Primitives-Core-prim "strHead")) ((18) (Primitives-Core-prim "strTail")) ((19) (Primitives-Core-prim "strIndex")) ((20) (Primitives-Core-prim "strCons")) ((21) (Primitives-Core-prim "strAppend")) ((22) (Primitives-Core-prim "strReverse")) ((23) (Primitives-Core-prim "strSubstr")) ((24) (Primitives-Core-prim "doubleExp")) ((25) (Primitives-Core-prim "doubleLog")) ((26) (Primitives-Core-prim "doubleSin")) ((27) (Primitives-Core-prim "doubleCos")) ((28) (Primitives-Core-prim "doubleTan")) ((29) (Primitives-Core-prim "doubleASin")) ((30) (Primitives-Core-prim "doubleACos")) ((31) (Primitives-Core-prim "doubleATan")) ((32) (Primitives-Core-prim "doubleSqrt")) ((33) (Primitives-Core-prim "doubleFloor")) ((34) (Primitives-Core-prim "doubleCeiling")) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (Primitives-Core-prim (Strings-Prelude-C-43C-43 "cast_" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (TT-Core-show_Show__Constant e-17))))))) ((36) (Primitives-Core-prim "believe_me")) (else (Primitives-Core-prim "crash"))))))
 (define Primitives-Core-neg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-negate_Neg__Integer e-0))))) ((0) (let ((e-1 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-negate_Neg__Int e-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-negate_Neg__Double e-2)))))(else (vector 0 ))))))
-(define Primitives-Core-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (* e-0 e-7)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b* e-1 e-8 63) 256)))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b* e-2 e-9 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b* e-3 e-10 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (* e-4 e-11) 18446744073709551616)))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b* e-5 e-12 63)))))(else (vector 0 )))))) ((8) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-42_Num__Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (* e-0 e-7)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b* e-1 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b* e-2 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b* e-3 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (* e-4 e-11) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b* e-5 e-12 63)))))(else (vector 0 )))))) ((8) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-42_Num__Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-mod (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-mod_Integral__Integer e-0 e-2))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-mod_Integral__Int e-1 e-3))))))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Integer e-5 e-14)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__String e-6 e-15)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Char e-7 e-16)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Int 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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Integer e-5 e-14)))))(else (vector 0 )))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__String e-6 e-15)))))(else (vector 0 )))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Char e-7 e-16)))))(else (vector 0 )))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
@@ -3435,7 +3477,7 @@
 (define Primitives-Core-doubleASin (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-asin eta-0)) ext-0)))
 (define Primitives-Core-doubleACos (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-acos eta-0)) ext-0)))
 (define Primitives-Core-div (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-div_Integral__Integer e-0 e-3))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 0) (vector 0 ))(else (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-div_Integral__Int e-1 e-4))))))))(else (vector 0 )))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-47_Fractional__Double e-2 e-5)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))
+(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))
 (define Primitives-Core-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-2) (vector 9 (FC-Core-emptyFC) arg-3))))))
 (define Primitives-Core-constTy (lambda (arg-0 arg-1 arg-2) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (vector 9 (FC-Core-emptyFC) arg-2)))))
 (define Primitives-Core-cmpTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 (vector 10 ))))
@@ -3445,91 +3487,95 @@
 (define Primitives-Core-castInt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-7))))(else (vector 0 )))))) ((2) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-8))))(else (vector 0 )))))) ((3) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-9))))(else (vector 0 )))))) ((4) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 e-10))))(else (vector 0 )))))) ((8) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Double_Int e-11)))))(else (vector 0 )))))) ((7) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__Char_Int e-12)))))(else (vector 0 )))))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 0 (Prelude-cast_Cast__String_Int e-13)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-castDouble (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Int_Double e-7)))))(else (vector 0 )))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__Integer_Double e-8)))))(else (vector 0 )))))) ((6) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 8 (Prelude-cast_Cast__String_Double e-9)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-castChar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 7 (Prelude-cast_Cast__Int_Char e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 256)) (Primitives-Core-case--5172-951 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 18446744073709551616)) (Primitives-Core-case--5403-1164 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 4294967296)) (Primitives-Core-case--5326-1093 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (let ((max 65536)) (Primitives-Core-case--5249-1022 'erased e-7 e-5 max (Prelude-C-62_Ord__Integer e-7 0))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits8 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5340-962 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits64 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5535-1142 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits32 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5470-1082 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Primitives-Core-castBits16 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Primitives-Core-case--5405-1022 'erased e-7 e-5 (Prelude-C-62_Ord__Integer e-7 0)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Primitives-Core-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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-xor e-0 e-4)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-xor e-1 e-5)))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-xor e-2 e-6)))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-xor e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-or e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-or e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-or e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-or e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-or e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-or e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
 (define Primitives-Core-binOp (lambda (arg-0 arg-1 arg-2) (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))))
+(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))))
 (define Primitives-Core-believeMe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((3) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((8) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((10) (let ((e-29 (vector-ref sc3 1))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 10 e-29)))(else (let ((sc4 e-11)) (vector 0 )))))))(else (let ((sc3 e-11)) (vector 0 ))))))))))))))
 (define Primitives-Core-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-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-and e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-and e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-and e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-and e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-and e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-and e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Primitives-Core-b8max (lambda () 256))
+(define Primitives-Core-b64max (lambda () 18446744073709551616))
+(define Primitives-Core-b32max (lambda () 4294967296))
+(define Primitives-Core-b16max (lambda () 65536))
 (define Prim-Primitives-Core-arity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Primitives-Core-arithTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 arg-0)))
 (define Primitives-Core-allPrimitives (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 0 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 1 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 2 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 3 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 4 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 5 t) (Primitives-Core-predTy t t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 18 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 6 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 7 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 8 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 9 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 10 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 0 )))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 11 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 12 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 13 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 14 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 15 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 16 ) (Primitives-Core-predTy (vector 16 ) (vector 10 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 17 ) (Primitives-Core-predTy (vector 16 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 0) (vector 18 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (Primitives-Core-constTy (vector 16 ) (vector 10 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (Primitives-Core-constTy (vector 17 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (Primitives-Core-arithTy (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 22 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (Primitives-Core-constTy3 (vector 10 ) (vector 10 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (Primitives-Core-believeMeTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 37 ) (Primitives-Core-crashTy) (TT-Core-notCovering)) (vector 0 ))))))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 24 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 25 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 26 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 27 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 28 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 29 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 30 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 31 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 32 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 33 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 34 ) (Primitives-Core-doubleTy) (TT-Core-isTotal)) (vector 0 )))))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 16 )) (Primitives-Core-predTy t (vector 16 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 11 )) (Primitives-Core-predTy t (vector 11 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 10 )) (Primitives-Core-predTy t (vector 10 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 18 )) (Primitives-Core-predTy t (vector 18 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 0 ))))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 17 )) (Primitives-Core-predTy t (vector 17 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 0 )))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 12 )) (Primitives-Core-predTy t (vector 12 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 13 )) (Primitives-Core-predTy t (vector 13 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 14 )) (Primitives-Core-predTy t (vector 14 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 ))) (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 15 )) (Primitives-Core-predTy t (vector 15 )) (TT-Core-isTotal))) (vector 1 (vector 11 ) (vector 0 )))))))))))))))))))))))))))))))
-(define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ 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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (b+ e-2 e-10 63)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b+ e-3 e-11 63) 65536)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b+ e-4 e-12 63) 4294967296)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (+ e-5 e-13) 18446744073709551616)))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (b+ (Prelude-cast_Cast__Char_Int e-6) (Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Binary-Core-case--13039-13419 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Binary-Core-case--12988-13371 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Binary-Core-case--12188-13216 (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-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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Binary-Core-case--12408-13083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9)))))))))))))
-(define Binary-Core-case--12239-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) 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 ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) 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 ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc5 arg-16)) (let ((e-20 (vector-ref sc5 7))) e-20))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc6 arg-16)) (let ((e-22 (vector-ref sc6 6))) e-22))) 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 (Binary-Core-updatePair arg-9 (let ((sc7 arg-16)) (let ((e-12 (vector-ref sc7 12))) e-12)) 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 ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc8 arg-16)) (let ((e-13 (vector-ref sc8 13))) e-13)) 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 (Binary-Core-updatePrims arg-9 (let ((sc9 arg-16)) (let ((e-14 (vector-ref sc9 14))) e-14)) 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 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc10 arg-16)) (let ((e-15 (vector-ref sc10 15))) e-15)))) 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 ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc11 arg-16)) (let ((e-16 (vector-ref sc11 16))) e-16)) 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 ((act-35 ((Binary-Core-updateTransforms arg-9 (let ((sc12 arg-16)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-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 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 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 (Context-Core-resetFirstEntry arg-9 eta-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 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (let ((act-39 (set-box! arg-8 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-16)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20)))))))))))))) (vector 1 act-39)))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc17 arg-16)) (let ((e-2 (vector-ref sc17 2))) e-2)) (let ((sc17 arg-16)) (let ((e-31 (vector-ref sc17 8))) e-31)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--12239-12704 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 0 )) (else (vector 1 arg-2))))))
-(define Binary-Core-case--12188-12660 (lambda (arg-0 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12239-12704 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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 ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12239-12805 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18))))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Binary-Core-case--12131-12617 (lambda (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 1) (lambda (eta-0) (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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Binary-Utils-readFromFile arg-4 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-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12239-12704 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12239-12805 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Binary-Core-case--11927-12506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11927-12434 (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11913-12382 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
-(define Binary-Core-case--11831-12347 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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-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))) (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 arg-3 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define Binary-Core-case--11753-12281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define Binary-Core-case--11693-12215 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11669-12148 (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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
-(define Binary-Core-case--11605-12129 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11541-12067 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33) 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)))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-case--11467-12003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 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))))))))))))))))))))))))))))))
-(define Binary-Core-case--11265-11846 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 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 (vector 1 (vector 0 ))))))))))))
-(define Binary-Core-case--11277-11778 (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 Binary-Core-case--11092-11692 (lambda (arg-0 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Binary-Core-case--10993-11523 (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) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 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 (Context-Core-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))) (TTC-Core-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))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0)))))))))))))))))))))
-(define Binary-Core-case--10974-11510 (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 ((_-0 (vector 1 e-1))) (Binary-Core-case--10993-11523 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))))))
-(define Binary-Core-case--10419-10938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1))))))
-(define Binary-Core-n--9628-10186-resolved_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) 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))) ((Binary-Core-n--9628-10186-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
-(define Binary-Core-n--10033-10754-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((Context-Core-resolved_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
-(define Binary-Core-n--10033-10755-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-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 ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-1) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
-(define Binary-Core-n--10033-10753-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--9627-10158-full_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) 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))) ((Binary-Core-n--9627-10158-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
-(define Binary-Core-n--10032-10576-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((Context-Core-full_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
-(define Binary-Core-n--10032-10577-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-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 ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-1) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
-(define Binary-Core-n--10032-10575-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--11265-11769-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))) (Binary-Core-case--11277-11778 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 Binary-Core-n--11896-12367-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))) ((Binary-Core-case--11913-12382 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0))))))))
+(define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ 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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 2 (Prelude-mod_Integral__Int (b+ e-2 e-10 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 3 (Prelude-mod_Integral__Int (b+ e-3 e-11 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-mod_Integral__Int (b+ e-4 e-12 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 5 (Prelude-mod_Integral__Integer (+ e-5 e-13) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (b+ (Prelude-cast_Cast__Char_Int e-6) (Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Binary-Core-case--13593-7541 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-case--13539-7490 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 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 ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Binary-Core-case--12708-7317 (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-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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Binary-Core-case--12932-7184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9)))))))))))))
+(define Binary-Core-case--12761-6890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) 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 ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) 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 ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc5 arg-16)) (let ((e-20 (vector-ref sc5 7))) e-20))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc6 arg-16)) (let ((e-22 (vector-ref sc6 6))) e-22))) 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 (Binary-Core-updatePair arg-9 (let ((sc7 arg-16)) (let ((e-12 (vector-ref sc7 12))) e-12)) 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 ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc8 arg-16)) (let ((e-13 (vector-ref sc8 13))) e-13)) 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 (Binary-Core-updatePrims arg-9 (let ((sc9 arg-16)) (let ((e-14 (vector-ref sc9 14))) e-14)) 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 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc10 arg-16)) (let ((e-15 (vector-ref sc10 15))) e-15)))) 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 ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc11 arg-16)) (let ((e-16 (vector-ref sc11 16))) e-16)) 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 ((act-35 ((Binary-Core-updateTransforms arg-9 (let ((sc12 arg-16)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-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 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 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 (Context-Core-resetFirstEntry arg-9 eta-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 (let ((act-38 (unbox arg-8))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (let ((act-39 (set-box! arg-8 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-16)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20)))))))))))))) (vector 1 act-39)))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc17 arg-16)) (let ((e-2 (vector-ref sc17 2))) e-2)) (let ((sc17 arg-16)) (let ((e-31 (vector-ref sc17 8))) e-31)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12761-6788 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 0 )) (else (vector 1 arg-2))))))
+(define Binary-Core-case--12708-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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 ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18))))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Binary-Core-case--12650-6697 (lambda (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 1) (lambda (eta-0) (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))) (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 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Binary-Utils-readFromFile arg-4 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-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 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 ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--12761-6788 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-3 as 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))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--12761-6890 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-case--12443-6582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--12443-6510 (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))) (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--12428-6458 (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 (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))) (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 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) 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))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-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-26 (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))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-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))))))))))))))))))))))))))))))) (vector 1 act-24)))))))))
+(define Binary-Core-case--12345-6422 (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((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-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))) (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 arg-3 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define Binary-Core-case--12265-6355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (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 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define Binary-Core-case--12203-6287 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12176-6215 (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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
+(define Binary-Core-case--12109-6195 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--12042-6130 (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))) (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 ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) 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))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-case--11966-6064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 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))))))))))))))))))))))))))))))
+(define Binary-Core-case--11758-5901 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 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 (vector 1 (vector 0 ))))))))))))
+(define Binary-Core-case--11770-5830 (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 Binary-Core-case--11577-5744 (lambda (arg-0 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Binary-Core-case--11474-5563 (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) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 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 (Context-Core-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))) (TTC-Core-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))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0)))))))))))))))))))))
+(define Binary-Core-case--11454-5550 (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 ((_-0 (vector 1 e-1))) (Binary-Core-case--11474-5563 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))))))
+(define Binary-Core-case--10859-4916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1))))))
+(define Binary-Core-n--10022-4105-resolved_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) 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))) ((Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
+(define Binary-Core-n--10445-4716-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((Context-Core-resolved_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
+(define Binary-Core-n--10445-4717-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-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 ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) 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 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
+(define Binary-Core-n--10445-4715-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--10021-4076-full_aux (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 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) 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))) ((Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-2 arg-3 arg-4 (vector 1 e-5 arg-5) e-3) eta-0))))))))))))))
+(define Binary-Core-n--10444-4522-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((Context-Core-full_HasNames__Name arg-21 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))) (vector 1 (vector 1 (vector 0 e-5 e-6)))))))))))))))))))))))
+(define Binary-Core-n--10444-4523-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-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 ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-1) 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 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-21 e-2) 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 (vector 0 e-5 e-6 e-7))))))))))))))))))))))))
+(define Binary-Core-n--10444-4521-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-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 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-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 Binary-Core-n--11758-5821-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))) (Binary-Core-case--11770-5830 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 Binary-Core-n--12411-6442-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))) ((Binary-Core-case--12428-6458 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 ((act-25 ((Context-Core-resolved_HasNames__Transform arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 ((Context-Core-resolved_HasNames__Name arg-0 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))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7))))))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
-(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10033-10753-resolvedPair 'erased 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) eta-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 ((Binary-Core-n--10033-10754-resolvedRW 'erased 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) eta-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 ((Binary-Core-n--10033-10755-resolvedPrim 'erased 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) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960)))) arg-2 e-15) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960)))) arg-2 e-17) eta-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 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-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 Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9628-10186-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
+(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10445-4715-resolvedPair 'erased 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) eta-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 ((Binary-Core-n--10445-4716-resolvedRW 'erased 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) eta-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 ((Binary-Core-n--10445-4717-resolvedPrim 'erased 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) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889)))) arg-2 e-15) eta-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 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-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 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-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 Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10022-4105-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 ((act-25 ((Context-Core-full_HasNames__Transform arg-0 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 ((Context-Core-full_HasNames__Name arg-0 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))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7))))))))))))))))))))))
 (define Binary-Core-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) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) 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 e-3)))))))))))))
-(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10032-10575-fullPair 'erased 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) eta-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 ((Binary-Core-n--10032-10576-fullRW 'erased 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) eta-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 ((Binary-Core-n--10032-10577-fullPrim 'erased 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) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960)))) arg-2 e-15) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960)))) arg-2 e-17) eta-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 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-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 Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9627-10158-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
-(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960))))))
-(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-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-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-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-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
-(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) 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 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (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 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 6))) e-12)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-11 (vector-ref sc5 7))) e-11)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) 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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0))))))))))))))))))))))))))))))))))))))))
-(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-11959 arg-11960)))) 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 ((Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Binary arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__String arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-1)))) arg-8244 arg-8245 eta-0)))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-1)))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-3)))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 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 (TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CG arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Transform arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-8244 eta-1))))) arg-8243 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 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-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 arg-4)) e-7) eta-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 ((Binary-Core-n--10444-4521-fullPair 'erased 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) eta-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 ((Binary-Core-n--10444-4522-fullRW 'erased 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) eta-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 ((Binary-Core-n--10444-4523-fullPrim 'erased 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) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889)))) arg-2 e-15) eta-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 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889)))) arg-2 e-17) eta-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 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-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 Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--10021-4076-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3)))
+(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889))))))
+(define Binary-Core-__Impl_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 () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-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-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-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-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
+(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Writing " (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 " with hash " (Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) 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 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (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 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) 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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0))))))))))))))))))))))))))))))))))))))))
+(define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5888 arg-5889)))) 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 ((Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 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 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 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 (TTC-Core-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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 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 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define TTCFile-Binary-Core-version (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define TTCFile-Binary-Core-userHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
-(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Transform arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Transform arg-11959 arg-11960)))) 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))) (Binary-Core-n--11896-12367-addT e-6 e-7 e-3 arg-0 e-5 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 ((Binary-Core-updateTransforms arg-0 e-3) eta-0))))))))))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Transform arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Transform arg-5888 arg-5889)))) 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))) (Binary-Core-n--12411-6442-addT e-6 e-7 e-3 arg-0 e-5 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 ((Binary-Core-updateTransforms arg-0 e-3) eta-0))))))))))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Binary-Core-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))) (vector 0 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-5 (vector-ref sc1 1))) e-5)) e-0) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) e-1) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 3))) e-3)) e-2))))))))
-(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33) e-26 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)))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
+(define Binary-Core-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-26 (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 ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33 e-34) e-26 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))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))))))))
 (define Binary-Core-updateNameDirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-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-30 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 e-7 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((Binary-Core-updateNameDirectives arg-0 e-3) eta-0)))))))))))))))))))))
-(define Binary-Core-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 ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Options-Core-C-61C-61_Eq__CG arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Options-Core-C-47C-61_Eq__CG arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Options-Core-C-61C-61_Eq__CG arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Options-Core-C-47C-61_Eq__CG arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))))
+(define Binary-Core-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 ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Options-Core-C-61C-61_Eq__CG arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Options-Core-C-47C-61_Eq__CG arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Options-Core-C-61C-61_Eq__CG arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Options-Core-C-47C-61_Eq__CG arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (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-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 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 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))))
 (define TTCFile-Binary-Core-typeHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7))))
-(define Binary-Core-ttcVersion (lambda () 33))
+(define Binary-Core-ttcVersion (lambda () 34))
 (define TTCFile-Binary-Core-transforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-17 (vector-ref sc0 17))) e-17))))
 (define TTCFile-Binary-Core-rewritenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))
-(define Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Binary arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Binary arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__String arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-1)))) arg-8244 arg-8245 eta-0)))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-1)))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__String arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8241 arg-8244 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-8246 eta-3)))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-1)))) arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-8243 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__CG arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CG arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Transform arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Transform arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-8244 eta-1))))) arg-8243 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 (vector-ref sc21 2))) ((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 Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Binary arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Binary arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__String arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-1)))) arg-2107 arg-2108 eta-0)))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-1)))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__String arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2104 arg-2107 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2109 eta-3)))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-1)))) arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2106 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 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__CG arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CG arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Transform arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Transform arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2107 eta-1))))) arg-2106 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 (vector-ref sc21 2))) ((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 Binary-Core-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-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 (err) (lambda (eta-0) (vector 1 (vector 0 )))) ext-0)))))))) (else (vector 1 (vector 0 ))))))))))))
 (define Binary-Core-readIFaceHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-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 (err) (lambda (eta-0) (vector 1 0))) ext-0)))))))) (else (vector 1 0)))))))))))
-(define Binary-Core-readFromTTC (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-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))) ((Binary-Core-case--12131-12617 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Bool arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
+(define Binary-Core-readFromTTC (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-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))) ((Binary-Core-case--12650-6697 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
 (define TTCFile-Binary-Core-primnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-14 (vector-ref sc0 14))) e-14))))
 (define TTCFile-Binary-Core-pairnames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12))))
 (define TTCFile-Binary-Core-nextVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9))))
@@ -3538,9 +3584,9 @@
 (define TTCFile-Binary-Core-imported (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8))))
 (define TTCFile-Binary-Core-importHashes (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
 (define TTCFile-Binary-Core-ifaceHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (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-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))) ((Binary-Core-case--10993-11523 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0)))))))))))))))))
+(define Binary-Core-getSaveDefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-2 (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-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))) ((Binary-Core-case--11474-5563 e-2 e-3 arg-2 arg-1 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else ((Binary-Core-getSaveDefs e-3 arg-1 arg-2) eta-0)))))))))))))))))
 (define Binary-Core-getNSas (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-6 e-11))))))))))
-(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__String arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-8245 eta-2)))) arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-8244 eta-1))))) arg-8243 eta-0)))) arg-1 ext-0)))))))))))))))))))))))))
+(define Binary-Core-getImportHashes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__String arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2108 eta-2)))) arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2107 eta-1))))) arg-2106 eta-0)))) arg-1 ext-0)))))))))))))))))))))))))
 (define Binary-Core-getHash (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Prelude-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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-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 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0)))))))))))))))))))))
 (define TTCFile-Binary-Core-extraData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 18))) e-18))))
 (define TTCFile-Binary-Core-currentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10))))
@@ -3548,76 +3594,76 @@
 (define Binary-Core-checkTTCVersion (lambda (arg-0 arg-1 arg-2) (let ((sc0 (Prelude-C-47C-61_Eq__Int arg-1 arg-2))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 0 arg-0 arg-1 arg-2)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define TTCFile-Binary-Core-cgdirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-16 (vector-ref sc0 16))) e-16))))
 (define TTCFile-Binary-Core-autoHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6))))
-(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--10419-10938 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-2)))))(else arg-2)))))(else arg-2)))))
+(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--10859-4916 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)))))(else arg-2)))))(else arg-2)))))
 (define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-0 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-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-0 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))) (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name 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 (Context-Core-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 eta-0))))))))))))))
-(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-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 ((Context-Core-lookupContextEntry e-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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (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) 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))) ((Binary-Core-case--11265-11846 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11265-11769-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))))))))))))))))))))))
-(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((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-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))))))
-(define UnifyState-Core-case--12768-7768 (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 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-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 (vector 1 (vector 0 ))))))))))))))))
-(define UnifyState-Core-case--12768-7745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))
-(define UnifyState-Core-case--12742-7719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) 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 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--12390-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else "")))))
-(define UnifyState-Core-case--12247-7366 (lambda (arg-0 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-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12390-7418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))))
-(define UnifyState-Core-case--12198-7228 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-8 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;  = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\xa;\x9;when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--11837-6857-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12390-7418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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 (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--12150-7187 (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))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12198-7228 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))))))))
-(define UnifyState-Core-case--11837-7143 (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 )))) (else (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (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) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12198-7228 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0))))))))))))))))))))))
-(define UnifyState-Core-case--11863-7018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-13)) (cond ((equal? sc0 0) "\xa;\x9;(lazy allowed)") (else "")))))
-(define UnifyState-Core-case--11844-6877 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\x9;Resolved") eta-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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-10 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))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-12 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;  " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-8 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\x9;    from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\xa;\x9;(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;\x9;" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0))))))))))))))
-(define UnifyState-Core-case--11642-6811 (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) (vector 0 )) (else arg-8)))))
-(define UnifyState-Core-case--11230-6495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--11230-6372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--11182-6303 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (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-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (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 ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (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-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (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-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (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 ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--11018-6269 (lambda (arg-0 arg-1 arg-2 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 ((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-3 (let ((sc2 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-0 arg-5 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 (Normalise-Core-normaliseHoles e-0 arg-5 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))) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--11018-6169 (lambda (arg-0 arg-1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10991-6129 (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) ((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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) 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 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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))) ((UnifyState-Core-case--11018-6269 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--10938-6073-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--10938-6073-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
-(define UnifyState-Core-case--10938-6110 (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 ((_-0 (vector 1 e-1))) (UnifyState-Core-case--10991-6129 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10878-6021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--10830-5996 (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))) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--10773-5931 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5)))))))
-(define UnifyState-Core-case--10716-5882 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1)))))
-(define UnifyState-Core-case--10593-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
-(define UnifyState-Core-case--10075-5418 (lambda (arg-0 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 UnifyState-Core-case--10075-5268 (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-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4))))))
-(define UnifyState-Core-case--9263-4516 (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) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9263-4454-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8)))))
-(define UnifyState-Core-case--9183-4399 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--9126-4346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9)))))))))))))
-(define UnifyState-Core-case--9088-4303 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8933-4163 (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))) (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))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8897-4130 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--8858-4097 (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-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))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-case--8813-4038 (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) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define UnifyState-Core-case--8771-4014 (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))) (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))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8720-3970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8662-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8612-3875 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8562-3829 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8511-3783 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8441-3736 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8386-3671 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define UnifyState-Core-case--8352-3627 (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9)))))))))))))
-(define UnifyState-Core-n--11642-6665-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15)))))))))))
-(define UnifyState-Core-n--9263-4454-isLet (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) 0)(else 1)))))
-(define UnifyState-Core-n--10521-5682-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10446-5603-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10345-5493-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args)))
-(define UnifyState-Core-n--10075-5246-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 ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args)))
-(define UnifyState-Core-n--11837-6857-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))) ((UnifyState-Core-case--11844-6877 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0)))))))))))))
-(define UnifyState-Core-n--10938-6073-checkRef (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-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-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 ((Context-Core-lookupContextEntry e-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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (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) 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))) ((Binary-Core-case--11758-5901 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11758-5821-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))))))))))))))))))))))
+(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((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-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased 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))))))))))))))))))))))))))))))) (vector 1 act-26))))))))))))))))))
+(define UnifyState-Core-case--13263-7931 (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 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-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 (vector 1 (vector 0 ))))))))))))))))
+(define UnifyState-Core-case--13263-7908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))
+(define UnifyState-Core-case--13235-7882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((hs (List-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) 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 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--12877-7573 (lambda (arg-0 arg-1 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) " (Invertible)") (else "")))))
+(define UnifyState-Core-case--12727-7521 (lambda (arg-0 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-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))))
+(define UnifyState-Core-case--12678-7376 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "!" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-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 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;  = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\xa;\x9;when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12304-6992-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--12877-7573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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 (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "Search " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 9 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Solved: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Bound: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-0) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) 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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--12628-7335 (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))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 bind-0 (vector 0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))))))))
+(define UnifyState-Core-case--12304-7289 (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 )))) (else (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact (vector 9 arg-0) (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) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--12678-7376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-2 bind-0 (vector 0 (let ((sc4 e-2)) (let ((e-17 (vector-ref sc4 18))) e-17)) (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) eta-0))))))))))))))))))))))
+(define UnifyState-Core-case--12332-7162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-13)) (cond ((equal? sc0 0) "\xa;\x9;(lazy allowed)") (else "")))))
+(define UnifyState-Core-case--12311-7014 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\x9;Resolved") eta-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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-10 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))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-12 eta-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))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;  " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-8 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-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))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "\x9;    from " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Prelude-C-43C-43 " =?= " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-12) (let ((sc5 e-5)) (cond ((equal? sc5 0) "\xa;\x9;(lazy allowed)") (else "")))))))) eta-0)))))))))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "\x9;\x9;" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-13) (Strings-Prelude-C-43C-43 " =?= " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-10 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-10 d x)))) e-14))))) eta-0))))))))))))))
+(define UnifyState-Core-case--12104-6946 (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) (vector 0 )) (else arg-8)))))
+(define UnifyState-Core-case--11685-6624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--11685-6498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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 ((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))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--11637-6426 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (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-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (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 ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (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-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (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-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (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 ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11470-6392 (lambda (arg-0 arg-1 arg-2 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 ((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-3 (let ((sc2 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-0 arg-5 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 (Normalise-Core-normaliseHoles e-0 arg-5 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))) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (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 (IntMap-Data-empty 'erased) 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 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 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))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 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-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11470-6291 (lambda (arg-0 arg-1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11443-6249 (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) ((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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) 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 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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))) ((UnifyState-Core-case--11470-6392 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11387-6190-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
+(define UnifyState-Core-case--11387-6230 (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 ((_-0 (vector 1 e-1))) (UnifyState-Core-case--11443-6249 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11326-6138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--11277-6112 (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))) (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))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 arg-1 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--11219-6046 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5)))))))
+(define UnifyState-Core-case--11161-5996 (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 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1)))))
+(define UnifyState-Core-case--11033-5944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
+(define UnifyState-Core-case--10501-5506 (lambda (arg-0 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 UnifyState-Core-case--10501-5351 (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-0)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-3 arg-8 arg-6 arg-4)) (else (Env-Core-abstractEnvType arg-3 arg-8 arg-6 arg-4))))))
+(define UnifyState-Core-case--9689-4599 (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) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--9689-4537-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Data-length 'erased arg-4)) arg-8)) (else arg-8)))))
+(define UnifyState-Core-case--9607-4481 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-2 (vector 0 arg-0 arg-6 1 (vector 0 ) arg-5 arg-3 arg-1))) e-5) e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9548-4427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9509-4382 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-0 e-4) e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9347-4232 (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))) (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))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9310-4198 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9269-4164 (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-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))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-case--9223-4102 (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) (UnifyState-Core-removeHole arg-1 e-1 eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define UnifyState-Core-case--9180-4077 (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))) (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))) (vector 0 (IntMap-Data-delete 'erased arg-0 e-0) e-1 (IntMap-Data-delete 'erased arg-0 e-2) (IntMap-Data-delete 'erased arg-0 e-3) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9128-4032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9069-3978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 (IntMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--9016-3934 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8963-3885 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8909-3836 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8835-3786 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8776-3717 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define UnifyState-Core-case--8741-3670 (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-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 0 e-7 e-8 e-9)))))))))))))
+(define UnifyState-Core-n--12104-6795-nameEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-6)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (Name-Core-C-61C-61_Eq__Name e-7 e-15)))))))))))
+(define UnifyState-Core-n--9689-4537-isLet (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) 0)(else 1)))))
+(define UnifyState-Core-n--10959-5780-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-5 arg-3 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10881-5697-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-7 arg-3 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10775-5581-envArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-1 0 arg-6 arg-4 (vector 0 ))))) args)))
+(define UnifyState-Core-n--10501-5329-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 ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-3 arg-0 arg-8 arg-6 (vector 0 ))))) args)))
+(define UnifyState-Core-n--12304-6992-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))) ((UnifyState-Core-case--12311-7014 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 (IntMap-Data-lookup 'erased arg-4 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) ext-0)))))))))))))
+(define UnifyState-Core-n--11387-6190-checkRef (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-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define UnifyState-Core-tryUnify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (UnifyState-Core-tryErrorUnify 'erased 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 UnifyState-Core-tryErrorUnify (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))) (let ((act-25 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (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 (Context-Core-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 (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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 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 (let ((sc5 e-8)) (let ((e-31 (vector-ref sc5 25))) e-31)) e-25)))))))))))))))))))))))))))))) (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 err))))))))))))))))) ext-0)))))))))))))
 (define UnifyState-Core-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 (IntMap-Data-empty 'erased) 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 UnifyState-Core-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 UnifyState-Core-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 UnifyState-Core-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))) ((UnifyState-Core-case--8813-4038 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
+(define UnifyState-Core-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))) ((UnifyState-Core-case--9223-4102 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased arg-1 e-0) e-1 (IntMap-Data-delete 'erased arg-1 e-2) (IntMap-Data-delete 'erased arg-1 e-3) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased 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 UState-UnifyState-Core-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
 (define UState-UnifyState-Core-nextConstraint (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
-(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 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 ((act-26 (Context-Core-addDef arg-1 arg-8 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 (UnifyState-Core-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 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10446-5603-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))
-(define UnifyState-Core-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 ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10075-5418 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) 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 (Context-Core-addDef arg-1 arg-6 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 (UnifyState-Core-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 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10075-5246-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))
+(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new search " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Prelude-C-43C-43 " " (Name-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 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 ((act-26 (Context-Core-addDef arg-1 arg-8 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 (UnifyState-Core-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 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10881-5697-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))
+(define UnifyState-Core-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 ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--10501-5506 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new meta " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) 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 (Context-Core-addDef arg-1 arg-6 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 (UnifyState-Core-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 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10501-5329-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))
 (define UnifyState-Core-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 1)))
-(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 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 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 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 (UnifyState-Core-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 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10521-5682-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))
-(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) 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 (Context-Core-addDef arg-2 e-5 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 (UnifyState-Core-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 (UnifyState-Core-n--10345-5493-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))))
-(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9263-4516 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9263-4454-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8))))))))))))))))
+(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 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 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Added delayed elaborator " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 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 (UnifyState-Core-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 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10959-5780-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))
+(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Adding new constant " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 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 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) 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 (Context-Core-addDef arg-2 e-5 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 (UnifyState-Core-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 (UnifyState-Core-n--10775-5581-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))))
+(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--9689-4599 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Prelude-C-124C-124 arg-2 (lambda () (Prelude-not (UnifyState-Core-n--9689-4537-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8))))))))))))))))
 (define UnifyState-Core-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((ty (TT-Core-binderType 'erased e-8))) (UnifyState-Core-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 (TT-Core-multiplicity 'erased e-8) (vector 1 ) ty) arg-3)))))))))))))
 (define UnifyState-Core-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 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (IntMap-Data-lookup 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))))
 (define UnifyState-Core-initUState (lambda () (vector 0 (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (vector 0 ) 0 0 (vector 0 ) 1)))
@@ -3632,17 +3678,17 @@
 (define UnifyState-Core-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 (b+ 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 ((Context-Core-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 UnifyState-Core-genMVName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-0 eta-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-1 eta-0)))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-3 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))) (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 (b+ 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 ((Context-Core-inCurrentNS arg-0 (vector 2 (Name-Core-show_Show__Name arg-2) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-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))) (vector 1 e-7)))))))))))))))))))))
 (define UnifyState-Core-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 (b+ 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 ((Context-Core-inCurrentNS arg-0 (vector 7 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))))))))))))
-(define UnifyState-Core-dumpHole (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))) ((UnifyState-Core-case--11837-7143 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
-(define UnifyState-Core-dumpConstraints (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))) ((UnifyState-Core-case--12742-7719 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
+(define UnifyState-Core-dumpHole (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))) ((UnifyState-Core-case--12304-7289 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-60_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
+(define UnifyState-Core-dumpConstraints (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))) ((UnifyState-Core-case--13235-7882 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-62C-61_Ord__Nat (let ((sc2 (let ((sc3 (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-2 (vector-ref sc3 3))) e-2)))) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-2)) ext-0)))))))))))))
 (define UState-UnifyState-Core-dotConstraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define UnifyState-Core-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 (IntMap-Data-delete 'erased arg-1 e-4) e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UState-UnifyState-Core-delayedHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define UState-UnifyState-Core-delayedElab (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define UState-UnifyState-Core-currentHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define UState-UnifyState-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-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 ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--10991-6129 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))
-(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-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 ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--11642-6811 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--11642-6665-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0))))))))))))))))))))))))))))))
-(define UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--10878-6021 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0)))))))))
+(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 9 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-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 ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--11443-6249 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))
+(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-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 ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Unsolved guesses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d) (lambda (x-1) (FC-Core-showPrec_Show__FC d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-0) (lambda (x-1) (FC-Core-showPrec_Show__FC d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--12104-6946 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Prelude-C-38C-38 arg-2 (lambda () (Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (List-Data-nubBy 'erased (lambda (eta-0) (lambda (eta-1) (UnifyState-Core-n--12104-6795-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0))))))))))))))))))))))))))))))
+(define UnifyState-Core-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 ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--11326-6138 arg-1 arg-0 e-5 hs (Prelude-not (List-Data-isNil 'erased hs))) ext-0)))))))))
 (define UnifyState-Core-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 0 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args))))
 (define UnifyState-Core-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args))))
 (define UnifyState-Core-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 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-0) e-1 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-2) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
@@ -3650,149 +3696,150 @@
 (define UnifyState-Core-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 (vector 1 (vector 0 arg-4 (vector 0 arg-6 (vector 0 arg-0 arg-2 1 (vector 0 ) arg-3 arg-5 arg-7))) e-10) e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
 (define UnifyState-Core-addDelayedHoleName (lambda (arg-0 arg-1) (let ((sc0 arg-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-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 (IntMap-Data-insert 'erased e-2 e-3 e-11) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))))))
 (define UnifyState-Core-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 ((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 (IntMap-Data-insert 'erased cid arg-2 e-4) e-10 e-6 (b+ 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 cid)))))))))))))
-(define ProcessDecls-TTImp-case--10388-7529 (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0))))))))
-(define ProcessDecls-TTImp-case--10361-7476 (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))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (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 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (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 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-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 (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5) 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 (vector 1 1))))))))))))
-(define ProcessDecls-TTImp-case--10092-7246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
-(define ProcessDecls-TTImp-case--9961-7211 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDecls-TTImp-case--9988-7144 (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-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 ProcessDecls-TTImp-case--9754-7022 (lambda (arg-0 arg-1 arg-2 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-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))) (vector 0 e-0 e-1 arg-11 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)))))))))))))))))))))))))))))
-(define ProcessDecls-TTImp-n--9961-7108-findSetTotal (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-0 arg-1 e-3)))))))))))
-(define ProcessDecls-TTImp-n--9961-7107-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 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 (Context-Core-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 ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (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))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--9988-7144 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0))))))))))))))))))
-(define ProcessDecls-TTImp-n--9961-7106-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3)))))))))
-(define ProcessDecls-TTImp-n--10261-7375-bindNames (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))) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 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 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10261-7374-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define ProcessDecls-TTImp-n--10261-7374-bindDataNames (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) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10261-7373-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-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 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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 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 (vector 1 e-5 e-6 e-8))))))))))))))))
-(define ProcessDecls-TTImp-n--10261-7373-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) 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 0 e-0 e-1 e-5))))))))))))))
-(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7595) (vector 0 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))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-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 (UnifyState-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-1))) (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 (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10261-7375-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 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))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 ProcessDecls-TTImp-case--10814-7669 (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0))))))))
+(define ProcessDecls-TTImp-case--10785-7609 (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))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (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 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (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 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-3)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-3) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-3) (let ((act-17 (arg-3503 eta-3))) (let ((act-16 (arg-3505 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-3) (let ((act-24 (arg-3664 eta-3))) ((arg-3665 act-24) eta-3))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-3) (let ((act-51 (arg-3667 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-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 (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) 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 (vector 1 1))))))))))))
+(define ProcessDecls-TTImp-case--10503-7364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
+(define ProcessDecls-TTImp-case--10367-7326 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDecls-TTImp-case--10394-7256 (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-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 ProcessDecls-TTImp-case--10156-7129 (lambda (arg-0 arg-1 arg-2 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-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))) (vector 0 e-0 e-1 arg-11 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)))))))))))))))))))))))))))))
+(define ProcessDecls-TTImp-n--10367-7215-findSetTotal (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-0 arg-1 e-3)))))))))))
+(define ProcessDecls-TTImp-n--10367-7214-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 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 (Context-Core-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 ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (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))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--10394-7256 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0))))))))))))))))))
+(define ProcessDecls-TTImp-n--10367-7213-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3)))))))))
+(define ProcessDecls-TTImp-n--10676-7497-bindNames (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))) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 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 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7496-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define ProcessDecls-TTImp-n--10676-7496-bindDataNames (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) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10676-7495-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-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 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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 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 (vector 1 e-5 e-6 e-8))))))))))))))))
+(define ProcessDecls-TTImp-n--10676-7495-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) 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 0 e-0 e-1 e-5))))))))))))))
+(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-7739) (vector 0 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))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-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 (UnifyState-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-25 (arg-3664 eta-2))) ((arg-3665 act-25) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (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 (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10676-7497-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 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))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 ProcessDecls-TTImp-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) 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 Check-Elab-TTImp-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (ProcessDecls-TTImp-process arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3)))
 (define ProcessDecls-TTImp-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))) (ProcessType-TTImp-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))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (ProcessData-TTImp-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7))))) ((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) (ProcessDef-TTImp-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))) (ProcessParams-TTImp-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))) (ProcessRecord-TTImp-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17))))) ((5) (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-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 ((cns (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-25 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased 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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-20) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-1 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-32 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-30 (vector-ref sc5 8))) (let ((e-29 (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-28 (vector-ref sc5 19))) (let ((e-27 (vector-ref sc5 20))) (let ((e-26 (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))) (vector 0 e-0 e-1 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-28 e-27 e-26 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) ((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) (ProcessTransform-TTImp-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) (ProcessRunElab-TTImp-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-27 (vector-ref sc0 1))) (((e-27 arg-0) arg-5) arg-6))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setLogLevel arg-1 e-28 eta-0))))))))
 (define ProcessDecls-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0)) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))))))))))))))
-(define ProcessDecls-TTImp-checkTotalityOK (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) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(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 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(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 ((Context-Core-lookupCtxtExact arg-1 (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 ((act-26 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--9961-7108-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--9961-7106-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--9961-7107-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define ProcessType-TTImp-case--10250-8816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (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-25 arg-26 e-5 arg-30 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 ProcessType-TTImp-case--10131-8596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-13))) (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 (Context-Core-clearDefs 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))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) 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))) ((ProcessType-TTImp-findInferrable e-6 e-7) 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 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10250-8816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) 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 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) 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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) 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 (Context-Core-addToSave arg-13 arg-14 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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) 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 ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-case--10063-8490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased 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))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 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 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 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))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty 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 ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (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 (Context-Core-clearDefs e-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-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) 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))) ((ProcessType-TTImp-findInferrable e-11 e-12) 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 ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10250-8816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) 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 ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) 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 (Context-Core-addToSave arg-13 arg-14 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 ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
-(define ProcessType-TTImp-case--9855-8267 (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 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5))))))))
-(define ProcessType-TTImp-case--9832-8230 (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 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--9855-8267 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-2 arg-5))))))))
-(define ProcessType-TTImp-case--9634-8075 (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))
-(define ProcessType-TTImp-case--9517-7987 (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)) (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))) (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 arg-10 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 ProcessType-TTImp-case--8455-7917 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8455-7038-getNamePos arg-0 arg-1 arg-2 arg-3 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))) (let ((act-26 ((ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 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 ((ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 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 ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (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-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (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-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 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))) (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 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ProcessType-TTImp-case--8552-7740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8455-7037-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
-(define ProcessType-TTImp-case--8551-7638 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
-(define ProcessType-TTImp-case--8551-7562 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-case--8953-7460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16)))))))
-(define ProcessType-TTImp-case--8928-7419 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8953-7460 arg-0 arg-1 arg-2 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-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-14 arg-13)))))))
-(define ProcessType-TTImp-case--8549-7175 (lambda (arg-0 arg-1 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) (ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) 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 ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8455-7034-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps)))))))))))))))))))
-(define ProcessType-TTImp-case--8569-7097 (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) (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
-(define ProcessType-TTImp-case--8548-7054 (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) (ProcessType-TTImp-n--8455-7033-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8569-7097 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-2 arg-7))))))))
-(define ProcessType-TTImp-case--8455-6974 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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))) ((ProcessType-TTImp-getRetTy 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))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ProcessType-TTImp-n--8551-7394-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8928-7419 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 arg-11 (ProcessType-TTImp-n--8551-7394-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3)))))))))
-(define ProcessType-TTImp-n--8455-7033-insertDeps (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) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8548-7054 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-5)))))))))
-(define ProcessType-TTImp-n--8455-7038-getNamePos (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 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-n--8455-7038-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) 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))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-n--8455-7035-getDepsArgs (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
-(define ProcessType-TTImp-n--8455-7036-getDeps (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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) 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 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 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 (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) 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 ((act-25 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) 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))) ((ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((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))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-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-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) 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-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 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))) ((ProcessType-TTImp-n--8455-7035-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) 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-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 (let ((act-25 (Context-Core-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 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8551-7638 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8551-7394-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8455-7036-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6)))))))
-(define ProcessType-TTImp-n--9828-8204-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 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))) ((ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
-(define ProcessType-TTImp-n--9828-8203-findInf (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 ((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)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--9832-8230 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--9828-8204-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define ProcessType-TTImp-n--9828-8205-fi (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 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-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) 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 ((ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 e-8) 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 ((ProcessType-TTImp-n--9828-8205-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) 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))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--9828-8203-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
-(define ProcessType-TTImp-n--8455-7037-collectSpec (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))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8552-7740 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define ProcessType-TTImp-n--8455-7034-collectDDeps (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 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8549-7175 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessType-TTImp-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) 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 ((Context-Core-resolveName arg-1 e-5) 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 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) 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 ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-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 ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-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 ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (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-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (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))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10250-8816 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-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0)))))))))))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (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 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((ProcessType-TTImp-getRetTy e-5 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 ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (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 ((Context-Core-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-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) 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 ((ProcessType-TTImp-n--8455-7038-getNamePos e-4 arg-2 arg-1 arg-0 0 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 (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8455-7034-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) 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 ((act-29 ((ProcessType-TTImp-n--8455-7037-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-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 ((act-30 (Context-Core-addDef arg-0 arg-2 (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-3 (vector-ref sc8 4))) (let ((e-27 (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-3 e-27 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))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0)))))))))))))))))))))
+(define ProcessDecls-TTImp-checkTotalityOK (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) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((7) (lambda (eta-0) (vector 1 (vector 0 ))))(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 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(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 ((Context-Core-lookupCtxtExact arg-1 (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 ((act-26 (Context-Core-getDefaultTotalityOption 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 ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10367-7215-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) 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 ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10367-7213-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10367-7214-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define ProcessType-TTImp-case--10618-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-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) (let ((sc0 arg-31)) (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-25 arg-26 e-5 arg-30 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 ProcessType-TTImp-case--10494-8774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-13))) (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 (Context-Core-clearDefs 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))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) 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))) ((ProcessType-TTImp-findInferrable e-6 e-7) 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 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 arg-23 arg-4 arg-22))) 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 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) 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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) 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 (Context-Core-addToSave arg-13 arg-14 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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) 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 ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-case--10420-8663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased 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))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 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 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 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))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (let ((sc4 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc4 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-13 arg-6 arg-14 arg-4 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Utils-Elab-TTImp-findErased arg-13 fullty 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 ((_-0 (vector 0 ))) (let ((sc6 e-9)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((act-29 (let ((act-29 (unbox arg-13))) (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 (Context-Core-clearDefs e-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-11 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-10 (vector 0 ) fullty) 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))) ((ProcessType-TTImp-findInferrable e-11 e-12) 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 ((act-32 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--10618-9008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 fullty e-8 e-2 e-3 _-1 e-10 e-11 e-12 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) 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 ((act-33 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-10)))) (cond ((equal? sc11 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 9 arg-17) eta-1)) arg-3) eta-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 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) 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 (Context-Core-addToSave arg-13 arg-14 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 ((act-40 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc19 0) (let ((act-41 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-5 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
+(define ProcessType-TTImp-case--10206-8428 (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 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5))))))))
+(define ProcessType-TTImp-case--10183-8391 (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 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--10206-8428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-5))))))))
+(define ProcessType-TTImp-case--9976-8231 (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))
+(define ProcessType-TTImp-case--9855-8139 (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)) (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))) (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 arg-10 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 ProcessType-TTImp-case--8757-8065 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 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))) (let ((act-26 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 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 ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 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 ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (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-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (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-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 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))) (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 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ProcessType-TTImp-case--8858-7879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8757-7145-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
+(define ProcessType-TTImp-case--8857-7769 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
+(define ProcessType-TTImp-case--8857-7693 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-case--9275-7587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 (vector 1 arg-11 arg-15) arg-16)) (else (vector 0 arg-15 (vector 1 arg-11 arg-16)))))))
+(define ProcessType-TTImp-case--9250-7546 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9275-7587 arg-0 arg-1 arg-2 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-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-14 arg-13)))))))
+(define ProcessType-TTImp-case--8855-7288 (lambda (arg-0 arg-1 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) (ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) 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 ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8757-7142-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-6 deps)))))))))))))))))))
+(define ProcessType-TTImp-case--8875-7205 (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) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
+(define ProcessType-TTImp-case--8854-7162 (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) (ProcessType-TTImp-n--8757-7141-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--8875-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-2 arg-7))))))))
+(define ProcessType-TTImp-case--8757-7080 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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))) ((ProcessType-TTImp-getRetTy 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))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ProcessType-TTImp-n--8857-7521-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--9250-7546 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 arg-11 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3)))))))))
+(define ProcessType-TTImp-n--8757-7141-insertDeps (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) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--8854-7162 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 arg-4 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-5)))))))))
+(define ProcessType-TTImp-n--8757-7146-getNamePos (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 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-n--8757-7146-getNamePos arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) e-9) 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))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-n--8757-7143-getDepsArgs (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
+(define ProcessType-TTImp-n--8757-7144-getDeps (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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) 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 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 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 (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) 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 ((act-25 (let ((act-25 (unbox arg-3))) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) 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))) ((ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((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))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-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-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) 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-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 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))) ((ProcessType-TTImp-n--8757-7143-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) 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-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 (let ((act-25 (Context-Core-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 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--8857-7769 arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 e-5 e-6 (ProcessType-TTImp-n--8857-7521-splitPs arg-0 arg-1 arg-2 arg-3 e-16 e-20 e-19 e-18 e-17 arg-6 arg-4 0 e-6 e-20)) eta-0)))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 3))) (ProcessType-TTImp-n--8757-7144-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6)))))))
+(define ProcessType-TTImp-n--10179-8365-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 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))) ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
+(define ProcessType-TTImp-n--10179-8364-findInf (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 ((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)) (case (vector-ref sc3 0) ((0) (ProcessType-TTImp-case--10183-8391 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 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))) ((ProcessType-TTImp-n--10179-8365-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define ProcessType-TTImp-n--10179-8366-fi (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 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-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) 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 ((ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 e-8) 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 ((ProcessType-TTImp-n--10179-8366-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) 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))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10179-8364-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
+(define ProcessType-TTImp-n--8757-7145-collectSpec (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))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8858-7879 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define ProcessType-TTImp-n--8757-7142-collectDDeps (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 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (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 (Context-Core-clearDefs 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) 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))) ((ProcessType-TTImp-case--8855-7288 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-4 e-2 e-1 e-5 e-9 e-10 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessType-TTImp-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking type decl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) 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 ((Context-Core-resolveName arg-1 e-5) 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 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((Context-Core-lookupCtxtExact (vector 9 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) 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 ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-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 ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (let ((sc11 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc11 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-9 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (Utils-Elab-TTImp-findErased arg-1 fullty eta-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 ((_-0 (vector 0 ))) (let ((sc13 e-15)) (let ((e-4 (vector-ref sc13 1))) (let ((e-3 (vector-ref sc13 2))) (let ((act-35 (let ((act-35 (unbox arg-1))) (vector 1 act-35)))) (let ((sc14 act-35)) (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-36 (Context-Core-clearDefs e-16 eta-0))) (let ((sc15 act-36)) (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))) (let ((act-37 (let ((act-37 ((Normalise-Core-nf (vector 0 ) e-16 (vector 0 ) fullty) eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) ((ProcessType-TTImp-findInferrable e-17 e-18) eta-0)))))))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc16 1))) (let ((act-38 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--10618-9008 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-6 e-7 e-8 e-9 _-0 e-11 e-12 e-13 fullty e-14 e-4 e-3 _-1 e-16 e-17 e-18 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-4)))) (cond ((equal? sc18 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Setting options for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-10))))) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 9 e-8) eta-1)) arg-10) eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc22 act-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))) eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc24 act-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((act-46 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-11))))))) eta-0))) (let ((sc25 act-46)) (case (vector-ref sc25 0) ((0) (let ((e-27 (vector-ref sc25 1))) (vector 0 e-27))) (else (let ((sc26 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc26 0) (let ((act-47 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc27 act-47)) (case (vector-ref sc27 0) ((0) (let ((e-28 (vector-ref sc27 1))) (vector 0 e-28))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-11 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0)))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (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 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((ProcessType-TTImp-getRetTy e-5 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 ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (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 ((Context-Core-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-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) 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 ((ProcessType-TTImp-n--8757-7146-getNamePos e-4 arg-2 arg-1 arg-0 0 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 (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8757-7142-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) 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 ((act-29 ((ProcessType-TTImp-n--8757-7145-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-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 ((act-30 (Context-Core-addDef arg-0 arg-2 (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-3 (vector-ref sc8 4))) (let ((e-27 (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-3 e-27 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))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0)))))))))))))))))))))
 (define ProcessType-TTImp-initDef (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 (Context-Core-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 )))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (Normalise-Core-getArity 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 (Normalise-Core-getArity 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-getFnString arg-1 arg-2 arg-3 eta-1)) 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 (ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))
 (define ProcessType-TTImp-getRetTy (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessType-TTImp-getRetTy arg-0 e-5) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-7))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0)))))))
 (define ProcessType-TTImp-getFnString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((27) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr 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-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 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) 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))) (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) ((6) (let ((e-4 (vector-ref sc6 1))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) 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 ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr 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 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) 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 ((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) ((6) (let ((e-3 (vector-ref sc5 1))) (vector 1 e-3)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))
-(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--9828-8205-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
-(define Elab-TTImp-case--12794-9265 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24))))))))
-(define Elab-TTImp-case--12794-9144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((27) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (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 ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (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 ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (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 ((Elab-TTImp-n--12794-9062-bindImps arg-0 arg-1 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 e-1 e-2 e-3 arg-3) 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))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0)))))))
-(define Elab-TTImp-case--10801-8981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Elab-TTImp-case--11103-8897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
-(define Elab-TTImp-case--11103-8817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
-(define Elab-TTImp-case--11954-8627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () 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 (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39)))))))
-(define Elab-TTImp-case--11103-8363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39)))))))(else (Elab-TTImp-case--11954-8627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-14)))))))
-(define Elab-TTImp-case--11103-8142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 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 0 arg-40 arg-26))))))))))))
-(define Elab-TTImp-case--11103-7983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0)))))))
-(define Elab-TTImp-case--11103-7689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Elab-TTImp-case--10801-7630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) 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 ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") 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 ((act-26 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (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 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (let ((act-28 (unbox arg-11))) (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-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (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 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") 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 ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 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 ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 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 (let ((act-33 (unbox arg-13))) (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 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 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))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15))))))(else ((Elab-TTImp-case--11954-8627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) 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))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-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 ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-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-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 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 ((act-38 (unbox arg-23))) (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 ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) 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 ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (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))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Elab-TTImp-case--10801-7553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased))))))))
-(define Elab-TTImp-case--10823-7399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Elab-TTImp-n--10801-7384-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 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16))))))
-(define Elab-TTImp-case--10752-7336 (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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10658-7248 (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) (lambda (eta-0) (Elab-TTImp-n--10585-7167-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10591-7235 (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 ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--10658-7248 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Elab-TTImp-case--10590-7214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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 arg-5 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))))))))))))))))))))))))
-(define Elab-TTImp-case--10555-7150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Elab-TTImp-case--10397-7082 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2)))))))
-(define Elab-TTImp-case--10397-7022 (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) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5)))))))
-(define Elab-TTImp-case--10283-6927 (lambda (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) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9))))))
-(define Elab-TTImp-n--10585-7167-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (let ((act-25 (Context-Core-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)))))))))))))))))))))) 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 0 )))))))))))))
-(define Elab-TTImp-n--10585-7168-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--10658-7248 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
-(define Elab-TTImp-n--12794-9062-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-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-14 arg-13 arg-16 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 ((Elab-TTImp-n--12794-9062-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 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) 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 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-5 e-8)))))))))))))))))))))))
-(define Elab-TTImp-n--10801-7384-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--10823-7399 arg-0 arg-1 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 (IntMap-Data-lookup 'erased e-6 arg-15))))))))))))
-(define Elab-TTImp-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 ((hs (IntMap-Data-keys 'erased (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))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--10585-7168-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) 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 Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10555-7150 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Elab-TTImp-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 ((sc2 e-7)) (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))) (Elab-TTImp-case--10283-6927 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 ))))))
-(define Elab-TTImp-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 ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--10801-7553 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 incase inPE inTrans (Prelude-not incase)) 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 ((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 (vector 0 ) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased 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 ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-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 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 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 ((e-13 (vector-ref sc9 1))) (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 ((e-15 (vector-ref sc11 1))) (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 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 ((e-20 (vector-ref sc16 1))) (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 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles 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 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 ((Elab-TTImp-case--11954-8627 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 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) 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 (Elab-TTImp-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 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-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))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--10801-7384-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 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (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 ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased 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 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 (vector 0 e-23 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10179-8366-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
+(define Elab-TTImp-case--13215-9468 (lambda (arg-0 arg-1 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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24))))))))
+(define Elab-TTImp-case--13215-9343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((27) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (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 ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (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 ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (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 ((Elab-TTImp-n--13215-9240-bindImps arg-0 arg-1 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 e-1 e-2 e-3 arg-3) 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))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0)))))))
+(define Elab-TTImp-case--11179-9158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Elab-TTImp-case--11490-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
+(define Elab-TTImp-case--11490-8998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-19 e-9)))))))))))))
+(define Elab-TTImp-case--12372-8807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () 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 (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39)))))))
+(define Elab-TTImp-case--11490-8535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 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 (vector 1 arg-39)))))))(else (Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-14)))))))
+(define Elab-TTImp-case--11490-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-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 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 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 0 arg-40 arg-26))))))))))))
+(define Elab-TTImp-case--11490-8154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-1 arg-38 arg-6 arg-25 eta-0))) (else (lambda (eta-0) (Normalise-Core-normaliseArgHoles arg-1 arg-38 arg-6 arg-25 eta-0)))))))
+(define Elab-TTImp-case--11490-7813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Elab-TTImp-case--11179-7754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) 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 ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") 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 ((act-26 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (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 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (let ((act-28 (unbox arg-11))) (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-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (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 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") 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 ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 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 ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 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 (let ((act-33 (unbox arg-13))) (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 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 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))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-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 (vector 1 e-15))))))(else ((Elab-TTImp-case--12372-8807 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 solvemode e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Prelude-not arg-14)) 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))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-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 ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-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-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 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 ((act-38 (unbox arg-23))) (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 ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) 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 ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (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))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Elab-TTImp-case--11179-7677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased))))))))
+(define Elab-TTImp-case--11201-7509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Elab-TTImp-n--11179-7494-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 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-insert 'erased arg-14 arg-15 arg-18) arg-17 arg-16))))))
+(define Elab-TTImp-case--11127-7445 (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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--11031-7353 (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) (lambda (eta-0) (Elab-TTImp-n--10956-7270-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--10962-7340 (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 ((bind-0 (vector 1 e-1))) (Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Elab-TTImp-case--10961-7318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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 arg-5 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))))))))))))))))))))))))
+(define Elab-TTImp-case--10926-7253 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Elab-TTImp-case--10768-7185 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 3 arg-4 e-6 (TT-Core-setMultiplicity 'erased arg-3 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 (TT-Core-multiplicity 'erased arg-3))) (Elab-TTImp-doPLetRenames (vector 1 e-6 arg-0) arg-6 (vector 1 e-6 arg-5) (TT-Core-renameTop 'erased 'erased e-6 arg-2)))))))) (else (vector 3 arg-4 arg-1 arg-3 (Elab-TTImp-doPLetRenames (vector 1 arg-1 arg-0) arg-6 arg-5 arg-2)))))))
+(define Elab-TTImp-case--10768-7125 (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) (SubstEnv-TT-Core-subst arg-0 arg-4 (vector 10 arg-7 1) (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5))) (else (vector 3 arg-7 arg-4 arg-6 (Elab-TTImp-doPLetRenames (vector 1 arg-4 arg-0) arg-9 arg-8 arg-5)))))))
+(define Elab-TTImp-case--10654-7030 (lambda (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) ((2) (vector 1 (vector 0 arg-11 (vector 0 arg-7 arg-8)) (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-8 arg-0) arg-9))))))
+(define Elab-TTImp-n--10956-7270-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (let ((act-25 (Context-Core-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)))))))))))))))))))))) 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 0 )))))))))))))
+(define Elab-TTImp-n--10956-7271-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--11031-7353 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
+(define Elab-TTImp-n--13215-9239-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13215-9239-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) 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))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5)))))))))))))))))
+(define Elab-TTImp-n--13215-9240-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) ((15) (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 ((Elab-TTImp-n--13215-9239-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 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13215-9239-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))))))
+(define Elab-TTImp-n--11179-7494-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Elab-TTImp-case--11201-7509 arg-0 arg-1 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 (IntMap-Data-lookup 'erased e-6 arg-15))))))))))))
+(define Elab-TTImp-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 ((hs (IntMap-Data-keys 'erased (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))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--10956-7271-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) 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 Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10926-7253 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Elab-TTImp-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 ((sc2 e-7)) (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))) (Elab-TTImp-case--10654-7030 arg-0 'erased e-11 e-12 e-13 'erased e-8 e-6 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-13 'erased))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4))))))))(else (Elab-TTImp-findPLetRenames (vector 1 e-2 arg-0) e-4)))))))))(else (vector 0 ))))))
+(define Elab-TTImp-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 ((incase (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--11179-7677 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 incase inPE inTrans (Prelude-not incase)) 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 ((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 (vector 0 ) 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased 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 ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-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 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 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 ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 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 ((e-13 (vector-ref sc9 1))) (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 ((e-15 (vector-ref sc11 1))) (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 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 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 ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 ((e-20 (vector-ref sc16 1))) (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 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles 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 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 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 ((Elab-TTImp-case--12372-8807 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 incase inPE inTrans e-5 e-6 olddelayed e-7 e-8 e-9 e-10 rigc e-2 e-3 _-0 solvemode e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (Prelude-not incase)) 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 (Elab-TTImp-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 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-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))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11179-7494-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 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (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 ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased 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 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 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 (vector 0 e-23 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define Elab-TTImp-elabTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Elab-TTImp-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 Elab-TTImp-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 ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--10397-7022 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10397-7082 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1))))))))))(else arg-3)))))
-(define Elab-TTImp-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) (Context-Core-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 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-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 (err) (let ((sc3 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))) (lambda (eta-0) (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 ((Elab-TTImp-n--12794-9062-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) 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 ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-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)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 'erased 'erased e-8))))))))))))))))))))))))
+(define Elab-TTImp-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 ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--10768-7125 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10768-7185 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1))))))))))(else arg-3)))))
+(define Elab-TTImp-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) (Context-Core-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 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-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 (err) (let ((sc3 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))) (lambda (eta-0) (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 ((Elab-TTImp-n--13215-9240-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) 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 ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-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)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 'erased 'erased e-8))))))))))))))))))))))))
 (define Elab-TTImp-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) (Elab-TTImp-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 Elab-TTImp-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 (Context-Core-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 ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (let ((act-26 (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addToSave arg-0 eta-0 eta-1))) ms) ext-0)))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define Term-Elab-TTImp-case--9911-12966 (lambda (arg-0 arg-1 arg-2 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) (Check-Elab-TTImp-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 ((Term-Elab-TTImp-insertImpLam 'erased 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))) ((Check-Elab-TTImp-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 Term-Elab-TTImp-case--13551-12872 (lambda (arg-0 arg-1 arg-2 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)) (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))) (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 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))))
-(define Term-Elab-TTImp-case--13551-12815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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))) (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 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))
-(define Term-Elab-TTImp-case--14336-12607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--13551-12501-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) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0)))))))
-(define Term-Elab-TTImp-case--14322-12515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtName arg-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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (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 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--13551-12501-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) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))))
-(define Term-Elab-TTImp-case--13551-12294 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4))))))
-(define Term-Elab-TTImp-case--13551-11813 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0)))))))
-(define Term-Elab-TTImp-case--12932-11717 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
-(define Term-Elab-TTImp-case--12930-11453 (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))
-(define Term-Elab-TTImp-case--12930-11376 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Term-Elab-TTImp-case--12930-11282 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Term-Elab-TTImp-n--13551-12501-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14322-12515 arg-0 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 (Name-Core-userNameRoot e-2)))))))))
-(define Term-Elab-TTImp-n--12918-11197-bindLamTm (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) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--12930-11453 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))
-(define Term-Elab-TTImp-n--12918-11198-bindLamNF (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-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))
-(define Term-Elab-TTImp-n--12918-11199-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Term-Elab-TTImp-n--12918-11197-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--12918-11198-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0)))))))))))))))))))))
-(define Term-Elab-TTImp-insertImpLam (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))) (lambda (eta-0) (Term-Elab-TTImp-n--12918-11199-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Term-Elab-TTImp-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))) (App-Elab-TTImp-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) (vector 0 ) (vector 0 ) 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) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-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))) ((Binders-Elab-TTImp-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-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-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 (Binders-Elab-TTImp-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-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-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-99 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-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-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-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-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))) ((Binders-Elab-TTImp-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))) (Binders-Elab-TTImp-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 arg-10)))))))) ((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))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 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) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((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))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "search" 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 ((Normalise-Core-getTerm 'erased 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 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 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 (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "searchTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) 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 (UnifyState-Core-genName arg-1 arg-3 "search" 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))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 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))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 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))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--13551-12294 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession 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 ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) 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 (Context-Core-setLogLevel arg-1 lvl 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)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 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))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (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 ((Normalise-Core-getTerm 'erased e-108) 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-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-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 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) 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 (UnifyState-Core-genName arg-1 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))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-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))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (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 (Check-Elab-TTImp-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 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (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 ((Term-Elab-TTImp-n--13551-12501-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) 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 (StringMap-Data-mergeLeft 'erased 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 ((Check-Elab-TTImp-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))) (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 Term-Elab-TTImp-case--10262-13661 (lambda (arg-0 arg-1 arg-2 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) (Check-Elab-TTImp-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 ((Term-Elab-TTImp-insertImpLam 'erased 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))) ((Check-Elab-TTImp-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 Term-Elab-TTImp-case--13989-13562 (lambda (arg-0 arg-1 arg-2 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)) (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))) (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 (StringMap-Data-mergeLeft 'erased arg-14 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14)))))))))))))))))))
+(define Term-Elab-TTImp-case--13989-13505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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))) (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 (let ((sc1 arg-13)) (let ((e-14 (vector-ref sc1 13))) e-14))))))))))))))))))
+(define Term-Elab-TTImp-case--14801-13290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--13989-13181-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) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0)))))))
+(define Term-Elab-TTImp-case--14787-13195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtName arg-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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (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 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--13989-13181-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) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))))
+(define Term-Elab-TTImp-case--13989-12951 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Check-Elab-TTImp-checkExp arg-3 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-2 e-2 (Normalise-Core-gnf arg-3 arg-5 e-3) arg-4))))))
+(define Term-Elab-TTImp-case--13989-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) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0)))))))
+(define Term-Elab-TTImp-case--13355-12364 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
+(define Term-Elab-TTImp-case--13353-12090 (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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))
+(define Term-Elab-TTImp-case--13353-12013 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Term-Elab-TTImp-case--13353-11916 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Term-Elab-TTImp-n--13989-13181-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--14787-13195 arg-0 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 (Name-Core-userNameRoot e-2)))))))))
+(define Term-Elab-TTImp-n--13341-11828-bindLamTm (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) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((2) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) 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 ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (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) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-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 ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (Term-Elab-TTImp-case--13353-12090 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))
+(define Term-Elab-TTImp-n--13341-11829-bindLamNF (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-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 3))) (let ((sc3 e-22)) (case (vector-ref sc3 0) ((2) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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-32 (vector-ref sc2 3))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((2) (let ((e-36 (vector-ref sc3 2))) (let ((sc4 e-36)) (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))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (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-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) 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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-17)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-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 ((act-27 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-17))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (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))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-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 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) 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 ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))
+(define Term-Elab-TTImp-n--13341-11830-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Term-Elab-TTImp-n--13341-11828-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 ((Normalise-Core-getNF 'erased 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))) ((Term-Elab-TTImp-n--13341-11829-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) ext-0)))))))))))))))))))))
+(define Term-Elab-TTImp-insertImpLam (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))) (lambda (eta-0) (Term-Elab-TTImp-n--13341-11830-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Term-Elab-TTImp-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))) (App-Elab-TTImp-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) (vector 0 ) (vector 0 ) 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) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-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))) ((Binders-Elab-TTImp-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-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-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 (Binders-Elab-TTImp-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-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-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-99 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-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-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-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-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))) ((Binders-Elab-TTImp-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))) (Binders-Elab-TTImp-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 arg-10)))))))) ((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))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 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) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((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))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "search" 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 ((Normalise-Core-getTerm 'erased 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 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 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 (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (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 (UnifyState-Core-genName arg-1 arg-3 "searchTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) 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 (UnifyState-Core-genName arg-1 arg-3 "search" 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))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 9 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 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))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 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))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--13989-12951 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession 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 ((lvl (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) 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 (Context-Core-setLogLevel arg-1 lvl 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)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 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))) (let ((act-27 (let ((sc5 (Prelude-C-38C-38 e-93 (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 ((Normalise-Core-getTerm 'erased e-108) 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-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-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 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) 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 (UnifyState-Core-genName arg-1 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))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-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))) (let ((act-28 (let ((sc6 (Prelude-C-38C-38 e-93 (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 (Check-Elab-TTImp-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 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (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 ((Term-Elab-TTImp-n--13989-13181-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) 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 (StringMap-Data-mergeLeft 'erased 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 ((Check-Elab-TTImp-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))) (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 Check-Elab-TTImp-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)))
-(define Check-Elab-TTImp-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) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-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 ((Ambiguity-Elab-TTImp-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 (vector 0 ) 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))) ((Term-Elab-TTImp-case--9911-12966 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 Reflect-TTImp-case--11469-16270 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3320 arg-3321)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))
-(define Reflect-TTImp-case--11172-15975 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-10) eta-0)))))))) (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 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))
-(define Reflect-TTImp-case--10967-15777 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__IField vars arg-3320 arg-3321)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))
-(define Reflect-TTImp-case--10787-15604 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))
-(define Reflect-TTImp-case--10533-15354 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3320 arg-3321)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3320 arg-3321)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))
-(define Reflect-TTImp-case--10289-15117 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))
-(define Reflect-TTImp-case--10141-14976 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))
-(define Reflect-TTImp-case--9688-14526 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))
-(define Reflect-TTImp-case--9508-14353 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))
-(define Reflect-TTImp-case--9313-14163 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))
-(define Reflect-TTImp-case--7136-11930 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3320 arg-3321)))) arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (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 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__RawImp vars arg-3320 arg-3321)))) arg-0 arg-7 e-9) eta-0)))))))) (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 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (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))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3320 arg-3321)))) arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (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))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (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 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (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 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (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 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))
-(define Reflect-TTImp-case--6822-11622 (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))) (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 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))
-(define Reflect-TTImp-case--6658-11454 (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))) (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 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))
-(define Reflect-TTImp-case--6430-11223 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6658-11454 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7136-11930 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10141-14976 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10967-15777 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11469-16270 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10533-15354 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11172-15975 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9313-14163 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10787-15604 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9688-14526 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6822-11622 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10289-15117 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6430-11223 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0)))))))
-(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9508-14353 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0)))))))
+(define Check-Elab-TTImp-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) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-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 ((Ambiguity-Elab-TTImp-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 (vector 0 ) 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))) ((Term-Elab-TTImp-case--10262-13661 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 Reflect-TTImp-case--11924-17186 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (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))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))
+(define Reflect-TTImp-case--11607-16871 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (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 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))
+(define Reflect-TTImp-case--11390-16661 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IField vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))
+(define Reflect-TTImp-case--11198-16476 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))
+(define Reflect-TTImp-case--10926-16208 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3328 arg-3329)))) arg-0 arg-7 e-16) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3328 arg-3329)))) arg-0 arg-7 e-19) eta-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)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))
+(define Reflect-TTImp-case--10678-15967 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))
+(define Reflect-TTImp-case--10522-15818 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))
+(define Reflect-TTImp-case--10057-15356 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))
+(define Reflect-TTImp-case--9873-15179 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))
+(define Reflect-TTImp-case--9668-14979 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))
+(define Reflect-TTImp-case--7319-12574 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) 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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) 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))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (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 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3328 arg-3329)))) arg-0 arg-7 e-10) eta-0)))))))) (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))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (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 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__RawImp vars arg-3328 arg-3329)))) arg-0 arg-7 e-9) eta-0)))))))) (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 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (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 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (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))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3328 arg-3329)))) arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (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))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (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 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (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 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (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 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (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))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (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 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-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))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (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 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (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))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (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 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))
+(define Reflect-TTImp-case--7002-12263 (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))) (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 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))
+(define Reflect-TTImp-case--6835-12092 (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))) (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 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))
+(define Reflect-TTImp-case--6602-11856 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-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) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6835-12092 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7319-12574 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10522-15818 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11390-16661 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11924-17186 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10926-16208 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11607-16871 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9668-14979 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--11198-16476 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10057-15356 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--7002-12263 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--10678-15967 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--6602-11856 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0)))))))
+(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--9873-15179 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__UseSide (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseLeft") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseRight") eta-0)))))))
-(define Reflect-TTImp-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 ((Reflect-Core-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 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) 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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__RigCount 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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (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 (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__DotReason 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-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-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))))))
+(define Reflect-TTImp-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 ((Reflect-Core-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 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) 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 ((Reflect-Core-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 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) 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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__RigCount 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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-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 ((Reflect-TTImp-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (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 (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__DotReason 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-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-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))))))
 (define Reflect-TTImp-reflect_Reflect__ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkTy") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__IField vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility 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 ((Reflect-TTImp-reflect_Reflect__ImpRecord 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpData (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0)))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__ImpClause (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) 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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__IField vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility 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 ((Reflect-TTImp-reflect_Reflect__ImpRecord 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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) (let ((act-24 ((Reflect-Core-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 ((Reflect-Core-reflect_Reflect__Name 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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 ((Reflect-TTImp-reflect_Reflect__RawImp 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpData (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0)))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__ImpClause (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 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) 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-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-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-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-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-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) 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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
 (define Reflect-TTImp-reflect_Reflect__IFieldUpdate (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetField") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String 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-2) 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 ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetFieldApp") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0)))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
-(define Reflect-TTImp-reflect_Reflect__FnOpt (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3341 arg-3342 onLHS arg-3343 arg-3345))))))) arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
+(define Reflect-TTImp-reflect_Reflect__IField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) 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 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) 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))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkIField") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0)))))))))))))))))))))))))))))))))))
+(define Reflect-TTImp-reflect_Reflect__FnOpt (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Inline") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "TCInline") eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Hint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "GlobalHint") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ExternFn") eta-0))) ((5) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3349 arg-3350 onLHS arg-3351 arg-3353))))))) arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ForeignFn") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((6) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Invertible") eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__TotalReq arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Totality") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Macro") eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SpecArgs") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
 (define Reflect-TTImp-reflect_Reflect__DotReason (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NonLinearVar") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "VarApplied") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NotConstructor") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ErasedArg") eta-0))) ((4) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UserDotted") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UnknownDot") eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__DataOpt (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) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "SearchBy") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoHints") eta-0))) ((2) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UniqueSearch") eta-0))) ((3) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "External") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NoNewtype") eta-0)))))))
 (define Reflect-TTImp-reflect_Reflect__BindMode (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) (let ((act-24 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PATTERN") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "NONE") eta-0)))))))
@@ -3815,49 +3862,49 @@
 (define Reflect-TTImp-__Impl_Reflect_FnOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__FnOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Reflect-TTImp-__Impl_Reflect_DataOpt (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__DataOpt ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Reflect-TTImp-__Impl_Reflect_AltType (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__AltType ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
-(define Reflect-Core-case--10041-8054 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321))))) arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321)))) (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__Int vars arg-3320 arg-3321))))) arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))
-(define Reflect-Core-case--9875-7880 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))
-(define Reflect-Core-case--9530-7547 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))
-(define Reflect-Core-case--9353-7352 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))
-(define Reflect-Core-case--9187-7179 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))
-(define Reflect-Core-case--9021-7008 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))
-(define Reflect-Core-case--8002-5972 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (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))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (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 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))
-(define Reflect-Core-case--7468-5550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6))))))
-(define Reflect-Core-case--7126-5085 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3320) (lambda (arg-3321) (Reflect-Core-reify_Reify__String vars arg-3320 arg-3321)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))
-(define Reflect-Core-case--6878-4868 (lambda (arg-0 arg-1 arg-2 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 ((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 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) 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-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) 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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) 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-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) 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-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))
-(define Reflect-Core-case--6632-4608 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))
-(define Reflect-Core-case--6356-4332 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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-2) arg-9) e-7) eta-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 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-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))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))
-(define Reflect-Core-case--6163-4125 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))
-(define Reflect-Core-case--6023-3977 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))
-(define Reflect-Core-case--5504-3386 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
+(define Reflect-Core-case--10332-8203 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-10) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-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))) ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329)))) (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__Int vars arg-3328 arg-3329))))) arg-0 arg-7 e-13) eta-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)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))) ((equal? sc3 "EmptyFC") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FC" eta-0)))))))
+(define Reflect-Core-case--10163-8026 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "LInf") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "LLazy") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "LUnknown") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "LazyReason" eta-0)))))))
+(define Reflect-Core-case--9814-7683 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "PiInfo" eta-0)))))))
+(define Reflect-Core-case--9634-7485 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "M0") (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "MW") (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Count" eta-0)))))))
+(define Reflect-Core-case--9465-7309 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Total") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "CoveringOnly") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "PartialOK") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TotalReq" eta-0)))))))
+(define Reflect-Core-case--9296-7135 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "Private") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 "Export") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc2 "Public") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Visibility" eta-0)))))))
+(define Reflect-Core-case--8256-6078 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "BI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B8") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B16") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B32") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-7) eta-0)))))))) (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 4 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "B64") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-28) eta-0))) (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))) ((Reflect-Core-reify_Reify__Integer arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Str") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-32 (vector-ref sc4 1))) (let ((e-33 (vector-ref sc4 2))) (let ((sc5 e-33)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-32) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 6 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Ch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-36) eta-0))) (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))) ((Reflect-Core-reify_Reify__Char arg-0 arg-7 e-7) eta-0)))))))) (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 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Db") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (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))) ((Reflect-Core-reify_Reify__Double arg-0 arg-7 e-7) eta-0)))))))) (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 8 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 9 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 10 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "IntegerType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits8Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 12 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits16Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 13 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits32Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 14 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "Bits64Type") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 15 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "StringType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 16 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "CharType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 17 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "DoubleType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 18 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))) ((equal? sc3 "WorldType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Constant" eta-0)))))))
+(define Reflect-Core-case--7704-5641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-5 "Name" eta-0)))(else (Reflect-Core-reflect_Reflect__Name arg-0 arg-5 arg-4 arg-3 arg-2 arg-6))))))
+(define Reflect-Core-case--7344-5155 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "MN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((e-16 (vector-ref sc5 2))) (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (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))) ((Reflect-Core-reify_Reify__Int arg-0 arg-7 e-8) eta-0)))))))) (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))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "NS") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-19) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3328) (lambda (arg-3329) (Reflect-Core-reify_Reify__String vars arg-3328 arg-3329)))) arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-22) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 0 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "DN") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-26 (vector-ref sc4 1))) (let ((e-27 (vector-ref sc4 2))) (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-26) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-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 ((Normalise-Core-evalClosure arg-0 arg-7 e-29) eta-0))) (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))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (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 4 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))) ((equal? sc3 "RF") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-33 (vector-ref sc4 1))) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-33) eta-0))) (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))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-7) eta-0)))))))) (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 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Name" eta-0)))))))
+(define Reflect-Core-case--7089-4924 (lambda (arg-0 arg-1 arg-2 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 ((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 "MkPair") (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-3 arg-13 arg-9) 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-5 (vector-ref sc3 1))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-13) 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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-13 arg-10) 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-6 (vector-ref sc4 1))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-13) e-6) 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-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-12 "Pair" eta-0)))))))
+(define Reflect-Core-case--6839-4654 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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))) ((((arg-1 arg-2) arg-9) e-7) eta-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)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "Maybe" eta-0)))))))
+(define Reflect-Core-case--6556-4364 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (vector 0 )))) ((equal? sc3 "::") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-9 e-11) eta-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-2) arg-9) e-7) eta-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 ((Normalise-Core-evalClosure arg-2 arg-9 e-14) eta-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))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-9 e-10) eta-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))) (vector 1 (vector 1 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-8 "List" eta-0)))))))
+(define Reflect-Core-case--6358-4152 (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))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (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))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (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 (+ 1 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Nat" eta-0)))))))
+(define Reflect-Core-case--6215-4001 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "True") (lambda (eta-0) (vector 1 0))) ((equal? sc2 "False") (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Bool" eta-0)))))))
+(define Reflect-Core-case--5682-3395 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 2 e-2 e-3) arg-1))))) ((6) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 arg-3 (vector 3 e-5 e-6) arg-1)))))(else (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 1 arg-3 (vector 1 ) arg-1)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
 (define Reflect-Core-reify_Reify__Visibility (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Visibility" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Visibility" eta-0)))))))
 (define Reflect-Core-reify_Reify__TotalReq (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "TotalReq" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TotalReq" eta-0)))))))
 (define Reflect-Core-reify_Reify__String (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "String" eta-0)))))))
-(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0)))))))
-(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6163-4125 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0)))))))
-(define Reflect-Core-reify_Reify__Name (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7126-5085 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0)))))))
+(define Reflect-Core-reify_Reify__RigCount (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "MW") (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Count" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Count" eta-0)))))))
+(define Reflect-Core-reify_Reify__Nat (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6358-4152 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Nat" eta-0)))))))
+(define Reflect-Core-reify_Reify__Name (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--7344-5155 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Name" eta-0)))))))
 (define Reflect-Core-reify_Reify__LazyReason (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "LazyReason" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "LazyReason" eta-0)))))))
 (define Reflect-Core-reify_Reify__Integer (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Integer" eta-0)))))))
 (define Reflect-Core-reify_Reify__Int (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Int" eta-0)))))))
-(define Reflect-Core-reify_Reify__FC (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10041-8054 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0)))))))
+(define Reflect-Core-reify_Reify__FC (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--10332-8203 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FC" eta-0)))))))
 (define Reflect-Core-reify_Reify__Double (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Double" eta-0)))))))
-(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8002-5972 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0)))))))
+(define Reflect-Core-reify_Reify__Constant (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--8256-6078 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Constant" eta-0)))))))
 (define Reflect-Core-reify_Reify__Char (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Char" eta-0)))))))
 (define Reflect-Core-reify_Reify__Bool (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((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 (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Bool" eta-0)))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Bool" eta-0)))))))
 (define Reflect-Core-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-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc6 arg-4)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 1 e-13 (vector 1 e-16 (vector 0 )))))))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 "MkPair") (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 arg-4 e-13) eta-0))) (let ((sc10 act-25)) (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))) (((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-4) e-15) eta-0)))))))) (let ((sc10 act-25)) (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-26 (let ((act-26 ((Normalise-Core-evalClosure arg-3 arg-4 e-16) eta-0))) (let ((sc11 act-26)) (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))) (((((Builtin-snd 'erased 'erased arg-2) arg-3) arg-4) e-18) eta-0)))))))) (let ((sc11 act-26)) (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 (vector 0 e-15 e-18)))))))))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))(else (Reflect-Core-cantReify 'erased 'erased val "Pair" eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0)))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-5 "Pair" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9530-7547 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6632-4608 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0)))))))
-(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6356-4332 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--9814-7683 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "PiInfo" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6839-4654 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "Maybe" eta-0)))))))
+(define Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) 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 ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-Core-case--6556-4364 'erased arg-1 arg-2 e-1 e-3 e-4 e-5 e-2 val arg-3 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-4 "List" eta-0)))))))
 (define Reflect-Core-reflect_Reflect__Visibility (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Private") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Export") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Public") eta-0)))))))
 (define Reflect-Core-reflect_Reflect__TotalReq (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Total") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CoveringOnly") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "PartialOK") eta-0)))))))
 (define Reflect-Core-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 6 arg-5)))))
-(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5)))
+(define Reflect-Core-reflect_Reflect__RigCount (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M0") eta-0)) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "M1") eta-0)) (lambda (eta-0) (lambda (eta-1) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MW") eta-1))) arg-5)))
 (define Reflect-Core-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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "Z") eta-0)))(else (let ((e-0 (- arg-5 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "S") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
-(define Reflect-Core-reflect_Reflect__Name (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) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 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-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0)))))))
+(define Reflect-Core-reflect_Reflect__Name (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) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "UN") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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))) (let ((act-25 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MN") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "NS") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 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-7 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 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-8 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DN") (vector 1 e-7 (vector 1 e-8 (vector 0 ))) eta-0))))))))))))))) ((5) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "RF") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 9 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0))(else ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReflect 'erased arg-1 "Name" eta-0)))))))
 (define Reflect-Core-reflect_Reflect__LazyReason (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) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LInf") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LLazy") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "LUnknown") eta-0)))))))
 (define Reflect-Core-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 1 arg-5)))))
 (define Reflect-Core-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 Reflect-Core-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 (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 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1)))))))) (lambda (vars) (lambda (arg-3341) (lambda (arg-3342) (lambda (onLHS) (lambda (arg-3343) (lambda (arg-3345) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3341 arg-3342 onLHS arg-3343 arg-3345 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0))))))))))
+(define Reflect-Core-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 (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 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-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 ((act-25 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-1) 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 ((Reflect-Core-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 'erased 'erased (vector 0 (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1)))))))) (lambda (vars) (lambda (arg-3349) (lambda (arg-3350) (lambda (onLHS) (lambda (arg-3351) (lambda (arg-3353) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3349 arg-3350 onLHS arg-3351 arg-3353 eta-1))))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "MkFC") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "EmptyFC") eta-0))))))))))
 (define Reflect-Core-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 8 arg-5)))))
 (define Reflect-Core-reflect_Reflect__Constant (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) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "I") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "BI") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B8") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 e-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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B16") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Int arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B32") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Integer arg-0 arg-1 arg-2 arg-3 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-6 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "B64") (vector 1 e-6 (vector 0 )) eta-0))))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Str") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Char 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Ch") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Reflect-Core-reflect_Reflect__Double arg-0 arg-1 arg-2 arg-3 arg-4 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))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Db") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((9) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldVal") eta-0))) ((10) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntType") eta-0))) ((11) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "IntegerType") eta-0))) ((12) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits8Type") eta-0))) ((13) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits16Type") eta-0))) ((14) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits32Type") eta-0))) ((15) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "Bits64Type") eta-0))) ((16) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "StringType") eta-0))) ((17) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "CharType") eta-0))) ((18) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "DoubleType") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectiontt "WorldType") eta-0)))))))
 (define Reflect-Core-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 7 arg-5)))))
@@ -3896,114 +3943,114 @@
 (define Reflect-Core-cantReflect (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 "Can't reflect as " arg-2)) ext-0)))
 (define Reflect-Core-builtin (lambda (arg-0) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 arg-0))))
 (define Reflect-Core-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Reflect-Core-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))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (TT-Core-apply 'erased arg-1 e-5 arg-4)) ext-0))))))))
-(define RunElab-Elab-TTImp-case--12264-9253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) 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 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 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 ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 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 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12)))))))))))))))))))))))))))))))))
-(define RunElab-Elab-TTImp-case--10797-9053 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--10797-7788-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 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8522 (lambda (arg-0 arg-1 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-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0))))))))))))
-(define RunElab-Elab-TTImp-case--10821-8356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 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))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" 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 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 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))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--10821-8321-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 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (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))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (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))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (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-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (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))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))
-(define RunElab-Elab-TTImp-case--10821-8212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 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))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0)))))))))))
-(define RunElab-Elab-TTImp-case--10821-7900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 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 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-17 eta-0)))))))
-(define RunElab-Elab-TTImp-n--10821-8675-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) 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))) (vector 1 (vector 0 e-2 e-5)))))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7787-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-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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0)))))))))))))
-(define RunElab-Elab-TTImp-n--10821-8321-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0)))))))
-(define RunElab-Elab-TTImp-n--12264-9162-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7786-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-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0))))))))))))))))))
-(define RunElab-Elab-TTImp-n--10797-7788-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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 ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) 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 ((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 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (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-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (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-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) 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 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) 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))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) 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))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-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-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (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))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (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))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) 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 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) 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))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) 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-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-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 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-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))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-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 ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-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-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) 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 (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 (Context-Core-clearDefs e-6 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-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-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-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-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (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-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--10821-8321-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-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((Context-Core-inCurrentNS arg-12 e-6) 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 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-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--10821-8675-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-79 arg-13 eta-1)) e-6) 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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((RunElab-Elab-TTImp-case--10821-8763 arg-0 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-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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 ((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))) (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) 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 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--10797-7787-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--10797-7786-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 'erased arg-13 eta-0)))))))
-(define RunElab-Elab-TTImp-elabScript (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) ((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))) (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((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-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (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 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--10797-7788-elabCon 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-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--10797-7786-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 'erased e-6 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))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0))))))))))))))))))))))
-(define RunElab-Elab-TTImp-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 ((RunElab-Elab-TTImp-n--12264-9162-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 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (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 ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector-ref sc5 1))) (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 ((Normalise-Core-nfOpts arg-0 (Value-Core-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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--10993-8007 (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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10993-7963 (lambda (arg-0 arg-1 arg-2 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10993-7912 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--10476-7662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Delayed-Elab-TTImp-case--10667-7532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5))))))
-(define Delayed-Elab-TTImp-case--10476-7495 (lambda (arg-0 arg-1 arg-2 arg-3 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-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 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 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))
-(define Delayed-Elab-TTImp-case--10424-7299 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (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 (unbox arg-9))) (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 ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (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-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (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 (arg-3 eta-1))) (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 ((act-29 (unbox arg-9))) (vector 1 act-29)))) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (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 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (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 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (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 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error err)))))) eta-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 ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) 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 ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))
-(define Delayed-Elab-TTImp-case--10044-7014 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define Delayed-Elab-TTImp-case--10044-6932 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7)))))))
-(define Delayed-Elab-TTImp-case--9760-6766 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define Delayed-Elab-TTImp-case--9760-6684 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
-(define Delayed-Elab-TTImp-case--9537-6550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--9462-6465 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (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-10 (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (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 (vector 0 e-3 arg-13)))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--9224-6292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9))))))))))))))
-(define Delayed-Elab-TTImp-case--9156-6181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 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 ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 ((act-26 (let ((act-26 (unbox arg-9))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (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 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))
-(define Delayed-Elab-TTImp-case--9114-6124 (lambda (arg-0 arg-1 arg-2 arg-3 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 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 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)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 (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 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))))))
-(define Delayed-Elab-TTImp-case--8978-6062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13))))))))))))))))
-(define Delayed-Elab-TTImp-case--8978-6022 (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 ((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-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-7 e-8 e-9 arg-5 e-11 e-12 e-13))))))))))))))))
-(define Delayed-Elab-TTImp-case--8874-5931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--8874-5907-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5)))))))))
-(define Delayed-Elab-TTImp-case--8874-5885 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))
-(define Delayed-Elab-TTImp-n--8874-5907-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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6)))))))
-(define Delayed-Elab-TTImp-n--9462-6402-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6))))))))))))))))))
-(define Delayed-Elab-TTImp-n--10993-7782-hasPri (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 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3)))))
+(define RunElab-Elab-TTImp-case--12616-9617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) 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 (let ((act-26 (unbox arg-11))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 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 ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 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 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12)))))))))))))))))))))))))))))))))
+(define RunElab-Elab-TTImp-case--11073-9401 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11073-8056-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 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-9232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-9100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-8843 (lambda (arg-0 arg-1 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-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0))))))))))))
+(define RunElab-Elab-TTImp-case--11097-8669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 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))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" 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 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 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))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--11097-8631-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 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (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))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (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))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (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-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (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))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))
+(define RunElab-Elab-TTImp-case--11097-8516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 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))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0)))))))))))
+(define RunElab-Elab-TTImp-case--11097-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 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (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) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-17 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-18 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 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-9)) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-17 eta-0)))))))
+(define RunElab-Elab-TTImp-n--11097-9005-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) 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))) (vector 1 (vector 0 e-2 e-5)))))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8055-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-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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0)))))))))))))
+(define RunElab-Elab-TTImp-n--11097-8631-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0)))))))
+(define RunElab-Elab-TTImp-n--12616-9515-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8054-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-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0))))))))))))))))))
+(define RunElab-Elab-TTImp-n--11073-8056-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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 ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) 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 ((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 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-26)) (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-27 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-7 e-5 eta-0))) (let ((sc11 act-27)) (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-28 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc12 act-28)) (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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0)))))))))))))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) 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 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) 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))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-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))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) 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))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-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-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (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))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (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))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Prelude-C-43C-43 e-9 (Strings-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) 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 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) 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))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) 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-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-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 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-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))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-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 ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-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-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) 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 (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 (Context-Core-clearDefs e-6 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-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 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))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-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-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-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (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-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (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))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--11097-8631-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-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) 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 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) 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))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) 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 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) 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))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((Context-Core-inCurrentNS arg-12 e-6) 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 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-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11097-9005-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-79 arg-13 eta-1)) e-6) 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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-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 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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))) ((RunElab-Elab-TTImp-case--11097-9100 arg-0 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-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) 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 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) 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 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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 ((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))) (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) 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 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11073-8055-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 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11073-8054-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 'erased arg-13 eta-0)))))))
+(define RunElab-Elab-TTImp-elabScript (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) ((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))) (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((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-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (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 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11073-8056-elabCon 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-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11073-8054-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 'erased e-6 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))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0))))))))))))))))))))))
+(define RunElab-Elab-TTImp-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 ((RunElab-Elab-TTImp-n--12616-9515-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 (Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (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 ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector-ref sc5 1))) (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 ((Normalise-Core-nfOpts arg-0 (Value-Core-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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8350 (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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8306 (lambda (arg-0 arg-1 arg-2 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-9 e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11352-8254 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-9) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--10818-7990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Delayed-Elab-TTImp-case--11023-7860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))) (else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-10 arg-9 arg-8 arg-7 arg-15 (vector 1 arg-4 arg-6) arg-5))))))
+(define Delayed-Elab-TTImp-case--10818-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) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 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 arg-14 arg-15 errmode e-5 (Prelude-not e-5)) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))
+(define Delayed-Elab-TTImp-case--10764-7611 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (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 (unbox arg-9))) (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 ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (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-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (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 (arg-3 eta-1))) (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 ((act-29 (unbox arg-9))) (vector 1 act-29)))) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 9 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (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 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int arg-2))) e-9 eta-1))) (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 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (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 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error err)))))) eta-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 ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) 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 ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12 _-0 err e-5 errmode e-6 (Prelude-not e-6)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0)))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))(else (Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5))))))
+(define Delayed-Elab-TTImp-case--10363-7302 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define Delayed-Elab-TTImp-case--10363-7220 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7)))))))
+(define Delayed-Elab-TTImp-case--10075-7050 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define Delayed-Elab-TTImp-case--10075-6968 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
+(define Delayed-Elab-TTImp-case--9849-6833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-14 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--9767-6745 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (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-10 (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (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 (vector 0 e-3 arg-13)))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--9525-6562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 (vector 0 arg-2 (vector 0 arg-16 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-0) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-0))))) e-8) e-9))))))))))))))
+(define Delayed-Elab-TTImp-case--9454-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 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 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 ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 ((act-26 (let ((act-26 (unbox arg-9))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (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 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-case--9409-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 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)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) 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 (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 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (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 (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))))))
+(define Delayed-Elab-TTImp-case--9268-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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-7 e-8 e-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13))))))))))))))))
+(define Delayed-Elab-TTImp-case--9268-6280 (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 ((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-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-7 e-8 e-9 arg-5 e-11 e-12 e-13))))))))))))))))
+(define Delayed-Elab-TTImp-case--9162-6182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5)))))))))
+(define Delayed-Elab-TTImp-case--9162-6135 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))
+(define Delayed-Elab-TTImp-n--9162-6157-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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 1 e-1 e-2 e-3)))))(else (vector 0 (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6)))))))
+(define Delayed-Elab-TTImp-n--9767-6673-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6))))))))))))))))))
+(define Delayed-Elab-TTImp-n--11352-8113-hasPri (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 (vector-ref sc0 1))) (Prelude-C-60C-61_Ord__Integer e-2 arg-3)))))
 (define Delayed-Elab-TTImp-show_Show__RetryError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RecoverableErrors") (else "AllErrors")))))
 (define Delayed-Elab-TTImp-showPrec_Show__RetryError (lambda (arg-0 arg-1) (Delayed-Elab-TTImp-show_Show__RetryError arg-1)))
 (define Delayed-Elab-TTImp-__Impl_Show_RetryError (lambda () (vector 0 (lambda (x) (Delayed-Elab-TTImp-show_Show__RetryError x)) (lambda (d) (lambda (x) (Delayed-Elab-TTImp-showPrec_Show__RetryError d x))))))
-(define Delayed-Elab-TTImp-runDelays (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-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 ((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 (vector 0 ) 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 (Context-Core-log arg-2 (+ 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 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--10993-7782-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-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 (vector 1 (vector 0 ))))))) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (List-Prelude-C-43C-43 'erased e-13 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 Delayed-Elab-TTImp-retryDelayedC-39 (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 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (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-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (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 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (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 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (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 (e-11 eta-1))) (let ((sc11 act-30)) (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-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (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 ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--10667-7532 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-runDelays (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-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 ((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 (vector 0 ) 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 (Context-Core-log arg-2 (+ 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 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--11352-8113-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-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 (vector 1 (vector 0 ))))))) (lambda (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 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (List-Prelude-C-43C-43 'erased e-13 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 Delayed-Elab-TTImp-retryDelayedC-39 (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 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 9 e-10) (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-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (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 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (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 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (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 (e-11 eta-1))) (let ((sc11 act-30)) (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-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (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 ((dsC-39 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 9 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole " (Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved delayed hole NF " (Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Prelude-C-43C-43 ":Error in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (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 ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (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))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--11023-7860 arg-0 e-6 e-10 e-11 d e-3 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 _-0 err e-9 errmode e-12 (Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0)))))))))))))))))))))))))))))
 (define Delayed-Elab-TTImp-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 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) (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))) (let ((act-26 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) (vector 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 (vector 0 )))))))))))))))))
-(define Delayed-Elab-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-8)))))))))))))))))))))))))))) ((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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-14))) ((57) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-17))) ((58) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-20))) ((59) (let ((e-23 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-23))) ((5) (let ((e-29 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-29)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (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 ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-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 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--8874-5907-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1)))))))))))))))))))))))
-(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--9760-6684 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--9760-6766 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Delayed-Elab-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-8)))))))))))))))))))))))))))) ((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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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 ((Delayed-Elab-TTImp-contra 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 (Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-18 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-18))) ((57) (let ((e-21 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-21))) ((58) (let ((e-24 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-24))) ((59) (let ((e-27 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (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 ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-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 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9162-6157-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1)))))))))))))))))))))))
+(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10075-6968 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10075-7050 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Delayed-Elab-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) 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 ((act-25 ((Normalise-Core-evalClosure arg-0 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))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0)))))))))))))))))
-(define Delayed-Elab-TTImp-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))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (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))) ((Delayed-Elab-TTImp-case--9114-6124 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 err e-6 (arg-9 err)) eta-0)))))))) ext-0))))))))
-(define Delayed-Elab-TTImp-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 (UnifyState-Core-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 ((Delayed-Elab-TTImp-n--9462-6402-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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-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 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (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 (vector 1 (vector 0 e-3 e-7)))))))))))))))))))))))))))))))))))))))
+(define Delayed-Elab-TTImp-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))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (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))) ((Delayed-Elab-TTImp-case--9409-6386 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 err e-6 (arg-9 err)) eta-0)))))))) ext-0))))))))
+(define Delayed-Elab-TTImp-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 (UnifyState-Core-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 ((Delayed-Elab-TTImp-n--9767-6673-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 ((Normalise-Core-getTerm 'erased 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))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Postponing elaborator " (Strings-Prelude-C-43C-43 (Name-Core-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 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (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 (vector 1 (vector 0 e-3 e-7)))))))))))))))))))))))))))))))))))))))
 (define Delayed-Elab-TTImp-deeper (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))) (let ((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 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) 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 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 Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10044-6932 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10044-7014 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (Delayed-Elab-TTImp-case--10363-7220 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (Delayed-Elab-TTImp-case--10363-7302 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Delayed-Elab-TTImp-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Delayed-Elab-TTImp-ambiguous e-26)))(else 1)))))
-(define Check-Elab-TTImp-case--13384-7395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))
-(define Check-Elab-TTImp-case--13384-7177 (lambda (arg-0 arg-1 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 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "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 (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") 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 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-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 ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-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 (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") 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 (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))))))
-(define Check-Elab-TTImp-case--13353-7146 (lambda (arg-0 arg-1 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) (Check-Elab-TTImp-case--13384-7177 arg-0 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 ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") 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 ((act-25 (let ((act-25 (unbox arg-11))) (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 (Context-Core-clearDefs e-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))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) 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 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 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))) ((Check-Elab-TTImp-case--13384-7395 arg-0 arg-1 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-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0)))))))))))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-case--13018-7000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
-(define Check-Elab-TTImp-case--13018-6870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
-(define Check-Elab-TTImp-case--12843-6824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
-(define Check-Elab-TTImp-case--12843-6673 (lambda (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) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6))))))
-(define Check-Elab-TTImp-case--12272-6456 (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (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 (Context-Core-commit arg-8 eta-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) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12272-6157-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0))))))))
-(define Check-Elab-TTImp-case--12304-6380 (lambda (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 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Check-Elab-TTImp-case--12316-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))
-(define Check-Elab-TTImp-case--12300-6168 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12316-6244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))
-(define Check-Elab-TTImp-case--11837-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
-(define Check-Elab-TTImp-case--11837-5741 (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)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
-(define Check-Elab-TTImp-case--11754-5660 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5)))))))
-(define Check-Elab-TTImp-case--11671-5591 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2)))))
-(define Check-Elab-TTImp-case--11489-5521 (lambda (arg-0 arg-1 arg-2 arg-3 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-10)) (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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-case--11262-5236 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11162-5154 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11102-5105 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Check-Elab-TTImp-case--11046-5063 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10976-5002 (lambda (arg-0 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 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10914-4942 (lambda (arg-0 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 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define Check-Elab-TTImp-case--10153-4568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))
-(define Check-Elab-TTImp-case--10153-4422 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))
-(define Check-Elab-TTImp-case--10152-4331 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39)))))))))))
-(define Check-Elab-TTImp-case--9927-4013 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13)))))))))))))))))
-(define Check-Elab-TTImp-n--9980-4038-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 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))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14)))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4197-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-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 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 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))) ((Check-Elab-TTImp-case--10153-4422 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10133-4196-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 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))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 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 ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 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-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10153-4568 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4195-removeArgVars (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) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10133-4195-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39))))))))))))))))
-(define Check-Elab-TTImp-n--10133-4196-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10152-4331 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7))))
-(define Check-Elab-TTImp-n--8934-3089-insertAll (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--8934-3089-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
-(define Check-Elab-TTImp-n--12272-6153-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12300-6168 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11))))
-(define Check-Elab-TTImp-n--12272-6154-getRes (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 ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
-(define Check-Elab-TTImp-n--12272-6155-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 Check-Elab-TTImp-n--10133-4198-dropTop (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 (let ((e-4 (- arg-7 1))) (vector 1 e-4)))))))
-(define Check-Elab-TTImp-n--10133-4193-dropSub (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-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0)))))))
-(define Check-Elab-TTImp-n--12272-6156-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12272-6156-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))) (Check-Elab-TTImp-n--12272-6155-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))))))
-(define Check-Elab-TTImp-n--12272-6157-altError (lambda (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) (Check-Elab-TTImp-case--12304-6380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12272-6156-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12272-6154-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11)))))))
+(define Check-Elab-TTImp-case--13724-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))
+(define Check-Elab-TTImp-case--13724-7309 (lambda (arg-0 arg-1 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 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "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 (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") 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 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-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 ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-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 (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") 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 (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1))))))))))))))))))
+(define Check-Elab-TTImp-case--13692-7278 (lambda (arg-0 arg-1 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) (Check-Elab-TTImp-case--13724-7309 arg-0 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 ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") 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 ((act-25 (let ((act-25 (unbox arg-11))) (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 (Context-Core-clearDefs e-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))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) 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 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 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))) ((Check-Elab-TTImp-case--13724-7542 arg-0 arg-1 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-6 e-7 e-8 e-9 e-10 (let ((sc6 arg-12)) (let ((e-3 (vector-ref sc6 4))) e-3))) eta-0)))))))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-case--13353-7131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
+(define Check-Elab-TTImp-case--13353-6999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-13)) (cond ((equal? sc0 0) ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)) (else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
+(define Check-Elab-TTImp-case--13167-6951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Normalise-Core-getTerm 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 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 ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
+(define Check-Elab-TTImp-case--13167-6789 (lambda (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) (Unify-Core-inLHS))(else (Unify-Core-inTermP arg-6))))))
+(define Check-Elab-TTImp-case--12591-6567 (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 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (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 (Context-Core-commit arg-8 eta-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) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12591-6266-altError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased (Either-Data-lefts 'erased 'erased arg-9) e-5) eta-0))))))))
+(define Check-Elab-TTImp-case--12623-6490 (lambda (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 21 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Check-Elab-TTImp-case--12635-6354 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))
+(define Check-Elab-TTImp-case--12619-6277 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (vector 1 e-6))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--12635-6354 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 arg-12 (List-Data-filter 'erased (lambda (x) (Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))
+(define Check-Elab-TTImp-case--12132-6014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
+(define Check-Elab-TTImp-case--12132-5822 (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)) (cond ((equal? sc0 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))
+(define Check-Elab-TTImp-case--12048-5740 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5)))))))
+(define Check-Elab-TTImp-case--11964-5670 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2)))))
+(define Check-Elab-TTImp-case--11773-5596 (lambda (arg-0 arg-1 arg-2 arg-3 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-10)) (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-25 (vector-ref sc0 26))) (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 e-20 e-21 e-22 e-23 (let ((sc1 arg-15)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-case--11545-5294 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11444-5211 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11383-5161 (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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Check-Elab-TTImp-case--11325-5117 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 (vector 1 arg-1 e-9) e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--11253-5053 (lambda (arg-0 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 e-6 e-7 (vector 1 arg-2 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--11190-4990 (lambda (arg-0 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 (List-Data-filter 'erased (lambda (x) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-1)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define Check-Elab-TTImp-case--10410-4604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))
+(define Check-Elab-TTImp-case--10410-4455 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (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))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))
+(define Check-Elab-TTImp-case--10409-4360 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39)))))))))))
+(define Check-Elab-TTImp-case--10181-4037 (lambda (arg-0 arg-1 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))) (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 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-12) e-13)))))))))))))))))
+(define Check-Elab-TTImp-n--10235-4062-wknTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 e-2 (vector 0 (vector 1 arg-0 e-4) e-5 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-4 eta-0)) e-6) (TT-Core-weaken_Weaken__Term arg-0 e-4 e-7) (TT-Core-weaken_Weaken__Term arg-0 e-4 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))) (vector 0 e-2 (vector 1 (vector 1 arg-0 e-9) e-10 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term arg-0 e-9 eta-0)) e-11) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-12) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-13) (TT-Core-weaken_Weaken__Term arg-0 e-9 e-14)))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4223-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-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 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 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))) ((Check-Elab-TTImp-case--10410-4455 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-6 (vector 1 (vector 0 ))) (vector 0 (Check-Elab-TTImp-n--10390-4222-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-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)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 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))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 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 ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 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-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--10410-4604 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 (vector 0 (TT-Core-shrinkPi 'erased 'erased e-11 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-5 (vector 1 (vector 0 ))) (vector 0 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 ))) (TT-Core-shrinkTerm 'erased 'erased e-7 (vector 1 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4221-removeArgVars (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) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10390-4221-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39))))))))))))))))
+(define Check-Elab-TTImp-n--10390-4222-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10409-4360 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (TT-Core-getFnArgs 'erased arg-7))))
+(define Check-Elab-TTImp-n--9188-3111-insertAll (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (NameMap-Data-insert 'erased e-6 e-7 (Check-Elab-TTImp-n--9188-3111-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
+(define Check-Elab-TTImp-n--12591-6262-getRight (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Check-Elab-TTImp-case--12619-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased 'erased arg-11 (Either-Data-rights 'erased 'erased arg-11))))
+(define Check-Elab-TTImp-n--12591-6263-getRes (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 ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
+(define Check-Elab-TTImp-n--12591-6264-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 Check-Elab-TTImp-n--10390-4224-dropTop (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 (let ((e-4 (- arg-7 1))) (vector 1 e-4)))))))
+(define Check-Elab-TTImp-n--10390-4219-dropSub (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-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0)))))))
+(define Check-Elab-TTImp-n--12591-6265-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12591-6265-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))) (Check-Elab-TTImp-n--12591-6264-getDepthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7)))))))))))
+(define Check-Elab-TTImp-n--12591-6266-altError (lambda (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) (Check-Elab-TTImp-case--12623-6490 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 (Check-Elab-TTImp-n--12591-6265-depthError arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10)))(else (vector 18 arg-0 arg-3 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12591-6263-getRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased eta-0)) arg-11)))))))
 (define Check-Elab-TTImp-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))) (Strings-Prelude-C-43C-43 "InLHS " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0)))) ((2) "InExpr") (else "InTransform")))))
 (define Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 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))) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-0 d x))))) (vector 0 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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-5 d x))))) (vector 0 e-8 e-9)) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-5 e-8)))))))))))
 (define Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased arg-2)))
 (define Check-Elab-TTImp-__Impl_Show_C-40ImplBindingC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x))))))
-(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651))))))
+(define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431))))))
 (define Check-Elab-TTImp-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 Check-Elab-TTImp-C-47C-61_Eq__ElabOpt (lambda (arg-0 arg-1) (Prelude-not (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-0 arg-1))))
-(define Check-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9980-4038-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9980-4038-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) 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 Check-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10235-4062-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 8))) e-8)) (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 9))) e-9)) (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) 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 Check-Elab-TTImp-updateEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 2))) e-2)) arg-2 arg-3 (let ((sc0 arg-5)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-5)) (let ((e-6 (vector-ref sc0 6))) e-6)) arg-4 (let ((sc0 arg-5)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-5)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-5)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
 (define EState-Check-Elab-TTImp-unambiguousNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))
 (define Check-Elab-TTImp-tryError (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-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 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (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 (Context-Core-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 (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-33 (vector-ref sc8 6))) (let ((e-32 (vector-ref sc8 7))) (let ((e-31 (vector-ref sc8 8))) (let ((e-30 (vector-ref sc8 9))) (let ((e-29 (vector-ref sc8 10))) (let ((e-28 (vector-ref sc8 11))) (let ((e-27 (vector-ref sc8 12))) (let ((e-26 (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-25 (vector-ref sc8 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc9 e-12)) (let ((e-35 (vector-ref sc9 25))) e-35)) e-25)))))))))))))))))))))))))))))) (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 err))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
 (define Check-Elab-TTImp-try (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased 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 EState-Check-Elab-TTImp-toBind (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6))))
-(define Check-Elab-TTImp-successful (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-branch arg-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-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) 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 ((act-29 (e-7 eta-1))) (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 ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) 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 ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (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 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0)))))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-successful (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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 ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-branch arg-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-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) 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 ((act-29 (e-7 eta-1))) (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 ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Prelude-fromInteger_Num__Nat 0)) (else (List-Data-length 'erased (IntMap-Data-toList 'erased (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 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-3 eta-4)))) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Success " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat nconsC-39) (Strings-Prelude-C-43C-43 " - " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat ncons) ")"))))))))))))) 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 ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 (Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (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 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (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 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0)))))))))))))))))))))))))))))))))
 (define EState-Check-Elab-TTImp-subEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
-(define Check-Elab-TTImp-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 ((Check-Elab-TTImp-n--10133-4193-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4197-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4197-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 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10133-4198-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))))))))))))))))))))))))))))))
+(define Check-Elab-TTImp-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 ((Check-Elab-TTImp-n--10390-4219-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4223-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 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10390-4224-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))))))))))))))))))))))))))))))
 (define Check-Elab-TTImp-searchVar (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 ((UnifyState-Core-newSearch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))
 (define EState-Check-Elab-TTImp-saveHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12))))
 (define Check-Elab-TTImp-saveHole (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 (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 (NameMap-Data-insert 'erased arg-2 (vector 0 ) e-12) e-13)))))))))))))))))) (vector 1 act-25)))))))))
@@ -4023,244 +4070,244 @@
 (define ElabInfo-Check-Elab-TTImp-implicitMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Check-Elab-TTImp-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 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 (vector-ref sc1 2))) (vector 1 e-3))))))))))
 (define Check-Elab-TTImp-handle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased 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 Check-Elab-TTImp-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((Check-Elab-TTImp-case--12272-6456 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12272-6153-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0))))))))))))
+(define Check-Elab-TTImp-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased 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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((Check-Elab-TTImp-case--12591-6567 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12591-6262-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0))))))))))))
 (define ElabInfo-Check-Elab-TTImp-elabMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define EState-Check-Elab-TTImp-delayDepth (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10))))
 (define EState-Check-Elab-TTImp-defining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--12843-6673 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-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 ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 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 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 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 ((Check-Elab-TTImp-case--12843-6824 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) 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) (Unify-Core-solveConstraints arg-1 arg-2 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 (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 ((Normalise-Core-getTerm 'erased arg-9) 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 ((Normalise-Core-getTerm 'erased arg-10) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 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 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0)))))
+(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--13167-6789 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-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 ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Unifying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool arg-4) (Strings-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 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 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 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 ((Check-Elab-TTImp-case--13167-6951 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 umode e-5 lazy e-6 e-7 (Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) 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) (Unify-Core-solveConstraints arg-1 arg-2 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 (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 ((Normalise-Core-getTerm 'erased arg-9) 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 ((Normalise-Core-getTerm 'erased arg-10) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 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 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 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))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0)))))
 (define Check-Elab-TTImp-convertP (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
 (define Check-Elab-TTImp-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 1 ext-0 ext-1 ext-2 ext-3 ext-4)))
-(define Check-Elab-TTImp-clearToBind (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 (set-box! arg-1 (Check-Elab-TTImp-case--10914-4942 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25)))))))))
+(define Check-Elab-TTImp-clearToBind (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 (set-box! arg-1 (Check-Elab-TTImp-case--11190-4990 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25)))))))))
 (define Check-Elab-TTImp-clearBindIfUnsolved (lambda (arg-0 arg-1) (vector 0 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 0 ) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
-(define Check-Elab-TTImp-checkExpP (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 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))) ((Check-Elab-TTImp-case--13353-7146 arg-0 e-1 arg-10 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))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10))))))))
+(define Check-Elab-TTImp-checkExpP (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 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))) ((Check-Elab-TTImp-case--13692-7278 arg-0 e-1 arg-10 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))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10))))))))
 (define Check-Elab-TTImp-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc0 arg-5)) (let ((e-4 (vector-ref sc0 5))) e-4)) arg-5 ext-0 ext-1 ext-2 ext-3 ext-4)))
 (define EState-Check-Elab-TTImp-boundNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
 (define ElabInfo-Check-Elab-TTImp-bindingVars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Check-Elab-TTImp-bindingType (lambda (arg-0 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 Check-Elab-TTImp-bindingTerm (lambda (arg-0 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 Check-Elab-TTImp-bindingRig (lambda (arg-0 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 Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased 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))) (Check-Elab-TTImp-n--8934-3089-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10)))))))))))))
+(define Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased 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))) (Check-Elab-TTImp-n--9188-3111-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10)))))))))))))
 (define EState-Check-Elab-TTImp-bindIfUnsolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7))))
 (define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1 0)))
 (define Check-Elab-TTImp-anyOne (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "No elaborators provided") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))))))))
 (define ElabInfo-Check-Elab-TTImp-ambigTries (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define EState-Check-Elab-TTImp-allPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9))))
 (define Check-Elab-TTImp-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-7)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 1 (vector 0 arg-1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 (vector 0 arg-6 (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (let ((sc0 arg-7)) (let ((e-7 (vector-ref sc0 7))) e-7))) (let ((sc0 arg-7)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-7)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-7)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-7)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-7)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-7)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
-(define Either-Data-case--1435-340 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3))))))))
-(define Either-Data-case--1380-294 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3))))))
+(define Either-Data-case--1456-349 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Either-Data-rights 'erased 'erased arg-3)) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased arg-3))))))))
+(define Either-Data-case--1401-303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3))))))
 (define Either-Data-rights (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Either-Data-rights 'erased 'erased e-3)) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased e-3)))))))))))))
 (define Either-Data-lefts (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4 (Either-Data-lefts 'erased 'erased e-3)))) (else (Either-Data-lefts 'erased 'erased e-3)))))))))))
-(define Unify-Core-case--22549-21714 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23063-21626 (lambda (arg-0 arg-1 arg-2 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)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23121-21489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
-(define Unify-Core-case--23063-21404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (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-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-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22554-21359 (lambda (arg-0 arg-1 arg-2 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) ((54) (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 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (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-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (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 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 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 ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-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 (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))))))
-(define Unify-Core-case--22685-21177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
-(define Unify-Core-case--22685-21086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
-(define Unify-Core-case--22613-21042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22554-20985 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) 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 (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 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) 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))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
-(define Unify-Core-case--22442-20868 (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) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
-(define Unify-Core-case--22250-20837 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((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 ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
-(define Unify-Core-case--22289-20749 (lambda (arg-0 arg-1 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 0))) (else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
-(define Unify-Core-case--22264-20705 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
-(define Unify-Core-case--22130-20581 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--21758-20425 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21758-20316 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--20637-20230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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))))))))))))))))))(else (let ((gdef (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 ((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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1))))))))))))
-(define Unify-Core-case--20637-20165 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
-(define Unify-Core-case--21103-20108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21103-19954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
-(define Unify-Core-case--21103-19865 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--21103-19717 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
-(define Unify-Core-case--20637-19650 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21103-19717 arg-0 arg-1 arg-2 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))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-removeGuess arg-5 arg-0 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 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21103-19954 arg-0 arg-1 arg-2 arg-3 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)) (let ((e-3 (vector-ref sc0 4))) e-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 ((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-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-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-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1)))))))))))))))))
-(define Unify-Core-case--20637-19590 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
-(define Unify-Core-case--20637-19522 (lambda (arg-0 arg-1 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)) (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-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 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--20717-19429 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--20637-19317 (lambda (arg-0 arg-1 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) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) 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 ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1))))))))))))))
-(define Unify-Core-case--20588-19245 (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) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-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)) (vector 0 ) 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 ((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 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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 (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (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 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (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 (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (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 ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 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))) ((Unify-Core-case--20637-19650 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 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 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 ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--20637-20230 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 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) 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-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--20637-20230 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 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--20556-19205 (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--20588-19245 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
-(define Unify-Core-case--19983-19082 (lambda (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) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10)))))))
-(define Unify-Core-case--20049-18932 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))))))
-(define Unify-Core-case--20049-18825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-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 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-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 (vector 1 arg-16)))))))))))
-(define Unify-Core-case--19983-18730 (lambda (arg-0 arg-1 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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 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))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) 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 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) 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))) ((Unify-Core-case--20049-18825 arg-0 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-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-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 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-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 ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-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 (vector 1 (Unify-Core-constrain arg-1))))))))))))))))))))
-(define Unify-Core-case--19755-18673 (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 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--19755-18471-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-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))) ((Unify-Core-case--19983-18730 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 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) 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))) ((Unify-Core-case--19983-19082 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))) eta-0)))))))))))))))))))))
-(define Unify-Core-case--19784-18517 (lambda (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) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Unify-Core-case--19763-18494 (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))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--19784-18517 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--19634-18404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--19617-18360 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (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 e-13 0 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Unify-Core-case--19476-18265 (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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 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 ((Normalise-Core-evalClosure arg-0 arg-8 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--19207-18034 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--19203-17928 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
-(define Unify-Core-case--18385-17751 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5))))))))
-(define Unify-Core-case--18385-17700 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5))))))))
-(define Unify-Core-case--18762-17506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9))))))
-(define Unify-Core-case--18381-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 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-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-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0))))))))))))))))))))
-(define Unify-Core-case--18469-17241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3))))))
-(define Unify-Core-case--18381-17143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0))))))))))))))))))))
-(define Unify-Core-case--12259-16883 (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 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))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12259-16807 (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 (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12255-16669 (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) (Unify-Core-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 (Context-Core-log arg-9 (+ 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 (Unify-Core-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 Unify-Core-case--12255-16469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0)))))))
-(define Unify-Core-case--12255-16365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased 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) eta-0)))))))
-(define Unify-Core-case--12248-16073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) 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 ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) 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 ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-case--16912-15790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 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 ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) 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))) (vector 1 (Unify-Core-union arg-22 e-12))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-case--12248-15628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) 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 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--16912-15790 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))
-(define Unify-Core-case--12243-15445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d 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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
-(define Unify-Core-case--12243-15346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
-(define Unify-Core-case--12243-15266 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--16218-15146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--12243-15039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12243-14892-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 ((Unify-Core-n--12243-14892-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 ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16218-15146 arg-0 arg-1 arg-2 arg-3 arg-4 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 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12243-14891-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))))) eta-0))))))))))))))))))
-(define Unify-Core-case--16054-14926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12243-14892-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-17) 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))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12243-14892-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-17))))))(else (Unify-Core-n--12243-14892-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-17))))))
-(define Unify-Core-case--12243-14757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "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 Unify-Core-case--12243-14658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0)))))))
-(define Unify-Core-case--12239-14587 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
-(define Unify-Core-case--12239-14515 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
-(define Unify-Core-case--12239-14305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-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 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 ))))))))
-(define Unify-Core-case--12239-14211 (lambda (arg-0 arg-1 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) (Unify-Core-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 eta-0))) (else (lambda (eta-0) (Unify-Core-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) eta-0)))))))
-(define Unify-Core-case--14722-13880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0))))))))
-(define Unify-Core-case--14635-13748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-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))) ((Unify-Core-case--14722-13880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0))))))))))))
-(define Unify-Core-case--14545-13688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14635-13748 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-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) arg-2) arg-1))))))
-(define Unify-Core-case--14476-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 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (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 (Normalise-Core-quote_Quote__NF 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 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 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) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--14635-13748 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-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) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-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) arg-2) arg-1))))))
-(define Unify-Core-case--14031-13571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14476-13618 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--14151-13336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--14091-13288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14151-13336 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-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 Unify-Core-case--14031-13247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14091-13288 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--12235-13203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (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 ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14091-13288 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14476-13618 arg-0 arg-1 arg-2 arg-3 arg-4 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-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))))))))))))))
-(define Unify-Core-case--13736-13036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 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 (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))
-(define Unify-Core-case--12230-12951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (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))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 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 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))))))))))
-(define Unify-Core-case--12226-12853 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1))))))
-(define Unify-Core-case--13353-12690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))
-(define Unify-Core-case--12222-12648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12222-12624-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
-(define Unify-Core-case--12814-12222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-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 (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) 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 (Unify-Core-union e-6 e-8))))))))))))))))))))))))))
-(define Unify-Core-case--12747-12160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--12814-12222 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11)) (Unify-Core-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) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1)))))))
-(define Unify-Core-case--12669-12111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((bind-0 0)) (Unify-Core-case--12747-12160 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0)))))))
-(define Unify-Core-case--12218-12046 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) 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))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-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 ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--12747-12160 arg-0 arg-1 arg-2 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-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0)))))))
-(define Unify-Core-case--12215-11946 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 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 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 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 ((act-26 (let ((act-26 (unbox arg-4))) (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-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--12213-11850 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--12295-11770 (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-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))
-(define Unify-Core-case--12209-11725 (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) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))))))
-(define Unify-Core-case--12158-11549 (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 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0)))))))
-(define Unify-Core-case--11918-11411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 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 (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))
-(define Unify-Core-case--11831-11327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-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 (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))))))))))))
-(define Unify-Core-case--11785-11256 (lambda (arg-0 arg-1 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) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--11831-11327 arg-0 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-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)))))))))))))))
-(define Unify-Core-case--11755-11219 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--11831-11327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--9775-11134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
-(define Unify-Core-case--9775-11039 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--9799-10810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0)))))))
-(define Unify-Core-case--9799-10680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26))))))))
-(define Unify-Core-case--10536-10173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28))))))
-(define Unify-Core-case--10403-10100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10536-10173 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0)))))))))
-(define Unify-Core-case--9798-9868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-20 arg-19 arg-22))))
-(define Unify-Core-case--10008-9767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-24))))
-(define Unify-Core-case--9797-9648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Unify-Core-case--9797-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-21))))
-(define Unify-Core-case--9465-9221 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
-(define Unify-Core-case--9216-9158 (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 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (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 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 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 ((Unify-Core-getMetaNames 'erased arg-6 e-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))) ((Unify-Core-case--9465-9221 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-2 e-7)) eta-0))))))))))))))))))))))
-(define Unify-Core-case--9228-9020 (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (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) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9216-8941-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3))))))))))))
-(define Unify-Core-case--9228-8959 (lambda (arg-0 arg-1 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 Unify-Core-case--9123-8896 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3))))))))))
-(define Unify-Core-case--9005-8855 (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))) (Unify-Core-case--9123-8896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
-(define Unify-Core-case--9016-8785 (lambda (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) (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9005-8760-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
-(define Unify-Core-case--8907-8688 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
-(define Unify-Core-case--8806-8629 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3))))))))))
-(define Unify-Core-case--8680-8584 (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))) (Unify-Core-case--8806-8629 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
-(define Unify-Core-case--8691-8505 (lambda (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) (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8680-8480-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
-(define Unify-Core-case--8617-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4)))))))
-(define Unify-Core-case--8566-8417 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8617-8433 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8566-8383-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
-(define Unify-Core-case--8377-8289 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
-(define Unify-Core-case--8405-8240 (lambda (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) 0) (else (Unify-Core-n--8377-8226-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
-(define Unify-Core-case--8231-8087 (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-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)))))))
-(define Unify-Core-case--7719-7996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-case--7736-7717 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-case--7735-7623 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0)))))))
-(define Unify-Core-case--7601-7524 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))
-(define Unify-Core-case--7584-7485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-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 (Context-Core-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 ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))))))))))))))))
-(define Unify-Core-case--7525-7435 (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) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0)))))))
-(define Unify-Core-case--7124-6957 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
-(define Unify-Core-case--7115-6946 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
-(define Unify-Core-n--9005-8760-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9016-8785 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
-(define Unify-Core-n--8680-8480-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8691-8505 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
-(define Unify-Core-n--9798-9963-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 (tC-39) (vector 1 (vector 3 tC-39))))))))))
-(define Unify-Core-n--9798-9964-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-10) (lambda (pC-39) (Unify-Core-case--10403-10100 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9963-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-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
-(define Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased e-4 'erased 'erased arg-16 'erased) (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Unify-Core-n--9775-9464-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) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9798-9964-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 (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9464-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 Unify-Core-n--9775-9463-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--9775-9463-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 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--9797-9648 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Unify-Core-n--7719-7603-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 (Context-Core-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 Unify-Core-n--12230-12919-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))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1)))))
-(define Unify-Core-n--12243-14891-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 Unify-Core-n--9775-9465-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)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 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 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (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-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9775-9465-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 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 ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--9799-10680 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--9799-10810 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--9775-9464-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))
-(define Unify-Core-n--12243-14892-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (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-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 ((Normalise-Core-evalClosure arg-0 e-5 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 ((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 ((Unify-Core-n--12243-14892-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) 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))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12243-14892-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) eta-0))))))(else ((Unify-Core-n--12243-14892-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) eta-0))))))))))))))))))))))
-(define Unify-Core-n--9775-9462-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-14 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) (Unify-Core-n--9775-9462-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 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1)))))
-(define Unify-Core-n--12222-12624-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 Unify-Core-n--12255-16755-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 Unify-Core-n--8377-8226-inArgs (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8405-8240 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2)))))))))
-(define Unify-Core-n--9216-8941-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))) (Unify-Core-case--9228-8959 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 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9228-9020 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9)))))))
-(define Unify-Core-n--19755-18471-definedN (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) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((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))) ((Unify-Core-case--19784-18517 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Unify-Core-n--22125-20551-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (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 (Context-Core-lookupDefExact (vector 9 e-2) (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-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) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
-(define Unify-Core-n--7719-7602-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-n--22549-20929-checkConstraint (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 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 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "  =") e-12 e-13 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (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 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (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)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-2)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (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 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-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 (vector 0 ) 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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Unify-Core-n--22250-20679-anySame (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 1))) (else (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-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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-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 ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22250-20679-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
-(define Unify-Core-n--8566-8383-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8566-8383-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
-(define Unify-Core-n--22079-20510-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2)))))
+(define Unify-Core-case--23093-22152 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23617-22059 (lambda (arg-0 arg-1 arg-2 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)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23677-21921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))
+(define Unify-Core-case--23617-21832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (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-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-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--23098-21785 (lambda (arg-0 arg-1 arg-2 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) ((54) (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 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 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 ((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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 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 ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (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-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (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 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 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 ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-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 (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))))))
+(define Unify-Core-case--23238-21602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
+(define Unify-Core-case--23238-21511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((7) 0)(else 1)))))
+(define Unify-Core-case--23163-21467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((hBefore (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (let ((h (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) 0)(else 1))))) (lambda (eta-0) (let ((act-24 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc1 arg-17)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc3 arg-17)) (let ((e-0 (vector-ref sc3 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-5)))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--23098-21407 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) 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 (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 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((hBefore (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((h (let ((sc5 e-2)) (case (vector-ref sc5 0) ((7) 0)(else 1))))) (let ((act-27 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 3))) e-4))) 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))) (let ((sc6 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-8)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0)))))))
+(define Unify-Core-case--22985-21284 (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) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
+(define Unify-Core-case--22788-21252 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((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 ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
+(define Unify-Core-case--22829-21162 (lambda (arg-0 arg-1 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 0))) (else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
+(define Unify-Core-case--22802-21117 (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-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (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)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
+(define Unify-Core-case--22665-20990 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--22285-20828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--22285-20718 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21141-20629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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))))))))))))))))))(else (let ((gdef (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 ((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-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 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1))))))))))))
+(define Unify-Core-case--21141-20563 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
+(define Unify-Core-case--21617-20506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (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-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 e-15 e-16 (vector 9 arg-16 arg-11 arg-15) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21617-20349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
+(define Unify-Core-case--21617-20258 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (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-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 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21617-20107 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) 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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-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 (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)))))))))))))))))))))))
+(define Unify-Core-case--21141-20036 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20107 arg-0 arg-1 arg-2 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))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((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 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-removeGuess arg-5 arg-0 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 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--21617-20349 arg-0 arg-1 arg-2 arg-3 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)) (let ((e-3 (vector-ref sc0 4))) e-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 ((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-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-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-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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 1)))))))))))))))))
+(define Unify-Core-case--21141-19975 (lambda (arg-0 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-3)) (case (vector-ref sc0 0) ((2) (Unify-Core-inMatch))(else arg-4)))))
+(define Unify-Core-case--21141-19907 (lambda (arg-0 arg-1 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)) (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-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 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--21226-19813 (lambda (arg-0 arg-1 arg-2 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-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--21141-19698 (lambda (arg-0 arg-1 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) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) 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 ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1))))))))))))))
+(define Unify-Core-case--21092-19621 (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) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-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)) (vector 0 ) 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 ((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 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) 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 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef 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 (UnifyState-Core-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 (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Failed (det " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (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 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (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 (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Search failed at " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (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 ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 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))) ((Unify-Core-case--21141-20036 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 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 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 ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 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 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) 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-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--21141-20629 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 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--21058-19581 (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--21092-19621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
+(define Unify-Core-case--20472-19455 (lambda (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) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10)))))))
+(define Unify-Core-case--20539-19301 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))))))
+(define Unify-Core-case--20539-19191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-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 (UnifyState-Core-deleteConstraint arg-3 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 (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-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 (vector 1 arg-16)))))))))))
+(define Unify-Core-case--20472-19092 (lambda (arg-0 arg-1 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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Retrying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 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))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) 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 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) arg-2) arg-11) arg-8) arg-7) arg-6)) (lambda () ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) 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))) ((Unify-Core-case--20539-19191 arg-0 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-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-1) (Strings-Prelude-C-43C-43 " still blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-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 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-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 ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-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 (vector 1 (Unify-Core-constrain arg-1))))))))))))))))))))
+(define Unify-Core-case--20241-19034 (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 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20241-18829-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-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))) ((Unify-Core-case--20472-19092 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 (Prelude-C-124C-124 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-2)) (let ((e-11 (vector-ref sc3 3))) e-11)) (vector 1 )) (lambda () (Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) 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))) ((Unify-Core-case--20472-19455 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))) eta-0)))))))))))))))))))))
+(define Unify-Core-case--20272-18877 (lambda (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) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Unify-Core-case--20249-18854 (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))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--20118-18760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (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-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 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--20099-18716 (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) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (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-13 (vector-ref sc1 14))) (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 e-13 0 e-15 e-16 e-17 e-18 e-19 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 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Unify-Core-case--19951-18617 (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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 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 ((Normalise-Core-evalClosure arg-0 arg-8 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--19668-18379 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--19664-18267 (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) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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 (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 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 ((Normalise-Core-nf arg-0 arg-8 arg-5 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
+(define Unify-Core-case--18826-18086 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 2 arg-5))))))))
+(define Unify-Core-case--18826-18035 (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5))))))))
+(define Unify-Core-case--19217-17838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-5) arg-9) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9))))))
+(define Unify-Core-case--18822-17737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-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-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-13)) arg-12) arg-11) e-7) arg-9) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9) eta-0))))))))))))))))))))
+(define Unify-Core-case--18915-17564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3))))))
+(define Unify-Core-case--18822-17463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 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))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 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 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-13) arg-12) arg-11) arg-10) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-13 arg-12 arg-11 arg-10 arg-3) eta-0))))))))))))))))))))
+(define Unify-Core-case--12583-17197 (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 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))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12583-17117 (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 (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12579-16974 (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) (Unify-Core-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 (Context-Core-log arg-9 (+ 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 (Unify-Core-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 Unify-Core-case--12579-16771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) (vector 3 arg-10 arg-9 arg-8 arg-7 arg-6) eta-0)))))))
+(define Unify-Core-case--12579-16666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-1 arg-6) eta-0))))))) (else (lambda (eta-0) (Unify-Core-convertError 'erased 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) eta-0)))))))
+(define Unify-Core-case--12572-16355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) 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 ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) 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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 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 ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) 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 ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-case--17301-16059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-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))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) 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 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) 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 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) 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 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 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))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 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 ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) 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))) (vector 1 (Unify-Core-union arg-22 e-12))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-case--12572-15891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 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 (Strings-Prelude-C-43C-43 "Unifying arg types " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 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-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) 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 (UnifyState-Core-genVarName arg-17 arg-16 "x" 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 ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--17301-16059 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 e-7 e-8 e-9 envC-39 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))
+(define Unify-Core-case--12567-15703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 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 (Strings-Prelude-C-43C-43 "Matching args " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d 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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1) eta-0))))))) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
+(define Unify-Core-case--12567-15604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-17 arg-16 arg-15 arg-12 arg-11 arg-6 arg-1)) (else (Unify-Core-unifyApp arg-17 arg-16 arg-0 1 arg-15 arg-12 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-5 arg-4 arg-1)))))))
+(define Unify-Core-case--12567-15524 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--16600-15404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--12567-15295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-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 ((Unify-Core-n--12567-15144-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 ((xbigger (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Prelude-C-60C-61_Ord__Nat (List-Data-length 'erased arg-9) (List-Data-length 'erased arg-7)))))))) ((Unify-Core-case--16600-15404 arg-0 arg-1 arg-2 arg-3 arg-4 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 xbigger (Prelude-C-38C-38 (Prelude-C-124C-124 xbigger (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-13)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))) (lambda () (Prelude-not (Unify-Core-n--12567-15143-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))))) eta-0))))))))))))))))))
+(define Unify-Core-case--16432-15180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12567-15144-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-17) 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))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12567-15144-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-17))))))(else (Unify-Core-n--12567-15144-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-17))))))
+(define Unify-Core-case--12567-15008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-0 arg-19 arg-18 arg-17 arg-14 arg-13 arg-11 arg-9)) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-19 arg-18 0 arg-14 arg-17 "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 Unify-Core-case--12567-14909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0)))))))
+(define Unify-Core-case--12563-14838 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
+(define Unify-Core-case--12563-14764 (lambda (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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1))))))
+(define Unify-Core-case--12563-14552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-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 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 ))))))))
+(define Unify-Core-case--12563-14457 (lambda (arg-0 arg-1 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) (Unify-Core-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 eta-0))) (else (lambda (eta-0) (Unify-Core-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) eta-0)))))))
+(define Unify-Core-case--15092-14125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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) arg-2) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-2 arg-1 eta-0))))))))
+(define Unify-Core-case--15005-13992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-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))) ((Unify-Core-case--15092-14125 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (TT-Core-shrinkTerm 'erased 'erased e-5 arg-19)) eta-0))))))))))))
+(define Unify-Core-case--14913-13932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 (TT-Core-shrinkTerm 'erased 'erased e-1 arg-19)))))(else (Unify-Core-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) arg-2) arg-1))))))
+(define Unify-Core-case--14844-13860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF 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 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 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) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--15005-13992 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-0 e-1 e-5 e-2 _-0 (TT-Core-shrinkTerm 'erased 'erased e-2 arg-19)) eta-0))))(else ((Unify-Core-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) arg-2) arg-1) eta-0))))))))))))))))))(else (Unify-Core-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) arg-2) arg-1))))))
+(define Unify-Core-case--14397-13813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--14518-13577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-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 (Unify-Core-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 Unify-Core-case--14458-13529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Unify-Core-case--14518-13577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (let ((sc1 arg-18)) (let ((e-14 (vector-ref sc1 15))) e-14))))))(else (Unify-Core-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 Unify-Core-case--14397-13488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (Unify-Core-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 Unify-Core-case--12559-13443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc1 arg-13)) (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 ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14458-13529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--14844-13860 arg-0 arg-1 arg-2 arg-3 arg-4 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-9 e-10 bind-0 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else ((Unify-Core-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) eta-0)))))))))))))))))))))))
+(define Unify-Core-case--14093-13268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 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 (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))
+(define Unify-Core-case--12554-13182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-9) (let ((sc1 arg-16)) (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))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Data-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 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 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0)))))))))))))))
+(define Unify-Core-case--12550-13082 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1))))))
+(define Unify-Core-case--13706-12917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))
+(define Unify-Core-case--12546-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
+(define Unify-Core-case--13152-12434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-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 (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-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 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (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 ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) 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 (Unify-Core-union e-6 e-8))))))))))))))))))))))))))
+(define Unify-Core-case--13085-12372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-12 (Unify-Core-case--13152-12434 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not arg-11)) (Unify-Core-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) arg-4) (arg-2 arg-1)) eta-0)))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1))))))))(else (Unify-Core-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) arg-4) (arg-2 arg-1)))))))
+(define Unify-Core-case--13003-12323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((bind-0 0)) (Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0)))))))
+(define Unify-Core-case--12542-12254 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Prelude-C-43C-43 'erased arg-5 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) 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))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) 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))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-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 ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--13085-12372 arg-0 arg-1 arg-2 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-1 _-0 e-5 e-6 bind-0 (vector 0 (List-Data-reverse 'erased arg-4) (List-Data-reverse 'erased arg-1))) eta-0))) (else (Unify-Core-postpone arg-0 arg-13 arg-12 0 arg-9 arg-10 "Postponing hole application [3]" arg-8 (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) arg-4) (arg-2 arg-1) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-9 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0)))))))
+(define Unify-Core-case--12539-12148 (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 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 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 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 ((act-26 (let ((act-26 (unbox arg-4))) (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-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--12537-12052 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--12621-11970 (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-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0)))))))
+(define Unify-Core-case--12533-11925 (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) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0)))) arg-3 arg-2 arg-1 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-8 arg-5 arg-3 arg-2 arg-1 eta-0))))))))))
+(define Unify-Core-case--12480-11747 (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 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-0)) eta-0)))))))
+(define Unify-Core-case--12238-11606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 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 (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))
+(define Unify-Core-case--12151-11521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Data-length 'erased arg-1) e-1 arg-14 arg-5 e-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 (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))))))))))))
+(define Unify-Core-case--12104-11450 (lambda (arg-0 arg-1 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) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--12151-11521 arg-0 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-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)))))))))))))))
+(define Unify-Core-case--12072-11412 (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--12151-11521 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--10058-11325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
+(define Unify-Core-case--10058-11230 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--10082-10992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0)))))))
+(define Unify-Core-case--10082-10862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26))))))))
+(define Unify-Core-case--10827-10339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28))))))
+(define Unify-Core-case--10690-10265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-26 arg-23) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--10827-10339 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0)))))))))
+(define Unify-Core-case--10081-10028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-20 arg-19 arg-22))))
+(define Unify-Core-case--10292-9926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-24))))
+(define Unify-Core-case--10080-9806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Unify-Core-case--10080-9726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (+ 1 arg-21))))
+(define Unify-Core-case--9743-9376 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
+(define Unify-Core-case--9493-9309 (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 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (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 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 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 ((Unify-Core-getMetaNames 'erased arg-6 e-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))) ((Unify-Core-case--9743-9376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 e-7)) eta-0))))))))))))))))))))))
+(define Unify-Core-case--9505-9170 (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (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) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-8 eta-0)) e-3))))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9493-9091-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 eta-0)) e-3))))))))))))
+(define Unify-Core-case--9505-9109 (lambda (arg-0 arg-1 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 Unify-Core-case--9400-9046 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3))))))))))
+(define Unify-Core-case--9280-9005 (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))) (Unify-Core-case--9400-9046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
+(define Unify-Core-case--9291-8932 (lambda (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) (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--9280-8907-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
+(define Unify-Core-case--9181-8834 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
+(define Unify-Core-case--9080-8775 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3))))))))))
+(define Unify-Core-case--8951-8730 (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))) (Unify-Core-case--9080-8775 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Unify-Core-toSubVars arg-0 e-2))))))))
+(define Unify-Core-case--8962-8646 (lambda (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) (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Unify-Core-n--8951-8621-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
+(define Unify-Core-case--8888-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-0 arg-3) (vector 2 arg-4))) (else (vector 0 arg-3 (vector 1 arg-4)))))))
+(define Unify-Core-case--8837-8558 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8888-8574 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
+(define Unify-Core-case--8647-8429 (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 0 )) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVars arg-0 (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
+(define Unify-Core-case--8675-8380 (lambda (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) 0) (else (Unify-Core-n--8647-8366-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
+(define Unify-Core-case--8499-8225 (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-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 (Unify-Core-lower arg-5) arg-4 arg-3 arg-1 arg-2 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)))))))
+(define Unify-Core-case--7967-8134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-case--7984-7838 (lambda (arg-0 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-case--7983-7742 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0)))))))
+(define Unify-Core-case--7847-7642 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))(else (Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)))))))
+(define Unify-Core-case--7830-7600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-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 (Context-Core-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 ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Prelude-C-43C-43 'erased sns arg-1) (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))(else ((Unify-Core-chaseMetas arg-3 arg-1 (NameMap-Data-insert 'erased arg-0 (vector 0 ) arg-2)) eta-0))))))))))))))))))))
+(define Unify-Core-case--7771-7550 (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) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-2 arg-3 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-7 arg-5 arg-4 arg-3 arg-2 eta-0)))))))
+(define Unify-Core-case--7358-7060 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
+(define Unify-Core-case--7349-7049 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
+(define Unify-Core-n--9280-8907-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--9291-8932 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
+(define Unify-Core-n--8951-8621-updateVars (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8962-8646 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-2 'erased e-3 arg-7 (TT-Core-subElem 'erased 'erased 'erased e-2 'erased arg-7)))))))))
+(define Unify-Core-n--10081-10124-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 (tC-39) (vector 1 (vector 3 tC-39))))))))))
+(define Unify-Core-n--10081-10125-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-10) (lambda (pC-39) (Unify-Core-case--10690-10265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10124-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-14) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
+(define Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased e-4 'erased 'erased arg-16 'erased) (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))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Unify-Core-n--10058-9621-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) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10081-10125-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 (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9621-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 Unify-Core-n--10058-9620-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10058-9620-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 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--10080-9806 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Unify-Core-n--7967-7721-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 (Context-Core-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 Unify-Core-n--12554-13148-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))) (Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1)))))
+(define Unify-Core-n--12567-15143-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 Unify-Core-n--10058-9622-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)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 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 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (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 ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (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-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10058-9622-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 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 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 ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--10082-10862 arg-0 arg-1 arg-2 arg-3 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 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--10082-10992 arg-0 arg-1 arg-2 arg-3 arg-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 (Unify-Core-n--10058-9621-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)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))
+(define Unify-Core-n--12567-15144-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (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-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 ((Normalise-Core-evalClosure arg-0 e-5 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 ((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 ((Unify-Core-n--12567-15144-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) 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))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12567-15144-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) eta-0))))))(else ((Unify-Core-n--12567-15144-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) eta-0))))))))))))))))))))))
+(define Unify-Core-n--10058-9619-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-14 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) (Unify-Core-n--10058-9619-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 'erased e-19))(else 1)))))) ((9) 0) ((11) 0)(else 1)))))
+(define Unify-Core-n--12546-12849-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 Unify-Core-n--12579-17061-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 Unify-Core-n--8647-8366-inArgs (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8675-8380 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-8 (Prelude-C-61C-61_Eq__Integer arg-8 e-2)))))))))
+(define Unify-Core-n--9493-9091-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))) (Unify-Core-case--9505-9109 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 (Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--9505-9170 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-8 arg-7 (TT-Core-getFnArgs 'erased arg-9)))))))
+(define Unify-Core-n--20241-18829-definedN (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) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((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))) ((Unify-Core-case--20272-18877 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Unify-Core-n--22660-20958-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (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 (Context-Core-lookupDefExact (vector 9 e-2) (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-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) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
+(define Unify-Core-n--7967-7720-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) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-n--23093-21345-checkConstraint (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 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 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "  =") e-12 e-13 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (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 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (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)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-2)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-30 (let ((act-30 (unbox arg-0))) (vector 1 act-30)))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-31 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((hBefore (let ((sc13 e-1)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((h (let ((sc13 e-4)) (case (vector-ref sc13 0) ((7) 0)(else 1))))) (let ((act-32 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-19)) (let ((e-23 (vector-ref sc13 3))) e-23))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-C-124C-124 (Prelude-not (List-Data-isNil 'erased (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 hBefore (lambda () (Prelude-not h))) (lambda () e-22)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 )))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (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 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-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 (vector 0 ) 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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-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 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Unify-Core-n--22788-21089-anySame (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 1))) (else (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-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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-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 ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22788-21089-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
+(define Unify-Core-n--8837-8524-anyFirst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) 0)(else (Unify-Core-n--8837-8524-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
+(define Unify-Core-n--22612-20915-afterStart (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Prelude-C-62C-61_Ord__Int e-2 arg-2)))))
 (define Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 (TT-Core-weaken_Weaken__Var arg-1 arg-2 e-8)) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5)))))))))))))
 (define Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 e-3 arg-3)))))))))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
-(define Unify-Core-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-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) 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-8 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-8)) (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 e-6)))))))))))))))))))(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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-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 ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) 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-8 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-8)) (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 e-6)))))))))))))))))))(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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-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 ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))
 (define Unify-Core-unifyWithLazyD_Unify__Closure (lambda (arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0) (Unify-Core-unifyD_Unify__Closure arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0)))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
-(define Unify-Core-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-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-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))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18381-17143 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased 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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18381-17408 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18381-17408 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))
-(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Closure 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 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure 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 ((Normalise-Core-evalClosure 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Term 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Prelude-C-43C-43 " and " (TT-Core-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 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
+(define Unify-Core-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-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-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))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--18822-17463 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased 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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-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))) (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 (Normalise-Core-logNF arg-0 arg-1 (+ 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-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--18822-17737 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))
+(define Unify-Core-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 (Context-Core-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 (Normalise-Core-convert_Convert__Closure 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 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure 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 ((Normalise-Core-evalClosure 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))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
 (define Unify-Core-show_Show__UnifyMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InLHS") ((1) "InTerm") ((2) "InMatch") (else "InSearch")))))
 (define Unify-Core-show_Show__AddLazy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay")))))
-(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3225)))))))
-(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0)))))))))))))
-(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168))))))))))))
-(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0)))))))))))))
-(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Unify-Core-C-61C-61_Eq__UnifyMode arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Unify-Core-C-47C-61_Eq__UnifyMode arg-650 arg-651))))))
+(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3271)))))))
+(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0)))))))))))))
+(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279))))))))))))
+(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0)))))))))))))
+(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Unify-Core-C-61C-61_Eq__UnifyMode arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Unify-Core-C-47C-61_Eq__UnifyMode arg-430 arg-431))))))
 (define Unify-Core-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 Unify-Core-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 Unify-Core-C-47C-61_Eq__UnifyMode (lambda (arg-0 arg-1) (Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode arg-0 arg-1))))
 (define Unify-Core-unionAll (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Unify-Core-union e-2 (Unify-Core-unionAll e-3))))))))))))
-(define Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (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))) (Prelude-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)))) (List-Prelude-C-43C-43 'erased (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 Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (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))) (Prelude-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)))) (List-Prelude-C-43C-43 'erased (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 Unify-Core-unifyWithLazyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))))
 (define Unify-Core-unifyWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))
-(define Unify-Core-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))) ((Unify-Core-case--12255-16365 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 (Prelude-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-case--12255-16469 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 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-0)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-0)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6617) (lambda (arg-6618) (lambda (arg-6620) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6617 arg-6618 arg-6620 eta-1)))))) (lambda (vars) (lambda (arg-6622) (lambda (arg-6624) (lambda (arg-6625) (lambda (arg-6627) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6622 arg-6624 arg-6625 arg-6627 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 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 (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-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))) (Unify-Core-case--12255-16669 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12255-16755-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12255-16755-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 Unify-Core-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 (Context-Core-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 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-8 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 ((Unify-Core-headsConvert arg-2 arg-0 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)) ((Unify-Core-case--12747-12160 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 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-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) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0))))))))))))))))
+(define Unify-Core-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))) ((Unify-Core-case--12579-16666 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 (Prelude-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-case--12579-16771 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 (Name-Core-C-61C-61_Eq__Name e-22 e-52))))))))(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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-0)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-0)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-0))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 (vector 1 e-33 (vector 1 e-34 (vector 0 ))) (vector 1 e-63 (vector 1 e-64 (vector 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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-2 arg-0 arg-1) (Unify-Core-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 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6775) (lambda (arg-6776) (lambda (arg-6778) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6775 arg-6776 arg-6778 eta-1)))))) (lambda (vars) (lambda (arg-6780) (lambda (arg-6782) (lambda (arg-6783) (lambda (arg-6785) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6780 arg-6782 arg-6783 arg-6785 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 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 (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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))) (Unify-Core-unifyBothApps arg-0 arg-1 arg-2 (Unify-Core-lower arg-3) arg-4 arg-5 e-41 e-42 e-43 e-71 e-72 e-73)))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 (Unify-Core-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))) (Unify-Core-case--12579-16974 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-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))) (Unify-Core-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 (Context-Core-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 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--12579-17061-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12579-17061-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 Unify-Core-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 (Context-Core-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 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Prelude-C-43C-43 'erased 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased 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))) ((Unify-Core-getArgTypes 'erased e-5 e-8 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 ((Unify-Core-headsConvert arg-2 arg-0 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)) ((Unify-Core-case--13085-12372 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 (vector 0 (List-Data-reverse 'erased arg-10) (List-Data-reverse 'erased arg-13))) ext-0))) (else (Unify-Core-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) arg-10) (arg-12 arg-13) ext-0)))))))))))))))))))))) (else (Unify-Core-ufail 'erased arg-5 (Strings-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0))))))))))))))))
 (define Unify-Core-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 (Normalise-Core-convert_Convert__NF 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 (Unify-Core-success))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Postponing unifyIfEq " (Prelude-show_Show__Bool (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)))) arg-6 arg-7 arg-8 ext-0)) (else (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0)))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 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) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Context-Core-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 ((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 ((inv (Prelude-C-124C-124 (Unify-Core-n--12222-12624-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 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 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Unify-Core-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) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-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) arg-10) arg-11))))))))(else (Unify-Core-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) arg-10) arg-11))))))
-(define Unify-Core-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 (Context-Core-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 ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 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 (Normalise-Core-quote_Quote__NF 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 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 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 ((Context-Core-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))) ((Unify-Core-case--14091-13288 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 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-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 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-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 (vector 0 e-10 (vector 0 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))) ((Unify-Core-case--14476-13618 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 args e-7 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 ((Unify-Core-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 Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 (Context-Core-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))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 3 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) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Context-Core-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 ((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 ((inv (Prelude-C-124C-124 (Unify-Core-n--12546-12849-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 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 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-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 ((Unify-Core-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) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-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) arg-10) arg-11))))))))(else (Unify-Core-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) arg-10) arg-11))))))
+(define Unify-Core-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 (Context-Core-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 ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 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 (Normalise-Core-quote_Quote__NF 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 (Strings-Prelude-C-43C-43 "Unifying: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-8) (Strings-Prelude-C-43C-43 " with " (TT-Core-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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 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 ((Context-Core-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))) ((Unify-Core-case--14458-13529 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 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-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 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-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 (vector 0 e-10 (vector 0 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))) ((Unify-Core-case--14844-13860 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 args e-7 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 ((Unify-Core-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 Unify-Core-unifyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))))
-(define Unify-Core-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 ((sc1 arg-12)) (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))) (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))) ((Unify-Core-case--12248-15628 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (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-8 (vector-ref sc2 1))) ((Unify-Core-case--12248-16073 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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 Unify-Core-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-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12243-14658 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12243-14757 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12243-15039 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12243-15266 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (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 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12243-15346 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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 ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12243-15445 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 Unify-Core-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 ((sc1 arg-12)) (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))) (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))) ((Unify-Core-case--12572-15891 arg-2 e-3 e-2 e-1 e-11 e-10 e-9 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (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-8 (vector-ref sc2 1))) ((Unify-Core-case--12572-16355 arg-2 e-7 e-6 e-5 e-15 e-14 e-13 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-8 (Prelude-not (Unify-Core-subRig e-5 e-13))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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)))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased 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 Unify-Core-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-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-58 (vector-ref sc2 1))) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 arg-11)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--12567-14909 arg-2 'erased 'erased e-53 'erased e-52 e-59 'erased e-58 arg-9 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-53 e-59)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((e-39 (vector-ref sc3 3))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-47 (vector-ref sc6 1))) (let ((e-48 (vector-ref sc6 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 2 )))))))(else (let ((sc7 arg-3)) (case (vector-ref sc7 0) ((0) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((3) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-7 (vector-ref sc10 1))) (let ((e-8 (vector-ref sc10 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((sc10 arg-10)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc9 arg-3)) (let ((e-2 (vector-ref sc9 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc2 0) ((0) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((e-39 (vector-ref sc2 3))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 2 )))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((sc7 e-2)) (case (vector-ref sc7 0) ((3) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-7 (vector-ref sc9 1))) (let ((e-8 (vector-ref sc9 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 arg-10)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc8 arg-3)) (let ((e-2 (vector-ref sc8 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-3)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((e-39 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 2 )))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((3) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-7 (vector-ref sc8 1))) (let ((e-8 (vector-ref sc8 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((1) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc7 arg-3)) (let ((e-2 (vector-ref sc7 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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)) (case (vector-ref sc0 0) ((0) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((sc1 e-39)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-47 (vector-ref sc3 1))) (let ((e-48 (vector-ref sc3 2))) (let ((mode (vector 0 e-37 e-38 (vector 1 )))) (Unify-Core-case--12567-15008 arg-2 'erased 'erased e-43 'erased e-42 e-48 'erased e-47 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 e-38 e-37 mode arg-1 arg-0 (Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 2 )))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((3) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-7 (vector-ref sc7 1))) (let ((e-8 (vector-ref sc7 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc6 arg-3)) (let ((e-2 (vector-ref sc6 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 2 )))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((3) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-7 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc5 arg-3)) (let ((e-2 (vector-ref sc5 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 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 (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 2 )))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((3) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-7 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc4 arg-3)) (let ((e-2 (vector-ref sc4 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (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))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 )))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((3) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 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))) ((Unify-Core-case--12567-15295 arg-2 e-27 e-26 e-25 e-36 e-35 e-34 arg-11 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Prelude-C-124C-124 e-5 (lambda () (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc3 arg-3)) (let ((e-2 (vector-ref sc3 3))) e-2)) (vector 3 ))))))) eta-0)))))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 (vector 2 e-25 e-26 e-27) arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Unify-Core-case--12567-15524 arg-2 e-18 e-17 e-16 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 )))))))(else (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 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((fy (vector 1 e-7 e-8))) (let ((fx (vector 1 e-4 e-5))) (let ((mode (vector 0 e-0 e-1 (vector 3 )))) (Unify-Core-case--12567-15604 arg-2 arg-11 e-8 e-7 fy arg-9 arg-8 e-5 e-4 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-5 e-8))))))))(else (Unify-Core-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 (Unify-Core-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 ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((fy (vector 1 e-13 e-14))) (let ((fx (vector 1 e-10 e-11))) (let ((mode (vector 0 e-0 e-1 (vector 2 )))) (Unify-Core-case--12567-15703 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 (Unify-Core-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 Unify-Core-unifyArgs (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) ((0) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 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 (((((((Unify-Core-unify 'erased (Builtin-fst 'erased 'erased arg-1) arg-2 arg-3 arg-4) (Unify-Core-lower arg-5)) arg-6) arg-7) e-2) 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))) (vector 1 (Unify-Core-union e-8 e-5))))))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))))
-(define Unify-Core-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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12239-14211 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (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)) (case (vector-ref sc5 0) ((0) (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))) ((Unify-Core-case--12239-14305 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12239-14211 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc4 0) ((0) (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))) ((Unify-Core-case--12239-14305 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? 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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))))
+(define Unify-Core-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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 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) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (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)) (case (vector-ref sc5 0) ((0) (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))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(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 (Context-Core-log arg-0 (+ 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 (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--12563-14457 arg-2 e-2 e-1 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc4 0) ((0) (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))) ((Unify-Core-case--12563-14552 arg-2 'erased 'erased e-6 'erased e-5 e-38 'erased e-37 e-32 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-7 (Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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 ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? 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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (else (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-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) 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-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))) (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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-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) eta-0)))))))))))))))))))))))))))))
 (define Unify-Core-unify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9))))))))))
 (define UnifyInfo-Unify-Core-umode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Unify-Core-ufail (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 arg-2) ext-0)))
-(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8566-8417 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1))))))))))
+(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--8837-8558 e-2 e-3 arg-1 (Unify-Core-toSubVars e-3 (TT-Core-dropFirst 'erased 'erased arg-1))))))))))
 (define Unify-Core-success (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) (vector 0 ))))
-(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
+(define Unify-Core-subRig (lambda (arg-0 arg-1) (Prelude-C-124C-124 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1)))))
 (define Unify-Core-solvedHole (lambda (arg-0) (vector 0 (vector 0 ) 0 (vector 1 arg-0 (vector 0 )) (vector 0 ))))
-(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 (Context-Core-lookupDefExact (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 ((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 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 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 ((_-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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--11831-11327 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 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--12230-12951 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 (Unify-Core-n--12230-12919-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 Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22079-20510-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
+(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 (Context-Core-lookupDefExact (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 ((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 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 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 ((_-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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--12151-11521 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 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--12554-13182 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 (Unify-Core-n--12554-13148-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 Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22612-20915-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
 (define Unify-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0)) (IntMap-Data-toList 'erased (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 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraints arg-0 arg-1 arg-2 (vector 0 ) ext-0)) (else (vector 1 (vector 0 )))))))))))))))))
 (define Unify-Core-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 ((Context-Core-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 ((act-26 (Context-Core-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)))))))))))))))))))))) 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 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Unify-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Running search with defaults " (Prelude-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 ((AutoSearch-Core-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-7 0 (Env-Core-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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (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-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))) ((Unify-Core-case--20588-19245 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))) eta-0)))))))))))))))))))))))))
-(define Unify-Core-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))) ((Unify-Core-case--19755-18673 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0))))))))
+(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 9 e-2) (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-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))) ((Unify-Core-case--21092-19621 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))) eta-0)))))))))))))))))))))))))
+(define Unify-Core-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))) ((Unify-Core-case--20241-19034 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0))))))))
 (define UnifyInfo-Unify-Core-precise (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Unify-Core-postponeS (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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 (Unify-Core-lower arg-6) arg-7 arg-8 arg-10 arg-9 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)))))))
 (define Unify-Core-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 ((x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) 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 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 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 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 x arg-11) eta-0))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-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 ((Unify-Core-n--7719-7602-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 ((Unify-Core-n--7719-7602-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--7719-7603-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 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Unify-Core-constrain e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--9005-8855 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0)))))))))))))
-(define Unify-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg 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))) ((Unify-Core-case--8680-8584 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0))))))))))))))))))
-(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased 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))) ((Unify-Core-case--9216-9158 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-5 e-5)) ext-0))))))))
+(define Unify-Core-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 (Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Prelude-C-43C-43 " =?= " (TT-Core-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 ((Unify-Core-n--7967-7720-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 ((Unify-Core-n--7967-7720-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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 ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--7967-7721-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 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 " blocked on " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Unify-Core-constrain e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-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))) ((Unify-Core-case--9280-9005 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0)))))))))))))
+(define Unify-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg 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))) ((Unify-Core-case--8951-8730 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0))))))))))))))))))
+(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased 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))) ((Unify-Core-case--9493-9309 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-5 e-5)) ext-0))))))))
 (define UnifyResult-Unify-Core-namesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define Unify-Core-lower (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2))))))
 (define Unify-Core-lam (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2))))))
 (define Unify-Core-isHoleApp (lambda (arg-0 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 Unify-Core-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 ((Context-Core-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 9 arg-2)) ext-0))))))))))))))))
-(define Unify-Core-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 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--9775-11039 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-5 (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 ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((Unify-Core-n--9775-9465-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 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--9775-9462-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 'erased e-11)))) (let ((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 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0))))))))))))))))))))))))))))))))))))))))))))
+(define Unify-Core-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 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiating in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--10058-11230 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-5 (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 ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "With locs: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From vars: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d 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 ((Unify-Core-n--10058-9622-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 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10058-9619-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 'erased e-11)))) (let ((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 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0))))))))))))))))))))))))))))))))))))))))))))
 (define Unify-Core-inTermP (lambda (arg-0) (vector 0 0 arg-0 (vector 1 ))))
 (define Unify-Core-inTerm (lambda () (vector 0 0 0 (vector 1 ))))
 (define Unify-Core-inSearch (lambda () (vector 0 0 0 (vector 3 ))))
@@ -4269,10 +4316,10 @@
 (define Unify-Core-inLHS (lambda () (vector 0 0 0 (vector 0 ))))
 (define Unify-Core-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define UnifyResult-Unify-Core-holesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12215-11946 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 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 (Context-Core-log arg-1 (+ 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 Unify-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22125-20551-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))))))))
-(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Unify-Core-case--8907-8688 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) e-8 arg-1))))))(else (vector 0 )))))))))))
-(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8377-8289 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8377-8226-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 )))))))))))
+(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12539-12148 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 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 (Context-Core-log arg-1 (+ 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 Unify-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22660-20958-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))))))))
+(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Unify-Core-case--9181-8834 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) e-8 arg-1))))))(else (vector 0 )))))))))))
+(define Unify-Core-getVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--8647-8429 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8647-8366-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 )))))))))))
 (define Unify-Core-getMetaNames (lambda (arg-0 arg-1 arg-2) (let ((metas (TT-Core-getMetas 'erased arg-2))) (Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased metas) (NameMap-Data-empty 'erased)))))
 (define Unify-Core-getIVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (Unify-Core-getIVars 'erased 'erased e-5)))))))))
 (define Unify-Core-getEtaType (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))) (lambda (eta-0) (let ((act-24 ((Unify-Core-getEtaType (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 ))))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType arg-0 arg-1 arg-3 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 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 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 ((Normalise-Core-getNF 'erased arg-1 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-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 3))) (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-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Context-Core-clearDefs e-14 eta-0))) (let ((sc7 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-3 e-11 eta-0))) (let ((sc8 act-29)) (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 e-16)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
@@ -4283,45 +4330,45 @@
 (define Unify-Core-convertError (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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-1 arg-3 arg-4 e-7 e-8) ext-0)))))))))))))))))))))))
 (define UnifyResult-Unify-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Unify-Core-constrain (lambda (arg-0) (vector 0 (vector 1 arg-0 (vector 0 )) 1 (vector 0 ) (vector 0 ))))
-(define Unify-Core-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 (UnifyState-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--22549-20929-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (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 (UnifyState-Core-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 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29))))))))))))))))))))))))))
-(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 ((Unify-Core-n--22250-20679-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-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 ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))))))))))))))
-(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7584-7485 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2)))))))))
+(define Unify-Core-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 (UnifyState-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23093-21345-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (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 (UnifyState-Core-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 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29))))))))))))))))))))))))))
+(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (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 (Context-Core-lookupDefExact (vector 9 e-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 ((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)) (case (vector-ref sc5 0) ((0) (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 ((Unify-Core-n--22788-21089-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-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 ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))))))))))))))
+(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--7830-7600 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2)))))))))
 (define UnifyInfo-Unify-Core-atTop (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define UnifyResult-Unify-Core-addLazy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define GetType-Core-case--5575-3675 (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) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))
-(define GetType-Core-case--5575-3540 (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-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-5))) (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 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) 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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0))))))))))))
-(define GetType-Core-case--5575-3434 (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 (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define GetType-Core-case--5575-3375 (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))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
+(define GetType-Core-case--5754-3706 (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) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))
+(define GetType-Core-case--5754-3561 (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-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-5))) (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 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) 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 ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) 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))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0))))))))))))
+(define GetType-Core-case--5754-3448 (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 (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define GetType-Core-case--5754-3386 (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))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0)))))))
 (define GetType-Core-getType (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 arg-3)))
 (define GetType-Core-discharge (lambda (arg-0 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))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3) arg-5))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 1 e-5 e-6 e-7) arg-5))))) ((2) arg-4) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 5 e-13 e-15) arg-5)))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 4 e-17 e-18 e-19) arg-5))))) (else arg-4)))))
 (define GetType-Core-chkMeta (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) (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 (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)))))))))(else (let ((sc0 arg-4)) (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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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 ((GetType-Core-chk arg-0 arg-1 arg-3 e-10) eta-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 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-10)) eta-0))) (let ((sc5 act-26)) (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))) ((GetType-Core-chkMeta arg-0 arg-1 arg-2 arg-3 e-12 e-11) eta-0)))))))))))))))))))(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-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-9) 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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) 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))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))))
 (define GetType-Core-chkConstant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 9 arg-1 (vector 10 ))) ((1) (vector 9 arg-1 (vector 11 ))) ((2) (vector 9 arg-1 (vector 12 ))) ((3) (vector 9 arg-1 (vector 13 ))) ((4) (vector 9 arg-1 (vector 14 ))) ((5) (vector 9 arg-1 (vector 15 ))) ((6) (vector 9 arg-1 (vector 16 ))) ((7) (vector 9 arg-1 (vector 17 ))) ((8) (vector 9 arg-1 (vector 18 ))) ((9) (vector 9 arg-1 (vector 19 )))(else (vector 11 arg-1))))))
 (define GetType-Core-chkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3))))
-(define GetType-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased 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 (Context-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (Context-Core-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 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((GetType-Core-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 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 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 ((Normalise-Core-getTerm 'erased 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) 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 ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) 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 ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48)))))))))
-(define Metadata-Core-case--9044-9630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1))))))
-(define Metadata-Core-case--9035-9609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8978-9558 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8861-9498 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
-(define Metadata-Core-case--8398-9072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (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))) (vector 0 e-0 arg-4 e-2 e-3 e-4))))))))
-(define Metadata-Core-case--8258-8874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3))))))
-(define Metadata-Core-case--8196-8828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4))))))))))
-(define Metadata-Core-case--8168-8791 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))
-(define Metadata-Core-case--8135-8762 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4))))))))
-(define Metadata-Core-case--8051-8700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4)))))))))
-(define Metadata-Core-case--7967-8626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4)))))))))
-(define Metadata-Core-case--7818-8537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4)))))))))
-(define Metadata-Core-n--7818-8468-toPat (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (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))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--7818-8468-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--7818-8468-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 ))))))
-(define Metadata-Core-n--8398-8999-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
-(define Metadata-Core-n--8572-9167-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) 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))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8))))))))))))))))))))))))))
-(define Metadata-Core-n--8572-9166-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
-(define Metadata-Core-n--8572-9168-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) 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 ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
+(define GetType-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased 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 (Context-Core-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 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (Context-Core-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 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased 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))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((GetType-Core-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 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 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 ((Normalise-Core-getTerm 'erased 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) 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 ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) 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 ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack 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 ((GetType-Core-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 ((Normalise-Core-getNF 'erased 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 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (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 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48)))))))))
+(define Metadata-Core-case--9507-3563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1))))))
+(define Metadata-Core-case--9497-3540 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--9437-3486 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Metadata-Core-fromBuf_TTC__TTMFile 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 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--9312-3425 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
+(define Metadata-Core-case--8823-2968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (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))) (vector 0 e-0 arg-4 e-2 e-3 e-4))))))))
+(define Metadata-Core-case--8677-2755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-1 arg-2))) (else (Metadata-Core-findEntryWith 'erased arg-4 arg-3))))))
+(define Metadata-Core-case--8612-2708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-4 arg-5) e-4))))))))))
+(define Metadata-Core-case--8583-2669 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))
+(define Metadata-Core-case--8549-2639 (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-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4))))))))
+(define Metadata-Core-case--8462-2575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 (Env-Core-length 'erased 'erased arg-2) (Env-Core-bindEnv arg-0 arg-4 arg-2 arg-1)))) e-2) e-3 e-4)))))))))
+(define Metadata-Core-case--8375-2498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 e-0 (vector 1 (vector 0 arg-4 (vector 0 arg-8 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-4 arg-2 arg-1)))) e-1) e-2 e-3 e-4)))))))))
+(define Metadata-Core-case--8223-2406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (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 ((e-4 (vector-ref sc0 5))) (vector 0 (vector 1 (vector 0 arg-4 (vector 0 arg-3 arg-8)) e-0) e-1 e-2 e-3 e-4)))))))))
+(define Metadata-Core-n--8223-2335-toPat (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (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))) (vector 1 (vector 3 e-7 e-8 e-9) (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4))))))(else (vector 1 e-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4)))))))) (else (vector 0 ))))))
+(define Metadata-Core-n--8823-2892-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
+(define Metadata-Core-n--9009-3074-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 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 (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) 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))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8))))))))))))))))))))))))))
+(define Metadata-Core-n--9009-3073-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
+(define Metadata-Core-n--9009-3075-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) 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 ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 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))) (vector 1 (vector 0 e-5 e-6))))))))))))))))))
 (define Metadata-Core-toBuf_TTC__TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-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 (Binary-Utils-toBuf_TTC__Int arg-0 (let ((sc1 arg-1)) (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 (Metadata-Core-toBuf_TTC__Metadata arg-0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) ext-0)))))))))))
-(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0)))))))))))))))
+(define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0)))))))))))))))
 (define Metadata-Core-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))) (Strings-Prelude-C-43C-43 "Metadata:\xa;" (Strings-Prelude-C-43C-43 " lhsApps: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-1))))) d-0 x-0))))) d x)))) e-0) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 " names: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-1) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 " type declarations: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__Nat d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__Nat d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__Nat d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__Nat d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) e-2) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 " current LHS: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-3) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 " holes: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0))))) d x)))) e-4)))))))))))))))))))))))
-(define Metadata-Core-full_HasNames__Metadata (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9166-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9167-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9167-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--8572-9168-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) 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 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))))))))))
+(define Metadata-Core-full_HasNames__Metadata (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3073-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3074-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9009-3075-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) 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 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))))))))))
 (define Metadata-Core-fromBuf_TTC__TTMFile (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Prelude-C-47C-61_Eq__String e-5 "TTM"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased "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 (Binary-Utils-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 ((Binary-Core-checkTTCVersion "" e-7 (Binary-Core-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 (Metadata-Core-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 (vector 0 e-7 e-9)))))))))))))))))))))))))))
-(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__FC arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Nat arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__FC arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Nat arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-8244 eta-1))))) arg-8243 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 (vector 0 ) e-8))))))))))))))))))))))))
-(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-8243 eta-0))))))
+(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__FC arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Nat arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__FC arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Nat arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2107 eta-1))))) arg-2106 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 (vector 0 ) e-8))))))))))))))))))))))))
+(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2106 eta-0))))))
 (define Metadata-Core-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Metadata-Core-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 (Binary-Utils-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 ((Metadata-Core-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))) (Metadata-Core-toBuf_TTC__TTMFile e-6 (vector 0 (Binary-Core-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 (Binary-Utils-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) ext-0)))))))))))))))))))))))))))))))))))
 (define Metadata-Core-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 ((Context-Core-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 e-6 lhs) e-4))))))))))) (vector 1 act-26))))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 4))) e-3))) ext-0)))))))))))))
 (define TTMFile-Metadata-Core-version (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -4330,7 +4377,7 @@
 (define Metadata-Core-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-1) e-4))))))))) (vector 1 act-25)))))))))
 (define Metadata-Core-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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 (Metadata-Core-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 (vector-ref sc4 2))) (vector 1 e-1))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0))))))))))))
 (define Metadata-Core-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-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 (Core-Core-newRef 'erased 'erased (vector "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 (Metadata-Core-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 (vector-ref sc4 2))) e-1))))) (vector 1 act-27)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0))))))))))))
-(define Metadata-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8398-8999-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))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27)))))))))))))))))))
+(define Metadata-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8823-2892-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))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27)))))))))))))))))))
 (define Metadata-Metadata-Core-names (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define TTMFile-Metadata-Core-metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Metadata-Metadata-Core-lhsApps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -4340,66 +4387,66 @@
 (define Metadata-Core-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 (Metadata-Core-findEntryWith 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))))
 (define Metadata-Core-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 (Metadata-Core-findEntryWith 'erased (lambda (loc) (lambda (tm) ((arg-1 loc) (Builtin-snd 'erased 'erased tm)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
 (define Metadata-Core-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 (List-Data-lookupBy 'erased 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) arg-1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))))
-(define Metadata-Core-findEntryWith (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--8258-8874 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7))))))))))))
-(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-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 (PrimIO-putStrLn (Metadata-Core-show_Show__Metadata e-5) ext-0))) (vector 1 act-25)))))))))
+(define Metadata-Core-findEntryWith (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--8677-2755 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7))))))))))))
+(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25)))))))))
 (define Metadata-Metadata-Core-currentLHS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Metadata-Core-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))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))) (vector 1 act-25)))))))))
 (define Metadata-Core-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 ((Context-Core-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 ((act-26 (set-box! arg-2 (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))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 (Env-Core-length 'erased 'erased arg-5) (Env-Core-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
 (define Metadata-Core-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 ((Context-Core-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 ((act-26 (set-box! arg-2 (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))) (vector 0 e-0 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-3 arg-5 arg-6)))) e-1) e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
-(define Metadata-Core-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--7818-8468-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 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 ((act-26 (set-box! arg-2 (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))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
-(define Rewrite-Elab-TTImp-case--9411-6588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9337-6422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9286-6360 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-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 ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) 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 ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (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))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--9099-6159 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 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 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-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))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-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 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 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 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 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 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") 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 ((act-30 (Context-Core-clearDefs arg-7 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))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 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-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) 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 ((Normalise-Core-getTerm 'erased e-15) 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))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-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 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-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 ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-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 (vector 1 (vector 0 e-5 (vector 0 pred e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-case--8875-5949 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) 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-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) 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-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
-(define Rewrite-Elab-TTImp-case--8853-5924 (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) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--8875-5949 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
-(define Rewrite-Elab-TTImp-case--8807-5882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Metadata-Core-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8223-2335-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 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 ((act-26 (set-box! arg-2 (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))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26))))))))))))))
+(define Rewrite-Elab-TTImp-case--9753-6878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9673-6705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9620-6636 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-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 ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" 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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) 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 ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (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))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9415-6418 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 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 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-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))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-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 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 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 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 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 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") 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 ((act-30 (Context-Core-clearDefs arg-7 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))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 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-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) 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 ((Normalise-Core-getTerm 'erased e-15) 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))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-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 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-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 ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-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 (vector 1 (vector 0 e-5 (vector 0 pred e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Rewrite-Elab-TTImp-case--9189-6200 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) 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-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) 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-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
+(define Rewrite-Elab-TTImp-case--9166-6175 (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) (let ((bind-0 0)) (Rewrite-Elab-TTImp-case--9189-6200 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 bind-0 (List-Data-reverse 'erased arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
+(define Rewrite-Elab-TTImp-case--9119-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
 (define Rewrite-Elab-TTImp-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Rewrite-Elab-TTImp-rewriteErr e-26)))(else 1)))))
-(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 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 ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--8875-5949 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))))))
+(define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 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 ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--9189-6200 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))))))
 (define Rewrite-Elab-TTImp-findRewriteLemma (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))))))))))))
 (define Rewrite-Elab-TTImp-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 (UnifyState-Core-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 ((Normalise-Core-nf 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 ((Rewrite-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 2))) (let ((act-28 (Rewrite-Elab-TTImp-findRewriteLemma 'erased 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 ((Normalise-Core-nf 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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Normalise-Core-replace 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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 ((pred (vector 3 arg-3 e-6 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-18) (TT-Core-refsToLocals 'erased (vector 1 e-6 (vector 0 )) (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((GetType-Core-getType arg-0 arg-1 arg-4 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-quote_Quote__Term 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 (Normalise-Core-convert_Convert__Term 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) (Core-Core-throw_Catchable__Core_Error 'erased (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 (vector 0 e-11 (vector 0 pred e-20)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Rewrite-Elab-TTImp-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) 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 ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (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 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (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 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (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 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (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 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (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 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (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 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0))))))))
-(define Record-Elab-TTImp-case--10063-7159 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
-(define Record-Elab-TTImp-case--9808-7091 (lambda (arg-0 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (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-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))))
-(define Record-Elab-TTImp-case--9808-6967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13)))))
-(define Record-Elab-TTImp-case--9808-6884 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Record-Elab-TTImp-case--9631-6735 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (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))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--9631-6716-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) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0)))))))
-(define Record-Elab-TTImp-case--9378-6514 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 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 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
-(define Record-Elab-TTImp-case--9331-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9378-6514 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 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2))))))))
-(define Record-Elab-TTImp-case--9073-6440 (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-1 (vector-ref sc0 1))) (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 (Record-Elab-TTImp-findFields e-5 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9378-6514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
-(define Record-Elab-TTImp-case--9163-6325 (lambda (arg-0 arg-1 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) (let ((act-24 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
-(define Record-Elab-TTImp-case--9073-6292 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-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 ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
-(define Record-Elab-TTImp-case--9011-6165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2)))))))
-(define Record-Elab-TTImp-case--8962-6136 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define Record-Elab-TTImp-case--8830-6067 (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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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 ((Record-Elab-TTImp-n--8830-5978-getExpNames arg-0 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))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Record-Elab-TTImp-case--8833-6004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Record-Elab-TTImp-case--8779-5937 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (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 ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Record-Elab-TTImp-n--9631-6716-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 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12))))
-(define Record-Elab-TTImp-n--9073-6245-mkArgs (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 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-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9073-6245-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8))))))))))))))))))))))
-(define Record-Elab-TTImp-n--8830-5978-getExpNames (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 ((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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Record-Elab-TTImp-n--8830-5978-getExpNames arg-0 arg-1 e-5) 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Rewrite-Elab-TTImp-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) 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 ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (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 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (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 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (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 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (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 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (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 ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (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 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (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 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0))))))))
+(define Record-Elab-TTImp-case--10393-7439 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
+(define Record-Elab-TTImp-case--10131-7370 (lambda (arg-0 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (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-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))))
+(define Record-Elab-TTImp-case--10131-7243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-17)) (else arg-13)))))
+(define Record-Elab-TTImp-case--10131-7157 (lambda (arg-0 arg-1 arg-2 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Record-Elab-TTImp-case--9950-7005 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 e-5 (vector 0 arg-6 (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))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--9950-6984-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) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0)))))))
+(define Record-Elab-TTImp-case--9694-6779 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 arg-1 arg-6 e-1 arg-4 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 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
+(define Record-Elab-TTImp-case--9645-6744 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--9694-6779 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 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2))))))))
+(define Record-Elab-TTImp-case--9381-6703 (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-1 (vector-ref sc0 1))) (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 (Record-Elab-TTImp-findFields e-5 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--9694-6779 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-7 arg-0 arg-5) eta-0)))))))
+(define Record-Elab-TTImp-case--9475-6587 (lambda (arg-0 arg-1 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) (let ((act-24 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 ((recC-39 (vector 1 arg-11 e-5))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
+(define Record-Elab-TTImp-case--9381-6553 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-10 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-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 ((recC-39 (vector 1 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-9 arg-8 arg-7 (vector 1 arg-0 arg-1) arg-6 (vector 1 arg-2) arg-5 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-7 arg-2) eta-0)))))))
+(define Record-Elab-TTImp-case--9319-6422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-4 arg-3) arg-2)) (else (vector 1 (vector 0 arg-0 arg-1) (Record-Elab-TTImp-replace arg-4 arg-3 arg-2)))))))
+(define Record-Elab-TTImp-case--9267-6392 (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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define Record-Elab-TTImp-case--9131-6320 (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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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 ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 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))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Record-Elab-TTImp-case--9134-6256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Record-Elab-TTImp-case--9079-6187 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (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 ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Record-Elab-TTImp-n--9950-6984-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 (Record-Elab-TTImp-toLHS arg-6 arg-12) (Record-Elab-TTImp-toRHS arg-6 arg-12))))
+(define Record-Elab-TTImp-n--9381-6502-mkArgs (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-8 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-5 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9381-6502-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8))))))))))))))))))))))
+(define Record-Elab-TTImp-n--9131-6228-getExpNames (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 ((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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Record-Elab-TTImp-n--9131-6228-getExpNames arg-0 arg-1 e-5) 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)))(else (vector 1 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Record-Elab-TTImp-toRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toRHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39)))))))))
 (define Record-Elab-TTImp-toLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 16 arg-0 e-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toLHS arg-0 (Builtin-snd 'erased 'erased a))) e-3))) (TTImp-TTImp-apply (vector 0 arg-0 e-2) argsC-39)))))))))
-(define Record-Elab-TTImp-replace (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9011-6165 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6))))))))))))
-(define Record-Elab-TTImp-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 ((Normalise-Core-getNF 'erased 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))) ((Record-Elab-TTImp-case--9631-6735 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 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0)))))))))))))
+(define Record-Elab-TTImp-replace (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9319-6422 e-6 e-7 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__String arg-0 e-6))))))))))))
+(define Record-Elab-TTImp-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 ((Normalise-Core-getNF 'erased 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))) ((Record-Elab-TTImp-case--9950-7005 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 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0)))))))))))))
 (define Record-Elab-TTImp-needType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((22) 0) ((56) (let ((e-5 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-5))) ((57) (let ((e-8 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-8))) ((58) (let ((e-11 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-11))) ((59) (let ((e-14 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-14))) ((5) (let ((e-20 (vector-ref sc0 6))) (Record-Elab-TTImp-needType e-20)))(else 1)))))
 (define Record-Elab-TTImp-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))) (Record-Elab-TTImp-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))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-2 e-2 (vector 1 arg-4) (lambda (n) (TTImp-TTImp-apply e-3 (vector 1 (vector 0 arg-2 (vector 1 n)) (vector 0 )))) arg-6))))))))
 (define Record-Elab-TTImp-getRecordType (lambda (arg-0 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 Record-Elab-TTImp-getAllSides (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) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-getSides arg-0 arg-1 arg-2 e-2 arg-4 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))) ((Record-Elab-TTImp-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5) eta-0))))))))))))))
 (define Record-Elab-TTImp-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 (b+ 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 (Strings-Prelude-C-43C-43 arg-1 (Prelude-show_Show__Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))))))))))))))))
-(define Record-Elab-TTImp-findPath (lambda (arg-0 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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 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 (Record-Elab-TTImp-findFields 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 ((Record-Elab-TTImp-n--9073-6245-mkArgs e-2 e-3 e-10 e-14 e-13 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 ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9073-6440 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 e-7)))))))))))))))
-(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact 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 ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 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))) (let ((act-26 ((Record-Elab-TTImp-n--8830-5978-getExpNames 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 Record-Elab-TTImp-findPath (lambda (arg-0 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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-4 (arg-6 e-4))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 25 arg-2 arg-4) eta-0)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-2 e-2 (vector 0 )) eta-0)))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-10 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 (Record-Elab-TTImp-findFields 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 ((Record-Elab-TTImp-n--9381-6502-mkArgs e-2 e-3 e-10 e-14 e-13 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 ((recC-39 (vector 1 e-1 e-8))) ((Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 (vector 1 e-2 e-3) arg-4 (vector 1 e-10) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-10) eta-0))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7))))))))))(else (let ((sc1 arg-7)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Record-Elab-TTImp-case--9381-6703 e-2 e-3 e-7 e-6 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 e-7)))))))))))))))
+(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact 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 ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 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))) (let ((act-26 ((Record-Elab-TTImp-n--9131-6228-getExpNames 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 Record-Elab-TTImp-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-11)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))
-(define Record-Elab-TTImp-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 ((Check-Elab-TTImp-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 (vector-ref sc1 2))) (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 ((solvemode (Record-Elab-TTImp-case--9808-6884 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))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 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 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-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 ((Check-Elab-TTImp-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 Quote-Elab-TTImp-case--10785-11920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5)))))))))))))))))))
-(define Quote-Elab-TTImp-case--10726-11861 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-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 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))
-(define Quote-Elab-TTImp-n--10066-11730-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 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 (vector 0 e-2 e-5)))))))))))))
-(define Quote-Elab-TTImp-n--10058-11613-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
+(define Record-Elab-TTImp-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 ((Check-Elab-TTImp-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 (vector-ref sc1 2))) (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 ((solvemode (Record-Elab-TTImp-case--10131-7157 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))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 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 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-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 ((Check-Elab-TTImp-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 Quote-Elab-TTImp-case--11073-12616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5)))))))))))))))))))
+(define Quote-Elab-TTImp-case--11012-12556 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 9 e-4))))) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-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 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))
+(define Quote-Elab-TTImp-n--10294-12415-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 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 (vector 0 e-2 e-5)))))))))))))
+(define Quote-Elab-TTImp-n--10286-12289-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))))))))))))))))))))
 (define Quote-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
 (define Quote-Elab-TTImp-getUnquoteUpdate (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-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 ((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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5)))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteTy (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-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))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))))
-(define Quote-Elab-TTImp-getUnquoteRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10058-11613-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-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 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))))))
+(define Quote-Elab-TTImp-getUnquoteRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10286-12289-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-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 0 e-0 e-1 e-5 e-3 e-6)))))))))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 (vector 0 e-0 e-1 e-2 e-3 e-5))))))))))))))))
-(define Quote-Elab-TTImp-getUnquoteDecl (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10066-11730-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define Quote-Elab-TTImp-getUnquoteDecl (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10294-12415-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-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-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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
 (define Quote-Elab-TTImp-getUnquoteData (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))))))
 (define Quote-Elab-TTImp-getUnquoteClause (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 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-8 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 2 e-8 e-5)))))))))))))))
 (define Quote-Elab-TTImp-getUnquote (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))) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) 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-5 e-6))))))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteUpdate arg-0 arg-1 arg-2 eta-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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 7 e-25 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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-31 e-5 e-33 e-6)))))))))))))))))) ((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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 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))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-37) 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-6))))))))))))))))) ((12) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 eta-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 (vector 12 e-38 e-39 e-5)))))))))))) ((13) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 13 e-41 e-5 e-6))))))))))))))))) ((14) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 14 e-44 e-5))))))))))) ((15) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 15 e-46 e-47 e-5)))))))))))) ((17) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 17 e-49 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))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 18 e-53 e-54 e-5)))))))))))) ((19) (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 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 19 e-56 e-57 e-5)))))))))))) ((20) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 20 e-59 e-5))))))))))) ((21) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 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))) (vector 1 (vector 21 e-61 e-5))))))))))) ((22) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-64) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-63 e-5))))))))))) ((25) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-0 arg-2 "q" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (vector 1 (vector 0 e-5 (vector 0 e-65 e-66)) 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 25 e-65 (vector 0 e-65 e-5)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
@@ -4408,522 +4455,525 @@
 (define Quote-Elab-TTImp-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 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Quote.Unq" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Quote-Elab-TTImp-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 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-9 e-5 (Quote-Elab-TTImp-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 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-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 ((Quote-Elab-TTImp-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 (Normalise-Core-normalise 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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (Normalise-Core-gnf arg-0 arg-8 e-10) arg-11) ext-0)))))))))))))))))))))))))))))))))))))))))))
 (define Quote-Elab-TTImp-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-10))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExactI (Reflect-Core-reflectionttimp "TTImp") (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-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)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 9 e-4))))) 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))) (let ((sc8 e-12)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-27 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) eta-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 ((Normalise-Core-getTerm 'erased e-13) eta-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 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-6) e-14 e-16) (TT-Core-refToLocal 'erased e-6 e-6 e-15)))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))))))))))))))))))))))))
 (define Prim-Elab-TTImp-checkPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 10 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 11 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 12 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 13 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 14 ))))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 15 ))))) ((6) (let ((e-6 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 16 ))))) ((7) (let ((e-7 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 17 ))))) ((8) (let ((e-8 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 18 ))))) ((9) (vector 0 (vector 9 arg-1 (vector 9 )) (vector 9 arg-1 (vector 19 )))) ((10) (vector 0 (vector 9 arg-1 (vector 10 )) (vector 11 arg-1))) ((11) (vector 0 (vector 9 arg-1 (vector 11 )) (vector 11 arg-1))) ((12) (vector 0 (vector 9 arg-1 (vector 12 )) (vector 11 arg-1))) ((13) (vector 0 (vector 9 arg-1 (vector 13 )) (vector 11 arg-1))) ((14) (vector 0 (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (vector 0 (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (vector 0 (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (vector 0 (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (vector 0 (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) (else (vector 0 (vector 9 arg-1 (vector 19 )) (vector 11 arg-1)))))))
-(define Local-Elab-TTImp-case--10147-7159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8)))
-(define Local-Elab-TTImp-case--9883-7071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 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 ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0))))))))))))))))
-(define Local-Elab-TTImp-case--9883-6880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 Local-Elab-TTImp-case--9850-6842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--9883-6880 arg-0 arg-1 arg-2 arg-3 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1))))))
-(define Local-Elab-TTImp-case--9737-6757 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3)))))))))
-(define Local-Elab-TTImp-case--9708-6720 (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 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-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) 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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0)))))))
-(define Local-Elab-TTImp-case--8737-6645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-6)))
-(define Local-Elab-TTImp-case--8737-6589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Local-Elab-TTImp-case--8737-6521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9)))))))))))))
-(define Local-Elab-TTImp-case--8737-6338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3)))))
-(define Local-Elab-TTImp-case--8737-6261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 ))))))
-(define Local-Elab-TTImp-case--8758-6120 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13)))))
-(define Local-Elab-TTImp-case--8757-6073 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
-(define Local-Elab-TTImp-case--8756-5913 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--8737-5882-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--8737-5882-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15)))))))
-(define Local-Elab-TTImp-n--8737-5885-updateTyName (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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) e-2)))))))
-(define Local-Elab-TTImp-n--8737-5887-updateName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--8737-5885-updateTyName arg-0 arg-1 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)))))))) ((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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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))))) ((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 (Local-Elab-TTImp-n--8737-5886-updateDataName arg-0 arg-1 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-10))))))(else arg-14)))))
-(define Local-Elab-TTImp-n--8737-5886-updateDataName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5885-updateTyName arg-0 arg-1 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)) 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 (Local-Elab-TTImp-n--8737-5884-newName arg-0 arg-1 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)))))))))
-(define Local-Elab-TTImp-n--8737-5888-setPublic (lambda (arg-0 arg-1 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) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5888-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13)))))
-(define Local-Elab-TTImp-n--8737-5884-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--8758-6120 arg-0 arg-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-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-14 arg-13))))
-(define Local-Elab-TTImp-n--8737-5882-dropLinear (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--8756-5913 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))))
-(define Local-Elab-TTImp-n--8737-5883-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 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 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-10 (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 (b+ 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 ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 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 ((Context-Core-addName arg-12 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 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5)))))))))))))))))))))))))))))
-(define Local-Elab-TTImp-getLocalTerm (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 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9708-6720 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3)))))))))
-(define Local-Elab-TTImp-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) (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 ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (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 ((Context-Core-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 ((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 ((nestdecls (Local-Elab-TTImp-case--8737-6338 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 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--8737-5883-applyEnv 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 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--8737-5882-dropLinear 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 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (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 ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (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 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--8737-5887-updateName 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 nestC-39 eta-0)) nestdecls)) 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 (unbox arg-3))) (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-3 (let ((sc8 e-12)) (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-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Local-Elab-TTImp-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 ((Context-Core-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 ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--9883-6880 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 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-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 Utils-Elab-TTImp-case--7006-11857 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3)))))))
-(define Utils-Elab-TTImp-case--7006-11796 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3)))))))
-(define Utils-Elab-TTImp-case--6946-11702 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1))))))))
-(define Utils-Elab-TTImp-case--6861-11666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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-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-5 arg-6 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 Utils-Elab-TTImp-case--6840-11618 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (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-22 e-2 e-3 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))))))))))))))))))))) eta-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 0 ))))))))))))
-(define Utils-Elab-TTImp-case--6824-11600 (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))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (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))) (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-24 e-23 e-2 e-3 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))) (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 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Utils-Elab-TTImp-case--6596-11485 (lambda (arg-0 arg-1 arg-2 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 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13))))))
-(define Utils-Elab-TTImp-case--6596-11419 (lambda (arg-0 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-6 arg-10)) (else arg-10)))))
-(define Utils-Elab-TTImp-case--6557-11389 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-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))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6596-11485 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-2))))))))))))))))
-(define Utils-Elab-TTImp-case--6380-11287 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (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 (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Utils-Elab-TTImp-case--6393-11233 (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) 0) (else (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7))))))
-(define Utils-Elab-TTImp-n--7213-11937-notLets (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7213-11937-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7213-11937-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8))))))))))))))
-(define Utils-Elab-TTImp-n--6380-11201-notErased (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) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6380-11201-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6393-11233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6393-11233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-7)))))))))))))))
-(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--6946-11702 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-1))))
+(define Local-Elab-TTImp-case--10454-7428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8)))
+(define Local-Elab-TTImp-case--10189-7338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 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 ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0))))))))))))))))
+(define Local-Elab-TTImp-case--10189-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 Local-Elab-TTImp-case--10154-7108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 arg-0 arg-1 arg-2 arg-3 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) 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 ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1))))))
+(define Local-Elab-TTImp-case--10040-7020 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3)))))))))
+(define Local-Elab-TTImp-case--10011-6982 (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 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-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) 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-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0)))))))
+(define Local-Elab-TTImp-case--9026-6908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-6)))
+(define Local-Elab-TTImp-case--9026-6852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-23)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Local-Elab-TTImp-case--9026-6784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9)))))))))))))
+(define Local-Elab-TTImp-case--9026-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 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3)))))
+(define Local-Elab-TTImp-case--9026-6518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 ))))))
+(define Local-Elab-TTImp-case--9047-6374 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-13)))))(else arg-13)))))(else arg-13)))))
+(define Local-Elab-TTImp-case--9046-6326 (lambda (arg-0 arg-1 arg-2 arg-3 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 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))
+(define Local-Elab-TTImp-case--9045-6162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (TT-Core-setMultiplicity 'erased arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15))) (else (vector 1 arg-16 (Local-Elab-TTImp-n--9026-6131-dropLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-15)))))))
+(define Local-Elab-TTImp-n--9026-6134-updateTyName (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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) e-2)))))))
+(define Local-Elab-TTImp-n--9026-6136-updateName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 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)))))))) ((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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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))))) ((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 (Local-Elab-TTImp-n--9026-6135-updateDataName arg-0 arg-1 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-10))))))(else arg-14)))))
+(define Local-Elab-TTImp-n--9026-6135-updateDataName (lambda (arg-0 arg-1 arg-2 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 ((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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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) e-2 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6134-updateTyName arg-0 arg-1 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)) 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 (Local-Elab-TTImp-n--9026-6133-newName arg-0 arg-1 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)))))))))
+(define Local-Elab-TTImp-n--9026-6137-setPublic (lambda (arg-0 arg-1 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) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6137-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13)))))
+(define Local-Elab-TTImp-n--9026-6133-newName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (Local-Elab-TTImp-case--9047-6374 arg-0 arg-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-13 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-14 arg-13))))
+(define Local-Elab-TTImp-n--9026-6131-dropLinear (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Local-Elab-TTImp-case--9045-6162 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))))
+(define Local-Elab-TTImp-n--9026-6132-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 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 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-10 (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 (b+ 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 ((nestedName_in (vector 6 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 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 ((Context-Core-addName arg-12 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 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5)))))))))))))))))))))))))))))
+(define Local-Elab-TTImp-getLocalTerm (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 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--10011-6982 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3)))))))))
+(define Local-Elab-TTImp-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) (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 ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (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 ((Context-Core-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 ((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 ((nestdecls (Local-Elab-TTImp-case--9026-6595 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 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9026-6132-applyEnv 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 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((nestC-39 (List-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9026-6131-dropLinear 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 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (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 ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (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 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9026-6136-updateName 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 nestC-39 eta-0)) nestdecls)) 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 (unbox arg-3))) (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-3 (let ((sc8 e-12)) (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-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Local-Elab-TTImp-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 ((Context-Core-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 ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--10189-7146 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 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updating case local " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-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 Utils-Elab-TTImp-case--7240-12499 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3)))))))
+(define Utils-Elab-TTImp-case--7240-12438 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3)))))))
+(define Utils-Elab-TTImp-case--7180-12344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) eta-0)) (else (lambda (eta-0) (lambda (eta-1) (Core-Core-wrapError 'erased arg-1 eta-0 eta-1))))))))
+(define Utils-Elab-TTImp-case--7095-12308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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-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-5 arg-6 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 Utils-Elab-TTImp-case--7073-12260 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (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-22 e-2 e-3 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))))))))))))))))))))) eta-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 0 ))))))))))))
+(define Utils-Elab-TTImp-case--7055-12241 (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))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (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))) (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-24 e-23 e-2 e-3 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))) (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 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Utils-Elab-TTImp-case--6824-12122 (lambda (arg-0 arg-1 arg-2 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 (vector 1 arg-6 arg-9) arg-13)) (else (vector 0 arg-9 arg-13))))))
+(define Utils-Elab-TTImp-case--6824-12055 (lambda (arg-0 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-6 arg-10)) (else arg-10)))))
+(define Utils-Elab-TTImp-case--6783-12024 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-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))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--6824-12122 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2))))))))))))))))
+(define Utils-Elab-TTImp-case--6604-11919 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (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 (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Utils-Elab-TTImp-case--6617-11864 (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) 0) (else (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-9 (+ 1 0)) arg-8 arg-7))))))
+(define Utils-Elab-TTImp-n--7447-12579-notLets (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7447-12579-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8))))))))))))))
+(define Utils-Elab-TTImp-n--6604-11832-notErased (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) 0)(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Utils-Elab-TTImp-n--6604-11832-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6617-11864 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-7)))))))))))))))
+(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--7180-12344 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-1))))
 (define Utils-Elab-TTImp-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 ((Context-Core-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 (Utils-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-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))))))))))))))))))))) 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 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
 (define Utils-Elab-TTImp-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-2))) ((3) (let ((e-6 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-6)))(else (vector 1 ))))))
-(define Utils-Elab-TTImp-findErasedFrom (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 ((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))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))) 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 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) 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 ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (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 ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6596-11485 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))))))))
+(define Utils-Elab-TTImp-findErasedFrom (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 ((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))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))) 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 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) 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 ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (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 ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--6824-12122 e-7 e-8 e-6 e-4 e-2 e-1 arg-1 arg-0 e-5 e-11 e-10 _-0 e-12 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))))))))
 (define Utils-Elab-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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))) ((Utils-Elab-TTImp-findErasedFrom e-5 0 e-6) ext-0)))))))))))))
-(define Utils-Elab-TTImp-detagSafe (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-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 (Utils-Elab-TTImp-n--6380-11201-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7213-11937-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6))))))))))))))))
-(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7006-11796 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7006-11857 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7))))))))))))))))
-(define Lazy-Elab-TTImp-case--8917-11656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))
-(define Lazy-Elab-TTImp-case--8871-11614 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))))))))))
-(define Lazy-Elab-TTImp-case--8643-11436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5))))))))))))))))))))
-(define Lazy-Elab-TTImp-case--8514-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-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 ((Normalise-Core-getTerm 'erased e-4) eta-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))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0)))))))))))
-(define Lazy-Elab-TTImp-case--8514-11294 (lambda (arg-0 arg-1 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Lazy-Elab-TTImp-case--8426-11221 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3))))))))
-(define Lazy-Elab-TTImp-n--8514-11274-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 Utils-Elab-TTImp-detagSafe (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-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 (Utils-Elab-TTImp-n--6604-11832-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7447-12579-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6))))))))))))))))
+(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12438 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--7240-12499 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7))))))))))))))))
+(define Lazy-Elab-TTImp-case--9207-12306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))
+(define Lazy-Elab-TTImp-case--9158-12263 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))))))))))
+(define Lazy-Elab-TTImp-case--8924-12075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5))))))))))))))))))))
+(define Lazy-Elab-TTImp-case--8791-12014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-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 ((Normalise-Core-getTerm 'erased e-4) eta-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))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0)))))))))))
+(define Lazy-Elab-TTImp-case--8791-11927 (lambda (arg-0 arg-1 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Lazy-Elab-TTImp-case--8702-11853 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3))))))))
+(define Lazy-Elab-TTImp-n--8791-11906-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 Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (gty) (lambda (eta-0) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 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 (Normalise-Core-glueBack 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 ((Check-Elab-TTImp-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-27 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 arg-9 e-9 e-2) (Normalise-Core-glueBack arg-0 e-5 arg-8 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Forcing a non-delayed type") ext-0)))))))))))))))))))))))))))))
 (define Lazy-Elab-TTImp-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 6 arg-9 arg-10 e-2) e-3))))))))))))
-(define Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (Normalise-Core-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 ((solvemode (Lazy-Elab-TTImp-case--8514-11294 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 (Unify-Core-solveConstraints arg-1 arg-3 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 (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8514-11274-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 (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased 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 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0)))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13262-11428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--13332-11085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--13332-10977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0)))))))))))
-(define ImplicitBind-Elab-TTImp-case--13262-10773 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11261 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) 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 ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) 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 ((act-26 (let ((act-26 (unbox arg-10))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (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 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (Unify-Core-checkDots arg-10 arg-12 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 ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 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 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 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 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) 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 ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 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-9))) (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 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (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 ((act-35 ((Normalise-Core-getTerm 'erased e-3) 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))) (let ((act-36 (let ((act-36 (unbox arg-12))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (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))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) 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 ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12776-10525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12776-10412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--12710-10266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--12776-10412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 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 ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0)))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12636-10216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((ImplicitBind-Elab-TTImp-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) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--12776-10412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) 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 ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) 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 (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12273-9859-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 (Check-Elab-TTImp-bindingRig 'erased 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 ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--12273-10152 (lambda (arg-0 arg-1 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 ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 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 ((e-7 (vector-ref sc3 1))) (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))) ((ImplicitBind-Elab-TTImp-case--12636-10216 arg-0 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 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-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 ImplicitBind-Elab-TTImp-case--12273-10087 (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1)))))
-(define ImplicitBind-Elab-TTImp-case--11453-9800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--11453-9753 (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-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--11475-9528 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11453-9122-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13)))))))
-(define ImplicitBind-Elab-TTImp-case--11665-9349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 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 ((ImplicitBind-Elab-TTImp-n--11453-9120-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 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11453-9121-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 ImplicitBind-Elab-TTImp-case--11474-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (UnifyState-Core-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))) ((ImplicitBind-Elab-TTImp-case--11665-9349 arg-0 arg-1 arg-2 arg-3 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-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11453-9121-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)))))))(else (ImplicitBind-Elab-TTImp-n--11453-9121-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 ImplicitBind-Elab-TTImp-case--11474-9184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (ImplicitBind-Elab-TTImp-n--11453-9121-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 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (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 ((ImplicitBind-Elab-TTImp-n--11453-9120-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 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--11393-9066 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 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 (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--10820-8915 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3)))))))
-(define ImplicitBind-Elab-TTImp-case--10837-8838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3)))))))))
-(define ImplicitBind-Elab-TTImp-case--10897-8688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21)))))))
-(define ImplicitBind-Elab-TTImp-case--10837-8637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3)))))))))))
-(define ImplicitBind-Elab-TTImp-case--10635-8439 (lambda (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 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6)))))))))
-(define ImplicitBind-Elab-TTImp-case--10339-8187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9)))
-(define ImplicitBind-Elab-TTImp-case--10208-8115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
-(define ImplicitBind-Elab-TTImp-case--9805-7759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define ImplicitBind-Elab-TTImp-case--9499-7675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-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 (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9480-7400-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 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 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-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 (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-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 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-case--9517-7567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (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 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9498-7421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) 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 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 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 (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 ((pC-39 (TT-Core-forgetDef 'erased 'erased 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 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-11 e-6)))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9169-7280 (lambda (arg-0 arg-1 arg-2 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) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-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 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9169-7171-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2))))))))))))))))
-(define ImplicitBind-Elab-TTImp-case--9169-7133 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3)))))))))
-(define ImplicitBind-Elab-TTImp-case--8963-6940 (lambda (arg-0 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) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 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 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--10820-8586-tidyName (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))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8)))))
-(define ImplicitBind-Elab-TTImp-n--10111-7992-swapP (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)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9121-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) 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))) ((ImplicitBind-Elab-TTImp-case--11474-9184 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 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased 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 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-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 (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11474-9299 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 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0)))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9120-normBindingTy (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 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) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11321-8998-nHoles (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-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 (vector 0 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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) 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))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--9480-7401-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-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))) ((ImplicitBind-Elab-TTImp-n--9480-7400-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) eta-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 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--9169-7171-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 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9169-7171-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 )))))))))
-(define ImplicitBind-Elab-TTImp-n--9480-7400-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) (ImplicitBind-Elab-TTImp-case--9498-7421 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 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13))))
-(define ImplicitBind-Elab-TTImp-n--10755-8530-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-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5)))))
-(define ImplicitBind-Elab-TTImp-n--12273-9858-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) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9122-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)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11475-9528 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 used (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 used)))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--10820-8587-getBinds (lambda (arg-0 arg-1 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) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (ImplicitBind-Elab-TTImp-case--10837-8637 'erased 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-9 arg-11 (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) 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))) (ImplicitBind-Elab-TTImp-case--10837-8838 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-n--11453-9123-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11453-9122-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11453-9123-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))))))))
-(define ImplicitBind-Elab-TTImp-n--12273-9859-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) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12273-9858-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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ImplicitBind-Elab-TTImp-n--9169-7172-bindInner (lambda (arg-0 arg-1 arg-2 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) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9169-7172-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))
-(define ImplicitBind-Elab-TTImp-swapVars (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))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10339-8187 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10111-7992-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased)))))))
-(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10208-8115 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased))))))))))))))
-(define ImplicitBind-Elab-TTImp-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 ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--10635-8439 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (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 Lazy-Elab-TTImp-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (Normalise-Core-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 ((solvemode (Lazy-Elab-TTImp-case--8791-11927 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 (Unify-Core-solveConstraints arg-1 arg-3 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 (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8791-11906-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 (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased 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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased 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 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0)))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13629-11643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 arg-3 e-2 0 e-4 e-5))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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 (vector 0 ) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13703-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0)))))))))))
+(define ImplicitBind-Elab-TTImp-case--13629-10958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) 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 ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) 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 ((act-26 (let ((act-26 (unbox arg-10))) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (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 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (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 (Core-Core-throw_Catchable__Core_Error 'erased err eta-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 ((act-28 (Unify-Core-checkDots arg-10 arg-12 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 ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 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 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 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 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) 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 ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 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-9))) (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 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (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 ((act-35 ((Normalise-Core-getTerm 'erased e-3) 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))) (let ((act-36 (let ((act-36 (unbox arg-12))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-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 ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (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))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) 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 ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13134-10699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-19)) e-5) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) arg-18 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--13134-10586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--13067-10435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 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 ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0)))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--12989-10384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((ImplicitBind-Elab-TTImp-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) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--13134-10586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) 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 ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added Bound implicit " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) 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 (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 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 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 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12626-10019-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 (Check-Elab-TTImp-bindingRig 'erased 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 ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--12626-10312 (lambda (arg-0 arg-1 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 ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 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 ((e-7 (vector-ref sc3 1))) (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))) ((ImplicitBind-Elab-TTImp-case--12989-10384 arg-0 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 n e-6 e-7 e-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc5 e-8)) (let ((e-17 (vector-ref sc5 5))) e-17)))) eta-0))))))))))))))))))))))))(else (Check-Elab-TTImp-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 ImplicitBind-Elab-TTImp-case--12626-10247 (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (Env-Core-defined arg-0 (vector 1 arg-2) arg-4)))(else 1)))))
+(define ImplicitBind-Elab-TTImp-case--11784-9962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--11784-9915 (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-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--11806-9676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-9 arg-10) (vector 1 (vector 0 arg-11 arg-12) arg-13))) (else (vector 1 (vector 0 arg-11 arg-12) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 0 arg-9 arg-10) arg-15 (vector 1 arg-11 arg-14) arg-13)))))))
+(define ImplicitBind-Elab-TTImp-case--12004-9494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 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 ((ImplicitBind-Elab-TTImp-n--11784-9256-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 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11784-9257-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 ImplicitBind-Elab-TTImp-case--11805-9443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (UnifyState-Core-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))) ((ImplicitBind-Elab-TTImp-case--12004-9494 arg-0 arg-1 arg-2 arg-3 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-8 e-7 e-6 e-3 e-9 (Prelude-C-38C-38 e-9 (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-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)))))))(else (ImplicitBind-Elab-TTImp-n--11784-9257-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 ImplicitBind-Elab-TTImp-case--11805-9324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (ImplicitBind-Elab-TTImp-n--11784-9257-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 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (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 ((ImplicitBind-Elab-TTImp-n--11784-9256-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 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--11721-9201 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 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 (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--11146-9045 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (vector 0 e-2 e-3)))))))
+(define ImplicitBind-Elab-TTImp-case--11163-8968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-15))) (let ((bpatC-39 (TT-Core-refsToLocals 'erased arg-9 arg-20 arg-14))) (vector 0 (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-16 bpatC-39 btyC-39) e-3)))))))))
+(define ImplicitBind-Elab-TTImp-case--11223-8818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) arg-22) arg-20) (vector 3 arg-7 arg-10 (vector 5 arg-14 arg-22) arg-21)))))))
+(define ImplicitBind-Elab-TTImp-case--11163-8767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((btyC-39 (TT-Core-refsToLocals 'erased arg-18 arg-19 arg-12))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (vector 0 (vector 3 arg-7 arg-10 (vector 2 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-14 (TT-Core-map_Functor__PiInfo 'erased 'erased (lambda (eta-0) (TT-Core-weakenNs_Weaken__Term arg-8 arg-18 eta-0)) arg-13) btyC-39) e-2) (vector 3 arg-7 arg-10 (vector 5 arg-14 btyC-39) e-3)))))))))))
+(define ImplicitBind-Elab-TTImp-case--10961-8569 (lambda (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 3 arg-10 arg-3 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-7 (vector 3 arg-2 arg-1) (vector 2 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-10 arg-3 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term (vector 3 arg-2 arg-1) arg-0 eta-0)) arg-9) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-6)))))))))
+(define ImplicitBind-Elab-TTImp-case--10665-8317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-8 arg-7 arg-9)))
+(define ImplicitBind-Elab-TTImp-case--10534-8245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (+ 1 arg-9)))
+(define ImplicitBind-Elab-TTImp-case--10125-7885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define ImplicitBind-Elab-TTImp-case--9812-7798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-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 (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9793-7515-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 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 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-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 (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-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 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-case--9830-7688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (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 (vector 1 (vector 0 arg-17 (vector 0 arg-4 arg-14 arg-20 (TT-Core-embedSub 'erased 'erased arg-10 arg-18) (TT-Core-embedSub 'erased 'erased arg-10 arg-16))) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9811-7536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "Can't bind implicit " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) 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 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 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 (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 ((pC-39 (TT-Core-forgetDef 'erased 'erased 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 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased 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 (TT-Core-embedSub 'erased 'erased arg-11 e-6)))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9479-7395 (lambda (arg-0 arg-1 arg-2 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) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-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 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2))))))))))))))))
+(define ImplicitBind-Elab-TTImp-case--9479-7245 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3)))))))))
+(define ImplicitBind-Elab-TTImp-case--9266-7046 (lambda (arg-0 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) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 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 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11146-8716-tidyName (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))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1))) ((3) (let ((e-2 (vector-ref sc0 1))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((6) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5)))(else arg-8)))))
+(define ImplicitBind-Elab-TTImp-n--10437-8122-swapP (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)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9257-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) 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))) ((ImplicitBind-Elab-TTImp-case--11805-9324 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 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased 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 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-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 (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--11805-9443 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 e-8 (TT-Core-getFnArgs 'erased e-5)) eta-0)))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9256-normBindingTy (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 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) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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 (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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 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-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11648-9129-nHoles (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-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 (vector 0 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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) 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))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--9793-7516-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-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))) ((ImplicitBind-Elab-TTImp-n--9793-7515-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) eta-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 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--9479-7283-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 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 0 ) 0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9479-7283-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-6)))))(else (vector 0 )))))))(else (vector 0 )))))))))
+(define ImplicitBind-Elab-TTImp-n--9793-7515-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) (ImplicitBind-Elab-TTImp-case--9811-7536 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 (TT-Core-shrinkTerm 'erased 'erased arg-15 arg-13))))
+(define ImplicitBind-Elab-TTImp-n--11081-8660-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-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-9 e-10) (vector 2 e-12 (vector 0 ) e-14) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-9 e-10) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5))))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))(else (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))) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 (vector 2 e-6 e-7 e-8) (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 e-2 arg-4) e-4))))))(else arg-5)))))))))))(else arg-5)))))
+(define ImplicitBind-Elab-TTImp-n--12626-10018-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) (Prelude-C-38C-38 (Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9258-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)) (case (vector-ref sc0 0) ((0) (vector 1 arg-9 (vector 0 )))(else (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-12)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((used (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11806-9676 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 used (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 used)))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11146-8717-getBinds (lambda (arg-0 arg-1 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) (vector 0 (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-12) (TT-Core-refsToLocals 'erased arg-9 arg-11 arg-13))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (ImplicitBind-Elab-TTImp-case--11163-8767 'erased 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-9 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) 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))) (ImplicitBind-Elab-TTImp-case--11163-8968 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 arg-9 e-19 e-20 e-6 e-10 e-22 e-21 e-18 e-3 arg-13 arg-12 arg-11 (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (vector 1 e-6 arg-9) e-3 (vector 1 e-6 e-10 arg-11) arg-12 arg-13))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-n--11784-9259-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11784-9258-insert arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 arg-9 (vector 0 ) (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))))))))
+(define ImplicitBind-Elab-TTImp-n--12626-10019-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) (let ((sc0 (ImplicitBind-Elab-TTImp-n--12626-10018-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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ImplicitBind-Elab-TTImp-n--9479-7284-bindInner (lambda (arg-0 arg-1 arg-2 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) (vector 1 arg-13))(else (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-7 (vector 3 arg-6 e-1 e-6 arg-13) e-11)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))
+(define ImplicitBind-Elab-TTImp-swapVars (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))) (let ((e-4 (vector-ref sc0 3))) (ImplicitBind-Elab-TTImp-case--10665-8317 'erased 'erased 'erased arg-3 'erased e-4 'erased e-3 e-2 (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased arg-3 e-4 'erased)))))) ((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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 eta-0)) e-18) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 1 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-22) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-27) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased arg-3 e-36) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased 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 ImplicitBind-Elab-TTImp-swapIsVarH (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (+ 1 0))(else (let ((e-0 (- arg-4 1))) (ImplicitBind-Elab-TTImp-n--10437-8122-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased)))))))
+(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--10534-8245 'erased 'erased 'erased 'erased e-4 e-2 e-3 'erased idx (ImplicitBind-Elab-TTImp-swapIsVar 'erased 'erased 'erased 'erased e-3 e-4 'erased))))))))))))))
+(define ImplicitBind-Elab-TTImp-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 ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 (vector 0 ) e-10) e-4))) (ImplicitBind-Elab-TTImp-case--10961-8569 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (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 ImplicitBind-Elab-TTImp-normaliseHolesScope (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))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-3) (vector 1 ) (TT-Core-binderType 'erased e-3)) arg-2) 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 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 arg-1 arg-2 arg-3 eta-0)))))))
-(define ImplicitBind-Elab-TTImp-mkPatternHole (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) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9169-7280 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9169-7172-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0))))))))))
-(define ImplicitBind-Elab-TTImp-mkOuterHole (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 (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--8963-6940 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 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 ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name 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 ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased 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 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 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))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7)))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-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)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--10755-8530-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2)))))
+(define ImplicitBind-Elab-TTImp-mkPatternHole (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) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9479-7395 arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub env e-6 (ImplicitBind-Elab-TTImp-n--9479-7284-bindInner arg-0 e-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-0 arg-7 e-6 sub)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0))))))))))
+(define ImplicitBind-Elab-TTImp-mkOuterHole (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 (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 ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased 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))) ((ImplicitBind-Elab-TTImp-case--9266-7046 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 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 ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name 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 ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased 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 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 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))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7)))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-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)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11081-8660-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2)))))
 (define ImplicitBind-Elab-TTImp-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 (Context-Core-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 (Context-Core-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 (UnifyState-Core-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))
-(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (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 ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 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 ((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 ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11453-9121-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) 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 ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11453-9123-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-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 resC-39)))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-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 ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12273-10152 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12273-10087 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
-(define ImplicitBind-Elab-TTImp-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 ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-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 ((Check-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11261 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 oldenv oldsub oldbif dontbind e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13332-11159 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 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-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 (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (Unify-Core-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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((ImplicitBind-Elab-TTImp-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 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 (Check-Elab-TTImp-clearToBind 'erased arg-4 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 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub 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 (vector 0 ) 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles 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 (Normalise-Core-normaliseHoles 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))) ((ImplicitBind-Elab-TTImp-bindImplicits 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 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindUnsolved (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-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 ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9480-7401-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-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0))))))))))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11321-8998-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) 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 ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7))))))))))))))
-(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--10820-8586-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--10820-8587-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7)))))))
-(define Hole-Elab-TTImp-case--8505-11470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-15 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))
-(define Hole-Elab-TTImp-case--8244-11424 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 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 ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0)))))))))))
-(define Hole-Elab-TTImp-case--8283-11273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-12 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-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 (vector 0 e-3 arg-1))))))))))))))))))))
-(define Hole-Elab-TTImp-case--8244-11226 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-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 (Context-Core-addUserHole arg-11 arg-12 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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-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 (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0)))))))))))
-(define Hole-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) 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))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8) 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)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-5 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 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) 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 ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 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))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 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))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-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)) (case (vector-ref sc5 0) ((0) (let ((act-29 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) 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 ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-7 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 ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-29 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0))))))))))))))))))))))))))))))))))))))))
-(define Dot-Elab-TTImp-case--8992-7059 (lambda (arg-0 arg-1 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-7)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
-(define Dot-Elab-TTImp-case--8992-6993 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 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-1))))))))))))))))))))))))))
-(define Dot-Elab-TTImp-case--8954-6940 (lambda (arg-0 arg-1 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 (eta-0) (let ((act-24 ((Check-Elab-TTImp-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)) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-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 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0)))))))
-(define Dot-Elab-TTImp-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--8954-6940 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)))))))))
-(define Case-Elab-TTImp-case--13579-10693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0)))))))
-(define Case-Elab-TTImp-case--13579-10600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-26 (let ((act-26 (unbox arg-13))) (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 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) 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))) ((Case-Elab-TTImp-n--12797-9734-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--13579-10449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define Case-Elab-TTImp-case--12797-10396 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 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 ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13579-10449 arg-0 arg-1 arg-2 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-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) 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 ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) 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 ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--12797-9734-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--12797-10333 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--12797-9737-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-2))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define Case-Elab-TTImp-case--13158-10107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Case-Elab-TTImp-n--12797-9735-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-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--13087-10036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) 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 ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--12797-9736-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-20 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 ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--12797-9735-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-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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))))))(else (Case-Elab-TTImp-n--12797-9737-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)))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--12822-9982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) 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-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Case-Elab-TTImp-n--12797-9736-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)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--12797-9735-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 ((Case-Elab-TTImp-n--12797-9737-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 (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-case--12821-9858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 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 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-case--10478-9600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" 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))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
-(define Case-Elab-TTImp-case--11851-9501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-45)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
-(define Case-Elab-TTImp-case--11851-9389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9)))))))))))))
-(define Case-Elab-TTImp-case--11851-9233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define Case-Elab-TTImp-case--10478-8924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 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 ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty 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 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--11851-9233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) 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 ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) 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 ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10478-7810-updateClause arg-0 arg-1 arg-2 arg-3 arg-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-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-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 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (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 ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (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 ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) 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 ((act-36 (let ((act-36 (unbox arg-13))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-case--11563-8735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 2 )) (else (vector 0 ))))))
-(define Case-Elab-TTImp-case--10478-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11563-8735 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 ))))))
-(define Case-Elab-TTImp-case--10508-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10478-7809-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 lhsC-39))))))))
-(define Case-Elab-TTImp-case--10508-8506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10478-7809-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-22 lhsC-39) arg-18 arg-17 arg-16)))))))
-(define Case-Elab-TTImp-case--10508-8434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10478-7806-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 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10478-7809-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 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16)))))))))
-(define Case-Elab-TTImp-case--10503-8227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18)))))
-(define Case-Elab-TTImp-case--10502-8153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3))))))))
-(define Case-Elab-TTImp-case--10501-8031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17))))))
-(define Case-Elab-TTImp-case--10501-7935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18))))))
-(define Case-Elab-TTImp-case--10375-7727 (lambda (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Case-Elab-TTImp-case--10223-7609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6))))
-(define Case-Elab-TTImp-case--10182-7565 (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 (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define Case-Elab-TTImp-case--9765-7148 (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 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
-(define Case-Elab-TTImp-n--10478-7807-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) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10478-7807-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) (Case-Elab-TTImp-n--10478-7807-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))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10478-7807-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-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10478-7807-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-11)))(else (vector 0 ))))))
-(define Case-Elab-TTImp-n--10478-7810-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))) (Case-Elab-TTImp-case--10508-8434 arg-0 arg-1 arg-2 arg-3 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 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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))) (Case-Elab-TTImp-case--10508-8506 arg-0 arg-1 arg-2 arg-3 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-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10508-8574 arg-0 arg-1 arg-2 arg-3 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 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10478-7804-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 (Case-Elab-TTImp-n--10478-7807-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))))))))))
-(define Case-Elab-TTImp-n--10478-7805-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10478-7805-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)))))(else arg-18)))))))))
-(define Case-Elab-TTImp-n--10182-7540-notLet (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) 1)(else 0)))))
-(define Case-Elab-TTImp-n--10478-7808-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-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10)))))))))))))
-(define Case-Elab-TTImp-n--10478-7806-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-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10478-7805-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 Case-Elab-TTImp-n--12797-9737-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Case-Elab-TTImp-case--12822-9982 arg-0 arg-1 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 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--12797-9737-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 Case-Elab-TTImp-n--12797-9736-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Case-Elab-TTImp-n--12797-9736-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) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (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))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-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-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-n--10347-7693-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10375-7727 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8))))
-(define Case-Elab-TTImp-n--10478-7803-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 ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10501-7935 arg-0 arg-1 arg-2 arg-3 arg-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 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-18)))))(else (Case-Elab-TTImp-case--10501-8031 arg-0 arg-1 arg-2 arg-3 arg-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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-17 arg-18)))))))
-(define Case-Elab-TTImp-n--10347-7692-getArg (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (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))) (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10347-7692-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4)))))))))))))))
-(define Case-Elab-TTImp-n--12797-9734-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-14 arg-15) (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Case-Elab-TTImp-n--12797-9735-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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--12797-9735-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 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((Case-Elab-TTImp-n--12797-9735-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 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15)))))))
-(define Case-Elab-TTImp-n--10478-7809-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 ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10478-7808-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 'erased fc eta-0)) arg-16) arg-17))))
-(define Case-Elab-TTImp-n--10478-7804-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10478-7803-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))) (Case-Elab-TTImp-case--10502-8153 arg-0 arg-1 arg-2 arg-3 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 n (Case-Elab-TTImp-n--10478-7804-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 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19))))))))))))))
+(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (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 ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 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 ((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 ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11784-9257-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) 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 ((hnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11784-9259-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Bound names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Sorted: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-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 resC-39)))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-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 ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--12626-10312 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (ImplicitBind-Elab-TTImp-case--12626-10247 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))
+(define ImplicitBind-Elab-TTImp-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 ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-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 ((Check-Elab-TTImp-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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11476 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 oldenv oldsub oldbif dontbind e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--13703-11374 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 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-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 (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 (vector 0 ) 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 (Core-Core-throw_Catchable__Core_Error 'erased 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 (Unify-Core-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 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((ImplicitBind-Elab-TTImp-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 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 (Check-Elab-TTImp-clearToBind 'erased arg-4 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 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub 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 (vector 0 ) 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 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-normaliseHoles 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 (Normalise-Core-normaliseHoles 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))) ((ImplicitBind-Elab-TTImp-bindImplicits 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 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased 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 ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindUnsolved (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-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 ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Bindable unsolved implicits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9793-7516-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-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0))))))))))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11648-9129-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) 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 ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7))))))))))))))
+(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (ImplicitBind-Elab-TTImp-n--11146-8716-tidyName 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2) (vector 0 e-2 e-3)))))) arg-5))) (ImplicitBind-Elab-TTImp-n--11146-8717-getBinds 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased (vector 0 ) imps (vector 0 ) arg-6 arg-7)))))))
+(define Hole-Elab-TTImp-case--8782-12124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-15 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))
+(define Hole-Elab-TTImp-case--8506-12077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 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 ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-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 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0)))))))))))
+(define Hole-Elab-TTImp-case--8548-11911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) 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 ((act-25 (Context-Core-addUserHole arg-11 arg-12 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 ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-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 (vector 0 e-3 arg-1))))))))))))))))))))
+(define Hole-Elab-TTImp-case--8506-11862 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 ((Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-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 (Context-Core-addUserHole arg-11 arg-12 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 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-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 (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0)))))))))))
+(define Hole-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (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)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) 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))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8) 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)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-5 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 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))(else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) 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 ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 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))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 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))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-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)) (case (vector-ref sc5 0) ((0) (let ((act-29 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) 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 ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 e-7 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 ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-29 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0))))))))))))))))))))))))))))))))))))))))
+(define Dot-Elab-TTImp-case--9303-7167 (lambda (arg-0 arg-1 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-7)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
+(define Dot-Elab-TTImp-case--9303-7097 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-25 ((Normalise-Core-getTerm 'erased arg-1) 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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 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-1))))))))))))))))))))))))))
+(define Dot-Elab-TTImp-case--9265-7043 (lambda (arg-0 arg-1 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 (eta-0) (let ((act-24 ((Check-Elab-TTImp-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)) eta-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" 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 ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-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 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 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 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-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 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (Not LHS) " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0)))))))
+(define Dot-Elab-TTImp-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Prelude-C-43C-43 "Dot pattern not valid here (unknown type) " (TTImp-TTImp-show_Show__RawImp arg-11))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Dot-Elab-TTImp-case--9265-7043 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)))))))))
+(define Case-Elab-TTImp-case--13966-10855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0)))))))
+(define Case-Elab-TTImp-case--13966-10757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-26 (let ((act-26 (unbox arg-13))) (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 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) 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))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--13966-10598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define Case-Elab-TTImp-case--13174-10544 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 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 ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 arg-0 arg-1 arg-2 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-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) 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 ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (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 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased 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 ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-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 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) 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 ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13174-9871-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--13174-10481 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13174-9874-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-2))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define Case-Elab-TTImp-case--13541-10252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (Case-Elab-TTImp-n--13174-9872-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-20 (vector 0 arg-5 e-4) e-5))))(else (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13468-10179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) 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 ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13174-9873-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-20 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 ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13174-9872-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-20 (vector 0 arg-5 e-4) e-8) eta-0))))(else ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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))))))(else (Case-Elab-TTImp-n--13174-9874-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)))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13199-10123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) 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-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Case-Elab-TTImp-n--13174-9873-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)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13174-9872-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 ((Case-Elab-TTImp-n--13174-9874-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 (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-case--13198-9999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 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 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-case--10830-9736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" 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))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
+(define Case-Elab-TTImp-case--12214-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-45)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9)))))))))))))
+(define Case-Elab-TTImp-case--12214-9525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9)))))))))))))
+(define Case-Elab-TTImp-case--12214-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define Case-Elab-TTImp-case--10830-9046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 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 ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty 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 (let ((sc3 (Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) 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 ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) 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 ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10830-7916-updateClause arg-0 arg-1 arg-2 arg-3 arg-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-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-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 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm 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 ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (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 ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (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 ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) 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 ((act-36 (let ((act-36 (unbox arg-13))) (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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-case--11922-8848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 2 )) (else (vector 0 ))))))
+(define Case-Elab-TTImp-case--10830-8793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--11922-8848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 ))))))
+(define Case-Elab-TTImp-case--10860-8680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-20 arg-16 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-17 arg-21) argsC-39))) (vector 2 arg-17 (Case-Elab-TTImp-n--10830-7915-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 lhsC-39))))))))
+(define Case-Elab-TTImp-case--10860-8612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10830-7915-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-22 lhsC-39) arg-18 arg-17 arg-16)))))))
+(define Case-Elab-TTImp-case--10860-8540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10830-7912-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 'erased arg-21 arg-17 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-18 arg-22) argsC-39))) (vector 0 arg-18 (Case-Elab-TTImp-n--10830-7915-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 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16)))))))))
+(define Case-Elab-TTImp-case--10855-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 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((17) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 17 e-0 e-1 e-2 arg-18)))))(else arg-18)))))
+(define Case-Elab-TTImp-case--10854-8259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3))))))))
+(define Case-Elab-TTImp-case--10853-8137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 arg-17 (vector 2 "_cn" arg-18))) (else (vector 0 arg-17 arg-17))))))
+(define Case-Elab-TTImp-case--10853-8041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 arg-18 (vector 2 arg-17 arg-19))) (else (vector 0 arg-18 arg-18))))))
+(define Case-Elab-TTImp-case--10727-7833 (lambda (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Case-Elab-TTImp-case--10574-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 1 (+ 1 arg-6))))
+(define Case-Elab-TTImp-case--10533-7670 (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 (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Case-Elab-TTImp-findScrutinee arg-0 arg-2 (vector 0 arg-5 arg-4)) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define Case-Elab-TTImp-case--10115-7251 (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 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
+(define Case-Elab-TTImp-n--10830-7913-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) ((16) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 1 e-1) (vector 0 )))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10830-7913-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) (Case-Elab-TTImp-n--10830-7913-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))))) ((17) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 e-7 (Case-Elab-TTImp-n--10830-7913-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-8))))) ((12) (let ((e-11 (vector-ref sc0 3))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10830-7913-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-11)))(else (vector 0 ))))))
+(define Case-Elab-TTImp-n--10830-7916-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))) (Case-Elab-TTImp-case--10860-8540 arg-0 arg-1 arg-2 arg-3 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 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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))) (Case-Elab-TTImp-case--10860-8612 arg-0 arg-1 arg-2 arg-3 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-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--10860-8680 arg-0 arg-1 arg-2 arg-3 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 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10830-7910-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 (Case-Elab-TTImp-n--10830-7913-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))))))))))
+(define Case-Elab-TTImp-n--10830-7911-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((lhsC-39 (let ((sc2 e-2)) (case (vector-ref sc2 0) ((17) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 3))) (vector 17 e-0 e-1 e-5 arg-17)))))(else arg-17))))) (vector 1 lhsC-39 e-3)))))(else arg-18))))(else (let ((e-0 (- arg-16 1))) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 1 e-5 (Case-Elab-TTImp-n--10830-7911-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)))))(else arg-18)))))))))
+(define Case-Elab-TTImp-n--10533-7645-notLet (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) 1)(else 0)))))
+(define Case-Elab-TTImp-n--10830-7914-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-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (TTImp-TTImp-apply (vector 0 arg-17 (Maybe-Data-fromMaybe 'erased (lambda () e-2) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10)))))))))))))
+(define Case-Elab-TTImp-n--10830-7912-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-16 arg-17 arg-18 arg-19) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (List-Data-reverse 'erased (vector 1 arg-18 arg-19))) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-reverse 'erased (Case-Elab-TTImp-n--10830-7911-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 Case-Elab-TTImp-n--13174-9874-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Case-Elab-TTImp-case--13199-10123 arg-0 arg-1 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 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--13174-9874-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 Case-Elab-TTImp-n--13174-9873-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Case-Elab-TTImp-n--13174-9873-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) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (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))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-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-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-n--10699-7799-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10727-7833 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8))))
+(define Case-Elab-TTImp-n--10830-7909-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 ((n (vector 1 e-0))) (Case-Elab-TTImp-case--10853-8041 arg-0 arg-1 arg-2 arg-3 arg-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 n arg-16 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-18)))))(else (Case-Elab-TTImp-case--10853-8137 arg-0 arg-1 arg-2 arg-3 arg-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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-17 arg-18)))))))
+(define Case-Elab-TTImp-n--10699-7798-getArg (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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (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))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10699-7798-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4)))))))))))))))
+(define Case-Elab-TTImp-n--13174-9871-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-14 arg-15) (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Case-Elab-TTImp-n--13174-9872-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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 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 (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13174-9872-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 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((Case-Elab-TTImp-n--13174-9872-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 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15)))))))
+(define Case-Elab-TTImp-n--10830-7915-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 ((fc (TTImp-TTImp-getFC arg-17))) (Utils-TTImp-substNames (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7914-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 'erased fc eta-0)) arg-16) arg-17))))
+(define Case-Elab-TTImp-n--10830-7910-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-18)) (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-18)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((n (Case-Elab-TTImp-n--10830-7909-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))) (Case-Elab-TTImp-case--10854-8259 arg-0 arg-1 arg-2 arg-3 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 n (Case-Elab-TTImp-n--10830-7910-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 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19))))))))))))))
 (define Case-Elab-TTImp-updateMults (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Case-Elab-TTImp-updateMults 'erased e-3 (Case-Elab-TTImp-toRig0 'erased 'erased e-2 'erased arg-2)))))))))
-(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--9765-7148 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10)))))))))))
-(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10)))))))))))
+(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--10115-7251 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig1 'erased 'erased e-0 'erased e-10)))))))))))
+(define Case-Elab-TTImp-toRig0 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (TT-Core-setMultiplicity 'erased e-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10)))))))))))
 (define Case-Elab-TTImp-getNestData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 e-6 e-10))))))))))))
-(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--10182-7565 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10182-7540-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--10533-7670 e-2 e-1 e-7 e-6 e-9 e-8 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10533-7645-notLet e-2 e-1 e-7 e-6 e-9 e-8 'erased e-6)))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
 (define Case-Elab-TTImp-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-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (vector 1 (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-2 arg-0 e-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3)) e-4))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4)))))))(else (Case-Elab-TTImp-findImpsIn (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (TT-Core-weaken_Weaken__Term e-2 arg-0 (Builtin-snd 'erased 'erased x)))) arg-3) e-4))))))))(else (let ((sc0 (Prelude-not (List-Data-isNil 'erased arg-3)))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 27 arg-0 arg-1 arg-2 (List-Data-reverse 'erased arg-3)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
 (define Case-Elab-TTImp-explicitPi (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 2 e-7 (vector 1 ) e-9) (Case-Elab-TTImp-explicitPi 'erased e-4)))))(else (vector 1 e-3 (Case-Elab-TTImp-explicitPi 'erased e-4)))))))) (else (vector 0 ))))))
-(define Case-Elab-TTImp-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) (Delayed-Elab-TTImp-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) ((31) ((Case-Elab-TTImp-n--12797-9737-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13579-10449 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 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega 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 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((Normalise-Core-nf 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))) ((Case-Elab-TTImp-n--12797-9734-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 'erased 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 (Case-Elab-TTImp-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 Case-Elab-TTImp-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 ((ImplicitBind-Elab-TTImp-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 (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 (UnifyState-Core-genCaseName arg-1 arg-3 (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 ((env (Case-Elab-TTImp-updateMults 'erased (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 ((Context-Core-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 ((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))) (Case-Elab-TTImp-case--11563-8735 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-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-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))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 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 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env 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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 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 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--11851-9233 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-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10478-7810-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 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) 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 ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (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 ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (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 ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) 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 (let ((act-45 (unbox arg-3))) (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 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10347-7693-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4)))))))))))))))
+(define Case-Elab-TTImp-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) (Delayed-Elab-TTImp-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) ((31) ((Case-Elab-TTImp-n--13174-9874-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--13966-10598 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 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega 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 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 ((Normalise-Core-nf 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))) ((Case-Elab-TTImp-n--13174-9871-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 'erased 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 (Case-Elab-TTImp-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 Case-Elab-TTImp-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 ((ImplicitBind-Elab-TTImp-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 (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Doing a case under unbound implicits " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-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 (UnifyState-Core-genCaseName arg-1 arg-3 (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 ((env (Case-Elab-TTImp-updateMults 'erased (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 ((Context-Core-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 ((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))) (Case-Elab-TTImp-case--11922-8848 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-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-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))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 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 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env 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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty 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 ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 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 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--12214-9369 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-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) 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 ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-17) (vector 4 (vector 2 )) 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 ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-17)))) (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10830-7916-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 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Nested: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) 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 ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Generated alts: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) 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 ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm 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 ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (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 ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (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 ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) 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 (let ((act-45 (unbox arg-3))) (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 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (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 (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10699-7799-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4)))))))))))))))
 (define Case-Elab-TTImp-allow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (Case-Elab-TTImp-toRig1 'erased 'erased e-2 'erased arg-2)))))))
-(define Binders-Elab-TTImp-case--10057-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-2)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))))
-(define Binders-Elab-TTImp-case--10057-12835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (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))) (vector 0 e-0 e-1 e-2 e-3 0 e-5)))))))))
-(define Binders-Elab-TTImp-case--10170-12754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5)))))))))))))))
-(define Binders-Elab-TTImp-case--10057-12664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) 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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-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 (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9923-12561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (let ((e-5 (vector-ref sc1 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-5)))(else (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) 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 ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9923-12473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--9547-12250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 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 ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-31 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 ((act-26 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-30 arg-29 arg-26) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-30 arg-29 arg-26) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 arg-29 arg-20) arg-23)))) eta-0))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9462-12130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-6 arg-21))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-20)) 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 ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-23))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 eta-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 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 e-5 arg-20) arg-23)))) eta-0)))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--9219-12068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) 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 ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) 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))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 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 ((act-30 ((Normalise-Core-getTerm 'erased e-14) 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 ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0)))))))
-(define Binders-Elab-TTImp-case--9219-11976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--9219-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--8963-11727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty 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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0)))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8916-11640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0)))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8852-11566 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-case--8666-11484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1)))))
-(define Binders-Elab-TTImp-case--8620-11397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) 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 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0))))))))))))))))))))
-(define Binders-Elab-TTImp-case--8521-11324 (lambda (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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
-(define Binders-Elab-TTImp-case--8426-11265 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-1)))
-(define Binders-Elab-TTImp-case--8432-11217 (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) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-1 arg-2 'erased arg-6)))))))
-(define Binders-Elab-TTImp-n--8620-11372-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Binders-Elab-TTImp-n--8426-11194-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8432-11217 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
+(define Binders-Elab-TTImp-case--10519-13680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 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 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 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 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) 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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))))))))
+(define Binders-Elab-TTImp-case--10519-13639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (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))) (vector 0 e-0 e-1 e-2 e-3 0 e-5)))))))))
+(define Binders-Elab-TTImp-case--10635-13558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5)))))))))))))))
+(define Binders-Elab-TTImp-case--10519-13465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) 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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-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 (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) 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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--10349-13359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-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 err)))) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-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 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) 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 ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (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))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--10349-13270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9950-13002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 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 ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-33 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 ((act-26 ((Normalise-Core-getTerm 'erased e-3) 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-32 arg-31 arg-28) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-32 arg-31 arg-28) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 arg-31 arg-22) arg-25)))) eta-0))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9858-12873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) 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 ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-25))))) 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 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-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 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased 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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 e-5 arg-22) arg-25)))) eta-0)))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9512-12806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (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))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) 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 ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) 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))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 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 ((act-30 ((Normalise-Core-getTerm 'erased e-14) 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 ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0)))))))
+(define Binders-Elab-TTImp-case--9512-12700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Binders-Elab-TTImp-case--9512-12625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9512-12536 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--9247-12370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty 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 ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0)))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9198-12280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0)))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-case--9133-12203 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-case--8944-12120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1)))))
+(define Binders-Elab-TTImp-case--8897-12030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) 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 ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) 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 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0))))))))))))))))))))
+(define Binders-Elab-TTImp-case--8797-11956 (lambda (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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2)))))))
+(define Binders-Elab-TTImp-case--8702-11896 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-1)))
+(define Binders-Elab-TTImp-case--8708-11848 (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) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-1 arg-2 'erased arg-6)))))))
+(define Binders-Elab-TTImp-n--10349-13225-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10349-13225-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 e-15)))(else (vector 0 ))))))
+(define Binders-Elab-TTImp-n--8897-12004-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Binders-Elab-TTImp-n--8702-11825-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Binders-Elab-TTImp-case--8708-11848 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2))))))))))))
 (define Binders-Elab-TTImp-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (Normalise-Core-gnf (vector 1 arg-0 arg-1) arg-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-5))))))))))))))))
-(define Binders-Elab-TTImp-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 ((Binders-Elab-TTImp-findLamRig 'erased 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 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 ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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 ((Binders-Elab-TTImp-findLamRig 'erased 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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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 ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 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 ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0)))))))))))))))))))))))))))))))))))))))))))))
 (define Binders-Elab-TTImp-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (vector 1 arg-3)))(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 ((Normalise-Core-nf arg-0 e-5 arg-2 arg-3) 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 (Context-Core-clearDefs 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))) (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-2 e-6 eta-0))))))))))))))))))))))
 (define Binders-Elab-TTImp-findLamRig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased 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))) (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-9 (vector-ref sc3 1))) (vector 1 e-9)))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))))))))))
-(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8426-11194-drop 'erased arg-2 arg-1 'erased arg-2)))
+(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8702-11825-drop 'erased arg-2 arg-1 'erased arg-2)))
 (define Binders-Elab-TTImp-checkPiInfo (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) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2))))))))))))))))
-(define Binders-Elab-TTImp-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 ((pirig (Binders-Elab-TTImp-n--8620-11372-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc4 1))) ((Check-Elab-TTImp-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 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-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) (let ((rigc (Binders-Elab-TTImp-case--9923-12473 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 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-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((14) (let ((e-6 (vector-ref sc2 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (ZeroOneOmega-Algebra-rigMult arg-10 rigc))))))))))) e-6)))(else (lambda (eta-1) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))))))) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) 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 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))
-(define Binders-Elab-TTImp-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 ((rig (Binders-Elab-TTImp-case--9219-11887 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 ((rig (Binders-Elab-TTImp-case--9219-11976 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 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 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-8 (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-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) 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 ((e-12 (vector-ref sc6 1))) (let ((exptynf (vector 3 e-1 e-8 (vector 2 e-11 e-10 e-9) e-4))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((act-28 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-14))) eta-0))) (let ((sc8 act-28)) (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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-10 e-11))) (let ((envC-39 (vector 1 (vector 0 rigb e-15 e-14) arg-8))) (let ((act-29 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-14) (Normalise-Core-gnf arg-0 arg-8 e-9)) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-17)) (let ((e-19 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((act-31 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-32 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-18 eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 ((Normalise-Core-getTerm 'erased e-18) eta-0))) (let ((sc14 act-33)) (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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-15 e-14) e-19) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-15 e-14) e-22)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-8 (vector 2 e-11 e-15 e-9) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 As-Elab-TTImp-case--9830-7630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
-(define As-Elab-TTImp-case--9830-7540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21)))))))
-(define As-Elab-TTImp-case--9753-7388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-2 (vector 0 e-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 ((act-25 (let ((act-25 (unbox arg-13))) (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 ((act-26 (let ((act-26 (unbox arg-10))) (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 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) 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 ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21)))))))))))))))))))))))))))))))))))
-(define As-Elab-TTImp-case--9680-7332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-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 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (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 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (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 ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) 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 ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3)))))))))))))))))))))))))))))))))))))))))))
-(define As-Elab-TTImp-case--9608-7277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9243-6924-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-8 arg-7 arg-6 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9243-6926-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) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-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-13))) (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-10))) (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-10 (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9243-6926-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) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-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 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0)))))))
-(define As-Elab-TTImp-case--9243-7217 (lambda (arg-0 arg-1 arg-2 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-0 (vector-ref sc0 1))) (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 ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9608-7277 arg-0 arg-1 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 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0)))))))))))
-(define As-Elab-TTImp-case--9267-7152 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9267-7081 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9265-7009 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-case--9265-6938 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
-(define As-Elab-TTImp-n--9243-6923-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9265-6938 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))) (else (As-Elab-TTImp-case--9265-7009 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9)))))))
-(define As-Elab-TTImp-n--9243-6924-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) (As-Elab-TTImp-n--9243-6923-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-4)))
-(define As-Elab-TTImp-n--9243-6925-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9267-7081 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9))) (else (As-Elab-TTImp-case--9267-7152 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-9)))))))
-(define As-Elab-TTImp-n--9243-6926-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) (As-Elab-TTImp-n--9243-6925-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-4)))
-(define As-Elab-TTImp-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) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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 ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9608-7277 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-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0))))))))))))
-(define App-Elab-TTImp-case--15805-13106 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0))))))))))))
-(define App-Elab-TTImp-case--16499-12920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1)))))
-(define App-Elab-TTImp-case--15805-12760 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 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 (Context-Core-fromIntegerName arg-14 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))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-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 ((act-27 (Context-Core-fromCharName arg-14 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--15805-12220-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) 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 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (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-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (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 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-15 eta-2))) (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 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (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 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-13 eta-1))) (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 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\xa;\x9;Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\xa;\x9;Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) 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 ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16499-12920 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) 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))) (App-Elab-TTImp-n--15805-12219-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--16290-12649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
-(define App-Elab-TTImp-case--15861-12592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (let ((sc1 arg-18)) (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 (lambda (eta-0) (vector 1 arg-18)))))))
-(define App-Elab-TTImp-case--15972-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-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))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15907-12314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--15972-12364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-4 (App-Elab-TTImp-n--15805-12218-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 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15860-12268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-case--15907-12314 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16)))))))
-(define App-Elab-TTImp-case--15434-11998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) 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 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) 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 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25)))))))))))))))))))
-(define App-Elab-TTImp-case--10007-11864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (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 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) 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 ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) 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 ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) 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 ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) 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 ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15434-11998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10007-11700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (App-Elab-TTImp-checkAppWith 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 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0)))))))
-(define App-Elab-TTImp-case--10007-11525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeDefImplicit 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-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-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-5 arg-10 e-6 arg-8 arg-7))))))))))
-(define App-Elab-TTImp-case--14879-11386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24))))))
-(define App-Elab-TTImp-case--10007-11242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
-(define App-Elab-TTImp-case--14555-11105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
-(define App-Elab-TTImp-case--10007-10962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeAutoImplicit 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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
-(define App-Elab-TTImp-case--14215-10825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
-(define App-Elab-TTImp-case--13883-10572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--10007-10505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 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 ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--10007-10352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--13389-10181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0)))))))
-(define App-Elab-TTImp-case--10007-10072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13389-10181 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4)))))))))
-(define App-Elab-TTImp-case--11629-9863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 ((act-25 (let ((act-25 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))
-(define App-Elab-TTImp-case--12031-9513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) 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 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--12222-9194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) 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))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0))))))))))))
-(define App-Elab-TTImp-case--12031-9080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12222-9194 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36)))))))
-(define App-Elab-TTImp-case--11875-8925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 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-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) 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 ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37)))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--11732-8803 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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-21))) (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 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 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 ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 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))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (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-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (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 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--11629-8686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (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 ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 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))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (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 ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 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))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (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 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (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 ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10001-8605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 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 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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 ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (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 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) 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 ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (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 ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12031-9080 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12031-9513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-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 (UnifyState-Core-removeHole arg-19 e-2 eta-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 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) 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 ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) 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))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-7 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))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) 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 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) 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 ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 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)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 (let ((act-29 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) 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-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--10001-8498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 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))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0))))))))))))
-(define App-Elab-TTImp-case--11325-8380 (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) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
-(define App-Elab-TTImp-case--11289-8358 (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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11325-8380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
-(define App-Elab-TTImp-case--9999-8325 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11325-8380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--9999-8182-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define App-Elab-TTImp-case--11137-8186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
-(define App-Elab-TTImp-case--10924-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) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--10875-8003 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-getNF 'erased 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 ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--9996-7967 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--10875-8003 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 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-case--9989-7765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define App-Elab-TTImp-case--9983-7536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (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 ((UnifyState-Core-genMVName arg-21 arg-19 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 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 ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9977-7290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 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 ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (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-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 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 (let ((act-27 (unbox arg-17))) (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 (Context-Core-getAutoImplicitLimit arg-20 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 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 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 ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9549-6759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 App-Elab-TTImp-case--9413-6686 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9549-6759 arg-0 arg-1 arg-2 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-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) 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 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv 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 ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm 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 ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) 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 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9413-6600 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3)))))))))
-(define App-Elab-TTImp-case--9323-6568 (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 ((App-Elab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (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-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9549-6759 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 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-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))) 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 ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv 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 ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-case--9024-6257 (lambda (arg-0 arg-1 arg-2 arg-3 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) (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 App-Elab-TTImp-case--8829-6213 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) 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 ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--8772-5993-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 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-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9024-6257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))
-(define App-Elab-TTImp-case--8829-6136 (lambda (arg-0 arg-1 arg-2 arg-3 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-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 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13)))))))))))))))))
-(define App-Elab-TTImp-case--8772-6035 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--8772-5993-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 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 ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty 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 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-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-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (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))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 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 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--8772-5992-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-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 ((Context-Core-lookupCtxtName arg-1 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-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))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-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))) (let ((act-27 (App-Elab-TTImp-n--8772-5993-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 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9024-6257 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 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))
-(define App-Elab-TTImp-case--8660-5911 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0)))))))
-(define App-Elab-TTImp-case--8647-5881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((App-Elab-TTImp-case--8660-5911 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0)))))))
-(define App-Elab-TTImp-n--9323-6497-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)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (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))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (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 ((sc1 e-3)) (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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9323-6497-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11))))))))
-(define App-Elab-TTImp-n--10007-11365-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14879-11386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10007-11365-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))))))
-(define App-Elab-TTImp-n--10007-11084-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14555-11105 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10007-11084-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
-(define App-Elab-TTImp-n--10007-10787-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14215-10825 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
-(define App-Elab-TTImp-n--15805-12220-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) 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))) ((App-Elab-TTImp-case--15861-12592 arg-0 arg-1 arg-2 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-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 arg-3 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-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19)))))))
-(define App-Elab-TTImp-n--8772-5993-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 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 ))))))))))))
-(define App-Elab-TTImp-n--10007-11664-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0)))))
-(define App-Elab-TTImp-n--15805-12219-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 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 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))) ((App-Elab-TTImp-case--15860-12268 arg-0 arg-1 arg-2 arg-3 arg-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 e-5 (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0))))))))
-(define App-Elab-TTImp-n--9983-7526-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 App-Elab-TTImp-n--9977-7280-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) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1)))))
-(define App-Elab-TTImp-n--15805-12217-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 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--15805-12217-isPrimName arg-0 arg-1 arg-2 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-3 arg-16))))))))))
-(define App-Elab-TTImp-n--8772-5992-isLet (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) 0)(else 1)))))
-(define App-Elab-TTImp-n--9999-8182-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
-(define App-Elab-TTImp-n--15805-12218-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0))))))))
+(define Binders-Elab-TTImp-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 ((pirig (Binders-Elab-TTImp-n--8897-12004-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 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-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 ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc4 1))) ((Check-Elab-TTImp-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 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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) (let ((rigc (Binders-Elab-TTImp-case--10349-13270 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 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-13 (vector 1 (Normalise-Core-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 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--10519-13680 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 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10349-13225-linearErr 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 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) 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 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 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 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased 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))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14))))))))))))))))))))))))))))))))))))))))))))))
+(define Binders-Elab-TTImp-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 ((rig (Binders-Elab-TTImp-case--9512-12536 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 ((rig (Binders-Elab-TTImp-case--9512-12625 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--9512-12700 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 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 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 ((Normalise-Core-getTerm 'erased 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 ((Binders-Elab-TTImp-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-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) 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))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-12 e-11 e-10) e-4))) (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-15))) eta-0))) (let ((sc9 act-29)) (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 ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 rigb e-16 e-15) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-15) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (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 ((sc12 e-18)) (let ((e-20 (vector-ref sc12 1))) (let ((e-19 (vector-ref sc12 2))) (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-19 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-19) eta-0))) (let ((sc15 act-34)) (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))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-16 e-15) e-20) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-16 e-15) e-23)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-12 e-16 e-10) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 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 As-Elab-TTImp-case--10170-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 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)) (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) arg-23 arg-24 arg-20)) e-5) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) arg-23 arg-25 arg-20)) e-6) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))
+(define As-Elab-TTImp-case--10170-7661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21)))))))
+(define As-Elab-TTImp-case--10092-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-2 (vector 0 e-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 ((act-25 (let ((act-25 (unbox arg-13))) (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 ((act-26 (let ((act-26 (unbox arg-10))) (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 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (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-20 e-19 e-4 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-2 e-6 arg-20)) e-18) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-2 e-7 arg-20)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) 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 ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21)))))))))))))))))))))))))))))))))))
+(define As-Elab-TTImp-case--10018-7441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-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 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (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 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (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 ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-6 e-8 e-2)) e-20) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-6 e-7 e-2)) e-19) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) 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 ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3)))))))))))))))))))))))))))))))))))))))))))
+(define As-Elab-TTImp-case--9943-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9578-7027-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-8 arg-7 arg-6 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added as pattern name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-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) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-17 (vector 0 (As-Elab-TTImp-n--9578-7029-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) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-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-13))) (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-10))) (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-10 (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 (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (vector 1 ) e-7 e-9 e-2)) e-21) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9578-7029-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) (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 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-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 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0)))))))
+(define As-Elab-TTImp-case--9578-7320 (lambda (arg-0 arg-1 arg-2 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-0 (vector-ref sc0 1))) (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 ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 arg-0 arg-1 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 elabmode e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0)))))))))))
+(define As-Elab-TTImp-case--9602-7255 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9602-7184 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9600-7112 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-case--9600-7041 (lambda (arg-0 arg-1 arg-2 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) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
+(define As-Elab-TTImp-n--9578-7026-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9600-7041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9600-7112 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9)))))))
+(define As-Elab-TTImp-n--9578-7027-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) (As-Elab-TTImp-n--9578-7026-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-4)))
+(define As-Elab-TTImp-n--9578-7028-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (As-Elab-TTImp-case--9602-7184 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9))) (else (As-Elab-TTImp-case--9602-7255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-9)))))))
+(define As-Elab-TTImp-n--9578-7029-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) (As-Elab-TTImp-n--9578-7028-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-4)))
+(define As-Elab-TTImp-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) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (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 ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode 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))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--9943-7385 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-0 elabmode-0 e-5 n e-6 e-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0))))))))))))
+(define App-Elab-TTImp-case--16233-13547 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0))))))))))))
+(define App-Elab-TTImp-case--16931-13356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) e-7))(else arg-1)))))(else arg-1)))))(else arg-1)))))
+(define App-Elab-TTImp-case--16233-13185 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 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 (Context-Core-fromIntegerName arg-14 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))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-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 ((act-27 (Context-Core-fromCharName arg-14 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) 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 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (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-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (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 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-15 eta-2))) (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 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (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 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (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 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-13 eta-1))) (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 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-5) (Strings-Prelude-C-43C-43 "\xa;\x9;Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 "\xa;\x9;Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) 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 ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--16931-13356 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 e-8 e-9 e-10 prims e-11 e-12 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) 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))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-0 prims arg-7 e-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--16721-13073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (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 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))
+(define App-Elab-TTImp-case--16289-13016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (let ((sc1 arg-18)) (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 (lambda (eta-0) (vector 1 arg-18)))))))
+(define App-Elab-TTImp-case--16401-12786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (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 (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-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))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--16336-12736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--16401-12786 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-4 (App-Elab-TTImp-n--16233-12639-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 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--16288-12690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-case--16336-12736 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16)))))))
+(define App-Elab-TTImp-case--15855-12418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) 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 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) 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 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25)))))))))))))))))))
+(define App-Elab-TTImp-case--10320-12275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (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 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) 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 ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) 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 ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) 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 ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) 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 ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--15855-12418 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 fntm e-5 e-6 expfnty e-7 e-8 e-9 e-10 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10320-12100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (App-Elab-TTImp-checkAppWith 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 (vector 0 ) (vector 0 ) arg-2 arg-1))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 26 arg-0 arg-7 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-16) arg-6) eta-0)))))))
+(define App-Elab-TTImp-case--10320-11924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeDefImplicit 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-1 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-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-5 arg-10 e-6 arg-8 arg-7))))))))))
+(define App-Elab-TTImp-case--15292-11785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-23 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24))))))
+(define App-Elab-TTImp-case--10320-11641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
+(define App-Elab-TTImp-case--14968-11504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
+(define App-Elab-TTImp-case--10320-11361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (App-Elab-TTImp-makeAutoImplicit 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-4 arg-1 arg-3 arg-10 arg-9 arg-8 arg-7 arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp 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-4 arg-1 arg-3 arg-10 e-5 arg-9 e-6 arg-7 arg-6))))))))))
+(define App-Elab-TTImp-case--14628-11224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 1 (vector 0 arg-22 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 (vector 0 (vector 1 arg-21) arg-22) arg-24) arg-23))))))
+(define App-Elab-TTImp-case--14295-10971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-10) (vector 1 arg-1))) (else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--10320-10903 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 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 ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit 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-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--10320-10748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeAutoImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--13796-10574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-19 arg-18 arg-17 arg-16 (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)) (lambda (err) (App-Elab-TTImp-makeImplicit arg-0 arg-19 arg-18 arg-17 arg-16 arg-15 arg-20 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))) eta-0)))))))
+(define App-Elab-TTImp-case--10320-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (Check-Elab-TTImp-checkExp arg-0 arg-19 arg-17 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 (Normalise-Core-glueBack arg-0 arg-22 arg-12 arg-9) (vector 1 arg-1)))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--13796-10574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4)))))))))
+(define App-Elab-TTImp-case--12005-10249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 ((act-25 (let ((act-25 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))
+(define App-Elab-TTImp-case--12419-9890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) 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 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--12614-9570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) 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))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0))))))))))))
+(define App-Elab-TTImp-case--12419-9455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--12614-9570 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36)))))))
+(define App-Elab-TTImp-case--12259-9292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 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-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) 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 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 (Prelude-not e-8)) 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 ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37)))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--12112-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 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)) (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-21))) (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 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 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 ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 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))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (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-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 (Prelude-not e-13)) eta-0)))) (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 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--12005-9041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (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 ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 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))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (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 ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 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))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (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 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 (Prelude-not e-19)) eta-0)))) (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 ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10314-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 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 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 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 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Delaying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") 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 ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) 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-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (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 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) 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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Now trying " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 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 ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) 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 ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (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 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Solving " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (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 ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 (Prelude-not e-23)) eta-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 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--12419-9890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-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 (UnifyState-Core-removeHole arg-19 e-2 eta-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 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-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 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) 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 ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) 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))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 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))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) 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 (Strings-Prelude-C-43C-43 "Overall expected type: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) 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 ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 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)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 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 (let ((act-29 (unbox arg-21))) (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 ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) 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-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10314-8846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 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))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0))))))))))))
+(define App-Elab-TTImp-case--11696-8721 (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) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
+(define App-Elab-TTImp-case--11658-8699 (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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
+(define App-Elab-TTImp-case--10312-8664 (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) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--11696-8721 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10312-8521-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define App-Elab-TTImp-case--11506-8525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
+(define App-Elab-TTImp-case--11291-8384 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--11242-8340 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-getNF 'erased 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 ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--10309-8304 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--11242-8340 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 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-case--10302-8085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define App-Elab-TTImp-case--10296-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (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 ((UnifyState-Core-genMVName arg-21 arg-19 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 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 ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 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))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--10290-7581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Context-Core-clearDefs 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 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 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 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 ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (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-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 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 ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (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 ((UnifyState-Core-genMVName arg-20 arg-18 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 ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 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 (let ((act-27 (unbox arg-17))) (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 (Context-Core-getAutoImplicitLimit arg-20 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 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 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 ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 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 ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9856-7034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 App-Elab-TTImp-case--9717-6961 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-14) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((nt (let ((bind-0 (vector 1 e-2))) (App-Elab-TTImp-case--9856-7034 arg-0 arg-1 arg-2 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-2 bind-0 (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (let ((tm ((arg-11 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) 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 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv 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 ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm 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 ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arg-13))) 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 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9717-6872 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3)))))))))
+(define App-Elab-TTImp-case--9627-6839 (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 ((App-Elab-TTImp-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (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-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Data-length 'erased e-9))) (let ((nC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--9856-7034 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 arglen nC-39 e-3 bind-0 (let ((sc6 e-3)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((tm ((e-10 arg-2) nt))) (let ((tyenv (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-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))) 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 ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv 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 ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-case--9324-6524 (lambda (arg-0 arg-1 arg-2 arg-3 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) (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 App-Elab-TTImp-case--9121-6478 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) 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 ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 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-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0)))))))
+(define App-Elab-TTImp-case--9121-6397 (lambda (arg-0 arg-1 arg-2 arg-3 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-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 e-7 e-8 e-9 e-10 (vector 1 arg-8 e-11) e-12 e-13)))))))))))))))))
+(define App-Elab-TTImp-case--9063-6289 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9063-6246-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 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 ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty 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 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-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-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (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))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 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 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--9063-6245-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-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 ((Context-Core-lookupCtxtName arg-1 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-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))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-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))) (let ((act-27 (App-Elab-TTImp-n--9063-6246-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 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--9324-6524 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 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 9 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))
+(define App-Elab-TTImp-case--8948-6164 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0)))))))
+(define App-Elab-TTImp-case--8934-6131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Prelude-C-124C-124 e-5 (lambda () (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 arg-1 arg-0) arg-2)))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 1 arg-1)) eta-0)))))))
+(define App-Elab-TTImp-n--9627-6768-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)) (case (vector-ref sc0 0) ((0) arg-11) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-11)) (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))) (vector 3 e-14 e-15 (vector 1 e-19 e-11 e-21) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-15 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-15 arg-9 eta-0)) e-12) e-17)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11)))))))))(else (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 ((sc1 e-3)) (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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (App-Elab-TTImp-n--9627-6768-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 arg-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-2 arg-9 eta-0)) arg-10) e-4))))))(else arg-11))))))))(else arg-11))))))))
+(define App-Elab-TTImp-n--10320-11764-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--15292-11785 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-9))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10320-11764-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-22) e-3)))))))))))
+(define App-Elab-TTImp-n--10320-11483-useImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (App-Elab-TTImp-case--14968-11504 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11483-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
+(define App-Elab-TTImp-n--10320-11186-useAutoImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-21) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--14628-11224 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10 e-7 e-3 arg-21 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))(else (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 1 e-2 arg-21) e-3)))))))))))
+(define App-Elab-TTImp-n--16233-12641-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) 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))) ((App-Elab-TTImp-case--16289-13016 arg-0 arg-1 arg-2 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-0 e-5 e-4 arg-19 arg-17 arg-15 e-6 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 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-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19)))))))
+(define App-Elab-TTImp-n--9063-6246-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 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 ))))))))))))
+(define App-Elab-TTImp-n--10320-12064-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (vector 0 e-2 e-9))))(else 0))))))(else 0)))))
+(define App-Elab-TTImp-n--16233-12640-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 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 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))) ((App-Elab-TTImp-case--16288-12690 arg-0 arg-1 arg-2 arg-3 arg-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 e-5 (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-16 e-5)) ext-0))))))))
+(define App-Elab-TTImp-n--10296-7832-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 App-Elab-TTImp-n--10290-7571-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) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) 0) ((3) 0)(else 1)))))
+(define App-Elab-TTImp-n--16233-12638-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 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--16233-12638-isPrimName arg-0 arg-1 arg-2 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-3 arg-16))))))))))
+(define App-Elab-TTImp-n--9063-6245-isLet (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) 0)(else 1)))))
+(define App-Elab-TTImp-n--10312-8521-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((18) arg-6) ((16) arg-6) ((31) arg-6) ((17) (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)) (case (vector-ref sc1 0) ((16) arg-6) ((31) arg-6)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-6))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-6) (vector 3 ) arg-6))))))
+(define App-Elab-TTImp-n--16233-12639-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) 0)(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Prelude-C-60_Ord__Integer (Prelude-abs_Abs__Integer e-0) 100)))(else 0))))))))
 (define App-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
 (define App-Elab-TTImp-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))) (App-Elab-TTImp-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-6))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((27) (lambda (eta-0) (vector 1 0))) ((28) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define App-Elab-TTImp-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 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) 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) (vector 1 1)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 1))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((4) (lambda (eta-0) (vector 1 0))) ((5) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))
+(define App-Elab-TTImp-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 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) 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) (vector 1 1)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 1))(else (vector 1 0))))))(else (vector 1 0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((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))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))
 (define App-Elab-TTImp-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (App-Elab-TTImp-needsDelayLHS arg-0 arg-3))(else (App-Elab-TTImp-needsDelayExpr arg-0 arg-2 arg-3))))))
 (define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((UnifyState-Core-genMVName arg-1 arg-3 arg-12) 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 (Context-Core-clearDefs e-5 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 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-9 arg-13 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 ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 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 ((fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-9)) 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 ((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 (Check-Elab-TTImp-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 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 fntm e-10 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) arg-16 arg-17 arg-18 arg-19) eta-0))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--9983-7536 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--9983-7526-metavarImp arg-0 e-2 e-3 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)))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--9977-7290 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--9977-7280-metavarImp arg-0 e-2 e-3 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)))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10296-7842 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--10296-7832-metavarImp arg-0 e-2 e-3 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)))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-case--10290-7581 arg-0 e-2 e-3 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 (App-Elab-TTImp-n--10290-7571-metavarImp arg-0 e-2 e-3 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)))))))))
 (define App-Elab-TTImp-isHole (lambda (arg-0 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 App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9323-6568 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-8 arg-5))))
-(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--8772-6035 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5))))
-(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--9999-8325 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5)))))))
+(define App-Elab-TTImp-getVarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (App-Elab-TTImp-case--9627-6839 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-8 arg-5))))
+(define App-Elab-TTImp-getNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (App-Elab-TTImp-case--9063-6289 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 arg-7 arg-5))))
+(define App-Elab-TTImp-dotErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--10312-8664 e-0 arg-5 arg-4 arg-2 arg-1 arg-0 (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))))(else (lambda (eta-0) (vector 1 arg-5)))))))
 (define App-Elab-TTImp-concrete (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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))) ((App-Elab-TTImp-concrete 'erased arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((2) (lambda (eta-0) (vector 1 0))) ((3) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))
-(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (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) (let ((act-24 (Context-Core-isVisible arg-0 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-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 ((act-26 (Context-Core-getNS arg-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 (Context-Core-getNestedNS arg-0 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))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8660-5911 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) 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 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-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))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) 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 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) 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))) ((App-Elab-TTImp-case--10001-8605 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 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0)))))))))))))))))))))))))))
-(define App-Elab-TTImp-checkPatTyValid (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))) (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-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--10875-8003 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define App-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (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 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-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-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-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-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-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-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (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 ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (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))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13389-10181 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-11242 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11084-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10007-10962 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-10787-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (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 ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10007-11525 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10007-11365-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) 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 ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (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 ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) 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 ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10007-11700 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10007-11664-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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 (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-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 ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) 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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-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-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15434-11998 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define App-Elab-TTImp-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) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (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))) (App-Elab-TTImp-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 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) 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-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName 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-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 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 (Context-Core-fromCharName arg-1 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))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--15805-12220-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) 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 ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (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 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) 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 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) 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 ((Context-Core-getFullName arg-1 e-8) 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\xa;\x9;Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\xa;\x9;Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) 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))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16499-12920 arg-0 e-8 e-7 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-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (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))) (App-Elab-TTImp-n--15805-12219-normalisePrims arg-0 e-8 e-7 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 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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))) ((App-Elab-TTImp-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 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--12668-6554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0)))))))
-(define Ambiguity-Elab-TTImp-case--12668-6444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15)))))
-(define Ambiguity-Elab-TTImp-case--12668-6352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Ambiguity-Elab-TTImp-case--12132-6273 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 arg-0 arg-1 arg-2 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 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((act-26 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\xa;Target type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 arg-0 arg-1 arg-2 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 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\xa;Target type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0)))))))))))))
-(define Ambiguity-Elab-TTImp-case--12132-6047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)))))))
-(define Ambiguity-Elab-TTImp-case--12132-5908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14)))))
-(define Ambiguity-Elab-TTImp-case--12132-5814 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
-(define Ambiguity-Elab-TTImp-case--12071-5766 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5)))))))))))
-(define Ambiguity-Elab-TTImp-case--11768-5611 (lambda (arg-0 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 (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Ambiguity-Elab-TTImp-case--11768-5511 (lambda (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) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8))))))))
-(define Ambiguity-Elab-TTImp-case--11697-5397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5)))))))
-(define Ambiguity-Elab-TTImp-case--11647-5331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--11379-5245 (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 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11379-5180 (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 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11379-5095 (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) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Ambiguity-Elab-TTImp-case--11302-5019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0)))))))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4901 (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 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--11038-4805 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4773 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10887-4677 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10696-4645 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define Ambiguity-Elab-TTImp-case--10693-4568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--10690-4515 (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) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--10298-4238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp 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 (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19)))))))))
-(define Ambiguity-Elab-TTImp-case--10106-4131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased 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 (vector 1 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (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 ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3048-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-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)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--8969-3049-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--8969-3054-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--10106-3990 (lambda (arg-0 arg-1 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 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5))))))))
-(define Ambiguity-Elab-TTImp-case--10020-3957 (lambda (arg-0 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))) (Ambiguity-Elab-TTImp-case--10106-3990 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 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--8969-3055-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)))))) (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 (Context-Core-fromIntegerName 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 ((act-26 (Context-Core-fromStringName arg-10 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 (Context-Core-fromCharName 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--8969-3051-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10106-4131 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 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--8969-3047-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0)))))))))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-case--8969-3880 (lambda (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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (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))) ((Ambiguity-Elab-TTImp-case--10020-3957 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0))))))))))))
-(define Ambiguity-Elab-TTImp-case--9822-3748 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))))
-(define Ambiguity-Elab-TTImp-case--9079-3711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15)))))
-(define Ambiguity-Elab-TTImp-case--9078-3603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
-(define Ambiguity-Elab-TTImp-case--9078-3514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
-(define Ambiguity-Elab-TTImp-case--9162-3167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 0))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--9111-3119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9162-3167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Ambiguity-Elab-TTImp-case--9074-3083 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 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 (Context-Core-getNestedNS arg-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-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9162-3167 arg-0 arg-1 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 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-case--8969-2989 (lambda (arg-0 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 (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3052-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9078-3514 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 (Prelude-C-124C-124 (Name-Core-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))))(else (Ambiguity-Elab-TTImp-case--9078-3603 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9078-3603 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17))))))))
-(define Ambiguity-Elab-TTImp-n--8969-3048-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9074-3083 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)))))))))))
-(define Ambiguity-Elab-TTImp-n--8969-3049-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 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))
-(define Ambiguity-Elab-TTImp-n--11631-5319-notOverloadableFn (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3055-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 Ambiguity-Elab-TTImp-n--8969-3053-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 ((tm (Ambiguity-Elab-TTImp-n--8969-3052-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--8969-3050-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)))) (Ambiguity-Elab-TTImp-case--9079-3711 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 tm (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3054-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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--8969-3053-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 Ambiguity-Elab-TTImp-n--8969-3047-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-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13)))))))
-(define Ambiguity-Elab-TTImp-n--8969-3051-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)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--8969-3051-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 Ambiguity-Elab-TTImp-n--8969-3050-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)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--8969-3050-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))) (Ambiguity-Elab-TTImp-n--8969-3050-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-14 e-11) e-3))))))))))))))))))
+(define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (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) (let ((act-24 (Context-Core-isVisible arg-0 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-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 ((act-26 (Context-Core-getNS arg-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 (Context-Core-getNestedNS arg-0 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))) (let ((bind-0 0)) ((App-Elab-TTImp-case--8948-6164 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-15)) (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 ((App-Elab-TTImp-dotErased arg-1 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) 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 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-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))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) 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 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) 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))) ((App-Elab-TTImp-case--10314-8954 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 e-5 e-6 e-7 e-8 (Prelude-C-124C-124 (Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0)))))))))))))))))))))))))))
+(define App-Elab-TTImp-checkPatTyValid (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))) (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-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--11242-8340 arg-0 e-1 e-3 e-7 e-6 e-5 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-4 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define App-Elab-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (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 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-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-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-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-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-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-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (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 ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (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))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--13796-10574 arg-0 e-33 arg-15 arg-12 e-21 e-19 e-13 e-11 e-10 ty arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 argRig e-5 e-6 (Prelude-not (let ((sc8 arg-6)) (let ((e-4 (vector-ref sc8 5))) e-4)))) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11641 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11483-useImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--10320-11361 arg-0 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11186-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) 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))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (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 ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (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 ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14)))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (App-Elab-TTImp-case--10320-11924 arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 argRig (App-Elab-TTImp-n--10320-11764-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 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 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) 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 ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (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 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (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 ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (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 ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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 (UnifyState-Core-genName arg-1 arg-3 "argTy" 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 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-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 ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) 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 ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (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 ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (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))) (let ((act-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (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 ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (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))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--10320-12100 arg-0 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 (List-Data-filter 'erased (lambda (eta-0) (App-Elab-TTImp-n--10320-12064-notInfer arg-0 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 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-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 (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 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))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-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 ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) 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 ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-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-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) 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))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (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 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) 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))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (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-34 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (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))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (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 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (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 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--15855-12418 e-2 e-3 e-5 e-6 arg-0 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-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define App-Elab-TTImp-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) (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))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (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))) (App-Elab-TTImp-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 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) 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-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName 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-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 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 (Context-Core-fromCharName arg-1 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))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--16233-12641-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) 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 ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (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 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) 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 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) 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 ((Context-Core-getFullName arg-1 e-8) 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))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Prelude-C-43C-43 "Checking application of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " to " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 "\xa;\x9;Function type " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Prelude-C-43C-43 "\xa;\x9;Expected app type " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) 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))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--16931-13356 arg-0 e-8 e-7 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-9 _-0 e-10 e-11 e-12 e-13 prims e-14 e-15 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (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))) (App-Elab-TTImp-n--16233-12640-normalisePrims arg-0 e-8 e-7 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 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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))) ((App-Elab-TTImp-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 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--13035-6653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-0)))(else (lambda (eta-0) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not arg-17) arg-4 arg-5 eta-0)))))))
+(define Ambiguity-Elab-TTImp-case--13035-6541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-15)))))
+(define Ambiguity-Elab-TTImp-case--13035-6446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Ambiguity-Elab-TTImp-case--12482-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) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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))) (let ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 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 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((act-26 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\xa;Target type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" 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 ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 arg-0 arg-1 arg-2 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 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (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 ((Normalise-Core-getTerm 'erased e-5) 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 ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 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 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\xa;Target type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0)))))))))))))
+(define Ambiguity-Elab-TTImp-case--12482-6132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-12 arg-11 arg-10 arg-9 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 1 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)))))))
+(define Ambiguity-Elab-TTImp-case--12482-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Normalise-Core-gnf arg-0 arg-5 arg-19)) (else arg-14)))))
+(define Ambiguity-Elab-TTImp-case--12482-5887 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
+(define Ambiguity-Elab-TTImp-case--12420-5836 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-2 e-5)))))))))))
+(define Ambiguity-Elab-TTImp-case--12104-5678 (lambda (arg-0 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 (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Ambiguity-Elab-TTImp-case--12104-5576 (lambda (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) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Keep " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8))))))))
+(define Ambiguity-Elab-TTImp-case--12031-5449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5)))))))
+(define Ambiguity-Elab-TTImp-case--11980-5380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--11709-5293 (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 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11709-5227 (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 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11709-5141 (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) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Ambiguity-Elab-TTImp-case--11630-5063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0)))))))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4944 (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 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11365-4848 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4815 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11213-4719 (lambda (arg-0 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 (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11017-4686 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define Ambiguity-Elab-TTImp-case--11014-4608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--11011-4554 (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) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--10611-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) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp 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 (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19)))))))))
+(define Ambiguity-Elab-TTImp-case--10414-4159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased 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 (vector 1 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (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 ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3065-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-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)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-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 (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9271-3066-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-14 arg-15 arg-1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9271-3071-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--10414-4012 (lambda (arg-0 arg-1 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 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5))))))))
+(define Ambiguity-Elab-TTImp-case--10326-3979 (lambda (arg-0 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))) (Ambiguity-Elab-TTImp-case--10414-4012 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 (Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9271-3072-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)))))) (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 (Context-Core-fromIntegerName 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 ((act-26 (Context-Core-fromStringName arg-10 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 (Context-Core-fromCharName 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 ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9271-3068-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 prims arg-1))) ((Ambiguity-Elab-TTImp-case--10414-4159 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 e-7 e-8 prims primApp (Ambiguity-Elab-TTImp-n--9271-3064-lookupUN arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Name-Core-userNameRoot arg-1) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13)))) eta-0)))))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-case--9271-3900 (lambda (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) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name 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 (vector 1 arg-5))))))) (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))) ((Ambiguity-Elab-TTImp-case--10326-3979 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Env-Core-defined arg-0 arg-1 arg-6)) eta-0))))))))))))
+(define Ambiguity-Elab-TTImp-case--10128-3768 (lambda (arg-0 arg-1 arg-2 arg-3 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-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))))
+(define Ambiguity-Elab-TTImp-case--9382-3731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15)))))
+(define Ambiguity-Elab-TTImp-case--9381-3623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
+(define Ambiguity-Elab-TTImp-case--9381-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 18 arg-2 (vector 2 ) arg-14))))))
+(define Ambiguity-Elab-TTImp-case--9466-3187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 0))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--9414-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (Context-Core-getNS 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 (Context-Core-getNestedNS 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 ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 bind-0 e-5 e-6 (Context-Core-visibleInAny (vector 1 e-5 e-6) (vector 0 arg-15 arg-14) (let ((sc3 arg-13)) (let ((e-9 (vector-ref sc3 10))) e-9)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Ambiguity-Elab-TTImp-case--9377-3100 (lambda (arg-0 arg-1 arg-2 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 ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 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)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 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 (Context-Core-getNestedNS arg-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-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--9466-3187 arg-0 arg-1 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 e-0 bind-0 e-6 e-7 (Context-Core-visibleInAny (vector 1 e-6 e-7) (vector 0 e-0 e-1) (let ((sc5 arg-13)) (let ((e-9 (vector-ref sc5 10))) e-9)))) eta-0))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-case--9271-3006 (lambda (arg-0 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 (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3069-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Ambiguity-Elab-TTImp-case--9381-3534 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 (Prelude-C-124C-124 (Name-Core-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))))(else (Ambiguity-Elab-TTImp-case--9381-3623 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--9381-3623 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 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 9 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17))))))))
+(define Ambiguity-Elab-TTImp-n--9271-3065-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--9377-3100 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)))))))))))
+(define Ambiguity-Elab-TTImp-n--9271-3066-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 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))
+(define Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3072-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 Ambiguity-Elab-TTImp-n--9271-3070-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 ((tm (Ambiguity-Elab-TTImp-n--9271-3069-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) arg-4) (let ((sc0 arg-14)) (let ((e-17 (vector-ref sc0 18))) e-17)) (Ambiguity-Elab-TTImp-n--9271-3067-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)))) (Ambiguity-Elab-TTImp-case--9382-3731 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 tm (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3071-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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-n--9271-3070-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 Ambiguity-Elab-TTImp-n--9271-3064-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-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-lookup 'erased e-2 arg-13)))))))
+(define Ambiguity-Elab-TTImp-n--9271-3068-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)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9271-3068-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 Ambiguity-Elab-TTImp-n--9271-3067-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)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (Ambiguity-Elab-TTImp-n--9271-3067-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))) (Ambiguity-Elab-TTImp-n--9271-3067-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-14 e-11) e-3))))))))))))))))))
 (define Ambiguity-Elab-TTImp-stripDelay (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-stripDelay 'erased e-3)))(else arg-1)))))
-(define Ambiguity-Elab-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-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))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--11768-5511 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) 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))) ((Ambiguity-Elab-TTImp-case--11768-5611 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0)))))))))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11631-5319-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3))))))))))
+(define Ambiguity-Elab-TTImp-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-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))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 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 ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Bool d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--12104-5576 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) 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))) ((Ambiguity-Elab-TTImp-case--12104-5678 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0)))))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11964-5367-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3))))))))))
 (define Ambiguity-Elab-TTImp-mightMatchD (lambda (arg-0 arg-1 arg-2 arg-3) (Ambiguity-Elab-TTImp-mightMatch arg-0 arg-1 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-2) (Ambiguity-Elab-TTImp-stripDelay 'erased arg-3))))
 (define Ambiguity-Elab-TTImp-mightMatchArgs (lambda (arg-0 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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-mightMatchArg arg-0 arg-1 e-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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-1 e-3 e-7) eta-0)) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Ambiguity-Elab-TTImp-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-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 ((act-25 ((Normalise-Core-evalClosure (vector 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 ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 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 ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (vector 1 1))(else (vector 1 0)))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4645 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4773 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--10696-4901 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4645 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--10696-4773 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--10696-4901 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))
+(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4686 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (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-3)) (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))) (Ambiguity-Elab-TTImp-case--11017-4815 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--11017-4944 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))
 (define Ambiguity-Elab-TTImp-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))) (Ambiguity-Elab-TTImp-getName e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-6)))(else (vector 0 ))))))
 (define Ambiguity-Elab-TTImp-filterCore (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 ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) 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 ((act-25 ((Ambiguity-Elab-TTImp-filterCore 'erased 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))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 1 e-2 e-6))) (else (vector 1 e-6))))))))))))))))))))))
-(define Ambiguity-Elab-TTImp-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-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (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))) ((Ambiguity-Elab-TTImp-case--8969-2989 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 e-11) (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))) (Ambiguity-Elab-TTImp-case--8969-3880 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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))) (Ambiguity-Elab-TTImp-case--8969-3880 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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 Ambiguity-Elab-TTImp-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-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (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))) ((Ambiguity-Elab-TTImp-case--9271-3006 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 e-11) (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))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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))) (Ambiguity-Elab-TTImp-case--9271-3900 arg-0 e-1 e-0 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (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))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-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 Ambiguity-Elab-TTImp-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 1 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 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))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-6) ext-0)))))))))))))))))
 (define Ambiguity-Elab-TTImp-couldBeFn (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))) (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBeName arg-0 arg-1 arg-2 e-1 eta-0)))) ((12) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
 (define Ambiguity-Elab-TTImp-couldBe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) 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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((10) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-3)))))))))
 (define Ambiguity-Elab-TTImp-checkAmbigDepth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 ((ambs (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 6))) e-6)))) (let ((sc1 (Prelude-C-62_Ord__Nat (List-Data-length 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 20 arg-3 (vector 9 (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 2))) e-2))) ambs) ext-0))))))) (else (vector 1 (vector 0 )))))))))))))
-(define Ambiguity-Elab-TTImp-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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) 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 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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 (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12132-5814 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-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) 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 ((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 ((Normalise-Core-getTerm 'erased e-6) 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))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;With default. Target type "))))) arg-8 expC-39 eta-1))) (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 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) 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 ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) 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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 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 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;Target type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--12668-6352 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 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 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))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;Target type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0))))))))))))))))))))))))))
+(define Ambiguity-Elab-TTImp-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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) 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 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-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 (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--12482-5887 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-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) 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 ((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 ((Normalise-Core-getTerm 'erased e-6) 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))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) arg-11) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;With default. Target type "))))) arg-8 expC-39 eta-1))) (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 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pruned alts (" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-11)) (Strings-Prelude-C-43C-43 ") " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) 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 ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) 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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 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 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;Target type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" 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 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 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))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) 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 ((solvemode (Ambiguity-Elab-TTImp-case--13035-6446 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 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-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 ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (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 ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) 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))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 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))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Bool delayed) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-10) (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\xa;Target type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0))))))))))))))))))))))))))
 (define Ambiguity-Elab-TTImp-addAmbig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (lambda (rec-0) (let ((sc2 rec-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-8 e-2 e-3 e-7 (vector 1 e-1 e-6)))))))))))))))))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (rec-0) (let ((sc1 rec-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-6 (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 e-0 e-6 e-2 e-3 e-4 (vector 1 e-1 e-5))))))))))))))))))))
-(define LinearCheck-Core-case--14865-13221 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 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 e-2)))))))))))))))))
-(define LinearCheck-Core-case--14573-13084 (lambda (arg-0 arg-1 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
-(define LinearCheck-Core-case--14573-12992 (lambda (arg-0 arg-1 arg-2 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-12)))))
-(define LinearCheck-Core-case--14174-12777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7)))))))))))))
-(define LinearCheck-Core-case--14174-12656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 10 arg-12 1)) (else arg-19)))))
-(define LinearCheck-Core-case--8053-12587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14174-12656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11)))))))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--13748-12260 (lambda (arg-0 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (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 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) 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 ((tyC-39 (LinearCheck-Core-n--8045-11926-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 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 ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 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 ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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)) eta-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 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
-(define LinearCheck-Core-case--13711-12205 (lambda (arg-0 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 (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--13748-12260 'erased 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-9)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
-(define LinearCheck-Core-case--13676-12177 (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))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8045-11927-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) 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))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--13711-12205 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--8045-12149 (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 (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (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-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8045-11927-rigSafe 'erased 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 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 ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--13711-12205 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--13431-11945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
-(define LinearCheck-Core-case--8045-11881 (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 (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
-(define LinearCheck-Core-case--11793-11565 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args 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 ((act-26 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-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 ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-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 e-9)))))))))))))))))))))))))))
-(define LinearCheck-Core-case--11792-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
-(define LinearCheck-Core-case--11792-11265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-16)))))
-(define LinearCheck-Core-case--11791-11125 (lambda (arg-0 arg-1 arg-2 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) 0) (else (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
-(define LinearCheck-Core-case--12140-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 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) (vector 1 )) (else (vector 2 ))))))
-(define LinearCheck-Core-case--12043-10747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 4 )) (else (LinearCheck-Core-case--12140-10866 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0))))))))
-(define LinearCheck-Core-case--11982-10670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-14)) (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) (let ((act-24 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12043-10747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--11789-10627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-14)) (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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12043-10747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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)))))) (else (lambda (eta-0) (LinearCheck-Core-n--11789-10505-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--11843-10523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19))))))
-(define LinearCheck-Core-case--8028-10251 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--11415-10184 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
-(define LinearCheck-Core-case--8028-10143 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--8028-10084 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--8028-10024 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--11142-9957 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
-(define LinearCheck-Core-case--8028-9916 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--8028-9857 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
-(define LinearCheck-Core-case--10847-9703 (lambda (arg-0 arg-1 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (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))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))
-(define LinearCheck-Core-case--8024-9667 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))))))))))))))
-(define LinearCheck-Core-case--10709-9597 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7)))))))))))))))))
-(define LinearCheck-Core-case--8024-9554 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (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 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8024-9497 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7)))))))))))
-(define LinearCheck-Core-case--10508-9435 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7))))))))))))
-(define LinearCheck-Core-case--8024-9392 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9)))))))))))))))))))))
-(define LinearCheck-Core-case--9917-9219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0)))))))
-(define LinearCheck-Core-case--9985-8998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 10 arg-3 1)) (else arg-22)))))
-(define LinearCheck-Core-case--9917-8930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) 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 ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-18))))))) (let ((act-25 (Context-Core-getSession 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 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 ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 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))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 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 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--9863-8877 (lambda (arg-0 arg-1 arg-2 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 ((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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) 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 ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (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 ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 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 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (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-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (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 ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))
-(define LinearCheck-Core-case--8024-8834 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 ((Normalise-Core-getNF 'erased arg-8 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))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (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))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--9985-8998 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 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 ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--9696-8727 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))))
-(define LinearCheck-Core-case--9261-8694 (lambda (arg-0 arg-1 arg-2 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) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5)))))
-(define LinearCheck-Core-case--9320-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8024-7977-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 LinearCheck-Core-case--9320-8444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-20)))))
-(define LinearCheck-Core-case--9261-8371 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9320-8573 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased arg-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))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9320-8444 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 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 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (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))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0)))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8024-8324 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9261-8694 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) 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 ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9320-8573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (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))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9320-8444 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8024-7976-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (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))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0))))))))))))))))))))))))))))))))))))))))))))
-(define LinearCheck-Core-case--8875-8223 (lambda (arg-0 arg-1 arg-2 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 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8024-7978-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12)))))))
-(define LinearCheck-Core-case--8874-8112 (lambda (arg-0 arg-1 arg-2 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 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8024-7977-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8024-7977-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 LinearCheck-Core-case--8879-8041 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define LinearCheck-Core-case--8873-7983 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--8879-8041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))))))
-(define LinearCheck-Core-case--8327-7855 (lambda (arg-0 arg-1 arg-2 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 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))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-7 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 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 "")))))))
-(define LinearCheck-Core-case--8561-7771 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((7) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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 LinearCheck-Core-case--8327-7709 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8561-7771 arg-0 arg-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 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0)))))))))))))
-(define LinearCheck-Core-case--8327-7609 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8327-7547 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8024-7510 (lambda (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-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8327-7855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) 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))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\xa;" (Prelude-show_Show__String 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))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8561-7771 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define LinearCheck-Core-case--8072-7331 (lambda (arg-0 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-0 (vector 0 ))) (else (vector 0 ))))))
-(define LinearCheck-Core-case--6840-7073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3)))))))))))))
-(define LinearCheck-Core-case--7695-6880 (lambda (arg-0 arg-1 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 ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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 (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
-(define LinearCheck-Core-case--6840-6853 (lambda (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7695-6880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
-(define LinearCheck-Core-case--6918-6347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5)))))))))))))
-(define LinearCheck-Core-case--6918-6211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define LinearCheck-Core-case--6829-6161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-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))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--6918-6347 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
-(define LinearCheck-Core-case--6769-6059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
-(define LinearCheck-Core-case--6719-6009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1))))))
-(define LinearCheck-Core-n--8024-7217-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8072-7331 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))))
-(define LinearCheck-Core-n--8045-11926-updateUsage (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((scC-39 (LinearCheck-Core-n--8045-11926-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9)))))
-(define LinearCheck-Core-n--8024-7448-unusedHoleArgs (lambda (arg-0 arg-1 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) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (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 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8024-7448-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))
-(define LinearCheck-Core-n--8049-12452-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)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8049-12452-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 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8049-12452-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))
-(define LinearCheck-Core-n--6589-5887-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3)))))))))))))
-(define LinearCheck-Core-n--8045-11927-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 ))))))))))))
-(define LinearCheck-Core-n--8024-7216-rigSafe (lambda (arg-0 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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8024-7215-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8024-7976-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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--8879-8041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-7)))))))
-(define LinearCheck-Core-n--8040-10459-isLocArg (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (LinearCheck-Core-case--11791-11125 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
-(define LinearCheck-Core-n--8024-7977-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--8874-8112 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
-(define LinearCheck-Core-n--8040-10461-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" 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 (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 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 ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case 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 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) 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 ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-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 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-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 LinearCheck-Core-n--8024-7215-getName (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8024-7215-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased)))))))))
-(define LinearCheck-Core-n--8040-10457-getCaseUsage (lambda (arg-0 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-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) 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 ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--11789-10627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--11789-10627 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define LinearCheck-Core-n--8024-7978-eraseLinear (lambda (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--8875-8223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased e-4))))))))))
-(define LinearCheck-Core-n--11789-10505-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((LinearCheck-Core-n--8040-10457-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (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 (LinearCheck-Core-case--11843-10523 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11))))))))))
-(define LinearCheck-Core-n--8040-10463-combineUsages (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10462-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8040-10463-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 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))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))))
-(define LinearCheck-Core-n--8040-10462-combineUsage (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-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))
-(define LinearCheck-Core-n--8040-10464-combine (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8040-10464-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((LinearCheck-Core-n--8040-10463-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
-(define LinearCheck-Core-n--14573-12943-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8040-10458-checkUsageOK (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 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8024-7979-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LinearCheck-Core-n--8040-10460-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--11792-11378 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 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--11792-11265 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 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8040-10458-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8040-10459-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-n--8040-10460-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))))))))
+(define LinearCheck-Core-case--15281-13669 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (let ((sc3 (Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 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 e-2)))))))))))))))))
+(define LinearCheck-Core-case--14987-13527 (lambda (arg-0 arg-1 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Prelude-C-61C-61_Eq__Nat arg-12 (Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1)))))))
+(define LinearCheck-Core-case--14987-13434 (lambda (arg-0 arg-1 arg-2 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-12)))))
+(define LinearCheck-Core-case--14583-13213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7)))))))))))))
+(define LinearCheck-Core-case--14583-13090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 10 arg-12 1)) (else arg-19)))))
+(define LinearCheck-Core-case--8306-13019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 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))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--14583-13090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-6 e-7 _-0 e-5 e-8 (Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-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-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11)))))))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--14149-12683 (lambda (arg-0 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (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 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Overall arg usage " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) 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 ((tyC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 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 ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 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 ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-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 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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)) eta-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 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2)))))))))
+(define LinearCheck-Core-case--14111-12628 (lambda (arg-0 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 (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--14149-12683 'erased 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-9)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))
+(define LinearCheck-Core-case--14075-12599 (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))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8298-12346-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) 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))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--8298-12570 (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 (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 9 e-1) (let ((sc1 arg-7)) (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-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8298-12346-rigSafe 'erased 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 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 ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--14111-12628 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--13828-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
+(define LinearCheck-Core-case--8298-12300 (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 (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))
+(define LinearCheck-Core-case--12168-11968 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args 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 ((act-26 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-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 ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-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 e-9)))))))))))))))))))))))))))
+(define LinearCheck-Core-case--12167-11774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (LinearCheck-Core-updateHoleUsage (List-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat arg-16 (Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
+(define LinearCheck-Core-case--12167-11660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-16)))))
+(define LinearCheck-Core-case--12166-11519 (lambda (arg-0 arg-1 arg-2 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) 0) (else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
+(define LinearCheck-Core-case--12518-11259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 )) (else (vector 2 ))))))
+(define LinearCheck-Core-case--12419-11140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 4 )) (else (LinearCheck-Core-case--12518-11259 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 'erased arg-23 arg-24 arg-25 arg-26 (Prelude-C-61C-61_Eq__Nat arg-25 (Prelude-fromInteger_Num__Nat 0))))))))
+(define LinearCheck-Core-case--12358-11061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-14)) (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) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--12164-11018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-14)) (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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) 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 ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) 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 ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--12419-11140 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-2 e-3 arg-15 arg-16 arg-17 arg-18 e-4 'erased arg e-5 used_in e-6 (Prelude-C-38C-38 e-6 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12164-10895-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 LinearCheck-Core-case--12218-10914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 arg-12 (vector 1 )) arg-19)) (else (vector 1 (vector 0 arg-12 (vector 3 )) arg-19))))))
+(define LinearCheck-Core-case--8281-10639 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11786-10571 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
+(define LinearCheck-Core-case--8281-10529 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--8281-10469 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--8281-10408 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11509-10340 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7)))))))))))
+(define LinearCheck-Core-case--8281-10298 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--8281-10238 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 ))))))))))))
+(define LinearCheck-Core-case--11211-10082 (lambda (arg-0 arg-1 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) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (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))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0)))))))
+(define LinearCheck-Core-case--8277-10045 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (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-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))))))))))))))
+(define LinearCheck-Core-case--11071-9974 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7)))))))))))))))))
+(define LinearCheck-Core-case--8277-9930 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (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 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-9872 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7)))))))))))
+(define LinearCheck-Core-case--10867-9809 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7))))))))))))
+(define LinearCheck-Core-case--8277-9765 (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 ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) 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-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9)))))))))))))))))))))
+(define LinearCheck-Core-case--10263-9589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0)))))))
+(define LinearCheck-Core-case--10332-9359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 10 arg-3 1)) (else arg-22)))))
+(define LinearCheck-Core-case--10263-9290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) 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 ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-6 e-7 _-0 e-5 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-18))))))) (let ((act-25 (Context-Core-getSession 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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 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 ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 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))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (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-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 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 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--10207-9236 (lambda (arg-0 arg-1 arg-2 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 ((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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) 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 ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (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 ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 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 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (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-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (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 ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (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-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))
+(define LinearCheck-Core-case--8277-9190 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (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 ((Normalise-Core-getNF 'erased arg-8 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))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (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))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--10332-9359 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 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 ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) 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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased 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-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-9116 (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) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0)))))))
+(define LinearCheck-Core-case--9968-9022 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))))
+(define LinearCheck-Core-case--9528-8989 (lambda (arg-0 arg-1 arg-2 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) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-5))(else arg-5)))) (else arg-5)))))
+(define LinearCheck-Core-case--9588-8868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (LinearCheck-Core-updateHoleUsage (vector 1 arg-1 arg-0) arg-9 arg-8 (Prelude-C-61C-61_Eq__Nat arg-20 (Prelude-fromInteger_Num__Nat 0)) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8277-8260-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 LinearCheck-Core-case--9588-8737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-fromInteger_Num__Nat 1)) (else arg-20)))))
+(define LinearCheck-Core-case--9528-8662 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-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))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 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-2 e-6 e-7 _-0 e-5 used_in e-8 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-8 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 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 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (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))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0)))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--8277-8614 (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) 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 ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--9588-8868 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in (Prelude-C-38C-38 (Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (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))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--9588-8737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 envC-39 e-8 e-10 e-9 _-1 e-11 used_in e-12 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Prelude-C-38C-38 e-12 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8277-8259-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (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))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0))))))))))))))))))))))))))))))))))))))))))))
+(define LinearCheck-Core-case--9135-8506 (lambda (arg-0 arg-1 arg-2 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 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12))) (else (vector 1 arg-13 (LinearCheck-Core-n--8277-8261-eraseLinear arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-12)))))))
+(define LinearCheck-Core-case--9134-8395 (lambda (arg-0 arg-1 arg-2 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 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8277-8260-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 LinearCheck-Core-case--9139-8324 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define LinearCheck-Core-case--9133-8266 (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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))))))
+(define LinearCheck-Core-case--8583-8137 (lambda (arg-0 arg-1 arg-2 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 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))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-7 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 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define LinearCheck-Core-case--8819-8052 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((7) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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 LinearCheck-Core-case--8583-7990 (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)) arg-1)) (else (let ((ty (let ((expand 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-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 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0)))))))))))))
+(define LinearCheck-Core-case--8583-7888 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8583-7826 (lambda (arg-0 arg-1 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 LinearCheck-Core-case--8277-7789 (lambda (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-1 (vector-ref sc0 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7888 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) 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))) (vector 1 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Prelude-C-43C-43 "\xa;" (Prelude-show_Show__String 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))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define LinearCheck-Core-case--8325-7605 (lambda (arg-0 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-0 (vector 0 ))) (else (vector 0 ))))))
+(define LinearCheck-Core-case--7073-7347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3)))))))))))))
+(define LinearCheck-Core-case--7942-7148 (lambda (arg-0 arg-1 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 ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New type of " (Name-Core-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 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updated from " (Name-Core-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 (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
+(define LinearCheck-Core-case--7073-7121 (lambda (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--7942-7148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
+(define LinearCheck-Core-case--7153-6602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-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 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5)))))))))))))
+(define LinearCheck-Core-case--7153-6466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-17)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define LinearCheck-Core-case--7062-6415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-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))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--7153-6602 'erased arg-1 arg-2 'erased arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
+(define LinearCheck-Core-case--7002-6311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
+(define LinearCheck-Core-case--6952-6261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) (LinearCheck-Core-count 'erased arg-3 arg-1))) (else (LinearCheck-Core-count 'erased arg-3 arg-1))))))
+(define LinearCheck-Core-n--8277-7491-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (LinearCheck-Core-case--8325-7605 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))))
+(define LinearCheck-Core-n--8298-12345-updateUsage (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((scC-39 (LinearCheck-Core-n--8298-12345-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-2 e-7))) (let ((cC-39 (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-9) ((3) e-9) (else e-9))))) (vector 3 e-4 e-5 (vector 2 cC-39 e-10 e-11) scC-39)))))))(else arg-9))))))))(else arg-9))))))(else arg-9)))))
+(define LinearCheck-Core-n--8277-7724-unusedHoleArgs (lambda (arg-0 arg-1 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) ((1) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (vector 3 e-13 e-14 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-11 e-16)))))(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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased 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))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))(else (let ((sc0 arg-13)) (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 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8) (LinearCheck-Core-n--8277-7724-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 e-4))))))(else arg-13))))))))(else arg-13))))))))
+(define LinearCheck-Core-n--8302-12882-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)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8302-12882-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 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8302-12882-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 (SubstEnv-TT-Core-subst (List-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))
+(define LinearCheck-Core-n--6820-6139-showAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2))(else (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3)))))))))))))
+(define LinearCheck-Core-n--8298-12346-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 ))))))))))))
+(define LinearCheck-Core-n--8277-7490-rigSafe (lambda (arg-0 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 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11 arg-12))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-5 (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8277-8259-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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9139-8324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-7)))))))
+(define LinearCheck-Core-n--8293-10849-isLocArg (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) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (LinearCheck-Core-case--12166-11519 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 'erased e-6 e-7 e-8 'erased e-3 arg-7 (Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7))))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 (vector 1 e-13 (vector 1 e-14 e-3))))))(else (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
+(define LinearCheck-Core-n--8277-8260-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-11)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-11)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (LinearCheck-Core-case--9134-8395 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
+(define LinearCheck-Core-n--8293-10851-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" 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 (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 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 ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case 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 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) 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 ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-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 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg usage: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-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 LinearCheck-Core-n--8277-7489-getName (lambda (arg-0 arg-1 arg-2 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)) (cond ((equal? sc0 0) (let ((sc1 arg-13)) (let ((e-2 (vector-ref sc1 1))) e-2)))(else (let ((e-0 (- arg-12 1))) (let ((sc0 arg-13)) (let ((e-6 (vector-ref sc0 2))) (LinearCheck-Core-n--8277-7489-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-0 e-6 'erased)))))))))
+(define LinearCheck-Core-n--8293-10847-getCaseUsage (lambda (arg-0 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-10)) (case (vector-ref sc0 0) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((5) (let ((e-19 (vector-ref sc1 4))) (LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-19 e-14) 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 ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--12164-11018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-8 e-7 e-6 e-2 e-4 e-10 e-11 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define LinearCheck-Core-n--8277-8261-eraseLinear (lambda (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-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (LinearCheck-Core-case--9135-8506 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-5 e-4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased e-4))))))))))
+(define LinearCheck-Core-n--12164-10895-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((LinearCheck-Core-n--8293-10847-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (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 (LinearCheck-Core-case--12218-10914 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11))))))))))
+(define LinearCheck-Core-n--8293-10853-combineUsages (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 ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10852-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 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))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))))
+(define LinearCheck-Core-n--8293-10852-combineUsage (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-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (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) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (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) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))
+(define LinearCheck-Core-n--8293-10854-combine (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8293-10854-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) ((LinearCheck-Core-n--8293-10853-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
+(define LinearCheck-Core-n--14987-13384-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12) (lambda () (Prelude-C-47C-61_Eq__Nat arg-11 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8293-10848-checkUsageOK (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 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10) (lambda () (Prelude-C-124C-124 (Prelude-C-38C-38 arg-9 (lambda () (Prelude-C-62_Ord__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))) (lambda () (Prelude-C-38C-38 (Prelude-not arg-9) (lambda () (Prelude-C-47C-61_Eq__Nat arg-7 (Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8277-8262-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) (let ((sc0 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-11) (lambda () (Prelude-C-47C-61_Eq__Nat arg-10 (Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LinearCheck-Core-n--8293-10850-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--12167-11774 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 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--12167-11660 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 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8293-10848-checkUsageOK arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getLoc 'erased (TT-Core-binderType 'erased e-8)) used e-2 (LinearCheck-Core-n--8293-10849-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-n--8293-10850-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))) e-3 arg-8 e-9 arg-10 arg-11 arg-12) eta-0))))))))))))))))))))))))
 (define LinearCheck-Core-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 LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6589-5887-showAll 'erased arg-1 'erased arg-1) "]"))))
+(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (LinearCheck-Core-n--6820-6139-showAll 'erased arg-1 'erased arg-1) "]"))))
 (define LinearCheck-Core-showPrec_Show__ArgUsage (lambda (arg-0 arg-1) (LinearCheck-Core-show_Show__ArgUsage arg-1)))
 (define LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased arg-2)))
 (define LinearCheck-Core-__Impl_Show_ArgUsage (lambda () (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x))))))
 (define LinearCheck-Core-__Impl_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 'erased d x))))))
 (define LinearCheck-Core-updateHoleUsageArgs (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 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) 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 ((act-25 ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (vector 1 (Prelude-C-124C-124 e-5 (lambda () e-6)))))))))))))))))))))
-(define LinearCheck-Core-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-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) 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 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 ((Context-Core-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))) ((LinearCheck-Core-case--7695-6880 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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--6840-7073 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))
-(define LinearCheck-Core-updateHoleType (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) ((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 ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (LinearCheck-Core-case--6829-6161 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) 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 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-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))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 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 arg-7)))))))))))
-(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6769-6059 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3)))))))))
+(define LinearCheck-Core-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-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) 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 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 (Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 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 ((Context-Core-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))) ((LinearCheck-Core-case--7942-7148 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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 ((LinearCheck-Core-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 (Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--7073-7347 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))
+(define LinearCheck-Core-updateHoleType (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) ((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 ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (LinearCheck-Core-case--7062-6415 'erased arg-1 arg-2 'erased e-14 e-16 'erased e-8 e-7 e-6 e-2 e-4 e-1 e-15 e-11 arg-6 arg-5 arg-4 arg-3 (Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) 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 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-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))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) 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 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 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 arg-7)))))))))))
+(define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--7002-6311 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3)))))))))
 (define LinearCheck-Core-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 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 ((LinearCheck-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-8 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased 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 (Prelude-not arg-5))) (cond ((equal? sc6 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)) (else (vector 1 (vector 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 LinearCheck-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (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 ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--14174-12656 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (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 ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\xa;                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\xa;                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 )))))))))))))))
-(define LinearCheck-Core-lcheckDef (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 (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 ((Context-Core-lookupCtxtExact arg-7 (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 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8045-12149 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))
-(define LinearCheck-Core-lcheckBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 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) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 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-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))))))
-(define LinearCheck-Core-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 ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (TT-Core-weaken_Weaken__Term n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (TT-Core-weakenNs_Weaken__Term vars ns arg-3225))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8024-7216-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 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 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8024-7217-used e-4 'erased arg-0 'erased 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 ((LinearCheck-Core-lcheckDef 'erased 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 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 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 ((Context-Core-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 ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8327-7547 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))) (LinearCheck-Core-case--8327-7609 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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8327-7855 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 (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 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\xa;" (Prelude-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 ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-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 ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8561-7771 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 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 ((LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8024-7976-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-0))) (let ((sc1 act-24)) (case (vector-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9261-8694 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 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 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 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9320-8573 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9320-8444 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8024-7979-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8024-7976-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 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))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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 ((Normalise-Core-getNF 'erased 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 (vector 0 e-2 (vector 0 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-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (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 ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (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))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--9985-8998 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-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (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 ((Normalise-Core-getTerm 'erased 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-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased 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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 )))))))))))
-(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8040-10461-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 ((LinearCheck-Core-n--8040-10464-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6))))))))))))))
-(define LinearCheck-Core-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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8049-12452-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 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) 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))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))
+(define LinearCheck-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (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 ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--14583-13090 arg-0 e-5 e-6 e-11 e-1 e-2 e-12 e-10 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-14 e-13 _-0 e-15 e-16 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (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 ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\xa;                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Linearity checking failed on metavar\xa;                      " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 )))))))))))))))
+(define LinearCheck-Core-lcheckDef (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 (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 ((Context-Core-lookupCtxtExact arg-7 (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 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--8298-12570 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))
+(define LinearCheck-Core-lcheckBinder (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 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 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) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 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-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))))))
+(define LinearCheck-Core-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 ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (TT-Core-weaken_Weaken__Term n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (TT-Core-weakenNs_Weaken__Term vars ns arg-3271))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8277-7490-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 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 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8277-7491-used e-4 'erased arg-0 'erased 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 ((LinearCheck-Core-lcheckDef 'erased 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 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 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 ((Context-Core-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 ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8583-7826 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))) (LinearCheck-Core-case--8583-7888 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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--8583-8137 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 (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 (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Prelude-C-43C-43 "\xa;" (Prelude-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 ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-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 ((ty (let ((expand-0 1)) (LinearCheck-Core-case--8819-8052 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 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased 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))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 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 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-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) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8277-8259-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 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--9528-8989 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 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 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 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (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 ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--9588-8868 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in (Prelude-C-38C-38 (Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--9588-8737 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 envC-39 e-9 e-11 e-10 _-1 e-12 used_in e-13 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Prelude-C-38C-38 e-13 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8277-8262-checkUsageOK arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8277-8259-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 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))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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 ((Normalise-Core-getNF 'erased 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 (vector 0 e-2 (vector 0 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-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (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 ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (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))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--10332-9359 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-13 e-12 e-14 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (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 ((Normalise-Core-getTerm 'erased 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-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (TT-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased 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 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased 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 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-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 ((LinearCheck-Core-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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased 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 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed tyoe") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 )))))))))))
+(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8293-10851-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 ((LinearCheck-Core-n--8293-10854-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6))))))))))))))
+(define LinearCheck-Core-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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8302-12882-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 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) 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))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0)))))))
 (define LinearCheck-Core-doneScope (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (LinearCheck-Core-doneScope 'erased 'erased e-3))(else (let ((e-8 (- e-2 1))) (vector 1 e-8 (LinearCheck-Core-doneScope 'erased 'erased e-3)))))))))))))
 (define LinearCheck-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) 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 (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3) e-5)) arg-9))))))))))))) ((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) (let ((act-24 ((Normalise-Core-getTerm 'erased 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-8 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) e-8)) arg-9))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-9 e-10 e-11) arg-7) (vector 0 arg-6 arg-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 0 (vector 3 arg-3 arg-4 (vector 3 e-13 e-14 e-15) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-13 e-15) e-5)) arg-9))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 0 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) e-5)) arg-9))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-21 e-22) arg-7) (vector 0 arg-6 arg-9)))))))))))
-(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6719-6009 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2))))))))))
-(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--14573-13084 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--14573-12992 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--14573-12943-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))))))))
+(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--6952-6261 'erased e-3 e-2 arg-1 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2))))))))))
+(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--14987-13527 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (TT-Core-multiplicity 'erased 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 ((used (LinearCheck-Core-case--14987-13434 e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 pos used_in e-5 (Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Prelude-C-38C-38 e-5 (lambda () (Prelude-C-61C-61_Eq__Nat used_in (Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--14987-13384-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased 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 ((LinearCheck-Core-checkEnvUsage e-3 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0))))))))))))))))))))))))
 (define LinearCheck-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (LinearCheck-Core-C-43C-43 'erased e-3 arg-2)))))))))
-(define BindImplicits-TTImp-case--6094-6867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define BindImplicits-TTImp-case--6047-6826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define BindImplicits-TTImp-case--5805-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2))))))
-(define BindImplicits-TTImp-case--5805-6619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3))))))
-(define BindImplicits-TTImp-case--5741-6543 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0))))))))
-(define BindImplicits-TTImp-case--5589-6476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
-(define BindImplicits-TTImp-case--5589-6432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
-(define BindImplicits-TTImp-case--5044-6331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6355) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 16 arg-1 arg-0) eta-0)))))))
-(define BindImplicits-TTImp-case--5044-5880 (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 ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-5955) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0)))))))
-(define BindImplicits-TTImp-n--5987-6760-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--5987-6760-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3)))))))))
-(define BindImplicits-TTImp-n--5044-6262-renameAlt (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 (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-5 eta-0)))))))
-(define BindImplicits-TTImp-n--5589-6526-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4)))))
-(define BindImplicits-TTImp-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-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5044-5880 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (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))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (BindImplicits-TTImp-n--5044-6262-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3506) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3506))))) func arg-3505 eta-2)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a-0) (lambda (arg-3573) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3573))) (lambda (b) (lambda (a-0) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a-0) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a-0) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-3572 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a-0) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b-0) (lambda (a-0) (lambda (arg-3574) (lambda (arg-3576) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3574 arg-3576)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a-0) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-3573 arg-3575 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5044-6331 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737)))) arg-2 eta-0)))))))
+(define BindImplicits-TTImp-case--6269-7126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define BindImplicits-TTImp-case--6221-7084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define BindImplicits-TTImp-case--5980-6941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 2 ) (vector 0 (vector 0 ) arg-1)))) (BindImplicits-TTImp-getUsing arg-3 arg-2))) (else (BindImplicits-TTImp-getUsing arg-3 arg-2))))))
+(define BindImplicits-TTImp-case--5980-6875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) (vector 0 (vector 1 arg-4) arg-2)))) (BindImplicits-TTImp-getUsing arg-4 arg-3))) (else (BindImplicits-TTImp-getUsing arg-4 arg-3))))))
+(define BindImplicits-TTImp-case--5915-6799 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0))))))))
+(define BindImplicits-TTImp-case--5762-6730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
+(define BindImplicits-TTImp-case--5762-6685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (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))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-6)))(else arg-6)))))(else arg-6)))))
+(define BindImplicits-TTImp-case--5214-6583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-3 arg-2) arg-0))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-1) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-1)) (lambda (upds) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-2) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6607) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 nC-39) eta-2))) eta-1))) eta-0)))) (else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 16 arg-1 arg-0) eta-0)))))))
+(define BindImplicits-TTImp-case--5214-6129 (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 ((nC-39 (Utils-TTImp-getUnique (List-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (Prelude-C-47C-61_Eq__String arg-9 arg-0)) arg-6)) (vector 1 (vector 0 (vector 1 arg-0) (vector 0 arg-5 (vector 1 nC-39))) (vector 0 )) arg-1))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 (vector 1 nC-39 arg-6) scC-39) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-3) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) eta-3)) (lambda (upds) (lambda (eta-3) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (lambda (eta-4) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-6206) (lambda (eta-4) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 nC-39)) tyC-39 scr) eta-4))) eta-3))) eta-2))) eta-1))) eta-0))))) (else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-1) (lambda (scr) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-7 arg-6 arg-2) (lambda (tyC-39) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 arg-5 arg-4 arg-3 (vector 1 (vector 1 arg-0)) tyC-39 scr) eta-2))) eta-1))) eta-0)))))))
+(define BindImplicits-TTImp-n--6162-7016-tag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 arg-3 e-2) (BindImplicits-TTImp-n--6162-7016-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3)))))))))
+(define BindImplicits-TTImp-n--5214-6513-renameAlt (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 (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-4 arg-3 e-0) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 2 bind-0) eta-1))) eta-0))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-5 eta-0)))))))
+(define BindImplicits-TTImp-n--5762-6781-doBindAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (vector 2 (BindImplicits-TTImp-doBind arg-3 e-0))))(else arg-4)))))
+(define BindImplicits-TTImp-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-42 (vector-ref sc1 1))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (BindImplicits-TTImp-case--5214-6129 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-43 arg-0))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 1 e-0 e-1 e-2 e-3 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))))(else (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-4) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-5) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-10) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-11) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-13) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-14) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (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))) (let ((e-18 (vector-ref sc0 4))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-16) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-18) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 9 e-15 bind-0 e-17 bind-1) eta-2))) eta-1))) eta-0))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-20) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-21) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 10 e-19 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((17) (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) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-25) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 17 e-22 e-23 e-24 bind-0) eta-1))) eta-0))))))) ((18) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-28) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 18 e-26 e-27 bind-0) eta-1))) eta-0)))))) ((19) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-31) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 19 e-29 e-30 bind-0) eta-1))) eta-0)))))) ((20) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-33) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 20 e-32 bind-0) eta-1))) eta-0))))) ((21) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 e-35) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 21 e-34 bind-0) eta-1))) eta-0))))) ((12) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (BindImplicits-TTImp-n--5214-6513-renameAlt e-38 e-37 e-36 arg-1 arg-0 e-37) (lambda (bind-0) (lambda (eta-1) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (lambda (b-0) (lambda (a-0) (lambda (func-0) (lambda (arg-3436) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3436))))) func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3503) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3503))) (lambda (b) (lambda (a-0) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3502 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b-0) (lambda (a-0) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a-0) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b-0) (lambda (a-0) (lambda (arg-3504) (lambda (arg-3506) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3504 arg-3506)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a-0) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-3503 arg-3505 eta-2))))))) (lambda (eta-2) (BindImplicits-TTImp-renameIBinds arg-0 arg-1 eta-2)) e-38) (lambda (bind-1) (lambda (eta-2) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) (vector 12 e-36 bind-0 bind-1) eta-2))) eta-1))) eta-0)))))) ((16) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (BindImplicits-TTImp-case--5214-6583 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-40 arg-0)))))(else (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667)))) arg-2 eta-0)))))))
 (define BindImplicits-TTImp-getUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Prelude-C-43C-43 'erased (BindImplicits-TTImp-getUsing e-2 arg-1) (BindImplicits-TTImp-getUsings e-3 arg-1)))))))))
-(define BindImplicits-TTImp-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (BindImplicits-TTImp-case--5805-6619 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--5805-6685 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-0 ns)))))))))))))))))))
-(define BindImplicits-TTImp-doBind (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) (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-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-45 arg-0))))(else 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))) (let ((nsC-39 (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-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 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))) (let ((nsC-39 (let ((sc1 e-11)) (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-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (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))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5589-6526-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1))))))))
+(define BindImplicits-TTImp-getUsing (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (BindImplicits-TTImp-case--5980-6875 e-6 e-13 e-11 e-3 arg-0 (Name-Core-C-61C-61_Eq__Name arg-0 e-13)))) (else (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--5980-6941 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-0 ns)))))))))))))))))))
+(define BindImplicits-TTImp-doBind (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) (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-45 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-45 arg-0))))(else 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))) (let ((nsC-39 (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-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-8)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 1 e-2 e-3 e-4 e-5 (BindImplicits-TTImp-doBind nsC-39 e-6) (BindImplicits-TTImp-doBind nsC-39 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))) (let ((nsC-39 (let ((sc1 e-11)) (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-2 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (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))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5762-6781-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1))))))))
 (define BindImplicits-TTImp-bindUsings (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 (TTImp-TTImp-getFC e-15) e-6 e-10 e-14 e-15 (BindImplicits-TTImp-bindUsings e-3 arg-1))))))))))))))))))
-(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3)))))))))))
-(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3)))))))))))
-(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2))))))))))))
-(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--5987-6760-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1)))))
-(define State-Monad-Control-case--1859-834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9)))
-(define State-Monad-Control-case--1785-798 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1859-834 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2))))))))
-(define State-Monad-Control-case--1672-635 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3)))))))))
-(define State-Monad-Control-case--1583-590 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6))))))))))))))))
-(define State-Monad-Control-n--1514-432-mapFst (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))) (vector 0 (arg-9 e-2) e-3))))))
+(define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3)))))))))))
+(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3)))))))))))
+(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2))))))))))))
+(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6162-7016-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1)))))
+(define State-Monad-Control-case--1886-836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (arg-11 arg-9)))
+(define State-Monad-Control-case--1810-800 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 (arg-6 e-2))))))))
+(define State-Monad-Control-case--1697-639 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 (let ((sc2 arg-4)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (arg-8 e-2) e-3)))))))))
+(define State-Monad-Control-case--1608-593 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6))))))))))))))))
+(define State-Monad-Control-n--1539-440-mapFst (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))) (vector 0 (arg-9 e-2) e-3))))))
 (define State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 (vector 0 ) arg-3))))))
 (define State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((sc0 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 arg-4 ext-0))))))
-(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1514-432-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0))))
+(define State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) ((((arg-4 'erased) 'erased) (lambda (eta-0) (State-Monad-Control-n--1539-440-mapFst 'erased 'erased 'erased 'erased arg-4 arg-6 arg-5 'erased 'erased arg-5 eta-0))) (arg-6 ext-0))))
 (define State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) ext-0)))
 (define State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 ext-0 ext-0))))))
-(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3734 arg-3735 eta-0)))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3737 eta-0)))))))
-(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3734 arg-3735 eta-0)))))) (lambda (a) (lambda (arg-3737) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3737 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-282) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-282 eta-0))))))
+(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0)))))))
+(define State-Monad-Control-__Impl_MonadState_C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased 'erased arg-2 arg-3664 arg-3665 eta-0)))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3667 eta-0))))) (lambda (eta-0) (State-Monad-Control-get_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 eta-0)) (lambda (arg-291) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-291 eta-0))))))
 (define State-Monad-Control-__Impl_Functor_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 ext-4 ext-1 ext-2 ext-3 ext-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 ext-2 ext-3 ext-0)))
-(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3505 eta-0)))))) (lambda (a) (lambda (arg-3572) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3572 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3573 arg-3575 eta-0)))))))))
-(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1859-834 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5))))))))))))
+(define State-Monad-Control-__Impl_Applicative_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (State-Monad-Control-map_Functor__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-1 (vector-ref sc0 1))) e-1)) func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3502 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased 'erased arg-2 arg-3503 arg-3505 eta-0)))))))))
+(define State-Monad-Control-C-62C-62C-61_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((_-1 (vector 0 e-5 e-4))) (State-Monad-Control-case--1886-836 'erased 'erased 'erased 'erased arg-4 arg-5 arg-6 ext-0 e-5 e-4 _-1 (arg-6 e-5))))))))))))
 (define State-Monad-Control-C-60C-42C-62_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) ((((e-7 'erased) 'erased) (arg-6 e-4)) (lambda (_-1) (let ((sc3 _-1)) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 (let ((sc5 arg-4)) (let ((e-13 (vector-ref sc5 1))) e-13)))) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 0 (e-5 e-10) e-9))))))))))))))))))))
 (define StateT-State-Monad-Control-runStateT (lambda (arg-0 arg-1 arg-2 arg-3) arg-3))
 (define State-Monad-Control-runState (lambda (arg-0 arg-1 arg-2 ext-0) (arg-2 ext-0)))
@@ -4932,1184 +4982,1186 @@
 (define Identity-Monad-Control-pure_Applicative__Identity (lambda (arg-0 arg-1) arg-1))
 (define Identity-Monad-Control-map_Functor__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3)))
 (define Identity-Monad-Control-join_Monad__Identity (lambda (arg-0 arg-1) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-1 (lambda (eta-0) eta-0))))
-(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575)))))) (lambda (b) (lambda (a) (lambda (arg-3734) (lambda (arg-3735) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3734 arg-3735))))) (lambda (a) (lambda (arg-3737) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3737))))))
+(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505)))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3664 arg-3665))))) (lambda (a) (lambda (arg-3667) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3667))))))
 (define Identity-Monad-Control-__Impl_Functor_Identity (lambda (ext-0 ext-1 ext-2 ext-3) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased ext-2 ext-3)))
-(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3573 arg-3575))))))))
+(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3503 arg-3505))))))))
 (define Identity-Monad-Control-C-62C-62C-61_Monad__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-3 arg-2)))
 (define Identity-Monad-Control-C-60C-42C-62_Applicative__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3)))
 (define Identity-Identity-Monad-Control-runIdentity (lambda (arg-0 arg-1) arg-1))
-(define ProcessTransform-TTImp-case--7920-11225 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 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 ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0))))))))))))))))))))))))))))))))))))))
+(define ProcessTransform-TTImp-case--8252-11859 (lambda (arg-0 arg-1 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 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 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 ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0))))))))))))))))))))))))))))))))))))))
 (define ProcessTransform-TTImp-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 ((Context-Core-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 ((Context-Core-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 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 0 (ZeroOneOmega-Algebra-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 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (let ((e-18 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((act-27 (Context-Core-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 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 59 arg-7 arg-8 eta-0)) (lambda (eta-0) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (vector 1 (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (Normalise-Core-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 (Metadata-Core-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 (Context-Core-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 (Context-Core-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-with--19100-12732 (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 ProcessDef-TTImp-with--19080-12725 (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)) (ProcessDef-TTImp-with--19100-12732 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
-(define ProcessDef-TTImp-with--13319-7936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14))))))))
-(define ProcessDef-TTImp-with--13319-7863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13))))))))
-(define ProcessDef-TTImp-case--22178-15729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22178-15649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (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 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22001-15388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 eta-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 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-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 (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (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-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-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 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 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 (Context-Core-addToSave arg-9 arg-10 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 (let ((act-30 (unbox arg-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 ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) 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 ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (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 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 ((act-35 (unbox arg-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 ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--20683-14096-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (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 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--22001-15282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define ProcessDef-TTImp-case--21958-15236 (lambda (arg-0 arg-1 arg-2 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 ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22001-15282 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) 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 ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) 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 ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-1))) (let ((sc7 act-28)) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (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-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-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) 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 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) 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 (Context-Core-addToSave arg-9 arg-10 eta-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 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (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-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) 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 ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 (ProcessDef-TTImp-n--20683-14096-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 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 (Context-Core-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-650 arg-651)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0)))))))
-(define ProcessDef-TTImp-case--20683-15206 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--21958-15236 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0)))))))
-(define ProcessDef-TTImp-case--21660-15021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960)))) (vector 2 arg-26) eta-0)))))))
-(define ProcessDef-TTImp-case--21378-14958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Covering arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Covering arg-11959 arg-11960)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25))))))))
-(define ProcessDef-TTImp-case--21378-14850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0)))))))
-(define ProcessDef-TTImp-case--20704-14701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--21378-14850 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--20683-14093-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-2 eta-3))) e-8) eta-1))) (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 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--20683-14094-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--21378-14958 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0)))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20702-14545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
-(define ProcessDef-TTImp-case--20934-14387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) 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))) ((ProcessDef-TTImp-n--20702-14152-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 e-5 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 ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (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 1 e-6))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20849-14313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 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 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) 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 ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--20702-14152-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 e-8 e-9) 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-9 arg-14))) (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 (vector 1 (vector 1 e-9)))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20702-14245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 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 ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-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))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-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)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (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-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (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))) ((ProcessDef-TTImp-n--20702-14152-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 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20549-14033 (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-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-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))) (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 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20271-13811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--20177-13725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (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-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 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 (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0)))))))
-(define ProcessDef-TTImp-case--20029-13650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\xa;Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20177-13725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0))))))))))))))))
-(define ProcessDef-TTImp-case--20029-13564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
-(define ProcessDef-TTImp-case--19993-13530 (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-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 ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--19758-13284-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--19758-13283-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (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 ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--19758-13285-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\xa;Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 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))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20177-13725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 )))))))))
-(define ProcessDef-TTImp-case--19758-13502 (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 ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19993-13530 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19408-13175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--19408-13137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--19408-13004 (lambda (arg-0 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-2)) (cond ((equal? sc0 0) arg-9) (else arg-10)))))
-(define ProcessDef-TTImp-case--19320-12976 (lambda (arg-0 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) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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 ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19320-12928 (lambda (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-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))
-(define ProcessDef-TTImp-case--19299-12910 (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 ((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 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased 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 ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-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) (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19150-12895 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19299-12910 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--19179-12819 (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) (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
-(define ProcessDef-TTImp-case--19156-12792 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19179-12819 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
-(define ProcessDef-TTImp-case--16696-12611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 )) (else (vector 2 ))))))
-(define ProcessDef-TTImp-case--17766-12102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7)))
-(define ProcessDef-TTImp-case--17766-11862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define ProcessDef-TTImp-case--17318-11576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) 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 ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 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 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--17766-11862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12)) arg-5 e-10 arg-11 (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 ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp 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 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15171-10341-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 (+ 1 0) e-11 wargNames arg-16 eta-1)) 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 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d 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 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 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 ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 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-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0)))))))
-(define ProcessDef-TTImp-case--17318-11377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32)))))))
-(define ProcessDef-TTImp-case--17189-11213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--17318-11377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-650 arg-651)))) (vector 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) 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))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) 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-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--17318-11576 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0)))))))
-(define ProcessDef-TTImp-case--17063-11124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17189-11213 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0)))))))
-(define ProcessDef-TTImp-case--16926-11037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17063-11124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0)))))))
-(define ProcessDef-TTImp-case--16797-10934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 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 ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((ProcessDef-TTImp-case--16926-11037 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0)))))))))))))))))
-(define ProcessDef-TTImp-case--16696-10826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 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 ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") 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 ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((act-28 (let ((act-28 (unbox arg-15))) (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 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 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 ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--16797-10934 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15171-10746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16696-12611 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (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 ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (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))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 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 ((Normalise-Core-getTerm 'erased e-4) 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 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (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))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (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))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (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 ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--16797-10934 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--16196-10632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
-(define ProcessDef-TTImp-case--16196-10386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3)))))))
-(define ProcessDef-TTImp-case--15753-10248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 )) (else (vector 2 ))))))
-(define ProcessDef-TTImp-case--15753-10108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--15171-9961 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--15753-10248 arg-0 arg-1 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) 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))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-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 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 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 ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-9 eta-0)))))) (else (vector 1 (vector 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 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15548-9871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))
-(define ProcessDef-TTImp-case--15171-9787 (lambda (arg-0 arg-1 arg-2 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) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) 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 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))))))))))))))))
-(define ProcessDef-TTImp-case--15307-9664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0)))))))
-(define ProcessDef-TTImp-case--15217-9596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--15171-9519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 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 ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp 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 ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (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 ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) 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))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0)))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14551-9212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (let ((act-26 (unbox arg-12))) (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 ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 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 ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") 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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) 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 ((ProcessDef-TTImp-combineLinear arg-1 e-10) 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) 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 ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (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))) (vector 1 (vector 0 arg-21 e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14551-9127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18))))))
-(define ProcessDef-TTImp-case--14551-8994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8))))))
-(define ProcessDef-TTImp-case--14434-8928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 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 ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 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))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-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))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp 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 ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 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 ((act-30 ((Normalise-Core-getTerm 'erased 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))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (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 ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (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 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 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 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) 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 ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-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 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-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 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-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))) (vector 1 (vector 0 e-6 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-case--14434-8869 (lambda (arg-0 arg-1 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0))))))
-(define ProcessDef-TTImp-case--14198-8775 (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 ((ProcessDef-TTImp-combineLinear arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14198-8624-combineAll arg-0 arg-1 arg-2 arg-3 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14198-8621-notN arg-0 arg-1 arg-2 arg-3 eta-1)) 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))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6))))))))))))))))))
-(define ProcessDef-TTImp-case--14217-8721 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-5 arg-4))))))))
-(define ProcessDef-TTImp-case--14216-8655 (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 (ProcessDef-TTImp-n--14198-8622-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14198-8622-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
-(define ProcessDef-TTImp-case--14057-8563 (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))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4)))))))
-(define ProcessDef-TTImp-case--14057-8505 (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))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5)))))))
-(define ProcessDef-TTImp-case--13901-8413 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 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))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--13538-8041-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--13538-8352 (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 ((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)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (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 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-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-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--13538-8041-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessDef-TTImp-case--13571-8145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) 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 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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))) ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))))))))))))
-(define ProcessDef-TTImp-case--13570-8048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define ProcessDef-TTImp-case--12927-7581 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-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 (Prelude-not e-5)))))))))))))
-(define ProcessDef-TTImp-case--12927-7494 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 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))) (vector 1 (Prelude-not e-5)))))))))))))
-(define ProcessDef-TTImp-case--12583-7263 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define ProcessDef-TTImp-case--12583-7181 (lambda (arg-0 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) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-case--12299-7015 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
-(define ProcessDef-TTImp-case--12299-6933 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
-(define ProcessDef-TTImp-n--19758-13284-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 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))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) 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 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) 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 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-n--19758-13285-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11))))))))))))
-(define ProcessDef-TTImp-n--20683-14092-simplePat (lambda (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) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--20683-14092-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1)))))
-(define ProcessDef-TTImp-n--14198-8621-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2)))))
-(define ProcessDef-TTImp-n--19758-13279-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 ))))))
-(define ProcessDef-TTImp-n--15171-10341-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) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 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))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) 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))) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 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-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15171-10341-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 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 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 2 e-8 e-5)))))))))))))))
-(define ProcessDef-TTImp-n--19758-13280-matchAny (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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--19758-13280-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6)))))
-(define ProcessDef-TTImp-n--19758-13281-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--19758-13280-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--19758-13279-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1))))))))
-(define ProcessDef-TTImp-n--14198-8622-lookupAll (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14216-8655 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6))))))))))))
-(define ProcessDef-TTImp-n--15171-10340-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-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10468 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10550 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16196-10632 arg-0 arg-1 arg-2 arg-3 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 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15171-10340-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 'erased 'erased e-2 e-10 e-26)))))))))))))))))))))
-(define ProcessDef-TTImp-n--19758-13283-getSpec (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--19758-13283-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
-(define ProcessDef-TTImp-n--20683-14095-getClause (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))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 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 ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))))))
-(define ProcessDef-TTImp-n--13538-8042-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)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(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 ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-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-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-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-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-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 ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(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 ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--13571-8145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) 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-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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))) (let ((act-25 ((ProcessDef-TTImp-n--13538-8042-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))
-(define ProcessDef-TTImp-n--19150-12768-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (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-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 ((Context-Core-lookupCtxtExact e-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))) ((ProcessDef-TTImp-case--19179-12819 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19150-12768-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
-(define ProcessDef-TTImp-n--14198-8624-combineAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14198-8623-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) ((ProcessDef-TTImp-n--14198-8624-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
-(define ProcessDef-TTImp-n--14198-8623-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14217-8721 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-239 arg-240))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-242) (lambda (arg-244) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-242 arg-244))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
-(define ProcessDef-TTImp-n--20702-14152-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) 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))) ((ProcessDef-TTImp-n--20702-14152-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) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))
-(define ProcessDef-TTImp-n--20683-14094-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 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) 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))) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-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 (Context-Core-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 (Context-Core-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 (BindImplicits-TTImp-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 (vector-ref sc6 2))) (let ((act-30 (Context-Core-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 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 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 (vector-ref sc9 1))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) 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 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) 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 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 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 ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) 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))) ((ProcessDef-TTImp-n--20702-14152-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-17 e-18) 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 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (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 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 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))) ((ProcessDef-TTImp-case--20702-14545 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 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0))))))))
-(define ProcessDef-TTImp-n--20683-14096-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--20683-14095-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) 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 ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) 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 ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--21378-14850 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 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--20683-14093-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) 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))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-1 eta-2))) 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))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--20683-14094-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-10) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--21378-14958 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 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-n--20683-14093-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))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--20683-14092-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) (TT-Core-getArgs 'erased e-2))))))
-(define ProcessDef-TTImp-n--19758-13282-addErrorCase (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--19758-13281-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--19758-13282-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
-(define ProcessDef-TTImp-n--13538-8041-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7)))))
+(define ProcessDef-TTImp-with--19775-13004 (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 ProcessDef-TTImp-with--19755-12997 (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)) (ProcessDef-TTImp-with--19775-13004 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
+(define ProcessDef-TTImp-with--13879-8053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 1 arg-12 arg-10 arg-11) arg-17) (vector 1 arg-16) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-15) arg-13 arg-14))))))))
+(define ProcessDef-TTImp-with--13879-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) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: names don't match in pattern type") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (ProcessDef-TTImp-extendEnv 'erased (vector 1 arg-0 arg-4) (vector 1 (vector 3 arg-11 arg-10 arg-9) arg-16) (vector 1 arg-15) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-14) arg-12 arg-13))))))))
+(define ProcessDef-TTImp-case--22912-16093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22912-16013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (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 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22732-15733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 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 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 eta-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 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-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 (let ((act-26 (Context-Core-addDef arg-9 (vector 9 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (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-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-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 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 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 (Context-Core-addToSave arg-9 arg-10 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 (let ((act-30 (unbox arg-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 ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) 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 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) 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 ((act-34 (let ((sc12 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc12 0) (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (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 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 ((act-35 (unbox arg-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 ((e-18 (vector-ref sc13 1))) (let ((act-36 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-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 (Context-Core-setCovering arg-9 arg-3 arg-10 e-19 eta-0))) (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 (let ((act-38 (set-box! arg-8 e-18))) (vector 1 act-38)))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc17 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--22732-15624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define ProcessDef-TTImp-case--22689-15578 (lambda (arg-0 arg-1 arg-2 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 ((ty (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((hashit (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 arg-12)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))) (let ((mult (ProcessDef-TTImp-case--22732-15624 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ty hashit (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) 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 ((pats (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) 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 ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-1))) (let ((sc7 act-28)) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Case tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 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 (Context-Core-addDef arg-9 (vector 9 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (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-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-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) 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 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 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 (Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) 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 (Context-Core-addToSave arg-9 arg-10 eta-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 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (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-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (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 ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (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-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) 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 ((act-37 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 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 ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))) (else (vector 1 (vector 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 (ProcessDef-TTImp-n--21378-14389-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 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 (Context-Core-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-430 arg-431)))) (vector 1 ) arg-6)))) (cond ((equal? sc21 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0)))))))
+(define ProcessDef-TTImp-case--21378-15548 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--22689-15578 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-3 arg-10) eta-0)))))))
+(define ProcessDef-TTImp-case--22387-15360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 arg-26) eta-0)))))))
+(define ProcessDef-TTImp-case--22095-15296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Covering arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Covering arg-5888 arg-5889)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25))))))))
+(define ProcessDef-TTImp-case--22095-15185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Catch all case in " (Prelude-show_Show__Int arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 9 arg-13) arg-18 eta-0)))))))
+(define ProcessDef-TTImp-case--21399-15028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15185 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-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 (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) e-8) eta-1))) (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 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21378-14387-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--22095-15296 arg-0 arg-1 arg-2 arg-3 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-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0)))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21397-14866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10))))))))
+(define ProcessDef-TTImp-case--21643-14706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) 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))) ((ProcessDef-TTImp-n--21397-14445-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 e-5 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 ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (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 1 e-6))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21556-14628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 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 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) 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 ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21397-14445-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 e-8 e-9) 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-9 arg-14))) (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 (vector 1 (vector 1 e-9)))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21397-14557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 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 ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 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)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-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))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-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)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (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-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (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))) ((ProcessDef-TTImp-n--21397-14445-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 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--21240-14326 (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-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-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))) (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 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20962-14100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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 ((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-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 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20867-14014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (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-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 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 (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0)))))))
+(define ProcessDef-TTImp-case--20717-13938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\xa;Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-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-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0))))))))))))))))
+(define ProcessDef-TTImp-case--20717-13851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
+(define ProcessDef-TTImp-case--20681-13816 (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-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 ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13564-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (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 ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20440-13565-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Prelude-C-43C-43 ":\xa;Runtime tree for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 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))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--20867-14014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 )))))))))
+(define ProcessDef-TTImp-case--20440-13788 (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 ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 8))) e-7)))))) (cond ((equal? sc1 0) ((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--20087-13455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 e-12 (vector 1 arg-17) e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20087-13417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-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 ((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-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 e-11 (vector 1 arg-17) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--20087-13281 (lambda (arg-0 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-2)) (cond ((equal? sc0 0) arg-9) (else arg-10)))))
+(define ProcessDef-TTImp-case--19999-13253 (lambda (arg-0 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) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-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-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-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-1 e-2 e-3 e-4 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 ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19999-13205 (lambda (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-2)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 14))) e-13))) (else (let ((sc1 arg-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))
+(define ProcessDef-TTImp-case--19978-13187 (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 ((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 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased 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 ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 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 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-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) (Context-Core-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19825-13172 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19978-13187 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--19856-13094 (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) (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
+(define ProcessDef-TTImp-case--19831-13067 (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 ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
+(define ProcessDef-TTImp-case--17338-12883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 0 )) (else (vector 2 ))))))
+(define ProcessDef-TTImp-case--18423-12373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7)))
+(define ProcessDef-TTImp-case--18423-12133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define ProcessDef-TTImp-case--17971-11821 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 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 ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Argument names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) 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 ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genWithName arg-15 arg-13 arg-9 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 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--18423-12133 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12)) arg-5 e-10 arg-11 (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 ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp 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 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-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 (+ 1 0) e-11 wargNames arg-16 eta-1)) 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 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "With clauses: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d 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 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 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 ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 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-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0)))))))
+(define ProcessDef-TTImp-case--17971-11622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32)))))))
+(define ProcessDef-TTImp-case--17842-11453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--17971-11622 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-430 arg-431)))) (vector 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))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) 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))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) 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-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--17971-11821 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0)))))))
+(define ProcessDef-TTImp-case--17716-11364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17842-11453 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0)))))))
+(define ProcessDef-TTImp-case--17577-11277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--17716-11364 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0)))))))
+(define ProcessDef-TTImp-case--17441-11171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 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 ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Using vars " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((ProcessDef-TTImp-case--17577-11277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0)))))))))))))))))
+(define ProcessDef-TTImp-case--17338-11052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 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 ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") 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 ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((act-28 (let ((act-28 (unbox arg-15))) (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 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 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 ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15777-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 9 arg-9)) eta-0))) (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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (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 ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (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))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 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 ((Normalise-Core-getTerm 'erased e-4) 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 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (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))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (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))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (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 ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--17441-11171 arg-0 arg-1 arg-2 arg-3 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-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--16831-10849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3)))))))
+(define ProcessDef-TTImp-case--16831-10603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3)))))))
+(define ProcessDef-TTImp-case--16376-10465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 0 )) (else (vector 2 ))))))
+(define ProcessDef-TTImp-case--16376-10325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--15777-10159 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 arg-0 arg-1 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-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) 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))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-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 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 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 ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-9 eta-0)))))) (else (vector 1 (vector 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 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--16168-10068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))
+(define ProcessDef-TTImp-case--15777-9981 (lambda (arg-0 arg-1 arg-2 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) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) 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 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))))))))))))))))
+(define ProcessDef-TTImp-case--15924-9858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0)))))))
+(define ProcessDef-TTImp-case--15828-9786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 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 ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15777-9700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 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 ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp 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 ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) 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 ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (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 ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) 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))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0)))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15133-9369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 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 ((act-25 ((Normalise-Core-getTerm 'erased 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))) (let ((act-26 (let ((act-26 (unbox arg-12))) (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 ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 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 ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") 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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) 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 ((ProcessDef-TTImp-combineLinear arg-1 e-10) 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) 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 ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (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))) (vector 1 (vector 0 arg-21 e-17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15133-9284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18))))))
+(define ProcessDef-TTImp-case--15133-9142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)) (cond ((equal? sc0 0) (vector 3 )) (else (vector 1 arg-8))))))
+(define ProcessDef-TTImp-case--15011-9072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 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 ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 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))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 9 arg-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))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp 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 ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 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 ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 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 ((act-30 ((Normalise-Core-getTerm 'erased 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))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (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 ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (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 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 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 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) 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 ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-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 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-6) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-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 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-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 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-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 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-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))) (vector 1 (vector 0 e-6 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-case--15011-9013 (lambda (arg-0 arg-1 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-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0))))))
+(define ProcessDef-TTImp-case--14771-8907 (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 ((ProcessDef-TTImp-combineLinear arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14771-8752-notN arg-0 arg-1 arg-2 arg-3 eta-1)) 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))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6))))))))))))))))))
+(define ProcessDef-TTImp-case--14790-8852 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-5 arg-4))))))))
+(define ProcessDef-TTImp-case--14789-8786 (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 (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14771-8753-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
+(define ProcessDef-TTImp-case--14630-8694 (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))) (vector 3 arg-5 arg-3 (vector 5 e-1 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4))))(else (vector 3 arg-5 arg-3 (vector 5 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-6 arg-4)))))))
+(define ProcessDef-TTImp-case--14630-8636 (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))) (vector 3 arg-6 arg-4 (vector 3 e-1 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5))))(else (vector 3 arg-6 arg-4 (vector 3 arg-3 arg-2 arg-1) (ProcessDef-TTImp-setLinear 'erased arg-7 arg-5)))))))
+(define ProcessDef-TTImp-case--14471-8543 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 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))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--14098-8479 (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 ((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)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (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 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-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-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14098-8158-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessDef-TTImp-case--14131-8263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) 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 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-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))) ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))))))))))))
+(define ProcessDef-TTImp-case--14130-8165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-6) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define ProcessDef-TTImp-case--13481-7693 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-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 (Prelude-not e-5)))))))))))))
+(define ProcessDef-TTImp-case--13481-7605 (lambda (arg-0 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 (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 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))) (vector 1 (Prelude-not e-5)))))))))))))
+(define ProcessDef-TTImp-case--13133-7370 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define ProcessDef-TTImp-case--13133-7288 (lambda (arg-0 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) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-case--12845-7118 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9)))))))
+(define ProcessDef-TTImp-case--12845-7036 (lambda (arg-0 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 (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8)))))))
+(define ProcessDef-TTImp-n--20440-13564-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 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))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) 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 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) 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 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-n--20440-13565-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11))))))))))))
+(define ProcessDef-TTImp-n--21378-14385-simplePat (lambda (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) 0) ((10) 0) ((5) (let ((e-13 (vector-ref sc0 4))) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-13)))(else 1)))))
+(define ProcessDef-TTImp-n--14771-8752-notN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (Name-Core-C-47C-61_Eq__Name arg-0 e-2)))))
+(define ProcessDef-TTImp-n--20440-13559-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 ))))))
+(define ProcessDef-TTImp-n--15777-10558-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) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 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))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) 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))) (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))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 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-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15777-10558-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 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 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 2 e-8 e-5)))))))))))))))
+(define ProcessDef-TTImp-n--20440-13560-matchAny (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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6)))))
+(define ProcessDef-TTImp-n--20440-13561-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20440-13560-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20440-13559-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Prelude-C-43C-43 "Unhandled input for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1))))))))
+(define ProcessDef-TTImp-n--14771-8753-lookupAll (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14789-8786 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-6))))))))))))
+(define ProcessDef-TTImp-n--15777-10557-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-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10603 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10767 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--16831-10849 arg-0 arg-1 arg-2 arg-3 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 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15777-10557-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 'erased 'erased e-2 e-10 e-26)))))))))))))))))))))
+(define ProcessDef-TTImp-n--20440-13563-getSpec (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20440-13563-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define ProcessDef-TTImp-n--21378-14388-getClause (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))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 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 ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) 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 (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))))))
+(define ProcessDef-TTImp-n--14098-8159-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)) (case (vector-ref sc0 0) ((1) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((5) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-24))) ((1) (ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(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 ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-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-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-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-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc8 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-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 ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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-10 (vector-ref sc5 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(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 ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-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-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-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-17 (vector-ref sc7 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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 ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (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-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--14131-8263 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19 e-5 e-11 e-12 e-10 e-8 e-6 e-20 'erased 'erased e-18 e-15 arg-7 e-9 a (Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) 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-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) 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-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) 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-17 (vector-ref sc6 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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 ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) 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-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (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 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 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))) (let ((act-25 ((ProcessDef-TTImp-n--14098-8159-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))
+(define ProcessDef-TTImp-n--19825-13040-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (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-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 ((Context-Core-lookupCtxtExact e-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))) ((ProcessDef-TTImp-case--19856-13094 arg-0 arg-1 arg-2 arg-3 e-2 e-3 arg-5 e-5 e-1 _-0 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc4 e-1)) (let ((e-7 (vector-ref sc4 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19825-13040-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
+(define ProcessDef-TTImp-n--14771-8755-combineAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14771-8754-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) 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))) ((ProcessDef-TTImp-n--14771-8755-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
+(define ProcessDef-TTImp-n--14771-8754-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14790-8852 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-248 arg-249))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-251) (lambda (arg-253) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-251 arg-253))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
+(define ProcessDef-TTImp-n--21397-14445-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) (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) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) 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))) ((ProcessDef-TTImp-n--21397-14445-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) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))
+(define ProcessDef-TTImp-n--21378-14387-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 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) 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))) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-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 (Context-Core-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 (Context-Core-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 (BindImplicits-TTImp-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 (vector-ref sc6 2))) (let ((act-30 (Context-Core-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 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 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 (vector-ref sc9 1))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) 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 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) 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 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 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 ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) 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))) ((ProcessDef-TTImp-n--21397-14445-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-17 e-18) 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 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (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 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 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))) ((ProcessDef-TTImp-case--21397-14866 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 err e-6 e-7 (Prelude-not e-7)) eta-0))))))))))))) ext-0))))))))
+(define ProcessDef-TTImp-n--21378-14389-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21378-14388-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) 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 ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 9 arg-10) arg-11 covcs) 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) 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 ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15185 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 covcs e-7 e-2 e-8 _-0 e-9 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14386-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) 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))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-1 eta-2))) 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))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) 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 (Strings-Prelude-C-43C-43 "Initially missing in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21378-14387-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-10) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) 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 ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--22095-15296 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 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-n--21378-14386-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))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21378-14385-simplePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased eta-0))) (TT-Core-getArgs 'erased e-2))))))
+(define ProcessDef-TTImp-n--20440-13562-addErrorCase (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20440-13561-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20440-13562-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
+(define ProcessDef-TTImp-n--14098-8158-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7)))))
 (define ProcessDef-TTImp-warnUnreachable (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))) (lambda (eta-0) (Context-Core-recordWarning arg-0 (vector 0 e-0 (TT-Core-getLoc 'erased e-2) e-1 e-2) eta-0))))))))
 (define ProcessDef-TTImp-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))) (vector 0 e-0 (vector 0 e-1 (vector 0 e-2 e-3))))))))))
-(define ProcessDef-TTImp-setLinear (lambda (arg-0 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))) (ProcessDef-TTImp-case--14057-8505 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14057-8563 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2)))))
+(define ProcessDef-TTImp-setLinear (lambda (arg-0 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))) (ProcessDef-TTImp-case--14630-8636 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14630-8694 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2)))))
 (define ProcessDef-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-recoverable 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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-recoverable e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12927-7494 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--12927-7581 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-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 ((Context-Core-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--21958-15236 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0)))))))))))))))))))))
-(define ProcessDef-TTImp-nameListEq (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) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19080-12725 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-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 ((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 ((Context-Core-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 ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--19993-13530 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
-(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12299-6933 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12299-7015 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (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))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7605 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 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))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--13481-7693 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-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 ((Context-Core-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--22689-15578 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0)))))))))))))))))))))
+(define ProcessDef-TTImp-nameListEq (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) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--19755-12997 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making run time definition for " (Name-Core-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 ((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 ((Context-Core-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 ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--20681-13816 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
+(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12845-7036 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12845-7118 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) 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 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) 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 ((act-25 ((Normalise-Core-evalClosure arg-0 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))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0)))))))))))))))))
-(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--12583-7181 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (ProcessDef-TTImp-case--12583-7263 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (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 ((sc1 arg-3)) (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))) (ProcessDef-TTImp-case--13133-7288 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(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-3)) (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))) (ProcessDef-TTImp-case--13133-7370 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-impossibleOK 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 ((Normalise-Core-nf 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 ((Normalise-Core-nf 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))) ((ProcessDef-TTImp-impossibleOK e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1)))))))
 (define ProcessDef-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define ProcessDef-TTImp-hasEmptyPat (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) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-8) 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 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 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 ((ProcessDef-TTImp-hasEmptyPat (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 (vector 3 e-6 e-7 e-8) arg-3) e-4) 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))) (vector 1 (Prelude-C-124C-124 e-9 (lambda () e-10)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessDef-TTImp-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))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--13538-8352 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5)))))))
-(define ProcessDef-TTImp-extendEnv (lambda (arg-0 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 ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (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 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13319-7863 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (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 ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13319-7936 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))
+(define ProcessDef-TTImp-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))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--14098-8479 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5)))))))
+(define ProcessDef-TTImp-extendEnv (lambda (arg-0 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 ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (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 e-16)) (case (vector-ref sc3 0) ((5) (let ((e-19 (vector-ref sc3 1))) (let ((e-20 (vector-ref sc3 2))) (ProcessDef-TTImp-with--13879-7980 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (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 ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--13879-8053 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))
 (define ProcessDef-TTImp-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-calcRefs arg-0 0 arg-4 eta-0 eta-1))) (let ((sc2 e-5)) (let ((e-20 (vector-ref sc2 21))) e-20))) 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-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))
-(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14198-8775 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14198-8622-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3))))))))))))
-(define ProcessDef-TTImp-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 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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 ((act-26 (Context-Core-isUnboundImplicits 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 (Context-Core-setUnboundImplicits arg-1 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 (BindImplicits-TTImp-bindNames arg-1 1 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 ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 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 ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) 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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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 ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 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 ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) 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 ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 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 ((Normalise-Core-getTerm 'erased e-4) 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 ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 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 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 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 ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) 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 ((ProcessDef-TTImp-combineLinear arg-11 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) 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 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) 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))) (vector 1 (vector 0 e-11 e-28))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 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 (Context-Core-setUnboundImplicits arg-1 0 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 ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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 ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 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 ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (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 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (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 (vector-ref sc10 1))) (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 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-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) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 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 ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--15753-10248 e-4 e-3 e-2 arg-0 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-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 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-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 (Metadata-Core-clearHoleLHS arg-2 eta-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 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-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-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-16 eta-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) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-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))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 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))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16696-12611 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-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-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (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-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (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 ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (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-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (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-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--16797-10934 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15171-10340-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessDef-TTImp-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--19299-12910 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 ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14771-8907 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14771-8753-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3))))))))))))
+(define ProcessDef-TTImp-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 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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 ((act-26 (Context-Core-isUnboundImplicits 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 (Context-Core-setUnboundImplicits arg-1 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 (BindImplicits-TTImp-bindNames arg-1 1 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 ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 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 ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) 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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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 ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking LHS of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) 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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 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 ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) 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 ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 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 ((Normalise-Core-getTerm 'erased e-4) 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 ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 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 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 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 ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Linearity of names in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) 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 ((ProcessDef-TTImp-combineLinear arg-11 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 ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin 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 ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin 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 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) 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 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) 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))) (vector 1 (vector 0 e-11 e-28))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 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))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 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 (Context-Core-setUnboundImplicits arg-1 0 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 ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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 ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 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 ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (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 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (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 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (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 (vector-ref sc10 1))) (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 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (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 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-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 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) 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 ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-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) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 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 ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--16376-10465 e-4 e-3 e-2 arg-0 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 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-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 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-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 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-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 (Metadata-Core-clearHoleLHS arg-2 eta-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 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-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-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-16 eta-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) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-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))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 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))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--17338-12883 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) eta-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-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-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-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (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-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (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 ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (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-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (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-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--17441-11171 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15777-10557-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessDef-TTImp-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 ((Context-Core-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))) ((ProcessDef-TTImp-case--19978-13187 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 ProcessDef-TTImp-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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 (vector 0 arg-3 (vector 0 (vector 1 arg-3) (vector 0 (List-Data-reverse 'erased (Env-Core-allVarsNoLet arg-0 arg-2)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 9 e-5)) arg-2))))))))))))))
-(define WithClause-TTImp-case--5983-6796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-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 ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) 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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) 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 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))
-(define WithClause-TTImp-case--5926-6746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 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 ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))
-(define WithClause-TTImp-case--5877-6703 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-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 ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 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-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-case--5774-6663 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 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 ((act-25 (Context-Core-setUnboundImplicits arg-8 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 ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-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))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 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 ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--5983-6796 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0)))))))))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-case--5787-6609 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3)))))))))
-(define WithClause-TTImp-case--5655-6546 (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 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define WithClause-TTImp-case--5655-6493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define WithClause-TTImp-case--4997-6431 (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 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch 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 ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0))))))))))))
-(define WithClause-TTImp-case--4995-6358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0)))))))
-(define WithClause-TTImp-case--4995-6179 (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) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0)))))))
-(define WithClause-TTImp-case--4995-6075 (lambda (arg-0 arg-1 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) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0)))))))
-(define WithClause-TTImp-case--4995-6003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0)))))))
-(define WithClause-TTImp-case--4995-5962 (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 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0)))))))
-(define WithClause-TTImp-case--4995-5916 (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 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0)))))))
-(define WithClause-TTImp-n--6235-6972-wrhsC (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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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 ((WithClause-TTImp-n--6235-6971-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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6235-6972-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6235-6971-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-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6235-6970-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (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 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((act-25 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-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))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6235-6971-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 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define WithClause-TTImp-n--6235-6969-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6235-6969-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3))))))))
-(define WithClause-TTImp-n--6235-6970-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) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6235-6970-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) 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 ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-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 (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-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 (WithClause-TTImp-n--6235-6969-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-n--4995-6034-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 WithClause-TTImp-n--5774-6587-dropWithArgs (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) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5774-6587-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))))))
-(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6235-6971-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5)))
-(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 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))) ((WithClause-TTImp-case--4997-6431 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 e-5)) eta-0)))))))))))))))))
+(define WithClause-TTImp-case--6161-7058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Prelude-C-43C-43 " against " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Prelude-C-43C-43 " dropping " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-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 ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) 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 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Matches: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) 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 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))
+(define WithClause-TTImp-case--6103-7007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 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 ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 (List-Data-reverse 'erased arg-10)) eta-0)))))))))))))
+(define WithClause-TTImp-case--6051-6963 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-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 ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 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-3 _-0 e-6 e-4 _-1 e-7 (List-Data-reverse 'erased arg-10)) eta-0))))))))))))))))))))))
+(define WithClause-TTImp-case--5946-6920 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 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 ((act-25 (Context-Core-setUnboundImplicits arg-8 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 ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-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))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 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 ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--6161-7058 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 _-0 e-5 e-6 e-8 e-4 _-1 e-11 e-10 _-2 e-12 (List-Data-reverse 'erased e-3)) eta-0)))))))))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-case--5959-6865 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-11 e-3)))))))))
+(define WithClause-TTImp-case--5827-6801 (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 31 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define WithClause-TTImp-case--5827-6748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 11 arg-3 (Prelude-fromInteger_Num__Nat 500))) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define WithClause-TTImp-case--5163-6685 (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 1 (vector 0 arg-0 arg-1) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch 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 ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0))))))))))))
+(define WithClause-TTImp-case--5161-6609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0)))))))
+(define WithClause-TTImp-case--5161-6428 (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) (WithClause-TTImp-matchAll arg-8 (vector 1 (vector 0 arg-3 arg-6) (vector 1 (vector 0 arg-1 arg-4) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-7 eta-0)))))))
+(define WithClause-TTImp-case--5161-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (WithClause-TTImp-matchAll arg-12 (vector 1 (vector 0 arg-2 arg-7) (vector 1 (vector 0 arg-1 arg-6) (vector 0 ))))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-11 eta-0)))))))
+(define WithClause-TTImp-case--5161-6252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0)))))))
+(define WithClause-TTImp-case--5161-6211 (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 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0)))))))
+(define WithClause-TTImp-case--5161-6165 (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 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0)))))))
+(define WithClause-TTImp-n--6418-7238-wrhsC (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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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 ((WithClause-TTImp-n--6418-7237-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))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (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) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6418-7238-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((WithClause-TTImp-n--6418-7237-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-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (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 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((act-25 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-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))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6418-7237-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 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define WithClause-TTImp-n--6418-7235-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)) (case (vector-ref sc0 0) ((0) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 10 arg-7 arg-8 e-2) e-3))))))))
+(define WithClause-TTImp-n--6418-7236-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) ((10) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (WithClause-TTImp-n--6418-7236-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With-app: Matching " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) 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 ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) 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 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Result: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) 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 ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "With args for RHS: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2)))) x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-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 (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-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 (WithClause-TTImp-n--6418-7235-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-n--5161-6283-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 WithClause-TTImp-n--5946-6842-dropWithArgs (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) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0)))))))))))
+(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6418-7237-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5)))
+(define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 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))) ((WithClause-TTImp-case--5163-6685 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 e-5)) eta-0)))))))))))))))))
 (define WithClause-TTImp-matchFail (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "With clause does not match parent") ext-0)))
 (define WithClause-TTImp-matchAll (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-matchAll arg-0 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 ((WithClause-TTImp-getMatch arg-0 e-6 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))) ((WithClause-TTImp-mergeMatches arg-0 (List-Prelude-C-43C-43 'erased e-8 e-5)) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--5774-6587-dropWithArgs 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-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 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-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 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-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 ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--5983-6796 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0)))))))))))))))))))))))))))))))))))))))))))))
-(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-5916 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-66 e-62)))))))(else (WithClause-TTImp-case--4995-5962 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6003 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--4995-6003 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (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))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (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))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--4995-6075 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--4995-6034-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (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 ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--4995-6179 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (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 ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--4995-6358 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))
-(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (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 ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5655-6493 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5655-6546 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))))
-(define PartialEval-TTImp-case--12047-11597 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13)))))))))))))
-(define PartialEval-TTImp-case--13087-11268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
-(define PartialEval-TTImp-case--13044-11151 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) 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 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12047-11086-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 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-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))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8)))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-case--12047-11121 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13044-11151 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 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
-(define PartialEval-TTImp-case--12023-10698 (lambda (arg-0 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) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
-(define PartialEval-TTImp-case--12306-10647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (+ 1 arg-16))))
-(define PartialEval-TTImp-case--12325-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 (+ 1 arg-17))))
-(define PartialEval-TTImp-case--12306-10494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12023-10478-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 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
-(define PartialEval-TTImp-case--12023-10430 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 arg-8 arg-4 arg-14))))
-(define PartialEval-TTImp-case--12129-10370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (+ 1 arg-20)))
-(define PartialEval-TTImp-case--11703-9967 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
-(define PartialEval-TTImp-case--11673-9935 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
-(define PartialEval-TTImp-case--11470-9796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11404-9730 (lambda (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-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11470-9796 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11024-9672 (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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (let ((act-25 ((PartialEval-TTImp-n--11024-9356-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) 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 ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11470-9796 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 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define PartialEval-TTImp-case--11143-9499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--11092-9443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 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 ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 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))) ((PartialEval-TTImp-case--11143-9499 arg-0 arg-1 arg-2 arg-3 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 (PartialEval-TTImp-n--11024-9355-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14)))))))))
-(define PartialEval-TTImp-case--11040-9407 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11092-9443 arg-0 arg-1 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 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define PartialEval-TTImp-case--10892-9266 (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 ((argsE (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define PartialEval-TTImp-case--10786-9224 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) 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-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))))))
-(define PartialEval-TTImp-case--10817-9172 (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 (vector 10 arg-7 1) (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--10786-9156-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4)))))))
-(define PartialEval-TTImp-case--9635-9101 (lambda (arg-0 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-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))) (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 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-case--10483-8930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define PartialEval-TTImp-case--9936-8871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5))))))))))))))
-(define PartialEval-TTImp-case--10097-8629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) 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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) 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 ((act-26 (Context-Core-setAllPublic arg-9 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 (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
-(define PartialEval-TTImp-case--9936-8536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9635-8125-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (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 (Strings-Prelude-C-43C-43 "Attempting to specialise:\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) 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 ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) 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))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9635-8126-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-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 (Context-Core-setAllPublic arg-9 1 eta-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-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
-(define PartialEval-TTImp-case--9635-8384 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-2 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-0 eta-2))) (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))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " 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-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty 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 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (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 ((act-27 (Context-Core-addToSave arg-9 (vector 9 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 ((specnames (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) 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 (let ((act-29 (unbox arg-9))) (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 (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased 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 ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--9936-8536 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name 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 (vector 1 arg-13)))))))))))
-(define PartialEval-TTImp-case--9798-8305 (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0))))))))
-(define PartialEval-TTImp-case--9635-8274 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0)))))))))))
-(define PartialEval-TTImp-case--9567-8072 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2)))))))))
-(define PartialEval-TTImp-case--9552-8054 (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 ((Context-Core-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) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2))))))
-(define PartialEval-TTImp-case--9074-7959 (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 ((dynnames (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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) 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 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9074-7595-unelabPat 'erased 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 PartialEval-TTImp-case--9001-7532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))))))
-(define PartialEval-TTImp-case--8882-7421 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3)))))))))))))
-(define PartialEval-TTImp-case--8675-7245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))
-(define PartialEval-TTImp-case--8639-7206 (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 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 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))
-(define PartialEval-TTImp-case--8473-7046 (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) arg-6) (else (vector 0 arg-5 arg-4 arg-2))))))
-(define PartialEval-TTImp-case--8375-6968 (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) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5))))))))
-(define PartialEval-TTImp-n--9074-7595-unelabPat (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (let ((lhsC-39 (PartialEval-TTImp-n--9074-7594-dropArgs 'erased 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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-8 lhsC-39 e-12)))))))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-n--9635-8125-unelabDef (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-6 e-5 e-12))))))))))))))))))))))))))))))))))
-(define PartialEval-TTImp-n--9635-8126-showPat (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 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen")))))
-(define PartialEval-TTImp-n--9074-7593-reapply (lambda (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9074-7593-reapply 'erased 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))) (PartialEval-TTImp-n--9074-7593-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3)))))))))))))))
-(define PartialEval-TTImp-n--9074-7591-mkRHSargs (lambda (arg-0 arg-1 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (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 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9074-7591-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))
-(define PartialEval-TTImp-n--9074-7590-mkDynNames (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9074-7590-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))))
-(define PartialEval-TTImp-n--11024-9356-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11024-9356-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11092-9443 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define PartialEval-TTImp-n--9074-7592-getRawArgs (lambda (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) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10)))))
-(define PartialEval-TTImp-n--9635-8123-getAllRefs (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased 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))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10)))))
-(define PartialEval-TTImp-n--12023-10478-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-12 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))) (PartialEval-TTImp-case--12306-10494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12023-10478-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 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
-(define PartialEval-TTImp-n--12047-11086-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-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12047-11086-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 'erased 'erased e-3 arg-15))))))))
-(define PartialEval-TTImp-n--10786-9156-dropErased (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--10817-9172 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-5)))))))))
-(define PartialEval-TTImp-n--9074-7594-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9074-7593-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9074-7592-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11)))))
-(define PartialEval-TTImp-n--11024-9354-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11024-9354-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))
-(define PartialEval-TTImp-n--11024-9355-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11024-9354-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))))
-(define PartialEval-TTImp-n--12023-10341-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12129-10370 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12023-10341-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased)))))))))
+(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--5946-6842-dropWithArgs 'erased 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-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 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-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 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-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 ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--6161-7058 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6165 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-66 e-62)))))))(else (WithClause-TTImp-case--5161-6211 e-42 e-63 e-62 e-65 e-64 arg-0 (Name-Core-C-61C-61_Eq__Name e-63 e-65))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc2 arg-0)) (cond ((equal? sc2 0) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-31 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc2 1) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((9) (let ((e-35 (vector-ref sc3 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((9) (let ((e-26 (vector-ref sc3 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((12) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((12) (let ((e-19 (vector-ref sc4 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-60 (vector-ref sc1 1))) (let ((e-61 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6252 e-42 e-43 e-61 e-60 arg-0 (Name-Core-C-61C-61_Eq__Name e-43 e-61)))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))))) ((1) (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))) (let ((e-49 (vector-ref sc0 6))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (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))) (let ((e-73 (vector-ref sc1 6))) (WithClause-TTImp-case--5161-6324 e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 (Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Prelude-C-38C-38 (WithClause-TTImp-n--5161-6283-samePiInfo e-44 e-49 e-48 e-47 e-46 e-45 e-73 e-72 e-71 e-70 e-69 e-68 arg-0 e-46 e-70) (lambda () (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-47 e-71)))))))))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))))) ((8) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-51 e-75) (vector 1 (vector 0 e-52 e-76) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))) ((9) (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 ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((e-79 (vector-ref sc1 3))) (let ((e-80 (vector-ref sc1 4))) (WithClause-TTImp-case--5161-6428 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-55 e-79)))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))))) ((10) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-82 (vector-ref sc1 2))) (let ((e-83 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (vector 1 (vector 0 e-58 e-82) (vector 1 (vector 0 e-59 e-83) (vector 0 )))))))(else (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-31 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc1 1) (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((9) (let ((e-35 (vector-ref sc2 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((9) (let ((e-26 (vector-ref sc2 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((12) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((12) (let ((e-19 (vector-ref sc3 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-31 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 4))) (WithClause-TTImp-matchAll 0 (vector 1 (vector 0 e-31 arg-2) (vector 1 (vector 0 e-33 e-33) (vector 0 )))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))))))) ((equal? sc0 1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (let ((e-35 (vector-ref sc1 2))) (WithClause-TTImp-getMatch 1 e-35 e-35)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((12) (let ((e-19 (vector-ref sc2 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased e-26 eta-0))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((12) (let ((e-19 (vector-ref sc1 3))) (WithClause-TTImp-matchAll arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (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 ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) 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))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--5161-6609 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))))))))))))))))
+(define WithClause-TTImp-getArgMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-2)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (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 ((sc3 e-11)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6748 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-14 arg-3))))(else (vector 11 arg-0 (Prelude-fromInteger_Num__Nat 500))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-6 (vector-ref sc5 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--5827-6801 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))))
+(define PartialEval-TTImp-case--12416-11852 (lambda (arg-0 arg-1 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-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 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 ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 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 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13)))))))))))))
+(define PartialEval-TTImp-case--13470-11507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
+(define PartialEval-TTImp-case--13427-11384 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs 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))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) 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 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12416-11318-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 'erased 'erased arg-6 arg-5) arg-12 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-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))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8)))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-case--12416-11354 (lambda (arg-0 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--13427-11384 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 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 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 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))))))
+(define PartialEval-TTImp-case--12392-10912 (lambda (arg-0 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) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2)))))))))
+(define PartialEval-TTImp-case--12678-10861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (+ 1 arg-16))))
+(define PartialEval-TTImp-case--12697-10795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 1 (+ 1 arg-17))))
+(define PartialEval-TTImp-case--12678-10706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-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 'erased arg-15) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))
+(define PartialEval-TTImp-case--12392-10642 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 arg-8 arg-4 arg-14))))
+(define PartialEval-TTImp-case--12501-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (+ 1 arg-20)))
+(define PartialEval-TTImp-case--12061-10163 (lambda (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
+(define PartialEval-TTImp-case--12029-10130 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))
+(define PartialEval-TTImp-case--11825-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11757-9921 (lambda (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-1 (vector-ref sc0 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11373-9860 (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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (let ((act-25 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) 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 ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-1))) arg-2))) (let ((pename (vector 0 (vector 1 "_PE" (vector 0 )) (vector 1 (Strings-Prelude-C-43C-43 "PE_" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (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 ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11825-9988 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 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define PartialEval-TTImp-case--11493-9687 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11442-9627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (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 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 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 ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 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))) ((PartialEval-TTImp-case--11493-9687 arg-0 arg-1 arg-2 arg-3 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 (PartialEval-TTImp-n--11373-9538-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14)))))))))
+(define PartialEval-TTImp-case--11389-9591 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (PartialEval-TTImp-case--11442-9627 arg-0 arg-1 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 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define PartialEval-TTImp-case--11236-9444 (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 ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define PartialEval-TTImp-case--11128-9399 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) 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-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) 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 (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))))))
+(define PartialEval-TTImp-case--11161-9347 (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 (vector 10 arg-7 1) (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11128-9331-dropErased 'erased arg-1 arg-2 arg-7 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4)))))))
+(define PartialEval-TTImp-case--9941-9274 (lambda (arg-0 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-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))) (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 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-case--10826-9104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define PartialEval-TTImp-case--10255-9044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5))))))))))))))
+(define PartialEval-TTImp-case--10433-8798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) 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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) 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 ((act-26 (Context-Core-setAllPublic arg-9 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 (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
+(define PartialEval-TTImp-case--10255-8700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8247-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (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 (Strings-Prelude-C-43C-43 "Attempting to specialise:\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) 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 ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) 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))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "New patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9941-8248-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-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 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 9 arg-18) e-7)) eta-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 (Context-Core-setAllPublic arg-9 1 eta-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-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2)))))))))
+(define PartialEval-TTImp-case--9941-8523 (lambda (arg-0 arg-1 arg-2 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) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-2 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (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))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " 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-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty 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 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (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 ((act-27 (Context-Core-addToSave arg-9 (vector 9 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 ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) 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 (let ((act-29 (unbox arg-9))) (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 (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 9 e-7) (vector 7 (List-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased 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 ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name 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 (vector 1 arg-13)))))))))))
+(define PartialEval-TTImp-case--10116-8441 (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 0 arg-12 e-0))))))))
+(define PartialEval-TTImp-case--9941-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) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-0)))))))))))
+(define PartialEval-TTImp-case--9872-8194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2)))))))))
+(define PartialEval-TTImp-case--9857-8175 (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 ((Context-Core-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) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2) eta-0)))))))))))))) (else (PartialEval-TTImp-getReducible arg-1 arg-3 arg-2))))))
+(define PartialEval-TTImp-case--9365-8079 (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 ((dynnames (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 0 arg-3))) (let ((lhs (TTImp-TTImp-apply (vector 0 arg-8 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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) 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 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9365-7700-unelabPat 'erased 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 PartialEval-TTImp-case--9292-7637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1 (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))))))
+(define PartialEval-TTImp-case--9174-7527 (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased 0 arg-4 e-3 arg-3) (lambda (psubs) (let ((lhsC-39 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-0 (vector 0 arg-1 (vector 0 (PartialEval-TTImp-substLocs arg-0 psubs lhsC-39) (PartialEval-TTImp-substLocs arg-0 psubs arg-3)))))))))))))
+(define PartialEval-TTImp-case--8967-7351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))) ((5) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-27 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased arg-7)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased arg-7)) arg-6)))))(else (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 )))))))))(else (let ((sc1 e-10)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased arg-7)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))
+(define PartialEval-TTImp-case--8930-7312 (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 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 (vector 1 (vector 0 e-4 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-21 (TT-Core-embed 'erased 'erased e-2)) (vector 1 (vector 0 e-27 (TT-Core-embed 'erased 'erased e-2)) arg-6)))))(else (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 3))) (vector 1 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased 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 (vector 1 (vector 0 e-15 (TT-Core-embed 'erased 'erased e-2)) arg-6))))(else (vector 0 ))))))))))(else (vector 0 ))))))))))
+(define PartialEval-TTImp-case--8764-7151 (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) arg-6) (else (vector 0 arg-5 arg-4 arg-2))))))
+(define PartialEval-TTImp-case--8666-7073 (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) (vector 3 arg-6 arg-4 (vector 2 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-4 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 (SubstEnv-TT-Core-subst arg-0 arg-4 (TT-Core-embed 'erased 'erased e-2) arg-5))))))))
+(define PartialEval-TTImp-n--9365-7700-unelabPat (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (let ((lhsC-39 (PartialEval-TTImp-n--9365-7699-dropArgs 'erased 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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-8 lhsC-39 e-12)))))))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-n--9941-8247-unelabDef (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 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))) (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 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 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 ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 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))) (vector 1 (vector 0 arg-6 e-5 e-12))))))))))))))))))))))))))))))))))
+(define PartialEval-TTImp-n--9941-8248-showPat (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 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen")))))
+(define PartialEval-TTImp-n--9365-7698-reapply (lambda (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (PartialEval-TTImp-n--9365-7698-reapply 'erased 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))) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 9 arg-8 arg-10 (vector 1 e-10) e-7) e-3)))))))))))))))
+(define PartialEval-TTImp-n--9365-7696-mkRHSargs (lambda (arg-0 arg-1 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc14 arg-12)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((e-2 (vector-ref sc14 2))) (let ((sc15 arg-13)) (case (vector-ref sc15 0) ((1) (let ((e-4 (vector-ref sc15 1))) (let ((e-5 (vector-ref sc15 2))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (let ((e-9 (vector-ref sc16 2))) (let ((sc17 e-9)) (case (vector-ref sc17 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased 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-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (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 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 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-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-21) eta-0)))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9365-7696-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))
+(define PartialEval-TTImp-n--9365-7695-mkDynNames (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (vector 1 (Strings-Prelude-C-43C-43 "_pe" (Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3))))))(else (PartialEval-TTImp-n--9365-7695-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3)))))))))))
+(define PartialEval-TTImp-n--11373-9539-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11373-9539-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--11442-9627 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define PartialEval-TTImp-n--9365-7697-getRawArgs (lambda (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) ((8) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 0 ) e-2) arg-10) e-1)))) ((9) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 e-8) e-6) arg-10) e-4)))(else arg-10)))))))(else arg-10)))))
+(define PartialEval-TTImp-n--9941-8245-getAllRefs (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased 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))) (TT-Core-addRefs 'erased 1 (vector 1 "_") (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) e-4)))))))) (else arg-10)))))
+(define PartialEval-TTImp-n--12392-10690-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-12 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))) (PartialEval-TTImp-case--12678-10706 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-5 e-4 e-3 e-1 (Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12392-10690-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 'erased e-3) (lambda (_-0) (vector 1 (+ 1 _-0)))))))))))))))
+(define PartialEval-TTImp-n--12416-11318-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-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12416-11318-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 'erased 'erased e-3 arg-15))))))))
+(define PartialEval-TTImp-n--11128-9331-dropErased (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--11161-9347 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5)))))))))
+(define PartialEval-TTImp-n--9365-7699-dropArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (PartialEval-TTImp-n--9365-7698-reapply 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 arg-8 arg-10) (PartialEval-TTImp-dropSpec 'erased 0 arg-2 (PartialEval-TTImp-n--9365-7697-getRawArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) arg-11)))))
+(define PartialEval-TTImp-n--11373-9537-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))
+(define PartialEval-TTImp-n--11373-9538-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (TT-Core-shrinkTerm 'erased 'erased arg-10 (PartialEval-TTImp-n--11373-9537-dropAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))))
+(define PartialEval-TTImp-n--12392-10553-addLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--12501-10582 arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-2 e-3 'erased (PartialEval-TTImp-n--12392-10553-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased arg-16 e-3 'erased)))))))))
 (define PartialEval-TTImp-show_Show__ArgMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Static " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-0)))) (else "Dynamic")))))
 (define PartialEval-TTImp-showPrec_Show__ArgMode (lambda (arg-0 arg-1) (PartialEval-TTImp-show_Show__ArgMode arg-1)))
 (define PartialEval-TTImp-__Impl_Show_ArgMode (lambda () (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))))
 (define PartialEval-TTImp-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-unload 'erased e-3 (vector 4 e-6 arg-2 e-7))))))))))))
 (define PartialEval-TTImp-substLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (PartialEval-TTImp-substLocs arg-0 e-3 (PartialEval-TTImp-substLoc arg-0 e-6 e-7 arg-2))))))))))))
-(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8473-7046 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-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 (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3)))))
-(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8375-6968 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3)))))
-(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11024-9672 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)))))
-(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--8882-7421 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10)))))))))))))
+(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8764-7151 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Prelude-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 eta-0)) e-9) (PartialEval-TTImp-substLoc (vector 1 e-8 arg-0) (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (TT-Core-weaken_Weaken__Term e-8 arg-0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-18) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-23) (PartialEval-TTImp-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 (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-32) (PartialEval-TTImp-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 (PartialEval-TTImp-substLoc arg-0 arg-1 arg-2 e-37))))))(else arg-3)))))
+(define PartialEval-TTImp-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))) (PartialEval-TTImp-case--8666-7073 arg-0 e-8 e-7 e-6 e-2 e-4 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2))))))(else arg-3))))))))(else arg-3)))))
+(define PartialEval-TTImp-specialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (PartialEval-TTImp-case--11373-9860 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)))))
+(define PartialEval-TTImp-specPatByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (PartialEval-TTImp-case--9174-7527 e-2 e-6 e-10 e-11 arg-0 (TT-Core-getFnArgs 'erased e-10)))))))))))))
 (define PartialEval-TTImp-specByVar (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specPatByVar arg-0 e-2) (lambda (pC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specByVar arg-0 e-3) (lambda (psC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 pC-39 psC-39)))))))))))))
 (define PartialEval-TTImp-quotePi (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) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define PartialEval-TTImp-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) (PartialEval-TTImp-case--12023-10430 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12023-10341-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (PartialEval-TTImp-case--12023-10698 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12023-10478-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 'erased arg-8)))))(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 ((PartialEval-TTImp-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 PartialEval-TTImp-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 (PartialEval-TTImp-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((PartialEval-TTImp-quoteGenNF (vector 1 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 ((PartialEval-TTImp-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))) (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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13044-11151 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))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) 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-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-10 (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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-16 (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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-36 (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 PartialEval-TTImp-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) (PartialEval-TTImp-case--12392-10642 arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10553-addLater arg-1 'erased e-3 'erased e-2 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased 'erased e-3 arg-0 'erased) 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))) (PartialEval-TTImp-case--12392-10912 arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (PartialEval-TTImp-n--12392-10690-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 'erased arg-8)))))(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 ((PartialEval-TTImp-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 PartialEval-TTImp-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 (PartialEval-TTImp-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((PartialEval-TTImp-quoteGenNF (vector 1 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 ((PartialEval-TTImp-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))) (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) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--13427-11384 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))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) 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-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-10 (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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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 (TT-Core-apply 'erased e-16 (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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure 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 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-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 (TT-Core-apply 'erased e-36 (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 PartialEval-TTImp-quoteBinder (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((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) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 1 e-5 e-8 e-9))))))))))))))))) ((2) (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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (vector 1 (vector 5 e-21 e-5)))))))))))))))
 (define PartialEval-TTImp-quoteArgs (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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-2) 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 ((act-25 ((PartialEval-TTImp-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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteArgs 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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))))
-(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8639-7206 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2)))))))))))
-(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-0 eta-2))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 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 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-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 ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) 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 (Context-Core-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 ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9635-8123-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased 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 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) 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 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased 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 ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--9936-8536 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-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 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (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 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0)))
+(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--8930-7312 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2)))))))))))
+(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased 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 (Context-Core-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 ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-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 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-0 eta-2))) (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 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 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 (Strings-Prelude-C-43C-43 "Specialising " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Prelude-C-43C-43 ") by " (Name-Core-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 ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) 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 ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) 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 (Context-Core-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 ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--9941-8245-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased 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 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) 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 (Context-Core-setFlag arg-1 arg-4 (vector 9 e-10) (vector 7 (List-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased 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 ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--10255-8700 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Already specialised " (Name-Core-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 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Partial evaluation of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " failed" (Strings-Prelude-C-43C-43 "\xa;" (Core-Core-show_Show__Error 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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (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 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0)))
 (define PartialEval-TTImp-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 PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--9074-7959 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9))))
-(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9552-8054 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1)))))))))
+(define PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--9365-8079 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9))))
+(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9857-8175 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1)))))))))
 (define PartialEval-TTImp-findSpecs (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))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-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-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 ((PartialEval-TTImp-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5) eta-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 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-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 ((PartialEval-TTImp-findSpecs (vector 1 e-11 arg-0) arg-1 arg-2 arg-3 (vector 1 e-5 arg-4) (vector 0 ) 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 (PartialEval-TTImp-unload 'erased arg-5 (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 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 0 e-15 e-5) arg-5) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (let ((act-25 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-26) 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 (PartialEval-TTImp-unload 'erased arg-5 (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))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) 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))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6))))))))
 (define PartialEval-TTImp-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) (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))) ((PartialEval-TTImp-quoteGenNF (vector 0 ) arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0)))))))))))))
-(define PartialEval-TTImp-eraseInferred (lambda (arg-0 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased 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 ((PartialEval-TTImp-eraseInferred 'erased 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 (PartialEval-TTImp-case--10786-9224 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))))))
-(define PartialEval-TTImp-dropSpec (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))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9001-7532 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-1 arg-2)))))))))
+(define PartialEval-TTImp-eraseInferred (lambda (arg-0 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 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased 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 ((PartialEval-TTImp-eraseInferred 'erased 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 (PartialEval-TTImp-case--11128-9399 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))))))
+(define PartialEval-TTImp-dropSpec (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))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--9292-7637 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-1 arg-2)))))))))
 (define PartialEval-TTImp-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 (b+ 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 PartialEval-TTImp-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) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((Normalise-Core-nf 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 (PartialEval-TTImp-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Impossible-TTImp-case--7287-6924 (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) (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 31 arg-8 1) (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)))))))
-(define Impossible-TTImp-case--6422-6716 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) 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 ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))
-(define Impossible-TTImp-case--6417-6508 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
-(define Impossible-TTImp-case--6726-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
-(define Impossible-TTImp-case--6417-6270 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
-(define Impossible-TTImp-case--6486-6173 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
-(define Impossible-TTImp-n--6417-6152-useImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6486-6173 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6417-6152-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
-(define Impossible-TTImp-n--6417-6373-useAutoImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6726-6411 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6417-6373-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
-(define Impossible-TTImp-n--6193-5883-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-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (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) (lambda (eta-0) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Impossible-TTImp-n--6193-5883-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))))))
-(define Impossible-TTImp-n--7277-6885-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
-(define Impossible-TTImp-n--7277-6887-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--7277-6886-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2)))))))
-(define Impossible-TTImp-n--7277-6886-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7287-6924 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--7277-6885-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8))))))))))))
-(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) 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-7 (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-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6417-6270 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6417-6152-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6417-6508 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6417-6373-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))
+(define PartialEval-TTImp-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) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Normalise-Core-nf 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 (PartialEval-TTImp-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Normalise-Core-logTermNF arg-0 arg-1 (+ 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 Impossible-TTImp-case--7519-7205 (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) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 31 arg-8 1) (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)))))))
+(define Impossible-TTImp-case--6631-6996 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) 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 ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0)))))))
+(define Impossible-TTImp-case--6626-6773 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
+(define Impossible-TTImp-case--6943-6675 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
+(define Impossible-TTImp-case--6626-6530 (lambda (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) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 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 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (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))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) 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-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0)))))))))))))))))))))
+(define Impossible-TTImp-case--6698-6432 (lambda (arg-0 arg-1 arg-2 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 1 (vector 0 arg-11 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 (vector 0 (vector 1 arg-10) arg-11) arg-13) arg-12))))))
+(define Impossible-TTImp-n--6626-6411-useImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (Impossible-TTImp-case--6698-6432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-9 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-9))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6411-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
+(define Impossible-TTImp-n--6626-6637-useAutoImp (lambda (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))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-7 (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--6943-6675 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-10 e-7 e-3 arg-10 (Name-Core-C-61C-61_Eq__Name arg-3 e-10))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))(else (Impossible-TTImp-n--6626-6637-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-2 arg-10) e-3)))))))))))
+(define Impossible-TTImp-n--6397-6132-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-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (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) (lambda (eta-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-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (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) (lambda (eta-0) (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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Impossible-TTImp-n--6397-6132-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))))))
+(define Impossible-TTImp-n--7509-7166-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define Impossible-TTImp-n--7509-7168-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 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))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--7509-7167-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2)))))))
+(define Impossible-TTImp-n--7509-7167-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7519-7205 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--7509-7166-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8))))))))))))
+(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) 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-7 (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-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) 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-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6530 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6411-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) 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-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--6626-6773 e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6626-6637-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Badly formed impossible clause " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d) (lambda (x-3) (Name-Core-showPrec_Show__Name d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-0) (lambda (x-3) (Name-Core-showPrec_Show__Name d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-0) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-1) (lambda (x-3) (Name-Core-showPrec_Show__Name d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-2) (lambda (x-3) (Name-Core-showPrec_Show__Name d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))
 (define Impossible-TTImp-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 (b+ 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 Impossible-TTImp-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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) (Impossible-TTImp-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 eta-0))))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-3 arg-3 (vector 1 e-4 arg-4) arg-5)))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (vector 1 (vector 0 e-7 e-8) arg-5)))))) ((27) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-9 e-10))))))(else (lambda (eta-0) (Impossible-TTImp-nextVar arg-1 (TTImp-TTImp-getFC arg-2) eta-0)))))))
-(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Impossible-TTImp-n--6193-5883-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0))))))))))))))))))))
-(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7277-6887-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))))))))
+(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((Impossible-TTImp-n--6397-6132-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0))))))))))))))))))))
+(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7509-7168-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))))))))
 (define Impossible-TTImp-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-4 (vector 0 )))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc1 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2))))))))))
-(define Impossible-TTImp-buildApp (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 (Context-Core-fromIntegerName 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 (Context-Core-fromStringName 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 (Context-Core-fromCharName 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 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") 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 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (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 ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))))))))))))))))))))))))))))))))))))
-(define Transform-Core-case--6671-7836 (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) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Transform-Core-case--6398-7598 (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))) (lambda (eta-0) (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 (Prelude-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 Transform-Core-case--6373-7547 (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 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6398-7598 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp)))))))))
-(define Transform-Core-case--6319-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2)))))))
-(define Transform-Core-case--6215-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))
-(define Transform-Core-case--6196-7393 (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))) (Transform-Core-tryReplace 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))))))
-(define Transform-Core-case--5896-7149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 ))))))
-(define Transform-Core-case--5800-7063 (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-3)) (else (vector 0 ))))))
-(define Transform-Core-case--5781-7020 (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 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--5800-7063 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2))))))))
-(define Transform-Core-case--5686-6958 (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 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6))))))
+(define Impossible-TTImp-buildApp (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 (Context-Core-fromIntegerName 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 (Context-Core-fromStringName 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 (Context-Core-fromCharName 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 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") 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 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (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 ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 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 ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-3) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0))))))))))))))))))))))))))))))))))))))))
+(define Transform-Core-case--6874-7973 (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) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Transform-Core-case--6591-7713 (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))) (lambda (eta-0) (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 (Prelude-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 Transform-Core-case--6565-7662 (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 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--6591-7713 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 fullapp (Transform-Core-apply 'erased e-2 fullapp)))))))))
+(define Transform-Core-case--6511-7612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Transform-Core-apply 'erased arg-2 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 0 e-2)))))))
+(define Transform-Core-case--6406-7549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 ))))))
+(define Transform-Core-case--6387-7506 (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))) (Transform-Core-tryReplace 'erased 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryApply 'erased arg-7 e-2) (lambda (fC-39) (vector 1 (vector 4 e-1 fC-39 e-3))))))))(else (vector 0 )))))))))
+(define Transform-Core-case--6077-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (vector 0 ))))))
+(define Transform-Core-case--5981-7166 (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-3)) (else (vector 0 ))))))
+(define Transform-Core-case--5962-7123 (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 1 (vector 1 arg-5 arg-4 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (Transform-Core-case--5981-7166 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 (TT-Core-eqTerm 'erased 'erased arg-4 e-2))))))))
+(define Transform-Core-case--5867-7061 (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 arg-7)) (else (Transform-Core-lookupMatch 'erased 'erased 'erased arg-8 'erased arg-6))))))
 (define Transform-Core-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Transform-Core-unload 'erased e-3 (vector 4 e-6 arg-2 e-7))))))))))))
-(define Transform-Core-tryReplace (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))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
-(define Transform-Core-tryApply (lambda (arg-0 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 ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6196-7393 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2)))))))))))
+(define Transform-Core-tryReplace (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))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Prelude-pure_Applicative__Maybe 'erased (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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 fC-39 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 aC-39 pC-39))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 tyC-39 tmC-39))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 tmC-39)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49))))))))
+(define Transform-Core-tryApply (lambda (arg-0 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 ((trans (vector 0 e-0 e-1 e-2 e-3 e-4))) (Transform-Core-case--6387-7506 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2)))))))))))
 (define Transform-Core-transLoop (lambda (arg-0 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 (Core-Core-newRef 'erased 'erased (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 ((Transform-Core-trans 'erased arg-1 e-5 arg-3 (vector 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))) (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) ((Transform-Core-transLoop 'erased arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6))))))))))))))))))))))))))
-(define Transform-Core-trans (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) (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))) ((Transform-Core-case--6373-7547 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-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 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5))))))))
-(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--5896-7149 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--5896-7149 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4)))))))
-(define Transform-Core-lookupMatch (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 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5686-6958 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5))))))))))
+(define Transform-Core-trans (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) (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))) ((Transform-Core-case--6565-7662 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-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 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) 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 (Transform-Core-unload 'erased 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))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) 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))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5))))))))
+(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased 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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-match 'erased 'erased arg-2 e-8 e-12) (lambda (msC-39) (Transform-Core-match 'erased 'erased msC-39 e-9 e-13))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--6077-7253 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4)))))))
+(define Transform-Core-lookupMatch (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 )) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Transform-Core-case--5867-7061 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Prelude-C-61C-61_Eq__Nat arg-3 e-5))))))))))
 (define Transform-Core-applyTransforms (lambda (arg-0 arg-1 arg-2 arg-3) (Transform-Core-transLoop 'erased arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-2 arg-3)))
-(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--6319-7498 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2)))))))))
-(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--5781-7020 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6))))
-(define Termination-Core-case--11780-10782 (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) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))
-(define Termination-Core-case--11749-10757 (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) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (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))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Termination-Core-case--11734-10730 (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 ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 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 (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))) ((Termination-Core-case--11749-10757 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--11661-10673 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-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 (vector 1 e-2)))))))))))))))
-(define Termination-Core-case--11644-10653 (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) (let ((act-24 (Termination-Core-calcPositive arg-2 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-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 (lambda (eta-0) (vector 1 arg-5)))))))
-(define Termination-Core-case--11477-10527 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) 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 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10))))))))
-(define Termination-Core-case--11459-10493 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) 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-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) 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-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--11408-10451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5)))))))
-(define Termination-Core-case--11333-10398 (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) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))
-(define Termination-Core-case--11322-10369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-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)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5))))))))))))))))
-(define Termination-Core-case--11247-10309 (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) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define Termination-Core-case--10953-10245 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0))))))))))))
-(define Termination-Core-case--10953-10189 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-case--10953-10124 (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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3)))))
-(define Termination-Core-case--10967-10068 (lambda (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) (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--10953-10051-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)))))))
-(define Termination-Core-case--10801-9974 (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 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0))))))))))))
-(define Termination-Core-case--10801-9908 (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 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 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))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0))))))))))))
-(define Termination-Core-case--10756-9864 (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 (Termination-Core-calcTerminating 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 (Context-Core-setTerminating arg-2 arg-1 arg-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 (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Termination-Core-case--10652-9799 (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 ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-5 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))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define Termination-Core-case--10462-9762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10462-9598-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-7 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))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6)))))))))))))))))))))
-(define Termination-Core-case--10532-9681 (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))) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
-(define Termination-Core-case--10484-9656 (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 ((Context-Core-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))) ((Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
-(define Termination-Core-case--10467-9614 (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) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--10484-9656 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0))))))))))))
-(define Termination-Core-case--10354-9549 (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 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--9803-9011-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))
-(define Termination-Core-case--9803-9496 (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) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (Termination-Core-n--9803-9005-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (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) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--9803-9011-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))))))))))
-(define Termination-Core-case--10091-9282 (lambda (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) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Termination-Core-case--10050-9254 (lambda (arg-0 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 ((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) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Termination-Core-case--10017-9223 (lambda (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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) 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))) ((Termination-Core-case--10050-9254 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 )))))))))))
-(define Termination-Core-case--9816-9200 (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))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10017-9223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-case--9815-9132 (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) (vector 1 (vector 0 ) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--9803-9007-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--9803-9008-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
-(define Termination-Core-case--9701-8923 (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))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Termination-Core-case--9293-8643 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
-(define Termination-Core-case--7402-8522 (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-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-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 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) 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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 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))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
-(define Termination-Core-case--7397-8455 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7397-8056-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--8759-8340 (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) (Termination-Core-n--8759-8232-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 Termination-Core-case--8758-8177 (lambda (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) (vector 1 arg-8)) (else (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
-(define Termination-Core-case--8758-8089 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12)))))))
-(define Termination-Core-case--8561-7923 (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 arg-9)) (else (vector 0 ))))))
-(define Termination-Core-case--7393-7883 (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8561-7923 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Termination-Core-case--8460-7844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))
-(define Termination-Core-case--8424-7799 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 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))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))))))
-(define Termination-Core-case--7391-7768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8424-7799 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
-(define Termination-Core-case--7387-7724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1))))))
-(define Termination-Core-case--7871-7527 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0)))))))
-(define Termination-Core-case--7828-7260 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 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 ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))))
-(define Termination-Core-case--7794-7225 (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 ((Termination-Core-n--7383-6977-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--7828-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Termination-Core-case--7383-7198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7383-6976-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7383-6977-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--7828-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4))))))))))))))))
-(define Termination-Core-case--7652-7107 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
-(define Termination-Core-case--7539-7079 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7652-7107 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
-(define Termination-Core-case--7538-6991 (lambda (arg-0 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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (Termination-Core-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-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--7383-6912 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3)))))))
-(define Termination-Core-case--7208-6756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1))))))
-(define Termination-Core-case--7208-6718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7)))))
-(define Termination-Core-case--7208-6684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5)))))
-(define Termination-Core-case--6481-6424 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 e-6) eta-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)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-case--6489-6374 (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) (Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6718-6274 (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-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6488-6248 (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 ((Context-Core-lookupCtxtExact arg-0 (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))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6600-6155 (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) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))))
-(define Termination-Core-case--6487-6140 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6600-6155 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6486-6074 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-case--6337-5957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
-(define Termination-Core-case--6316-5906 (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) (vector 1 arg-4)))(else (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Terminating arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Terminating arg-11959 arg-11960)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
-(define Termination-Core-case--6294-5891 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6316-5906 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Termination-Core-n--8759-8232-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7397-8054-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 (Termination-Core-n--7397-8054-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased 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 Termination-Core-n--7397-8054-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--8759-8340 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7397-8053-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
-(define Termination-Core-n--7397-8055-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7397-8054-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
-(define Termination-Core-n--9803-9007-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)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 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)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))
-(define Termination-Core-n--9803-9008-mkArgs (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--9803-9008-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 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--9815-9132 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--9803-9006-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
-(define Termination-Core-n--7397-8056-matchArgs (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 (TT-Core-getArgs 'erased e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8055-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11)))))))))))))))
-(define Termination-Core-n--7397-8053-lookupTm (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (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))) (Termination-Core-case--8758-8089 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--8758-8177 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6)))))))))))))))
-(define Termination-Core-n--7383-6976-handleCase (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) ((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) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) ((Termination-Core-case--7538-6991 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-n--6481-6034-guardedNF (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) (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Termination-Core-n--6481-6036-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 (Context-Core-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 ((Normalise-Core-nf 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 ((Termination-Core-n--6481-6034-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 ((Context-Core-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))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6481-6035-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1))))))))))))))))))))))))))
-(define Termination-Core-n--9803-9010-getWorst (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
-(define Termination-Core-n--9803-9006-getPos (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--9803-9006-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
-(define Termination-Core-n--7383-6874-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-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-n--10953-10051-dropParams (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10967-10068 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-7 arg-8)))))))))
-(define Termination-Core-n--9803-9011-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--9803-9009-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 (Termination-Core-n--9803-9010-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)))))))))
-(define Termination-Core-n--7383-6977-conIfGuarded (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-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-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))) ((Termination-Core-case--7652-7107 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define Termination-Core-n--6481-6035-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--6600-6155 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 Termination-Core-n--9803-9005-checkDesc (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) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--9803-9005-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
-(define Termination-Core-n--9803-9009-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) 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))) ((Termination-Core-case--10017-9223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 ))))))))))))))
-(define Termination-Core-n--6481-6037-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6481-6036-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6481-6037-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))))))))
-(define Termination-Core-n--10462-9597-addCasesC-39 (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 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10467-9614 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4)))))))))
-(define Termination-Core-n--10462-9598-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10462-9597-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4)))
+(define Transform-Core-apply (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Transform-Core-case--6511-7612 'erased e-2 e-3 arg-2 (Transform-Core-tryApply 'erased e-2 arg-2)))))))))
+(define Transform-Core-addMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Transform-Core-case--5962-7123 'erased 'erased 'erased arg-6 arg-5 arg-3 'erased (Transform-Core-lookupMatch 'erased 'erased 'erased arg-3 'erased arg-6))))
+(define Termination-Core-case--12100-11153 (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) ((6) (lambda (eta-0) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0)))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))(else (lambda (eta-0) (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))
+(define Termination-Core-case--12067-11127 (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) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (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))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Termination-Core-case--12051-11098 (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 ((n (vector 9 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 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 (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))) ((Termination-Core-case--12067-11127 arg-0 arg-1 arg-2 arg-3 e-1 n e-5 e-6 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--11974-11037 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-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 (vector 1 e-2)))))))))))))))
+(define Termination-Core-case--11955-11016 (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) (let ((act-24 (Termination-Core-calcPositive arg-2 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-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 (lambda (eta-0) (vector 1 arg-5)))))))
+(define Termination-Core-case--11787-10887 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) 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 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10))))))))
+(define Termination-Core-case--11767-10852 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) 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-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) 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-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a data type")) eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--11715-10807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5)))))))
+(define Termination-Core-case--11638-10752 (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) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))
+(define Termination-Core-case--11626-10722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-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)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-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))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5))))))))))))))))
+(define Termination-Core-case--11549-10660 (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) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define Termination-Core-case--11250-10594 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0))))))))))))
+(define Termination-Core-case--11250-10537 (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) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-case--11250-10470 (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)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 e-4 arg-3)))(else arg-3)))))(else arg-3)))))
+(define Termination-Core-case--11264-10413 (lambda (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) (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)) (else (vector 1 arg-7 (Termination-Core-n--11250-10396-dropParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (+ 1 arg-10) arg-9 arg-8)))))))
+(define Termination-Core-case--11093-10317 (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 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0))))))))))))
+(define Termination-Core-case--11093-10249 (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 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 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))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0))))))))))))
+(define Termination-Core-case--11045-10202 (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 (Termination-Core-calcTerminating 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 (Context-Core-setTerminating arg-2 arg-1 arg-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 (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Termination-Core-case--10936-10133 (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 ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-5 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))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define Termination-Core-case--10742-10094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10742-9926-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-7 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))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6)))))))))))))))))))))
+(define Termination-Core-case--10813-10011 (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))) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
+(define Termination-Core-case--10764-9985 (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 ((Context-Core-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))) ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4) eta-0))))))))))) (else (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) arg-4))))))
+(define Termination-Core-case--10747-9942 (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) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--10764-9985 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 (Termination-Core-caseFn e-5)) eta-0))))))))))))
+(define Termination-Core-case--10633-9877 (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 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 e-2)) (let ((e-20 (vector-ref sc1 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))
+(define Termination-Core-case--10078-9823 (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) (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (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) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10078-9334-continue arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 e-2)) (let ((e-20 (vector-ref sc3 21))) e-20)) (vector 1 arg-6 arg-0) eta-0))))))))))))))))
+(define Termination-Core-case--10368-9607 (lambda (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) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Termination-Core-case--10326-9579 (lambda (arg-0 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 ((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) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Data-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) 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))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Termination-Core-case--10293-9547 (lambda (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) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) 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))) ((Termination-Core-case--10326-9579 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 )))))))))))
+(define Termination-Core-case--10091-9524 (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))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-case--10090-9455 (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) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10078-9330-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10078-9331-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
+(define Termination-Core-case--9971-9243 (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))) (Termination-Core-getSC arg-2 arg-3 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Termination-Core-case--9546-8948 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
+(define Termination-Core-case--7629-8818 (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-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-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 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) 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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 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))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Termination-Core-mkChange 'erased arg-8 e-6 arg-5 eta-2)) arg-1))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0)))))))
+(define Termination-Core-case--7624-8750 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7624-8350-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--9010-8634 (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) (Termination-Core-n--9010-8526-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 Termination-Core-case--9009-8471 (lambda (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) (vector 1 arg-8)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
+(define Termination-Core-case--9009-8383 (lambda (arg-0 arg-1 arg-2 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 1 arg-11)) (else (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-13 (vector 1 (vector 0 arg-9 arg-11) arg-12)))))))
+(define Termination-Core-case--8812-8217 (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 arg-9)) (else (vector 0 ))))))
+(define Termination-Core-case--7620-8177 (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 ((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)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (Termination-Core-case--8812-8217 'erased arg-1 arg-2 e-18 e-12 e-9 e-5 e-7 e-6 e-15 (Name-Core-C-61C-61_Eq__Name e-7 arg-2)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Termination-Core-case--8711-8138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1)))))
+(define Termination-Core-case--8675-8093 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Termination-Core-smaller 'erased 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))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1)))(else 1))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1)))(else 1)))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1)))(else 1))))))))
+(define Termination-Core-case--7618-8062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) 0) (else (Termination-Core-case--8675-8093 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
+(define Termination-Core-case--7614-8018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) 0) (else (Termination-Core-smallerArg 'erased 0 arg-4 arg-3 arg-2 arg-1))))))
+(define Termination-Core-case--8105-7816 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0)))))))
+(define Termination-Core-case--8061-7532 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-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 ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (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))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (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 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-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)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-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-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 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 ((e-5 (vector-ref sc2 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))))
+(define Termination-Core-case--8026-7496 (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 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Termination-Core-case--7610-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7610-7242-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7610-7243-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--8061-7532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4))))))))))))))))
+(define Termination-Core-case--7884-7377 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
+(define Termination-Core-case--7768-7349 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7))))))))
+(define Termination-Core-case--7767-7258 (lambda (arg-0 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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (lambda (eta-1) (Termination-Core-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-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--7610-7178 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-3)))))))
+(define Termination-Core-case--7435-7020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 8 arg-3 arg-2 (Termination-Core-delazy 'erased arg-4 arg-1)))(else (Termination-Core-delazy 'erased arg-4 arg-1))))))
+(define Termination-Core-case--7435-6982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 7 arg-4 arg-3 arg-6 arg-7))(else arg-7)))))
+(define Termination-Core-case--7435-6948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 6 arg-3 arg-2 arg-5))(else arg-5)))))
+(define Termination-Core-case--6695-6685 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-6) eta-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)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-case--6703-6633 (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) (Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6938-6532 (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-1 (vector-ref sc0 1))) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6702-6505 (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 ((Context-Core-lookupCtxtExact arg-0 (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))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6816-6408 (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) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (let ((sc0 arg-5)) (let ((e-7 (vector-ref sc0 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))))
+(define Termination-Core-case--6701-6393 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6816-6408 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6700-6326 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-case--6551-6208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
+(define Termination-Core-case--6530-6157 (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) (vector 1 arg-4)))(else (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))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 e-1))) eta-0))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Terminating arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Terminating arg-5888 arg-5889)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
+(define Termination-Core-case--6506-6142 (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 ((_-0 (vector 1 e-1))) (Termination-Core-case--6530-6157 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Termination-Core-n--9010-8526-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7624-8348-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 (Termination-Core-n--7624-8348-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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Prelude-map_Functor__List 'erased 'erased (lambda (vt) (vector 0 (TT-Core-weaken_Weaken__Term e-39 arg-5 (Builtin-fst 'erased 'erased vt)) (TT-Core-weaken_Weaken__Term e-39 arg-7 (Builtin-snd 'erased 'erased 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 Termination-Core-n--7624-8348-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--9010-8634 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7624-8347-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
+(define Termination-Core-n--7624-8349-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (Termination-Core-n--7624-8348-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
+(define Termination-Core-n--10078-9330-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)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 0 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)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 0 e-10 (vector 2 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(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)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 e-4 arg-6)))(else arg-7))))))(else arg-7)))))(else arg-7)))))))))))
+(define Termination-Core-n--10078-9331-mkArgs (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Termination-Core-n--10078-9331-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 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Termination-Core-case--10090-9455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
+(define Termination-Core-n--7624-8350-matchArgs (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((patMatch (List-Data-reverse 'erased (List-Data-zip 'erased 'erased arg-1 (TT-Core-getArgs 'erased e-10))))) (vector 0 e-2 (vector 0 e-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8349-updatePat arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 e-2 patMatch eta-0)) arg-2) e-11)))))))))))))))
+(define Termination-Core-n--7624-8347-lookupTm (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((5) (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))) (Termination-Core-case--9009-8383 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-9 e-10 e-12 e-11 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-11)))))))(else (Termination-Core-case--9009-8471 arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-6 e-7 e-3 arg-7 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-7 e-6)))))))))))))))
+(define Termination-Core-n--7610-7242-handleCase (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) ((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) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) ((Termination-Core-case--7767-7258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-n--6695-6285-guardedNF (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) (lambda (eta-0) (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) 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) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-n--6695-6287-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 (Context-Core-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 ((Normalise-Core-nf 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 ((Termination-Core-n--6695-6285-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 ((Context-Core-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))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6695-6286-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1))))))))))))))))))))))))))
+(define Termination-Core-n--10078-9333-getWorst (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
+(define Termination-Core-n--10078-9329-getPos (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-8 1))) (Termination-Core-n--10078-9329-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
+(define Termination-Core-n--7610-7138-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-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-n--11250-10396-dropParams (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--11264-10413 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8)))))))))
+(define Termination-Core-n--10078-9334-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10078-9332-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 (Termination-Core-n--10078-9333-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)))))))))
+(define Termination-Core-n--7610-7243-conIfGuarded (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 ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-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-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))) ((Termination-Core-case--7884-7377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define Termination-Core-n--6695-6286-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Termination-Core-case--6816-6408 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 Termination-Core-n--10078-9328-checkDesc (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) (vector 2 (vector 2 (List-Data-reverse 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 ))(else (Termination-Core-n--10078-9328-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
+(define Termination-Core-n--10078-9332-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) 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))) ((Termination-Core-case--10293-9547 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 ))))))))))))))
+(define Termination-Core-n--6695-6288-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6695-6287-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6695-6288-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))))))))
+(define Termination-Core-n--10742-9925-addCasesC-39 (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 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--10747-9942 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (NameMap-Data-lookup 'erased e-2 arg-4)))))))))
+(define Termination-Core-n--10742-9926-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10742-9925-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4)))
 (define Termination-Core-totRefsIn (lambda (arg-0 arg-1 arg-2 arg-3) (Termination-Core-totRefs arg-1 arg-2 (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-3)))))
-(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (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))) ((Termination-Core-case--6316-5906 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5))))))))))))))))))))))
-(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7391-7768 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5))))
-(define Termination-Core-smaller (lambda (arg-0 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))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7387-7724 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5)))))))))
+(define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (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))) ((Termination-Core-case--6530-6157 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5))))))))))))))))))))))
+(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--7618-8062 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (Termination-Core-assertedSmaller 'erased arg-3 arg-5))))
+(define Termination-Core-smaller (lambda (arg-0 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))) (Prelude-C-124C-124 (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-6) (lambda () (Termination-Core-smaller 'erased arg-1 arg-2 arg-3 arg-4 e-7))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Termination-Core-case--7614-8018 'erased arg-5 arg-4 arg-3 arg-2 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))(else (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5)))))))))
 (define Termination-Core-scEq (lambda (arg-0 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))) (Prelude-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Name-Core-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((5) (let ((e-46 (vector-ref sc2 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-54 e-68) (lambda () (Termination-Core-scEq 'erased e-55 e-69))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-46 (vector-ref sc1 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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))) (Termination-Core-scEq 'erased e-60 arg-2)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-46 (vector-ref sc0 4))) (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased 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))) (Termination-Core-scEq 'erased 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))) (TT-Core-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 Termination-Core-posArg (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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))) (Termination-Core-n--10953-10051-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) 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 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) 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))) (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-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) 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) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) 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))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
+(define Termination-Core-posArg (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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))) (Termination-Core-n--11250-10396-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) 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 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) 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))) (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-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) 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) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) 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))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
 (define Termination-Core-nextArg (lambda (arg-0) (b+ arg-0 1 63)))
-(define Termination-Core-nameIn (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased 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-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 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))) (Termination-Core-case--10801-9974 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Termination-Core-nameIn (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased 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-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (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))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 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))) (Termination-Core-case--11093-10317 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 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))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1)))))))
 (define Termination-Core-mkChange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-mkChange 'erased arg-1 arg-2 (vector 1 (vector 0 e-6 e-11) (vector 1 (vector 0 e-6 e-12) e-3)) arg-4))))(else (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Termination-Core-scEq 'erased arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 1 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-smaller 'erased 1 arg-1 (Termination-Core-asserted 'erased arg-2 arg-4) arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 0 ))))) (vector 0 ))) (Termination-Core-mkChange 'erased arg-1 arg-2 e-3 arg-4)))))))))))))))
 (define Termination-Core-initArgs (lambda (arg-0 arg-1) (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 (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 (Termination-Core-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 ((Termination-Core-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 (vector 1 (vector 1 (vector 0 e-5 (vector 1 ))) e-7)))))))))))))))))))))))
-(define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 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 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__SCCall arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__SCCall arg-650 arg-651)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7397-8056-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 Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 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 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__SCCall arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__SCCall arg-430 arg-431)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7624-8350-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 Termination-Core-firstArg (lambda () 0))
-(define Termination-Core-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 ((Context-Core-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 ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name 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 ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 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 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0)))))))))))
-(define Termination-Core-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 ((Termination-Core-n--7383-6874-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 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 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 (List-Prelude-C-43C-43 'erased 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))) (Termination-Core-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))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7383-7198 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7383-7198 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))))))
-(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "        =") e-6 e-11 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 ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 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 ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0))))))))))))))))))))))))))
+(define Termination-Core-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 ((Context-Core-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 ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name 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 ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (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))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 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 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-mkChange 'erased arg-2 e-7 arg-5 eta-1)) arg-9))) (vector 0 )) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0)))))))))))
+(define Termination-Core-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 ((Termination-Core-n--7610-7138-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 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 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 (List-Prelude-C-43C-43 'erased 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))) (Termination-Core-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))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((7) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--7610-7468 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6)))))))))))))
+(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) eta-2 eta-3))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Looking in case args " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "        =") e-6 e-11 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 ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 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 ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0))))))))))))))))))))))))))
 (define Termination-Core-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pargs (TT-Core-getArgs 'erased (Termination-Core-delazy 'erased arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseOpts e-2 (Value-Core-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))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (List-Data-zip 'erased 'erased (Prelude-take 'erased (List-Data-length 'erased pargs) (Prelude-rangeFrom_Range__Nat (Prelude-fromInteger_Num__Nat 0))) pargs) (Termination-Core-delazy 'erased arg-1 e-5)) eta-0)))))))))))))))))))
 (define Termination-Core-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (Termination-Core-expandToArity e-0 e-3))))) (else (vector 1 (vector 0 ) (Termination-Core-expandToArity e-0 (vector 0 ))))))))))))
 (define Termination-Core-delazy (lambda (arg-0 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 ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 6 e-1 e-2 tmC-39))(else 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 ((tyC-39 (Termination-Core-delazy 'erased arg-1 e-7))) (let ((tmC-39 (Termination-Core-delazy 'erased arg-1 e-8))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (vector 7 e-5 e-6 tyC-39 tmC-39))(else 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 (Termination-Core-delazy 'erased arg-1 e-12)))(else (Termination-Core-delazy 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased 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 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-21) (Termination-Core-delazy 'erased 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 (Termination-Core-delazy 'erased arg-1 e-25) (Termination-Core-delazy 'erased 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 (Termination-Core-delazy 'erased arg-1 e-30) (Termination-Core-delazy 'erased arg-1 e-31)))))))(else arg-2)))))
-(define Termination-Core-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))) ((Termination-Core-case--11734-10730 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
-(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Termination-Core-case--10756-9864 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
-(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--9803-9496 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Name-Core-C-61C-61_Eq__Name arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Name-Core-C-47C-61_Eq__Name arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__Int arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__Int arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) pos arg-5)))))
-(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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 (Context-Core-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))) ((Termination-Core-case--11644-10653 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0)))))))))))))
+(define Termination-Core-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))) ((Termination-Core-case--12051-11098 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0))))))))
+(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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))) ((Termination-Core-case--11045-10202 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
+(define Termination-Core-checkSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((pos (vector 0 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--10078-9823 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Name-Core-C-61C-61_Eq__Name arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Name-Core-C-47C-61_Eq__Name arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__Int arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__Int arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) pos arg-5)))))
+(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-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))) ((Termination-Core-case--11955-11016 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0)))))))))))))
 (define Termination-Core-checkPosArgs (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 ((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))) (lambda (eta-0) (let ((act-24 ((Termination-Core-posArg arg-0 arg-1 e-8) 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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-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))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-9) eta-0)))))))(else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))
-(define Termination-Core-checkIfGuarded (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 (Context-Core-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) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6481-6037-allGuarded arg-2 arg-1 arg-0 e-7) 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))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-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 Termination-Core-checkIfGuarded (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 (Context-Core-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) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6695-6288-allGuarded arg-2 arg-1 arg-0 e-7) 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))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-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 Termination-Core-checkData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-checkCon arg-0 arg-1 arg-2 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) ((Termination-Core-checkData arg-0 arg-1 arg-2 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
 (define Termination-Core-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((Termination-Core-totRefsIn 'erased 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 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) 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))) ((Termination-Core-checkPosArgs arg-1 arg-2 e-7) ext-0)))))))(else (vector 1 e-6))))))))))))))))))))
 (define Termination-Core-caseFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((7) 0) ((4) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-caseFn e-3))) ((0) (let ((e-5 (vector-ref sc0 2))) (Termination-Core-caseFn e-5)))(else 1)))))
 (define Termination-Core-calculateSizeChange (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 ((Context-Core-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))) ((Termination-Core-getSC arg-0 e-5 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Termination-Core-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 ((Context-Core-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10462-9598-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-7)) 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) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-9 e-10) 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))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8))))))))))))))))))))))))))))))
+(define Termination-Core-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 ((Context-Core-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10742-9926-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo 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 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-7)) 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) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) 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 ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty 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))) ((Termination-Core-initArgs e-9 e-10) 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))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8))))))))))))))))))))))))))))))
 (define Termination-Core-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 (Context-Core-lookupDefTyExact 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) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((6) (let ((e-12 (vector-ref sc4 6))) (let ((e-13 (vector-ref sc4 7))) (let ((act-26 ((Termination-Core-totRefsIn 'erased arg-0 e-5 e-7) 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-17 (vector-ref sc5 1))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((act-27 ((Termination-Core-checkData arg-0 e-5 (vector 1 arg-2 e-12) e-13) ext-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-18 (vector-ref sc7 1))) (vector 1 (vector 0 e-18 e-13))))))))(else (vector 1 (vector 0 e-17 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " not a data type")) ext-0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
 (define Termination-Core-assertedSmaller (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Termination-Core-scEq 'erased e-1 arg-2)))(else 1)))))
-(define Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7393-7883 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define Coverage-Core-case--9664-10155 (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 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 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 ((Coverage-Core-n--9659-10121-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
-(define Coverage-Core-case--9400-9928 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) 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-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-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 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) 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 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5))))))))))))))))
-(define Coverage-Core-case--9405-9884 (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 (vector 10 arg-7 1) (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9400-9868-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
-(define Coverage-Core-case--9049-9650 (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))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9049-9547-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9049-9546-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
-(define Coverage-Core-case--9077-9586 (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 1)))(else (lambda (eta-0) (vector 1 0)))))))
-(define Coverage-Core-case--9055-9571 (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 ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9077-9586 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--8493-9051 (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 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5)))))))
-(define Coverage-Core-case--8397-8960 (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 (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6))))))
-(define Coverage-Core-case--8060-8723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
-(define Coverage-Core-case--8060-8663 (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 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
-(define Coverage-Core-case--8060-8607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7634-8367 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7634-8226-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-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))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7660-8262 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-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 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7652-8236 (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 ((_-0 (vector 1 e-1))) (Coverage-Core-case--7660-8262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--7441-8082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-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-15)) (else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--7420-8047 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7441-8082 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-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--7265-7938 (lambda (arg-0 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) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2)))))))))
-(define Coverage-Core-case--7236-7898 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-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))) ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-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 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--6636-7876 (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))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7236-7898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-case--6648-7803 (lambda (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) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6648-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6648-7627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6686-7445 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6647-7409 (lambda (arg-0 arg-1 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) (let ((act-24 ((Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-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-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Coverage-Core-case--6121-7336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3))))))
-(define Coverage-Core-case--6143-7295 (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) 0) (else (Coverage-Core-n--6121-6924-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
-(define Coverage-Core-case--6455-7229 (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) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6121-6923-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
-(define Coverage-Core-case--6426-7205 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6455-7229 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6121-6921-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
-(define Coverage-Core-case--6142-7183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6426-7205 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4)))))))
-(define Coverage-Core-case--6142-7115 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-case--6142-7037 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-case--6141-6973 (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 ((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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6121-6922-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
-(define Coverage-Core-n--9659-10121-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 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 (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 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)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-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 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9659-10121-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
-(define Coverage-Core-n--8688-9207-rep (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))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 )))))))))
-(define Coverage-Core-n--9049-9547-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--9077-9586 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1)))))))))))
-(define Coverage-Core-n--8060-8759-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5))))
-(define Coverage-Core-n--9049-9546-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2)))))))))
-(define Coverage-Core-n--9577-10039-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9577-10039-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9))))))))))
-(define Coverage-Core-n--8060-8707-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
-(define Coverage-Core-n--8060-8647-isDefault (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) 0)(else 1)))))
-(define Coverage-Core-n--6121-6922-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))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6141-6973 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
-(define Coverage-Core-n--7889-8447-emptyRHSalt (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))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased 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 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13))))))))
-(define Coverage-Core-n--8688-9208-dropRep (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
-(define Coverage-Core-n--9400-9868-dropPos (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9405-9884 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-5)))))))))
-(define Coverage-Core-n--6121-6923-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))) (Coverage-Core-case--6142-7037 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased 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))) (Coverage-Core-case--6142-7115 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6142-7183 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
-(define Coverage-Core-n--6636-7366-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 ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) 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))) ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ 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)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (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-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (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))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6648-7627 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7715 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6648-7803 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))
-(define Coverage-Core-n--6636-7365-conflictArgs (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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) 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 ((Normalise-Core-evalClosure (vector 0 ) arg-4 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))) (let ((act-26 ((Coverage-Core-n--6636-7366-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-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 ((Coverage-Core-n--6636-7365-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) 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))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))
-(define Coverage-Core-n--6121-6924-conflictArgs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6143-7295 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6121-6923-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
-(define Coverage-Core-n--9577-10040-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9577-10039-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
-(define Coverage-Core-n--6121-6921-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-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1)))))
-(define Coverage-Core-n--8787-9292-buildArgsAlt (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--8787-9291-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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))) (let ((act-25 ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) 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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--8787-9291-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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 ((act-25 ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))))))))))
-(define Coverage-Core-n--8787-9291-buildArgAlt (lambda (arg-0 arg-1 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) (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 ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) 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 ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) 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))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13)))))))
-(define Coverage-Core-n--7634-8226-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (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))) ((Coverage-Core-case--7660-8262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (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 Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--7620-8177 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define Coverage-Core-case--9906-10303 (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 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 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 ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
+(define Coverage-Core-case--9636-10065 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) 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-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (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-9 (vector-ref sc3 1))) (let ((eargs (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-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 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) 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 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5))))))))))))))))
+(define Coverage-Core-case--9641-10021 (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 (vector 10 arg-7 1) (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9636-10005-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
+(define Coverage-Core-case--9282-9787 (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))) (Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
+(define Coverage-Core-case--9311-9720 (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 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define Coverage-Core-case--9288-9705 (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 ((bind-0 (vector 1 e-1))) (Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--8711-9168 (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 (vector 0 arg-3 (vector 1 arg-6 arg-4)) arg-5)) (else (vector 1 (vector 0 arg-3 arg-4) (Coverage-Core-addNot 'erased arg-1 arg-2 'erased arg-6 arg-5)))))))
+(define Coverage-Core-case--8615-9077 (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 (Coverage-Core-findTag 'erased 'erased arg-2 arg-3 'erased arg-6))))))
+(define Coverage-Core-case--8277-8839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
+(define Coverage-Core-case--8277-8779 (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 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 )))))))))
+(define Coverage-Core-case--8277-8723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7849-8482 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-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))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7876-8376 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-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 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7867-8350 (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 ((_-0 (vector 1 e-1))) (Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--7656-8195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-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-15)) (else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--7634-8160 (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (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 ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (let ((bind-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Coverage-Core-case--7656-8195 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-5 e-7 e-9 e-8 e-6 bind-0 (Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--7477-8050 (lambda (arg-0 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) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2)))))))))
+(define Coverage-Core-case--7448-8008 (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-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))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-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 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--6842-7986 (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))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--7448-8008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-case--6854-7912 (lambda (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) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6854-7824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6854-7736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6895-7552 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6853-7515 (lambda (arg-0 arg-1 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) (let ((act-24 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-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-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-case--6327-7439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) 0) (else (Coverage-Core-conflictMatch arg-0 arg-3))))))
+(define Coverage-Core-case--6349-7398 (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) 0) (else (Coverage-Core-n--6327-7027-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
+(define Coverage-Core-case--6661-7332 (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) 0) (else (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
+(define Coverage-Core-case--6632-7308 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6661-7332 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6327-7024-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
+(define Coverage-Core-case--6348-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--6632-7308 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 (TT-Core-getFnArgs 'erased arg-4)))))))
+(define Coverage-Core-case--6348-7218 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-case--6348-7140 (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))) (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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-7 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-case--6347-7076 (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 ((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) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6327-7025-findN arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) e-3)))(else 1)))))(else 1))))))(else 1)))))
+(define Coverage-Core-n--9901-10267-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 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 (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 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)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-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 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9901-10267-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
+(define Coverage-Core-n--8906-9324-rep (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))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 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 ((e-5 (vector-ref sc1 1))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 )))))))))
+(define Coverage-Core-n--9282-9680-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--9311-9720 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1)))))))))))
+(define Coverage-Core-n--8277-8875-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Prelude-not ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-altMatch 'erased arg-6 eta-0))) arg-5))))
+(define Coverage-Core-n--9282-9679-noAssert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 0) (vector 0 )) (else (vector 1 e-2)))))))))
+(define Coverage-Core-n--9816-10182-mkSubstEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (vector 0 ))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-9 (vector-ref sc1 2))) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 "cov" arg-7)) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9))))))))))
+(define Coverage-Core-n--8277-8823-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
+(define Coverage-Core-n--8277-8763-isDefault (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) 0)(else 1)))))
+(define Coverage-Core-n--6327-7025-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))) (Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--6347-7076 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
+(define Coverage-Core-n--8106-8563-emptyRHSalt (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))) (vector 0 e-1 e-2 e-3 (Coverage-Core-emptyRHS 'erased 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 (Coverage-Core-emptyRHS 'erased arg-6 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (vector 2 e-10 (Coverage-Core-emptyRHS 'erased arg-6 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (vector 3 (Coverage-Core-emptyRHS 'erased arg-6 e-13))))))))
+(define Coverage-Core-n--8906-9325-dropRep (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
+(define Coverage-Core-n--9636-10005-dropPos (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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Coverage-Core-case--9641-10021 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-5)))))))))
+(define Coverage-Core-n--6327-7026-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))) (Coverage-Core-case--6348-7140 arg-0 arg-1 arg-2 arg-3 'erased e-8 e-9 e-10 'erased arg-5 (TT-Core-getFnArgs 'erased 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))) (Coverage-Core-case--6348-7218 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-3 e-4 'erased arg-4 (TT-Core-getFnArgs 'erased arg-4))))))(else (Coverage-Core-case--6348-7286 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
+(define Coverage-Core-n--6842-7469-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 ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) 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))) ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ 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)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Normalise-Core-quote_Quote__NF 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 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (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-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (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))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(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))) (Coverage-Core-case--6854-7736 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 (Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7824 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 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((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))) (Coverage-Core-case--6854-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))
+(define Coverage-Core-n--6842-7468-conflictArgs (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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) 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 ((Normalise-Core-evalClosure (vector 0 ) arg-4 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))) (let ((act-26 ((Coverage-Core-n--6842-7469-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-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 ((Coverage-Core-n--6842-7468-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) 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))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))
+(define Coverage-Core-n--6327-7027-conflictArgs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6349-7398 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-3 arg-5 arg-4 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6327-7026-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
+(define Coverage-Core-n--9816-10183-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (SubstEnv-TT-Core-substs arg-5 (vector 0 ) (Coverage-Core-n--9816-10182-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
+(define Coverage-Core-n--6327-7024-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-4 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1)))))
+(define Coverage-Core-n--9009-9414-buildArgsAlt (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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))) (let ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) 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-10 (vector-ref sc3 1))) (vector 1 (List-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9009-9413-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) 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 ((act-25 ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))))))))))
+(define Coverage-Core-n--9009-9413-buildArgAlt (lambda (arg-0 arg-1 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) (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 ((con (vector 1 arg-11 (vector 2 e-2 (List-Data-length 'erased e-3)) e-1))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) 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 ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) 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))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13)))))))
+(define Coverage-Core-n--7849-8339-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (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))) ((Coverage-Core-case--7876-8376 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (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 Coverage-Core-weakenNs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-insertVarNames 'erased 'erased (vector 0 ) arg-2 e-6 'erased) e-7) (Coverage-Core-weakenNs 'erased arg-1 arg-2 e-3))))))))))))
-(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1)))))
+(define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-1)))) ((2) 0) ((1) 0) (else 1)))))
 (define Coverage-Core-tagIs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Prelude-C-61C-61_Eq__Int arg-1 e-2))) ((2) 1) ((1) 1) (else 0)))))
-(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8688-9207-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-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 ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8688-9208-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
-(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Int arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Int arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Int arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Int arg-2904 arg-2905)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2)))))))))))
+(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8906-9324-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-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 ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8906-9325-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
+(define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Prelude-take 'erased e-7 (Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Int arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Int arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Int arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Int arg-2798 arg-2799)))))) 0))) (Coverage-Core-emptyRHS 'erased arg-1 arg-2)))))))))))
 (define Coverage-Core-match (lambda (arg-0 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))) (Name-Core-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))) (Prelude-C-38C-38 (Coverage-Core-match 'erased e-19 e-51) (lambda () (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased e-25 e-57)))(else (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (Coverage-Core-match 'erased 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))) (TT-Core-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 Coverage-Core-isEmpty (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (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-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-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--7441-8082 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define Coverage-Core-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 ((Context-Core-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))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9049-9547-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9049-9546-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
-(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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) ((19) (Coverage-Core-case--8060-8607 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8060-8663 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8060-8647-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8060-8723 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8060-8707-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-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 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8060-8759-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))))))
+(define Coverage-Core-isEmpty (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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (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-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-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--7656-8195 arg-0 e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 e-15 e-14 e-13 e-12 e-10 e-9 e-8 e-11 bind-0 (Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define Coverage-Core-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 ((Context-Core-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))) ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9282-9680-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9282-9679-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1)))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
+(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (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) ((19) (Coverage-Core-case--8277-8723 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8277-8779 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8763-isDefault arg-0 e-1 e-2 arg-4 arg-2 arg-1 eta-0))) arg-4)))))))) ((10) (let ((e-4 (vector-ref sc0 1))) (Coverage-Core-case--8277-8839 arg-0 e-4 arg-4 arg-2 arg-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8277-8823-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-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 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8277-8875-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))))))
 (define Coverage-Core-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 ((psIn (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((Coverage-Core-buildArgs arg-0 arg-2 e-5 (vector 0 ) (vector 0 ) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-apply 'erased arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6)))))))))))))))
-(define Coverage-Core-getCons (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7634-8226-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-getCons (lambda (arg-0 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 ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7849-8339-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Coverage-Core-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Coverage-Core-freeEnv arg-0 e-3))))))))
-(define Coverage-Core-findTag (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8397-8960 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6))))))))))))
-(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9400-9928 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--7889-8447-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased 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 Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6121-7336 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6121-6924-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3))))))))))))
-(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--7236-7898 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (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 Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9577-10040-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased 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 ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 (Coverage-Core-match 'erased e-6 e-7))))))))))))))))))))
-(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased 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))) ((Coverage-Core-n--9659-10121-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0))))))))
-(define Coverage-Core-buildArgs (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-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 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 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 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 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 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 ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--8787-9292-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Coverage-Core-findTag (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8615-9077 'erased 'erased arg-2 arg-3 e-6 e-7 e-3 'erased (TT-Core-sameVar 'erased arg-2 e-6))))))))))))
+(define Coverage-Core-eraseApps (lambda (arg-0 arg-1 arg-2) (Coverage-Core-case--9636-10065 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define Coverage-Core-emptyRHS (lambda (arg-0 arg-1 arg-2) (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-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8106-8563-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased 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 Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--6327-7439 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6327-7027-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3))))))))))))
+(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-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))) ((Coverage-Core-case--7448-8008 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (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 Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9816-10183-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased 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 ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 (Coverage-Core-match 'erased e-6 e-7))))))))))))))))))))
+(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased 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))) ((Coverage-Core-n--9901-10267-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0))))))))
+(define Coverage-Core-buildArgs (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-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 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 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 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 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 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 ((altsC-39 (List-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Prelude-maybe 'erased 'erased (lambda () altsC-39) (lambda () (lambda (t) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIs 'erased t eta-1)) altsC-39))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-3)))) (let ((altsN (Prelude-maybe 'erased 'erased (lambda () altsK) (lambda () (lambda (ts) (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-tagIsNot 'erased ts eta-1)) altsK))) (Coverage-Core-findTag 'erased 'erased e-2 arg-0 'erased arg-4)))) ((Coverage-Core-n--9009-9414-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Coverage-Core-altMatch (lambda (arg-0 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))) (Prelude-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))) (TT-Core-C-61C-61_Eq__Constant e-10 e-22)))(else 1)))))(else 1))))))))
-(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8493-9051 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6))))))))))))
-(define CaseBuilder-Core-with--10294-7435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (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 ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) 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 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6621-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--10293-7260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) 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 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6620-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--10292-6941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) 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 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6619-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
-(define CaseBuilder-Core-with--8495-5098 (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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8533-5115 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased 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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8533-5181 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8533-5245 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
-(define CaseBuilder-Core-case--14889-11082 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))))))))))
-(define CaseBuilder-Core-case--14977-10915 (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) (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)))))))
-(define CaseBuilder-Core-case--14549-10533 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0)))))))
-(define CaseBuilder-Core-case--14508-10496 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14549-10533 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 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2))))))))
-(define CaseBuilder-Core-case--14470-10464 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14549-10533 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0)))))))))))))))))
-(define CaseBuilder-Core-case--14455-10432 (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 ((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) (lambda (eta-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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14549-10533 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 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0))))))))))
-(define CaseBuilder-Core-case--13990-9974 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) 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 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5)))))))))))))))))))
-(define CaseBuilder-Core-case--13208-9587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0)))))))
-(define CaseBuilder-Core-case--13197-9263 (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 ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0))))))))))))))
-(define CaseBuilder-Core-case--12983-9075 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))
-(define CaseBuilder-Core-case--12907-8995 (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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-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 ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))
-(define CaseBuilder-Core-case--12731-8927 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 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 ((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 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) 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 ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))))))))))
-(define CaseBuilder-Core-case--12762-8859 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0))))))))
-(define CaseBuilder-Core-case--12731-8799 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 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 ((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 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0))))))))))))))))
-(define CaseBuilder-Core-case--12622-8703 (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) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0)))))))
-(define CaseBuilder-Core-case--12050-8357 (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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
-(define CaseBuilder-Core-case--12050-8278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1)))))
-(define CaseBuilder-Core-case--12050-8199 (lambda (arg-0 arg-1 arg-2 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) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1)))))
-(define CaseBuilder-Core-case--11640-8080 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 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))) ((CaseBuilder-Core-n--11640-7837-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-case--11677-7982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (CaseBuilder-Core-n--11640-7837-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-case--10295-7537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (CaseBuilder-Core-n--10268-6619-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0)))))))
-(define CaseBuilder-Core-case--10293-7097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))
-(define CaseBuilder-Core-case--10427-6854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1))))))))
-(define CaseBuilder-Core-case--10292-6734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-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 (Context-Core-lookupTyExact arg-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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1)))))))))))))))))))))
-(define CaseBuilder-Core-case--10292-6649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))
-(define CaseBuilder-Core-case--10055-6578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6))))))))
-(define CaseBuilder-Core-case--10078-6522 (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) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2)))))))
-(define CaseBuilder-Core-case--10078-6452 (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 0 arg-9 arg-8 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))))))))
-(define CaseBuilder-Core-case--9931-6373 (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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6)))))))
-(define CaseBuilder-Core-case--9460-6127 (lambda (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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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 ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 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 0 (vector 0 ) (vector 1 e-5))))))))))))))))))
-(define CaseBuilder-Core-case--9521-6007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5))))))))
-(define CaseBuilder-Core-case--9460-5946 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9521-6007 arg-0 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 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3)))))))))))
-(define CaseBuilder-Core-case--9074-5792 (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) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 ))))))))
-(define CaseBuilder-Core-case--9107-5647 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 )))))))(else (vector 3 ))))))
-(define CaseBuilder-Core-case--9074-5573 (lambda (arg-0 arg-1 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))) (CaseBuilder-Core-case--9107-5647 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10)))))))))
-(define CaseBuilder-Core-case--8533-5245 (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 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 )))))))
-(define CaseBuilder-Core-case--8533-5181 (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 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4))))))
-(define CaseBuilder-Core-case--8533-5115 (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 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4)))))))
-(define CaseBuilder-Core-case--8190-4993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15))))))
-(define CaseBuilder-Core-case--8190-4890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 ))))))
-(define CaseBuilder-Core-case--7140-3887 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 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 (vector 1 e-2 e-5)))))))))))))
-(define CaseBuilder-Core-case--6915-3735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20))))))))
-(define CaseBuilder-Core-case--6788-3661 (lambda (arg-0 arg-1 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) (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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 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 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) 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 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) 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))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
-(define CaseBuilder-Core-case--6788-3588 (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9)))))))))
-(define CaseBuilder-Core-case--6768-3553 (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))) (lambda (eta-0) (vector 1 (vector 0 (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 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref 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 ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-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) ((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 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 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 ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) 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))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (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 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
-(define CaseBuilder-Core-case--6637-3478 (lambda (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11))))))))
-(define CaseBuilder-Core-case--6395-3424 (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) (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 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 (vector 1 (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 (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3))))))))
-(define CaseBuilder-Core-case--6443-3329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15))))))))
-(define CaseBuilder-Core-case--6395-3252 (lambda (arg-0 arg-1 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) ((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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-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 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) 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 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) 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))) (vector 1 (vector 1 (let ((sc6 arg-11)) (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-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10))))))))
-(define CaseBuilder-Core-n--13217-9685-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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) 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))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) 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 ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13217-9685-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 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 e-6 e-4 e-5))))))))))))))))))))))))))
-(define CaseBuilder-Core-n--10055-6442-update (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))) (CaseBuilder-Core-case--10078-6452 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10078-6522 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-21 arg-5)))))(else arg-7)))))
-(define CaseBuilder-Core-n--10034-6403-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define CaseBuilder-Core-n--14889-10900-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 (CaseBuilder-Core-n--14889-10899-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--14889-10899-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7))))))))))))
-(define CaseBuilder-Core-n--7323-4044-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
-(define CaseBuilder-Core-n--11640-7837-sameTypeAs (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (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 ((Normalise-Core-nf arg-2 e-7 arg-5 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))) ((CaseBuilder-Core-case--11677-7982 'erased 'erased 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 (CaseBuilder-Core-n--11640-7836-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
-(define CaseBuilder-Core-n--12024-8172-samePatAs (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) 0)(else (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))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12050-8199 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((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 ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12050-8278 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12050-8357 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (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-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (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 ((sc1 arg-6)) (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) ((5) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1))))))))
-(define CaseBuilder-Core-n--14889-10898-mkSubstEnv (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) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--14889-10898-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5))))))))
-(define CaseBuilder-Core-n--14302-10297-mkPatClausesFrom (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) 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 ((act-25 ((CaseBuilder-Core-n--14302-10297-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define CaseBuilder-Core-n--13975-9900-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (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 (Context-Core-clearDefs e-5 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 ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (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-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (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 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased 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 ((CaseBuilder-Core-n--13975-9900-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 'erased 'erased e-7)) 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))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10))))))))))))))))))))))))))))))))))))
-(define CaseBuilder-Core-n--14889-10897-labelPat (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--14889-10897-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3)))))))))
-(define CaseBuilder-Core-n--11640-7836-headEq (lambda (arg-0 arg-1 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) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(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-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(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-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(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 CaseBuilder-Core-n--14889-10896-getUnreachable (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14977-10915 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-6 arg-7)))))))))
-(define CaseBuilder-Core-n--14302-10298-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14302-10298-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))
-(define CaseBuilder-Core-n--8152-4802-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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))) (CaseBuilder-Core-case--8190-4890 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8190-4993 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-1)))))(else (CaseBuilder-Core-n--8152-4801-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))
-(define CaseBuilder-Core-n--14889-10816-getArgs (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 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-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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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 ((CaseBuilder-Core-n--14889-10816-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) 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))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseBuilder-Core-n--10268-6623-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10268-6622-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) 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))) ((CaseBuilder-Core-n--10268-6623-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) eta-0))))))))))))))))))))))))
-(define CaseBuilder-Core-n--14812-10745-findRAlts (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 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13)))))))
-(define CaseBuilder-Core-n--12024-8171-dropAs (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 3))) e-2))(else arg-5)))))
-(define CaseBuilder-Core-n--14889-10899-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--14889-10898-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9)))
-(define CaseBuilder-Core-n--8152-4801-clauseTypeC-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 ))))))
-(define CaseBuilder-Core-n--13202-9383-altGroups (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6)))))))))))))))))))))))))
-(define CaseBuilder-Core-n--10268-6622-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (CaseBuilder-Core-n--10268-6622-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 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))) (CaseBuilder-Core-case--10295-7537 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6619-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6619-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 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10268-6620-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))) (CaseBuilder-Core-n--10268-6621-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 CaseBuilder-Core-n--10268-6620-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)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d 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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 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)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10293-7260 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11))))))))
-(define CaseBuilder-Core-n--10268-6621-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10294-7435 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12))))))))
-(define CaseBuilder-Core-n--10268-6619-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10292-6734 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 (Name-Core-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 ((CaseBuilder-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10292-6941 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14))))))))
+(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--8711-9168 'erased arg-1 arg-2 e-6 e-7 e-3 arg-4 'erased (TT-Core-sameVar 'erased arg-1 e-6))))))))))))
+(define CaseBuilder-Core-with--10547-7580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (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 ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) 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 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6753-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--10546-7404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) 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 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6752-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--10545-7080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (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 ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) 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 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6751-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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-11 e-5))))))))))))))
+(define CaseBuilder-Core-with--8739-5216 (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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5233 arg-2 arg-1 arg-0 e-5 e-7 e-6 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased 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)) (case (vector-ref sc1 0) ((1) (CaseBuilder-Core-case--8777-5299 arg-2 arg-1 arg-0 e-10 e-12 e-11 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (CaseBuilder-Core-case--8777-5363 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
+(define CaseBuilder-Core-case--15201-11289 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))))))))))
+(define CaseBuilder-Core-case--15292-11119 (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) (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)))))))
+(define CaseBuilder-Core-case--14856-10725 (lambda (arg-0 arg-1 arg-2 arg-3 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) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-2 arg-5)))) eta-0)))))))
+(define CaseBuilder-Core-case--14814-10688 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--14856-10725 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 e-2 _-0 (Prelude-C-61C-61_Eq__Int arg-10 e-2))))))))
+(define CaseBuilder-Core-case--14774-10655 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--14856-10725 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 e-4 e-6 _-1 (Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0)))))))))))))))))
+(define CaseBuilder-Core-case--14759-10620 (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 ((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) (lambda (eta-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-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (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-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--14856-10725 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 (Prelude-C-61C-61_Eq__Int e-10 e-13)) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a function name in pattern LHS") eta-0))))))))))
+(define CaseBuilder-Core-case--14281-10151 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) 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 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5)))))))))))))))))))
+(define CaseBuilder-Core-case--13481-9753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0)))))))
+(define CaseBuilder-Core-case--13470-9418 (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 ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0))))))))))))))
+(define CaseBuilder-Core-case--13255-9229 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))
+(define CaseBuilder-Core-case--13178-9148 (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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-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 ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))
+(define CaseBuilder-Core-case--13001-9079 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 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 ((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 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) 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 ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) 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 ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3)))))))))))))))))))))))))
+(define CaseBuilder-Core-case--13032-9011 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0))))))))
+(define CaseBuilder-Core-case--13001-8950 (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) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 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 ((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 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0))))))))))))))))
+(define CaseBuilder-Core-case--12893-8854 (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) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0)))))))
+(define CaseBuilder-Core-case--12321-8508 (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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
+(define CaseBuilder-Core-case--12321-8429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 arg-12 arg-11 arg-10 arg-9 arg-8) arg-15)) (else 1)))))
+(define CaseBuilder-Core-case--12321-8350 (lambda (arg-0 arg-1 arg-2 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) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 arg-11 arg-10 arg-9 arg-8) arg-13)) (else 1)))))
+(define CaseBuilder-Core-case--11907-8230 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 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))) ((CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-7 e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased eta-1)) arg-4)) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-case--11944-8131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (CaseBuilder-Core-n--11907-7984-sameTypeAs 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-15 arg-14 arg-13)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-case--10548-7683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (CaseBuilder-Core-n--10521-6751-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0)))))))
+(define CaseBuilder-Core-case--10546-7241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))
+(define CaseBuilder-Core-case--10682-6993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1))))))))
+(define CaseBuilder-Core-case--10545-6868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-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 (Context-Core-lookupTyExact arg-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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1)))))))))))))))))))))
+(define CaseBuilder-Core-case--10545-6783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))
+(define CaseBuilder-Core-case--10308-6710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6))))))))
+(define CaseBuilder-Core-case--10331-6654 (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) (vector 6 arg-8 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-8 e-2)))))))
+(define CaseBuilder-Core-case--10331-6584 (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 0 arg-9 arg-8 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))))))))
+(define CaseBuilder-Core-case--10184-6505 (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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 4))) (vector 0 e-2 e-3 arg-4 e-6)))))))
+(define CaseBuilder-Core-case--9708-6259 (lambda (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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (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-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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 ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) 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-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 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-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 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-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 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 0 (vector 0 ) (vector 1 e-5))))))))))))))))))
+(define CaseBuilder-Core-case--9774-6139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((2) (vector 2 )) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-3))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-weakenNs_Weaken__Term arg-2 (vector 1 arg-10 arg-13) e-5))))))))
+(define CaseBuilder-Core-case--9708-6078 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((argTy (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--9774-6139 arg-0 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 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Prelude-C-43C-43 'erased e-2 arg-2) e-3)))))))))))
+(define CaseBuilder-Core-case--9320-5914 (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) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 ))))))))
+(define CaseBuilder-Core-case--9353-5769 (lambda (arg-0 arg-1 arg-2 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 ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 )))))))(else (vector 3 ))))))
+(define CaseBuilder-Core-case--9320-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--9353-5769 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10)))))))))
+(define CaseBuilder-Core-case--8777-5363 (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 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 ))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (vector 0 ) (vector 1 arg-3 (vector 0 )) (vector 2 )))))))
+(define CaseBuilder-Core-case--8777-5299 (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 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4))) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4))))))
+(define CaseBuilder-Core-case--8777-5233 (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 (vector 1 arg-2 arg-1) arg-0 arg-3 (vector 1 arg-6 arg-5) arg-4)) (else (vector 1 (vector 1 arg-2 arg-1) arg-0 (List-Prelude-C-43C-43 'erased arg-5 arg-3) (vector 1 arg-6 (vector 0 )) (vector 0 (vector 1 arg-2 arg-1) arg-0 arg-3 arg-5 arg-4)))))))
+(define CaseBuilder-Core-case--8434-5111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15))))))
+(define CaseBuilder-Core-case--8434-5008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector 0 ))))))
+(define CaseBuilder-Core-case--7372-3997 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 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 (vector 1 e-2 e-5)))))))))))))
+(define CaseBuilder-Core-case--7146-3844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-16 arg-20))))))))
+(define CaseBuilder-Core-case--7016-3769 (lambda (arg-0 arg-1 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) (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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 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 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) 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 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) 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))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
+(define CaseBuilder-Core-case--7016-3691 (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-10 (TT-Core-substName arg-1 arg-6 arg-5 arg-9)))))))))
+(define CaseBuilder-Core-case--6996-3656 (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))) (lambda (eta-0) (vector 1 (vector 0 (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 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref 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 ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-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) ((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 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 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 ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) 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))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (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 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))
+(define CaseBuilder-Core-case--6863-3581 (lambda (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-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 1 arg-11))))))))
+(define CaseBuilder-Core-case--6617-3523 (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) (lambda (eta-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 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 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 (vector 1 (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 (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3))))))))
+(define CaseBuilder-Core-case--6665-3428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 arg-15))))))))
+(define CaseBuilder-Core-case--6617-3345 (lambda (arg-0 arg-1 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) ((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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-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 ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-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 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) 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 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) 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))) (vector 1 (vector 1 (let ((sc6 arg-11)) (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-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10))))))))
+(define CaseBuilder-Core-n--13490-9851-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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) 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))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) 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 ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13490-9851-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 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 e-6 e-4 e-5))))))))))))))))))))))))))
+(define CaseBuilder-Core-n--10308-6574-update (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))) (CaseBuilder-Core-case--10331-6584 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-2 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased 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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--10331-6654 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-5)))))(else arg-7)))))
+(define CaseBuilder-Core-n--10287-6535-update (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 e-5 e-2))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define CaseBuilder-Core-n--15201-11104-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (vector 0 (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15201-11103-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-7))))))))))))
+(define CaseBuilder-Core-n--7557-4158-showAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-14)) (let ((e-6 (vector-ref sc4 4))) e-6))) "]"))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Prelude-C-43C-43 " [" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-3 (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6))) (Strings-Prelude-C-43C-43 "]" (Strings-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
+(define CaseBuilder-Core-n--11907-7984-sameTypeAs (lambda (arg-0 arg-1 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) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (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 ((Normalise-Core-nf arg-2 e-7 arg-5 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))) ((CaseBuilder-Core-case--11944-8131 'erased 'erased 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 (CaseBuilder-Core-n--11907-7983-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0)))))))
+(define CaseBuilder-Core-n--12295-8323-samePatAs (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) 0)(else (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))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((2) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((e-26 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (CaseBuilder-Core-case--12321-8350 'erased 'erased 'erased arg-3 arg-4 e-24 e-26 e-27 e-3 e-2 e-1 e-0 e-25 e-23 (Name-Core-C-61C-61_Eq__Name e-1 e-25)))))))(else 1))))))(else 1)))))))) ((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 ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (let ((e-35 (vector-ref sc2 5))) (CaseBuilder-Core-case--12321-8429 'erased 'erased 'erased arg-3 arg-4 e-31 e-34 e-35 e-8 e-7 e-6 e-5 e-4 e-33 e-32 e-30 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Prelude-C-61C-61_Eq__Int e-6 e-33))))))))))(else 1))))))(else 1))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((3) (let ((e-39 (vector-ref sc2 1))) (let ((e-40 (vector-ref sc2 2))) (CaseBuilder-Core-case--12321-8508 'erased 'erased 'erased arg-3 arg-4 e-39 e-10 e-9 e-40 e-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40)))))(else 1))))))(else 1)))))) ((4) (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-6)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (let ((e-43 (vector-ref sc1 2))) (let ((sc2 e-42)) (case (vector-ref sc2 0) ((4) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 4 e-11 e-12 e-13 e-14) e-43))(else 1))))))(else 1)))))))) ((5) (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 ((sc1 arg-6)) (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) ((5) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 5 e-15 e-16 e-17 e-18) e-50))(else 1))))))(else 1)))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-56)) (case (vector-ref sc2 0) ((6) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 6 e-19 e-20) e-57))(else 1))))))(else 1))))))(else 1))))))))
+(define CaseBuilder-Core-n--15201-11102-mkSubstEnv (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) (vector 0 )) (else (let ((e-5 (vector-ref sc0 2))) (vector 1 (vector 1 arg-4 (vector 0 ) (vector 2 arg-8 arg-7)) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5))))))))
+(define CaseBuilder-Core-n--14600-10478-mkPatClausesFrom (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) 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 ((act-25 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define CaseBuilder-Core-n--14266-10072-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)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (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 (Context-Core-clearDefs e-5 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 ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (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-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (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 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (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 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased 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 ((CaseBuilder-Core-n--14266-10072-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 'erased 'erased e-7)) 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))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10))))))))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-n--15201-11101-labelPat (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "pat" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15201-11101-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3)))))))))
+(define CaseBuilder-Core-n--11907-7983-headEq (lambda (arg-0 arg-1 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) ((3) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-23 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-5 e-23)))(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-11 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-11 e-29)))(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-16 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-34 e-41))(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 CaseBuilder-Core-n--15201-11100-getUnreachable (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--15292-11119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-6 arg-7)))))))))
+(define CaseBuilder-Core-n--14600-10479-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)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 "arg" arg-8) (CaseBuilder-Core-n--14600-10479-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))
+(define CaseBuilder-Core-n--8396-4920-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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))) (CaseBuilder-Core-case--8434-5008 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-6)) (lambda () ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Prelude-C-43C-43 'erased arg-11 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased 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))) (CaseBuilder-Core-case--8434-5111 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-1)))))(else (CaseBuilder-Core-n--8396-4919-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))
+(define CaseBuilder-Core-n--15201-11016-getArgs (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 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-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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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 ((CaseBuilder-Core-n--15201-11016-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) 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))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseBuilder-Core-n--10521-6755-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) 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))) ((CaseBuilder-Core-n--10521-6755-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) eta-0))))))))))))))))))))))))
+(define CaseBuilder-Core-n--15124-10945-findRAlts (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 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13)))))))
+(define CaseBuilder-Core-n--12295-8322-dropAs (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 3))) e-2))(else arg-5)))))
+(define CaseBuilder-Core-n--15201-11103-close (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (SubstEnv-TT-Core-substs arg-6 (vector 0 ) (CaseBuilder-Core-n--15201-11102-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased 0 arg-8 arg-7) arg-9)))
+(define CaseBuilder-Core-n--8396-4919-clauseTypeC-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 ))))))
+(define CaseBuilder-Core-n--13475-9539-altGroups (lambda (arg-0 arg-1 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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Prelude-C-43C-43 'erased e-6 arg-3) (List-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 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))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6)))))))))))))))))))))))))
+(define CaseBuilder-Core-n--10521-6754-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (CaseBuilder-Core-n--10521-6754-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 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))) (CaseBuilder-Core-case--10548-7683 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Prelude-C-61C-61_Eq__Nat e-6 (List-Data-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-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)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6751-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 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10521-6752-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))) (CaseBuilder-Core-n--10521-6753-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 CaseBuilder-Core-n--10521-6752-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)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d 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 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 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)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10546-7404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11))))))))
+(define CaseBuilder-Core-n--10521-6753-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10547-7580 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12))))))))
+(define CaseBuilder-Core-n--10521-6751-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--10545-6868 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 (Name-Core-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 ((CaseBuilder-Core-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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--10545-7080 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 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14))))))))
 (define CaseBuilder-Core-weaken_Weaken__ArgType (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 ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (vector 1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-4)))) (else (vector 2 ))))))
 (define CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 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 (CaseBuilder-Core-weaken_Weaken__ArgType arg-1 arg-2 e-6)))))))))
 (define CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased e-2 (List-Prelude-C-43C-43 'erased e-3 arg-1) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 e-3 arg-3)))))))))
 (define CaseBuilder-Core-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))) (Strings-Prelude-C-43C-43 "Known " (Strings-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-1) (Strings-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Stuck " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown")))))
 (define CaseBuilder-Core-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))) (Strings-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))))
-(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7323-4044-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]"))))
+(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (CaseBuilder-Core-n--7557-4158-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]"))))
 (define CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1 arg-2) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 arg-2)))
 (define CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3)))
 (define CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3)))
-(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3221) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3221)))) (lambda (vars) (lambda (ns) (lambda (arg-3225) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3225)))))))
+(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3267) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3267)))) (lambda (vars) (lambda (ns) (lambda (arg-3271) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3271)))))))
 (define CaseBuilder-Core-__Impl_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 d x))))))
 (define CaseBuilder-Core-__Impl_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x))))))
 (define CaseBuilder-Core-__Impl_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x))))))
 (define CaseBuilder-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weakenNs 'erased arg-1 arg-2 e-5)))))))))
 (define CaseBuilder-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weaken 'erased arg-1 arg-2 e-5)))))))))
-(define CaseBuilder-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13217-9685-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))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0))))))))
-(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6395-3252 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6395-3424 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6)))))))))))))))))
-(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (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 (CaseBuilder-Core-n--10055-6442-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5)))))))))
-(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10034-6403-update eta-0)) ext-0)))
-(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14455-10432 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2)))))))
+(define CaseBuilder-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13490-9851-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))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0))))))))
+(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--6617-3345 arg-0 arg-2 e-12 e-17 e-2 e-3 e-18 e-16 e-14 e-11 e-23 e-22 arg-3 (let ((sc4 e-22)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(else (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc4 e-8)) (let ((e-6 (vector-ref sc4 4))) e-6))))))))))))))(else (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc3 e-8)) (let ((e-6 (vector-ref sc3 4))) e-6)))))))))))))))(else (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((todo (vector 1 e-2 e-3))) (CaseBuilder-Core-case--6617-3523 arg-0 e-3 e-2 e-9 e-8 arg-4 arg-3 arg-2 todo (let ((sc2 e-8)) (let ((e-6 (vector-ref sc2 4))) e-6)))))))))))))))))
+(define CaseBuilder-Core-updatePatNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (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 (CaseBuilder-Core-n--10308-6574-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5)))))))))
+(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10287-6535-update eta-0)) ext-0)))
+(define CaseBuilder-Core-toPatClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--14759-10620 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2)))))))
 (define CaseBuilder-Core-tail (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-4 (vector-ref sc0 2))) e-4))))
 (define CaseBuilder-Core-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-25 ((CaseBuilder-Core-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4) 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))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))))
-(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--6768-3553 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)))))
+(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--6996-3656 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)))))
 (define CaseBuilder-Core-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))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CaseTree-Core-mkTerm arg-1 e-15) e-10) 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))) (vector 1 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5)))))))))))))))))))))))
-(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Builtin-fst 'erased 'erased c) 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 ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) (Builtin-snd 'erased 'erased c) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\xa;"))))))))))))))))) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-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 ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0))))))))))))))))
+(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-fst 'erased 'erased c) 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 ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) (Builtin-snd 'erased 'erased c) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Clause " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\xa;"))))))))))))))))) 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-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 ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0))))))))))))))))
 (define CaseBuilder-Core-shuffleVars (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))) (vector 0 e-2 (CaseBuilder-Core-moveFirst 'erased 'erased 'erased arg-3 'erased e-3) e-4 e-5))))))))
-(define CaseBuilder-Core-sameType (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) (vector 1 (vector 0 )))) (else (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-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))) ((CaseBuilder-Core-case--11640-8080 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0))))))))))))))
-(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12024-8172-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12024-8171-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12024-8171-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3)))))))))
-(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--12731-8799 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--12731-8927 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8)))))))))
-(define CaseBuilder-Core-patCompile (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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14302-10298-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14302-10297-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 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))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) 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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 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 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) 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))) (vector 1 (vector 0 ns e-8))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-sameType (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) (vector 1 (vector 0 )))) (else (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-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))) ((CaseBuilder-Core-case--11907-8230 'erased 'erased arg-2 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 (CaseBuilder-Core-getFirstArgType 'erased 'erased 'erased e-2)) eta-0))))))))))))))
+(define CaseBuilder-Core-samePat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-n--12295-8323-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12295-8322-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased eta-0))) e-3)))))))))
+(define CaseBuilder-Core-pickNext (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (CaseBuilder-Core-case--13001-8950 arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--13001-9079 arg-0 arg-1 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (CaseBuilder-Core-samePat 'erased 'erased 'erased arg-8)))))))))
+(define CaseBuilder-Core-patCompile (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) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14600-10479-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14600-10478-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 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))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Pattern clauses " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) 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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 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 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) 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))) (vector 1 (vector 0 ns e-8))))))))))))))))))))))))))))))
 (define PatInfo-CaseBuilder-Core-pat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 3))) e-4))))
-(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--8495-5098 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2))))))))
-(define CaseBuilder-Core-nextNames (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) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (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-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 (Context-Core-clearDefs 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))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 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 ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (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))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-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 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (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 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9521-6007 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4))))))))))))))))))))))))))))))))))))))))))
+(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--8739-5216 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2))))))))
+(define CaseBuilder-Core-nextNames (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) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (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-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 (Context-Core-clearDefs 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))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 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 ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (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 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (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))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-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 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 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 ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (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 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) 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 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--9774-6139 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Prelude-C-43C-43 'erased e-10 arg-0) e-4))))))))))))))))))))))))))))))))))))))))))
 (define CaseBuilder-Core-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 (b+ 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 CaseBuilder-Core-newPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (vector 1 (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))))) (CaseBuilder-Core-newPats 'erased 'erased 'erased e-3 e-12 e-17))))))))))))))
-(define CaseBuilder-Core-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))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-21 arg-0)))(else 0)))))
-(define CaseBuilder-Core-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))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 ))))))
+(define CaseBuilder-Core-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))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn arg-0 eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-14) (lambda () (CaseBuilder-Core-namesIn arg-0 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Prelude-C-38C-38 (CaseBuilder-Core-namesIn arg-0 e-18) (lambda () (CaseBuilder-Core-namesIn arg-0 e-19)))))) ((6) (let ((e-21 (vector-ref sc0 2))) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-21 arg-0)))(else 0)))))
+(define CaseBuilder-Core-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))) (vector 1 e-1 (CaseBuilder-Core-namesFrom e-2))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-7))) ((2) (let ((e-11 (vector-ref sc0 4))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-namesFrom eta-0))) e-11))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-14) (CaseBuilder-Core-namesFrom e-15))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 ))))))
 (define CaseBuilder-Core-moveFirst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 1 (CaseBuilder-Core-getPat 'erased 'erased 'erased arg-3 'erased arg-5) (CaseBuilder-Core-dropPat 'erased 'erased 'erased arg-3 'erased arg-5))))
-(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--13975-9900-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 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))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2)))))))
+(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--14266-10072-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 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))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2)))))))
 (define CaseBuilder-Core-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)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-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 ((CaseBuilder-Core-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))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))))) ((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)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-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 (CaseBuilder-Core-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 (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))))))(else (let ((sc0 arg-5)) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))
 (define CaseBuilder-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (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 ((CaseBuilder-Core-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getNPs 'erased 'erased 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((clausesC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-1)) arg-7))) (let ((ps (CaseBuilder-Core-partition e-4 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-0 arg-6 clausesC-39))) (let ((act-25 ((CaseBuilder-Core-mixture e-4 arg-0 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-2 arg-3 clausesC-39 arg-4 arg-5 arg-6 ps arg-8) 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))))))))))))))) (else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8)) (else (let ((e-6 (vector-ref sc1 1))) (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)) (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) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))))))))))))))
-(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10268-6623-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 (vector 0 ) arg-8)))
+(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10521-6755-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 (vector 0 ) arg-8)))
 (define CaseBuilder-Core-getScore (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-sameType 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-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 (err) (let ((sc0 err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0)))
 (define CaseBuilder-Core-getPatInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-7 (vector-ref sc1 3))) e-7)) (CaseBuilder-Core-getPatInfo 'erased 'erased e-5)))))))))
 (define CaseBuilder-Core-getPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) e-4)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 2))) (CaseBuilder-Core-getPat 'erased 'erased 'erased e-0 'erased e-10)))))))))
-(define CaseBuilder-Core-getPMDef (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) (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--14889-10816-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 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))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(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 ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--14889-10900-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--14889-10897-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--14889-10896-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5)))))))))))))))))))))))))
+(define CaseBuilder-Core-getPMDef (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) (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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseBuilder-Core-n--15201-11016-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 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))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(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 ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15201-11104-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15201-11101-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs 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 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15201-11100-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5)))))))))))))))))))))))))
 (define CaseBuilder-Core-getNPs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
 (define CaseBuilder-Core-getFirstPat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5))))))
 (define CaseBuilder-Core-getFirstArgType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6))))))
-(define CaseBuilder-Core-findReached (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 ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--14812-10745-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 ))))))
+(define CaseBuilder-Core-findReached (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 ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15124-10945-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 ))))))
 (define CaseBuilder-Core-dropPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 2))) e-5)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (CaseBuilder-Core-dropPat 'erased 'erased 'erased e-0 'erased e-10)))))))))))
 (define CaseBuilder-Core-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)) (case (vector-ref sc0 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-1)) arg-8) 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))) (let ((act-25 ((CaseBuilder-Core-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) 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-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-6 (vector 4 )) 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-11 (vector-ref sc6 1))) (CaseBuilder-Core-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 'erased e-11 e-10 arg-9 eta-0))))))))))))))))))))))))))))))))
-(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (CaseBuilder-Core-n--8152-4802-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17))))))))))))))))
-(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 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)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (CaseBuilder-Core-case--9074-5573 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (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))) (CaseBuilder-Core-case--9074-5792 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 ))))))
-(define CaseBuilder-Core-caseGroups (lambda (arg-0 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 ((CaseBuilder-Core-n--13202-9383-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased 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-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5)))))))))
+(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (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))) (CaseBuilder-Core-n--8396-4920-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17))))))))))))))))
+(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 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)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (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))) (CaseBuilder-Core-case--9320-5695 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (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)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (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))) (CaseBuilder-Core-case--9320-5914 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 ))))))
+(define CaseBuilder-Core-caseGroups (lambda (arg-0 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 ((CaseBuilder-Core-n--13475-9539-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased 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-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5)))))))))
 (define PatInfo-CaseBuilder-Core-argType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-6 (vector-ref sc0 4))) e-6))))
 (define CaseBuilder-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-5 arg-4)))))))))
 (define LengthMatch-Data-checkLengthMatch (lambda (arg-0 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) (vector 1 (vector 0 ))) (else (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (LengthMatch-Data-checkLengthMatch 'erased 'erased e-3 e-11) (lambda (bind-0) (vector 1 (vector 1 bind-0))))))))))))))
 (define ProcessRunElab-TTImp-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 ((Context-Core-resolveName arg-1 (vector 1 "[elaborator script]")) 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 ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-7 e-5 (Reflect-Core-builtin "Unit") 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 (Reflect-Core-appCon arg-0 arg-7 e-5 n (vector 1 e-7 (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 ((act-28 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-6 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-6 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 (let ((act-29 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 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))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-10 (vector 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--9967-7571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) 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))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--9905-7387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (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 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) 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 ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (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 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (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))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-29)))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--8245-7343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-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 ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) 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 ((act-26 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 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 ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (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))) (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))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0)))))))
-(define ProcessRecord-TTImp-case--8629-7159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
-(define ProcessRecord-TTImp-case--8629-6997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 ))))))
-(define ProcessRecord-TTImp-case--8629-6833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27)))))))
-(define ProcessRecord-TTImp-case--8629-6651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25)))))
-(define ProcessRecord-TTImp-case--8629-6320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ProcessRecord-TTImp-case--8271-6242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (ProcessRecord-TTImp-n--8245-5915-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8629-6320 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 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 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-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 ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) 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 ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) (ProcessRecord-TTImp-n--8245-5911-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 (ProcessRecord-TTImp-n--8245-5908-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-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8245-5912-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) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8629-7159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) 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 ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8629-6997 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8245-5914-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 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8629-6833 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) 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 ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8629-6651 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-650 arg-651)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessRecord-TTImp-case--8268-6035 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))))
-(define ProcessRecord-TTImp-n--8245-5912-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) (ProcessRecord-TTImp-n--8268-5994-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) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2))))
-(define ProcessRecord-TTImp-n--8245-5908-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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8264-5916-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 ProcessRecord-TTImp-n--8245-5911-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)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8245-5911-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 ProcessRecord-TTImp-n--8264-5916-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
-(define ProcessRecord-TTImp-n--8245-5909-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 ProcessRecord-TTImp-n--8245-5910-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-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 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4))))))))))
-(define ProcessRecord-TTImp-n--8245-5915-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 arg-20) (let ((sc0 arg-20)) (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 ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8271-6242 arg-0 arg-1 arg-2 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-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessRecord-TTImp-n--8245-5913-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 ((conty (ProcessRecord-TTImp-n--8245-5911-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 (ProcessRecord-TTImp-n--8245-5908-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) (ProcessRecord-TTImp-n--8245-5911-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8245-5910-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) (ProcessRecord-TTImp-n--8245-5912-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 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) 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 ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8245-5909-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)) (ProcessRecord-TTImp-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 ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0)))))))))))))))))))))
-(define ProcessRecord-TTImp-n--8245-5914-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-14 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-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8245-5914-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 'erased e-4)))(else (ProcessRecord-TTImp-n--8245-5914-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 'erased e-4))))))(else 0))))))(else 0)))))
-(define ProcessRecord-TTImp-n--8268-5994-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8268-5994-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 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8268-5994-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 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3)))))))))))))))))
+(define ProcessRecord-TTImp-case--10280-7842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 0 e-0 e-1 arg-21 (vector 1 arg-24 arg-22) 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))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--10217-7652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (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 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) arg-17) 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 ((act-27 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) arg-17) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (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 (set-box! arg-13 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 5))) (let ((e-30 (vector-ref sc6 6))) (let ((e-29 (vector-ref sc6 7))) (let ((e-28 (vector-ref sc6 8))) (let ((e-27 (vector-ref sc6 9))) (let ((e-26 (vector-ref sc6 10))) (let ((e-10 (vector-ref sc6 11))) (let ((e-11 (vector-ref sc6 12))) (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))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-29)))))))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--8542-7607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 (Context-Core-isUndottedRecordProjections arg-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 ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) e-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 ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((cns (let ((sc3 arg-16)) (let ((e-27 (vector-ref sc3 3))) e-27)))) (let ((nns (let ((sc3 arg-16)) (let ((e-3 (vector-ref sc3 4))) e-3)))) (let ((act-25 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) 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 ((act-26 (Context-Core-getNS arg-13 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 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 5 eta-1)) (vector 0 ) 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 ((act-28 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) arg-14 0 (vector 0 ) (lambda (eta-1) (vector 1 eta-1)) (vector 0 ) e-1) eta-0)) (else (vector 1 (vector 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 ((act-29 (unbox arg-13))) (vector 1 act-29)))) (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 (set-box! arg-13 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-33 (vector-ref sc8 2))) (let ((e-4 (vector-ref sc8 5))) (let ((e-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (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))) (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))) (vector 0 e-0 e-33 cns (vector 1 e-7 nns) e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))) (vector 1 act-30)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0)))))))
+(define ProcessRecord-TTImp-case--8929-7419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
+(define ProcessRecord-TTImp-case--8929-7257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 1 (vector 16 arg-9 arg-27) (vector 0 ))) (else (vector 0 ))))))
+(define ProcessRecord-TTImp-case--8929-7093 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) arg-36) (else (vector 9 arg-9 arg-36 (vector 1 (vector 1 arg-27)) (vector 16 arg-9 arg-27)))))))
+(define ProcessRecord-TTImp-case--8929-6911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-42)) (cond ((equal? sc0 0) (+ 1 arg-25)) (else arg-25)))))
+(define ProcessRecord-TTImp-case--8929-6572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ProcessRecord-TTImp-case--8568-6494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (ProcessRecord-TTImp-n--8542-6164-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-15 arg-6))))) arg-24 arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (arg-23 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 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-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 ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) 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 ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) (ProcessRecord-TTImp-n--8542-6160-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 (ProcessRecord-TTImp-n--8542-6157-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-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 rname) (ProcessRecord-TTImp-n--8542-6161-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) 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 ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--8929-7419 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) 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 ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--8929-7257 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8542-6163-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 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--8929-7093 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Projection " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) 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 ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 1 arg-15 arg-14) arg-26 (ProcessRecord-TTImp-case--8929-6911 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 e-10 lhs_exp lhs rhs e-11 e-12 updsC-39 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-430 arg-431)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessRecord-TTImp-case--8565-6284 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))))
+(define ProcessRecord-TTImp-n--8542-6161-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) (ProcessRecord-TTImp-n--8565-6243-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) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 (vector 0 arg-9 e-2) e-10)))))))))) arg-2))))
+(define ProcessRecord-TTImp-n--8542-6157-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) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8561-6165-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 ProcessRecord-TTImp-n--8542-6160-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)) (case (vector-ref sc0 0) ((0) arg-15) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-9 e-10 e-14 e-6 e-15 (ProcessRecord-TTImp-n--8542-6160-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 ProcessRecord-TTImp-n--8561-6165-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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
+(define ProcessRecord-TTImp-n--8542-6158-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 ProcessRecord-TTImp-n--8542-6159-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-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 (vector 1 e-3) (vector 0 e-1 (vector 0 e-2 e-4))))))))))
+(define ProcessRecord-TTImp-n--8542-6164-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 arg-20) (let ((sc0 arg-20)) (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 ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--8568-6494 arg-0 arg-1 arg-2 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-2 e-4 e-8 e-7 e-6 b e-1 arg-19 arg-18 arg-17 arg-16 arg-15 (Prelude-C-124C-124 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessRecord-TTImp-n--8542-6162-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 ((conty (ProcessRecord-TTImp-n--8542-6160-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 (ProcessRecord-TTImp-n--8542-6157-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) (ProcessRecord-TTImp-n--8542-6160-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8542-6159-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) (ProcessRecord-TTImp-n--8542-6161-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 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) 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 ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8542-6158-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)) (ProcessRecord-TTImp-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 ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData 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 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0)))))))))))))))))))))
+(define ProcessRecord-TTImp-n--8542-6163-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-14 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-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8542-6163-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 'erased e-4)))(else (ProcessRecord-TTImp-n--8542-6163-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 'erased e-4))))))(else 0))))))(else 0)))))
+(define ProcessRecord-TTImp-n--8565-6243-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)) (case (vector-ref sc0 0) ((0) arg-14) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (ProcessRecord-TTImp-n--8565-6243-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 (TTImp-TTImp-getFC arg-14) arg-14 e-10) e-3))(else (ProcessRecord-TTImp-n--8565-6243-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 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3)))))))))))))))))
 (define ProcessRecord-TTImp-projVis (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (vector 2 ))(else (vector 0 ))))))
 (define ProcessRecord-TTImp-processRecord (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-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) (ProcessRecord-TTImp-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 eta-0))))))))))
 (define ProcessRecord-TTImp-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-0 e-10 e-14 (vector 1 e-6) e-15 (ProcessRecord-TTImp-mkDataTy arg-0 e-3))))))))))))))))))
-(define ProcessRecord-TTImp-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 ((Context-Core-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 ((ProcessRecord-TTImp-n--8245-5913-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 (Context-Core-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 ((act-28 (Context-Core-isUndottedRecordProjections 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 ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) 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 ((act-30 (Context-Core-getNS arg-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8245-5915-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0)))))))))))))))))))))))))
-(define ProcessParams-TTImp-case--8965-6116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-16)))
-(define ProcessParams-TTImp-case--8860-6027 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" 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 ((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 ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--8860-5933-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) 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 ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))
-(define ProcessParams-TTImp-n--8860-5932-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)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--8860-5932-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))
-(define ProcessParams-TTImp-n--8860-5933-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 ((Context-Core-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 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10))))))))))))))
-(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--8860-5932-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 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased 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))) ((ProcessParams-TTImp-case--8860-6027 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0))))))))))))))))))))
+(define ProcessRecord-TTImp-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 ((Context-Core-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 ((ProcessRecord-TTImp-n--8542-6162-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 (Context-Core-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 ((act-28 (Context-Core-isUndottedRecordProjections 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 ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-29 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (let ((e-2 (vector-ref sc6 1))) (let ((cns (let ((sc7 e-7)) (let ((e-31 (vector-ref sc7 3))) e-31)))) (let ((nns (let ((sc7 e-7)) (let ((e-3 (vector-ref sc7 4))) e-3)))) (let ((act-29 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) 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 ((act-30 (Context-Core-getNS arg-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 ((e-11 (vector-ref sc8 1))) (let ((act-31 ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 5 eta-0)) (vector 0 ) e-1) 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 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--8542-6164-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 (vector 0 ) e-5 0 (vector 0 ) (lambda (eta-0) (vector 1 eta-0)) (vector 0 ) e-1) ext-0)) (else (vector 1 (vector 0 ))))))) (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 (let ((act-33 (unbox arg-1))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 (set-box! arg-1 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-4 (vector-ref sc12 5))) (let ((e-35 (vector-ref sc12 6))) (let ((e-34 (vector-ref sc12 7))) (let ((e-33 (vector-ref sc12 8))) (let ((e-32 (vector-ref sc12 9))) (let ((e-31 (vector-ref sc12 10))) (let ((e-30 (vector-ref sc12 11))) (let ((e-29 (vector-ref sc12 12))) (let ((e-28 (vector-ref sc12 13))) (let ((e-27 (vector-ref sc12 14))) (let ((e-26 (vector-ref sc12 15))) (let ((e-15 (vector-ref sc12 16))) (let ((e-16 (vector-ref sc12 17))) (let ((e-17 (vector-ref sc12 18))) (let ((e-18 (vector-ref sc12 19))) (let ((e-19 (vector-ref sc12 20))) (let ((e-20 (vector-ref sc12 21))) (let ((e-21 (vector-ref sc12 22))) (let ((e-22 (vector-ref sc12 23))) (let ((e-23 (vector-ref sc12 24))) (let ((e-24 (vector-ref sc12 25))) (let ((e-25 (vector-ref sc12 26))) (vector 0 e-0 e-37 cns (vector 1 e-11 nns) e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-34))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Adding " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0)))))))))))))))))))))))))
+(define ProcessParams-TTImp-case--9276-6371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased arg-20 arg-16)))
+(define ProcessParams-TTImp-case--9168-6279 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" 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 ((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 ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9168-6182-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) 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 ((nestBlock (List-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))
+(define ProcessParams-TTImp-n--9168-6181-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)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9168-6181-mkParamTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3))))))))))))
+(define ProcessParams-TTImp-n--9168-6182-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 ((Context-Core-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 (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10))))))))))))))
+(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9168-6181-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 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Checking " (TTImp-TTImp-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 ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased 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))) ((ProcessParams-TTImp-case--9168-6279 arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 pty_raw e-5 e-6 e-7 (ProcessParams-TTImp-extend 'erased arg-0 arg-5 (vector 0 ) arg-4 e-7)) eta-0))))))))))))))))))))
 (define ProcessParams-TTImp-extend (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-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))) (ProcessParams-TTImp-extend 'erased (vector 1 e-2 arg-1) (vector 1 (vector 2 e-6 e-7 e-8) arg-2) (vector 1 arg-3) (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-1 arg-4) e-4)))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4))))))))))(else (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 arg-4))))))))
-(define ProcessData-TTImp-case--10614-9684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-21 eta-0)))))))))))
-(define ProcessData-TTImp-case--11160-9473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-31))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))
-(define ProcessData-TTImp-case--11040-9396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) 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))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) 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 ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
-(define ProcessData-TTImp-case--10614-9299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11040-9396 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
-(define ProcessData-TTImp-case--10614-9003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5)))))
-(define ProcessData-TTImp-case--10071-8898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11040-9396 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) 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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-7 arg-17 arg-8 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 (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) 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 ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty 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 ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--10614-9003 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-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 ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) 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 ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-13))) (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 ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) 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 ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) 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 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-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 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) 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 ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-42 (Context-Core-addToSave arg-13 arg-14 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 ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-case--10180-8671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-19 eta-0)))))))))))
-(define ProcessData-TTImp-case--10111-8497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) 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 ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) 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 ((act-29 (let ((act-29 (unbox arg-11))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 (Context-Core-addToSave arg-11 arg-12 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty 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 ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-case--10071-8441 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-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 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 (Context-Core-addMutData arg-11 (vector 9 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 ((act-30 (let ((act-30 (unbox arg-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 (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) 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 ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 ((act-33 (Context-Core-addToSave arg-11 arg-12 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 ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-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-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-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 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0)))))))
-(define ProcessData-TTImp-case--10003-8362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 ))))))
-(define ProcessData-TTImp-case--9971-8349 (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))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-case--9826-8219 (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-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))
-(define ProcessData-TTImp-case--9249-8154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4))))))))
-(define ProcessData-TTImp-case--9276-8100 (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 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
-(define ProcessData-TTImp-case--9275-8053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-case--9274-8000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-case--9273-7874 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
-(define ProcessData-TTImp-case--9273-7772 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
-(define ProcessData-TTImp-case--9272-7719 (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 0))) (else (ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
-(define ProcessData-TTImp-case--8821-7419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-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 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-case--8747-7267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Context-Core-resolveName arg-12 arg-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) 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 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 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))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 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 ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-28 (Context-Core-addToSave arg-12 arg-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 ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) 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 ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0))))))(else (vector 1 (vector 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 ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 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 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0)))))))
-(define ProcessData-TTImp-case--8705-7172 (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 ProcessData-TTImp-case--8541-7078 (lambda (arg-0 arg-1 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 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-case--8525-7027 (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) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) 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 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8541-7078 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-case--8467-6975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0)))))))
-(define ProcessData-TTImp-n--8694-7163-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))) (ProcessData-TTImp-case--8705-7172 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-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 (ProcessData-TTImp-n--8694-7163-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--8694-7163-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
-(define ProcessData-TTImp-n--9177-7593-getRetType (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-n--9177-7593-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
-(define ProcessData-TTImp-n--9177-7594-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-n--9249-7687-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) 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))) (let ((act-25 ((ProcessData-TTImp-n--9249-7686-allDisjoint arg-0 arg-1 arg-2 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5))))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7683-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7684-disjoint arg-0 arg-1 arg-2 e-1 e-4) 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9249-7683-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7684-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))) (ProcessData-TTImp-case--9273-7772 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 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(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))) (ProcessData-TTImp-case--9273-7874 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 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define ProcessData-TTImp-n--9249-7685-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7684-disjoint arg-0 arg-1 arg-2 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1)))))))))))))))))))))
-(define ProcessData-TTImp-n--9249-7686-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9249-7686-allDisjoint arg-0 arg-1 arg-2 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9249-7685-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))
-(define ProcessData-TTImp-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 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--8694-7163-updateNSApp arg-2 arg-1 arg-0 arg-2))))))
+(define ProcessData-TTImp-case--10987-9888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0)))))))))))
+(define ProcessData-TTImp-case--11556-9673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-31))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))
+(define ProcessData-TTImp-case--11436-9595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) 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))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) 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 ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
+(define ProcessData-TTImp-case--10987-9498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))))))))
+(define ProcessData-TTImp-case--10987-9186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (vector 0 )) (else arg-5)))))
+(define ProcessData-TTImp-case--10418-9074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--11436-9595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) 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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-7 arg-17 arg-8 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 (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) 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 ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty 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 ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--10987-9186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 9 e-10) eta-1)) arg-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 ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) 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 ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 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 (let ((act-34 (unbox arg-13))) (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 ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) 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 ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 9 e-10) eta-1)) arg-1) 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 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-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 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) 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 ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-42 (Context-Core-addToSave arg-13 arg-14 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 ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) arg-1)))) (cond ((equal? sc21 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-13 arg-6 (vector 9 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 9 e-10) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-case--10533-8840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-19 eta-0)))))))))))
+(define ProcessData-TTImp-case--10462-8653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) 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 ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 ((act-28 (Context-Core-addMutData arg-11 (vector 9 e-8) 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 ((act-29 (let ((act-29 (unbox arg-11))) (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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 (Context-Core-addToSave arg-11 arg-12 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 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) 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 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty 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 ((sc12 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc12 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-case--10418-8595 (lambda (arg-0 arg-1 arg-2 arg-3 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty 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 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-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 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty 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 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) 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 (Context-Core-addMutData arg-11 (vector 9 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 ((act-30 (let ((act-30 (unbox arg-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 (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) 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 ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) 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 ((act-33 (Context-Core-addToSave arg-11 arg-12 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 ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-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-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-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 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-3 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-11 arg-4 arg-12 arg-3 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0)))))))
+(define ProcessData-TTImp-case--10349-8512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 5 e-0 e-1 (vector 1 arg-3))))))(else (vector 0 ))))))
+(define ProcessData-TTImp-case--10314-8498 (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))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-case--10165-8362 (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-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 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))) ((ProcessData-TTImp-getRelevantArg arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))
+(define ProcessData-TTImp-case--9575-8296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4))))))))
+(define ProcessData-TTImp-case--9602-8239 (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 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6)))))))
+(define ProcessData-TTImp-case--9601-8190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-case--9600-8136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-case--9599-8006 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
+(define ProcessData-TTImp-case--9599-7901 (lambda (arg-0 arg-1 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 0))) (else (lambda (eta-0) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-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))) ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
+(define ProcessData-TTImp-case--9598-7848 (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 0))) (else (ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
+(define ProcessData-TTImp-case--9131-7542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-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 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-case--9052-7379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((act-24 ((Context-Core-resolveName arg-12 arg-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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) 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 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 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))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 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 ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased 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 ((act-28 (Context-Core-addToSave arg-12 arg-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 ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) 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 ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 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 ((sc8 (TT-Core-C-47C-61_Eq__Visibility arg-5 (vector 0 )))) (cond ((equal? sc8 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-12 arg-2 arg-13 arg-5 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 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 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty 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 ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 arg-2 arg-13 e-13 fullty))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0)))))))
+(define ProcessData-TTImp-case--9010-7279 (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 ProcessData-TTImp-case--8846-7185 (lambda (arg-0 arg-1 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 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-case--8829-7134 (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) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) 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 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--8846-7185 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-5 e-6 e-7 e-4 nf (Name-Core-C-61C-61_Eq__Name arg-3 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-case--8770-7081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0)))))))
+(define ProcessData-TTImp-n--8999-7270-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))) (ProcessData-TTImp-case--9010-7279 arg-0 arg-1 arg-2 e-1 e-0 (Name-Core-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 (ProcessData-TTImp-n--8999-7270-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (ProcessData-TTImp-n--8999-7270-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
+(define ProcessData-TTImp-n--9499-7717-getRetType (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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-n--9499-7717-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))
+(define ProcessData-TTImp-n--9499-7718-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessData-TTImp-n--9575-7815-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) 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))) (let ((act-25 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 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 ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5))))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7811-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 e-1 e-4) 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9575-7811-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7812-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))) (ProcessData-TTImp-case--9599-7901 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 (Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(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))) (ProcessData-TTImp-case--9599-8006 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 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))
+(define ProcessData-TTImp-n--9575-7813-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7812-disjoint arg-0 arg-1 arg-2 arg-3 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1)))))))))))))))))))))
+(define ProcessData-TTImp-n--9575-7814-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9575-7814-allDisjoint arg-0 arg-1 arg-2 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))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9575-7813-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))
+(define ProcessData-TTImp-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 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--8999-7270-updateNSApp arg-2 arg-1 arg-0 arg-2))))))
 (define ProcessData-TTImp-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setDetermining arg-0 arg-1 arg-2 e-0 eta-0)))) ((2) (lambda (eta-0) (Context-Core-setUniqueSearch arg-0 arg-1 arg-2 0 eta-0))) ((3) (lambda (eta-0) (Context-Core-setExternal arg-0 arg-1 arg-2 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessData-TTImp-processData (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) 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 ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-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 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-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 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-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-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) 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-10 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) 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-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) 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-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-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 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11040-9396 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-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (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-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-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))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (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))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--10614-9003 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-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-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 ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-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 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-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 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-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 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-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 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-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 (Context-Core-addToSave arg-1 e-8 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-650 arg-651)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define ProcessData-TTImp-getRelevantArg (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 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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))
-(define ProcessData-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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 ((ProcessData-TTImp-n--9177-7593-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))) ((ProcessData-TTImp-n--9177-7594-getPats arg-1 arg-0 e-5 e-7) ext-0))))))))))))))))))
-(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) 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 ((act-25 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9249-7687-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))
+(define ProcessData-TTImp-processData (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 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 (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 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) 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 ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-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 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-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 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 (let ((sc19 (TT-Core-C-47C-61_Eq__Visibility arg-8 (vector 0 )))) (cond ((equal? sc19 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 arg-7 e-5 arg-8 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-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-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) 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-10 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) 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-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) 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-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-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 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--11436-9595 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-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-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 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (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-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-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))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-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))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-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 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-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 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (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))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--10987-9186 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-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 9 e-19) eta-1)) e-7) eta-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 ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-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 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " defined in a mutual block with " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-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 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 9 e-19) eta-1)) e-6) eta-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 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-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 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-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 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-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 (Context-Core-addToSave arg-1 e-8 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-430 arg-431)))) (vector 1 ) e-6)))) (cond ((equal? sc27 0) ((Core-Core-traverse_ 'erased 'erased (lambda (x) (lambda (eta-1) (Context-Core-addHintFor arg-1 arg-7 (vector 9 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 9 e-19) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define ProcessData-TTImp-getRelevantArg (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 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-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (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))) ((ProcessData-TTImp-getRelevantArg arg-0 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))
+(define ProcessData-TTImp-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 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 ((ProcessData-TTImp-n--9499-7717-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))) ((ProcessData-TTImp-n--9499-7718-getPats arg-1 arg-0 e-5 e-7) ext-0))))))))))))))))))
+(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) 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 ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9575-7815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))
 (define ProcessData-TTImp-findNewtype (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc3 e-1)) (let ((e-3 (vector-ref sc3 4))) e-3))) 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))) ((ProcessData-TTImp-getRelevantArg e-5 0 (vector 0 ) 0 e-6) 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (Context-Core-updateDef arg-0 (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 2))) e-8)) (lambda (d) (let ((sc5 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 ))))) eta-0))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define ProcessData-TTImp-conName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ProcessData-TTImp-checkRetType (lambda (arg-0 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) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) 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))) ((ProcessData-TTImp-checkRetType 'erased arg-1 arg-2 e-9 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3))))))
 (define ProcessData-TTImp-checkIsType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-4 arg-5 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-2 arg-3) eta-0)))))))))
-(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (ProcessData-TTImp-case--8541-7078 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0)))))))))
-(define ProcessData-TTImp-checkCon (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-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 ((Context-Core-inCurrentNS arg-1 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))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) 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 ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) 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 ((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 ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) 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 ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) 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 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) 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 ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) 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 ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Name arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Name arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7066 arg-7067)))) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0)))))))))))))))))))))))))))))))))))
-(define Parser-TTImp-case--6260-11486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3)))))))
-(define Parser-TTImp-case--10135-11439 (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 Parser-TTImp-case--10167-11392 (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))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3))))))
-(define Parser-TTImp-case--10134-11327 (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) (vector 0 (vector 0 ) (vector 1 arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-TTImp-case--10167-11392 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6260-11293-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
-(define Parser-TTImp-case--9350-10703 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-5 e-7)))))))))))
-(define Parser-TTImp-case--9350-10661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
-(define Parser-TTImp-case--6914-8512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
-(define Parser-TTImp-n--6260-11293-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-case--10134-11327 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
-(define Parser-TTImp-n--8821-10128-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10146) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
-(define Parser-TTImp-n--6929-9710-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--6929-9710-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
-(define Parser-TTImp-n--6260-11294-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))) (Parser-TTImp-case--10135-11439 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-1))))))(else (vector 0 ))))))
-(define Parser-TTImp-n--8818-9881-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))) (Parser-TTImp-n--8818-9881-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--8818-9881-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application"))))))
-(define Parser-TTImp-n--9652-10761-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10787) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
-(define Parser-TTImp-n--6919-8877-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--6919-8877-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
-(define Parser-TTImp-n--6904-7817-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--6904-7817-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 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--6904-7817-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-12 e-13) e-3)))))))))))))))
-(define Parser-TTImp-n--8821-10127-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-TTImp-n--8821-10127-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))))
+(define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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))) (ProcessData-TTImp-case--8846-7185 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0)))))))))
+(define ProcessData-TTImp-checkCon (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-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 ((Context-Core-inCurrentNS arg-1 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))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Checking constructor type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) 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 ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Updated " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) 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 ((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 ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) 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 ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) 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))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) 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 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) 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 ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) 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 ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (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 (Context-Core-addToSave arg-1 e-5 eta-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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Saving from " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Name arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Name arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7328 arg-7329)))) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (let ((sc14 (TT-Core-C-47C-61_Eq__Visibility arg-7 (vector 0 )))) (cond ((equal? sc14 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-TTImp-checkRefVisibility arg-1 e-0 e-5 arg-7 (vector 0 ) eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "") fullty))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((act-37 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc15 1))) (vector 1 (vector 0 e-0 e-5 e-18 fullty)))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0)))))))))))))))))))))))))))))))))))
+(define Parser-TTImp-case--6501-12060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 2 arg-2 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3)))))))
+(define Parser-TTImp-case--10688-12013 (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 Parser-TTImp-case--10720-11966 (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))) (vector 0 (List-Prelude-C-43C-43 'erased arg-9 e-2) e-3))))))
+(define Parser-TTImp-case--10687-11901 (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) (vector 0 (vector 0 ) (vector 1 arg-6 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-TTImp-case--10720-11966 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6501-11867-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
+(define Parser-TTImp-case--9844-11233 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-5 e-7)))))))))))
+(define Parser-TTImp-case--9844-11191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
+(define Parser-TTImp-case--7196-8861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
+(define Parser-TTImp-n--6501-11867-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-case--10687-11901 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
+(define Parser-TTImp-n--9271-10617-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10637) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
+(define Parser-TTImp-n--7211-10168-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-2 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-4 (Parser-TTImp-n--7211-10168-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
+(define Parser-TTImp-n--6501-11868-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))) (Parser-TTImp-case--10688-12013 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-1 arg-4 (Name-Core-C-61C-61_Eq__Name arg-4 e-1))))))(else (vector 0 ))))))
+(define Parser-TTImp-n--9268-10352-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))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9268-10352-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application"))))))
+(define Parser-TTImp-n--10161-11291-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11321) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
+(define Parser-TTImp-n--7201-9258-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) (vector 1 e-10) e-11 (Parser-TTImp-n--7201-9258-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
+(define Parser-TTImp-n--7186-8120-applyExpImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Parser-TTImp-n--7186-8120-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 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Parser-TTImp-n--7186-8120-applyExpImp arg-0 arg-1 arg-2 arg-3 (vector 9 (vector 0 arg-1 arg-2 arg-3) arg-4 e-12 e-13) e-3)))))))))))))))
+(define Parser-TTImp-n--9271-10616-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-TTImp-n--9271-10616-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))))
 (define Parser-TTImp-visibility (lambda () (vector 9 0 1 (Parser-TTImp-visOption) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-TTImp-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7414) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7421) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7403) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7392) (vector 0 (vector 0 )))))))))))
+(define Parser-TTImp-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-7704) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7712) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7692) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7680) (vector 0 (vector 0 )))))))))))
 (define Parser-TTImp-visOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-TTImp-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-TTImp-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-TTImp-fnDirectOpt) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
-(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9754) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6929-9710-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
-(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9833) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9853) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty)))))))))))))))))))
-(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-7476) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7465) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7454) (vector 0 (vector 1 )))))))))))
+(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-10216) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7211-10168-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
+(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10302) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10325) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty)))))))))))))))))))
+(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-7770) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7758) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7746) (vector 0 (vector 1 )))))))))))
 (define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 7 1 (Parser-TTImp-dataDecl arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-namespaceDecl) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt)) (lambda (visOpts) (vector 8 1 0 (Parser-TTImp-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-TTImp-getRight 'erased 'erased eta-0)) visOpts))) (vector 7 1 (Parser-TTImp-tyDecl arg-0 arg-1) (lambda () (lambda (claim) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (vector 9 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-directive arg-0 arg-1) (lambda () (Parser-TTImp-definition arg-0 arg-1)))))))))))))
-(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8185) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8199) (vector 0 e))))))))))))))))))))))
-(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-9473) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9486) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
-(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-9320) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9328) (vector 8 1 0 (vector 5 ) (lambda (_-9336) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9355) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc)))))))))))))))))))))))))
-(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10618) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10639) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10511) (vector 8 1 0 (vector 5 ) (lambda (_-10519) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10556) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10594) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 ))))))))))))))))
-(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-10929) (vector 8 1 0 (vector 5 ) (lambda (_-10937) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10960) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-10967) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds)))))))))))))))))))))))))))))))))))))
+(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8514) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8530) (vector 0 e))))))))))))))))))))))
+(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-9912) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9927) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
+(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-9746) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9755) (vector 8 1 0 (vector 5 ) (lambda (_-9764) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9785) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc)))))))))))))))))))))))))
+(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-11145) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-11169) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11030) (vector 8 1 0 (vector 5 ) (lambda (_-11039) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-11078) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11120) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 ))))))))))))))))
+(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11476) (vector 8 1 0 (vector 5 ) (lambda (_-11485) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-11511) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-11519) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds)))))))))))))))))))))))))))))))))))))
 (define Parser-TTImp-prog (lambda (arg-0) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (Parser-TTImp-collectDefs ds)))))))
-(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8441) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8454) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8385) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty)))))))))))))))))))))
+(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8786) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8801) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8725) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty)))))))))))))))))))))
 (define Parser-TTImp-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-TTImp-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
 (define Parser-TTImp-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-TTImp-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
-(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10056) (vector 8 1 0 (vector 5 ) (lambda (_-10064) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10077) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-9964) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9979) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9993) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9920) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-9927) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--8818-9881-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4)))))))))))))))))))
-(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-11049) (vector 8 1 0 (vector 5 ) (lambda (_-11057) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
+(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10540) (vector 8 1 0 (vector 5 ) (lambda (_-10549) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10564) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-10440) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10457) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10473) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-10392) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10400) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9268-10352-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4)))))))))))))))))))
+(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-11604) (vector 8 1 0 (vector 5 ) (lambda (_-11613) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
 (define Parser-TTImp-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9048) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9076) (vector 8 1 0 (vector 5 ) (lambda (_-9084) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9097) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9104) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-8983) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8997) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9004) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope)))))))))))))))))))))))
-(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-9660) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-9622) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-9584) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-9546) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm))))))))))))))))))))
-(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-8910) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8924) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-8932) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6919-8877-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
-(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8755) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8769) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8777) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
-(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8010) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8059) (vector 8 1 0 (vector 5 ) (lambda (_-8067) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8081) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8030) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-7957) (vector 8 1 0 (vector 5 ) (lambda (_-7965) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-7979) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
+(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9445) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9478) (vector 8 1 0 (vector 5 ) (lambda (_-9487) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9502) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9510) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-9373) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9389) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9397) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope)))))))))))))))))))))))
+(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-10116) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-10074) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-10032) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-9990) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm))))))))))))))))))))
+(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-9294) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9310) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-9319) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7201-9258-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
+(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9125) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9141) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-9150) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
+(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8325) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8378) (vector 8 1 0 (vector 5 ) (lambda (_-8387) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8403) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8347) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-8267) (vector 8 1 0 (vector 5 ) (lambda (_-8276) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8292) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
 (define Parser-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
 (define Parser-TTImp-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-TTImp-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))
 (define Parser-TTImp-getRight (lambda (arg-0 arg-1 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 Parser-TTImp-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
-(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-8639) (vector 8 1 0 (vector 5 ) (lambda (_-8647) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-8683) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
+(define Parser-TTImp-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
+(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-9000) (vector 8 1 0 (vector 5 ) (lambda (_-9009) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-9049) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
 (define Parser-TTImp-fnOpt (lambda () (vector 7 1 (Parser-TTImp-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 7 x)))))))
-(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7595) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7582) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7569) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7556) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7542) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7529) (vector 0 (vector 4 )))))))))))))))))
-(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10856) (vector 8 1 0 (vector 5 ) (lambda (_-10864) (vector 7 0 (Parser-TTImp-n--9652-10761-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10880) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10887) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--9652-10761-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-10843) (vector 0 fs))))))))))
-(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9449) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9436) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9449) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9436) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
+(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-7896) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-7882) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-7868) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-7854) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-7839) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7825) (vector 0 (vector 4 )))))))))))))))))
+(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11394) (vector 8 1 0 (vector 5 ) (lambda (_-11403) (vector 7 0 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11421) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11429) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10161-11291-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11380) (vector 0 fs))))))))))
+(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-9885) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9871) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
 (define Parser-TTImp-expr (lambda (ext-0 ext-1) (Parser-TTImp-typeExpr ext-0 ext-1)))
-(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-8825) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8839) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
-(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-11083) (vector 8 1 0 (vector 5 ) (lambda (_-11091) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11105) (vector 0 (vector 9 lvl))))))))))))))
+(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9202) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9218) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
+(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-11642) (vector 8 1 0 (vector 5 ) (lambda (_-11651) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11667) (vector 0 (vector 9 lvl))))))))))))))
 (define Parser-TTImp-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) (Builtin-fst 'erased 'erased nd) (vector 1 (Builtin-snd 'erased 'erased nd) (vector 0 )))))))))))))
-(define Parser-TTImp-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10323) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10312) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10289) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns))))))))))))))
-(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-10343) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10358) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10371) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10389) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-10408) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs)))))))))))))))))))))))))))
-(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11807) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-11814) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11777) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-11784) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11747) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-11754) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11706) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-11713) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11676) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-11683) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11646) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-11653) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11616) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-11623) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11595) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-11602) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm)))))))))))))))))))))))
-(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Parser-TTImp-case--6260-11486 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6260-11293-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6260-11294-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))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3))))))))))))
-(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--8821-10128-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--8821-10127-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))
-(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-9158) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9171) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts))))))))))))))))))))
-(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9267) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9274) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9287) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9236) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9243) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3)))))))))))))
+(define Parser-TTImp-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-10826) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10814) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10789) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns))))))))))))))
+(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-10849) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10866) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10881) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-10900) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-10921) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs)))))))))))))))))))))))))))
+(define Parser-TTImp-command (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12405) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-12413) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12372) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-12380) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12339) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-12347) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12294) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-12302) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12261) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-12269) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12228) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-12236) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12195) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-12203) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12172) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-12180) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm)))))))))))))))))))))))
+(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (Parser-TTImp-case--6501-12060 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6501-11867-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6501-11868-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))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3))))))))))))
+(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--9271-10617-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9271-10616-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))
+(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-9568) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9583) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts))))))))))))))))))))
+(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9686) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9694) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9709) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-9652) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9660) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3)))))))))))))
 (define Parser-TTImp-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (lhs) (Parser-TTImp-caseRHS arg-0 arg-1 start lhs))))))))
 (define Parser-TTImp-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-explicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-lam arg-0 arg-1) (lambda () (Parser-TTImp-let_ arg-0 arg-1)))))))))))))
-(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-7751) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-7737) (vector 0 (vector 2 )))))))))
-(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8322) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))
-(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8552) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8559) (vector 8 1 0 (vector 5 ) (lambda (_-8567) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8581) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8589) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
-(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7325) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7293) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7260) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7225) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7153) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x)))))))))))))))))))))))))
-(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-8125) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat)))))))))))))))))
-(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-7927) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-7905) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg)))))))))))
-(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--6904-7817-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--12013-7110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 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))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (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-3 arg-13))) (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-2 arg-14))) (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 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--11998-7015 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 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 ((act-26 (Context-Core-branch arg-4 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-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (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-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-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-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-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-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (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 ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12013-7110 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define GenerateDef-Interactive-TTImp-case--11783-6837 (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 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))
-(define GenerateDef-Interactive-TTImp-case--11520-6742 (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 (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--11520-6589-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 )))))))))
-(define GenerateDef-Interactive-TTImp-case--11534-6678 (lambda (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 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
-(define GenerateDef-Interactive-TTImp-case--11534-6620 (lambda (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))) (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
-(define GenerateDef-Interactive-TTImp-case--11105-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) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "        = ") e-6 e-7 eta-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 (vector 1 (GenerateDef-Interactive-TTImp-n--10756-5939-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 )))))))))))))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--11005-6221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((e-2 (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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 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 ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10938-6140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (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 ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10895-6088 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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-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 (Context-Core-lookupDefExact (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 ((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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) 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 ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 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 ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11105-6295 arg-0 arg-1 arg-2 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-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
-(define GenerateDef-Interactive-TTImp-case--10864-6057 (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)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") 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))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))
-(define GenerateDef-Interactive-TTImp-case--10756-6035 (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-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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 ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define GenerateDef-Interactive-TTImp-case--10690-5888 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
-(define GenerateDef-Interactive-TTImp-case--10685-5875 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6589-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 GenerateDef-Interactive-TTImp-n--10756-5939-updateRHS (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))) (vector 0 e-0 e-1 arg-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))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9))))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6591-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))) (GenerateDef-Interactive-TTImp-case--11534-6620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11534-6678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (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 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--11520-6591-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))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9)))))
-(define GenerateDef-Interactive-TTImp-n--10719-5903-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (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 (Utils-TTImp-uniqueName e-5 (vector 0 ) 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))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define GenerateDef-Interactive-TTImp-n--11520-6590-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-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 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 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--11520-6590-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--11520-6590-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8)))))
-(define GenerateDef-Interactive-TTImp-n--10756-5940-dropLams (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) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (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))) (GenerateDef-Interactive-TTImp-n--10756-5940-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9)))))))))))
-(define GenerateDef-Interactive-TTImp-uniqueRHS (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--10719-5903-mkUniqueName e-2 e-1 e-0 arg-0 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--11520-6591-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--11520-6589-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 )))))))))))))
-(define GenerateDef-Interactive-TTImp-tryAllSplits (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) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0)))))))))))))))))))
+(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8054) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8039) (vector 0 (vector 2 )))))))))
+(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8658) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))
+(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8904) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8912) (vector 8 1 0 (vector 5 ) (lambda (_-8921) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8937) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8946) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
+(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7608) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7573) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7537) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7499) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-7420) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x)))))))))))))))))))))))))
+(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-8451) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat)))))))))))))))))
+(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8236) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-8213) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg)))))))))))
+(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7186-8120-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--12484-7409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 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))) (let ((act-25 (let ((act-25 (set-box! arg-4 arg-12))) (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-3 arg-13))) (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-2 arg-14))) (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 (vector 1 (vector 0 arg-5 e-5))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--12468-7300 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 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 ((act-26 (Context-Core-branch arg-4 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-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (let ((sc7 act-27)) (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-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-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-16 (vector-ref sc9 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 e-11 e-13 e-16) eta-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-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-5 0)))) (let ((act-30 (Utils-TTImp-uniqueName e-11 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-7) "_rhs") eta-0))) (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 ((initcs (vector 0 e-5 (TTImp-TTImp-apply (vector 0 e-5 e-7) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-5 eta-1)) e-16))) (vector 29 e-5 e-17)))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-11 e-12 e-15 e-16 pre_env e-17 initcs (Context-Core-getNameID e-7 (let ((sc11 e-11)) (let ((e-0 (vector-ref sc11 1))) e-0)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define GenerateDef-Interactive-TTImp-case--12247-7115 (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 (vector-ref sc0 1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-7 arg-6 arg-5 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))
+(define GenerateDef-Interactive-TTImp-case--11983-7019 (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 (eta-0) (vector 1 (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ups arg-3) arg-1)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 )))))))))
+(define GenerateDef-Interactive-TTImp-case--11997-6954 (lambda (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 16 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
+(define GenerateDef-Interactive-TTImp-case--11997-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (vector 0 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
+(define GenerateDef-Interactive-TTImp-case--11564-6566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelab e-2 arg-0 e-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-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 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 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "        = ") e-6 e-7 eta-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 (vector 1 (GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 )))))))))))))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--11460-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((e-2 (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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 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 ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-1 _-0 e-5 e-6 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-21 (vector 0 ) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11391-6403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 arg-18 arg-17)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 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 ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (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 ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 e-2 _-0 e-5 e-4 e-7 _-1 e-8 e-9 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 (vector 0 ) e-9)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11347-6348 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((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-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 (Context-Core-lookupDefExact (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 ((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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Expression search for " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) 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 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) 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 ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 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 ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--11564-6566 arg-0 arg-1 arg-2 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-1 e-4 e-3 e-2 e-5 e-8 e-9 _-0 e-10 e-12 e-13 _-1 e-14 e-15 (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-9 (vector 0 ) e-15)) eta-0)))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No result found for search on RHS") eta-0))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No searchable hole on RHS") eta-0)))))))
+(define GenerateDef-Interactive-TTImp-case--11316-6316 (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)) (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))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") 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))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 e-0 e-3 e-2 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))
+(define GenerateDef-Interactive-TTImp-case--11203-6294 (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-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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 ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 _-0 e-0 e-3 e-4 e-1 clause e-5 (TT-Core-getFn 'erased e-3)) eta-0)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define GenerateDef-Interactive-TTImp-case--11134-6137 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
+(define GenerateDef-Interactive-TTImp-case--11129-6124 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6865-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 GenerateDef-Interactive-TTImp-n--11203-6191-updateRHS (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))) (vector 0 e-0 e-1 arg-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))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9))))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6867-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))) (GenerateDef-Interactive-TTImp-case--11997-6896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-0 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--11997-6954 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-2 arg-8 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (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 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) (GenerateDef-Interactive-TTImp-n--11983-6867-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))) (let ((e-10 (vector-ref sc0 4))) (vector 9 e-7 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) e-9 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10)))))))(else arg-9)))))
+(define GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (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 (Utils-TTImp-uniqueName e-5 (vector 0 ) 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))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define GenerateDef-Interactive-TTImp-n--11983-6866-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-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 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 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--11983-6866-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6) e-7 (GenerateDef-Interactive-TTImp-n--11983-6866-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8)))))))(else arg-8)))))
+(define GenerateDef-Interactive-TTImp-n--11203-6192-dropLams (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) (vector 0 arg-6 (vector 0 arg-8 arg-9)))(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-9)) (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))) (GenerateDef-Interactive-TTImp-n--11203-6192-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-3 arg-6) e-0 (vector 1 e-4 arg-8) e-5)))))(else (vector 0 arg-6 (vector 0 arg-8 arg-9)))))))))))
+(define GenerateDef-Interactive-TTImp-uniqueRHS (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 ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11163-6152-mkUniqueName e-2 e-1 e-0 arg-0 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 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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 (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--11983-6867-updateLHS arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 ups arg-4) arg-6)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-n--11983-6865-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 )))))))))))))
+(define GenerateDef-Interactive-TTImp-tryAllSplits (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) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 eta-2 eta-3))) e-7) eta-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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))) (lambda (err) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-3)) eta-0)))))))))))))))))))
 (define GenerateDef-Interactive-TTImp-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) ((16) (let ((e-8 (vector-ref sc1 2))) (List-Prelude-C-43C-43 'erased (GenerateDef-Interactive-TTImp-splittableNames e-1) (vector 1 (vector 1 e-8) (vector 0 )))))(else (GenerateDef-Interactive-TTImp-splittableNames e-1))))))) ((9) (let ((e-4 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-splittableNames e-4)))(else (vector 0 ))))))
 (define GenerateDef-Interactive-TTImp-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (GenerateDef-Interactive-TTImp-expandClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Splits: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-1 x-1)))) d-0 x-0))))) d 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 ((GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 err e-5) eta-0)))))))))))) ext-0)))
-(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-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-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (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 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (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 ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12013-7110 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))
-(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 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)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0)))))))))))))))))
-(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--10685-5875 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
-(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause 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 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-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))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 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 (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 ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--10895-6088 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--14241-10472 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) 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-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) 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 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) 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))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--14259-10408 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--14251-10349 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (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))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--14112-10254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13863-10018 (lambda (arg-0 arg-1 arg-2 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) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) 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))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0)))))))))))
-(define ExprSearch-Interactive-TTImp-case--9273-9985 (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-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--13863-10018 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))
-(define ExprSearch-Interactive-TTImp-case--13692-9909 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--13684-9838 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--13166-9725 (lambda (arg-0 arg-1 arg-2 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 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13228-9533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
-(define ExprSearch-Interactive-TTImp-case--13166-9427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-getSearchData arg-11 arg-8 1 arg-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))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13228-9533 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--13007-9381 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (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))) ((ExprSearch-Interactive-TTImp-case--13166-9427 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-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 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-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13166-9725 arg-0 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 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0))))))))))))
-(define ExprSearch-Interactive-TTImp-case--12166-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 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) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12247-8720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-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))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12247-8610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--12180-8534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) 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))) ((ExprSearch-Interactive-TTImp-case--12247-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) 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))) ((ExprSearch-Interactive-TTImp-case--12247-8720 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--12165-8487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12180-8534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15))))))))
-(define ExprSearch-Interactive-TTImp-case--11123-8328 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) 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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-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))) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--11877-8272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11123-7578-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3))))))
-(define ExprSearch-Interactive-TTImp-case--11153-8232 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--11877-8272 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13)))))))
-(define ExprSearch-Interactive-TTImp-case--11152-8050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1)))))
-(define ExprSearch-Interactive-TTImp-case--11152-7920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
-(define ExprSearch-Interactive-TTImp-case--11152-7790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
-(define ExprSearch-Interactive-TTImp-case--10866-7359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10857-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--10866-7359 arg-0 arg-1 arg-2 arg-3 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 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10543-7187 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0)))))))
-(define ExprSearch-Interactive-TTImp-case--10543-7111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--10497-7046 (lambda (arg-0 arg-1 arg-2 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-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 ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base 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 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 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 ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10543-7187 arg-0 arg-1 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-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))
-(define ExprSearch-Interactive-TTImp-case--10459-7013 (lambda (arg-0 arg-1 arg-2 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) (ExprSearch-Interactive-TTImp-case--10497-7046 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14)))))))
-(define ExprSearch-Interactive-TTImp-case--10054-6693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-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 ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) t 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))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\xa;"))))))))) cs) 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 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) 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 (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9837-6619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10054-6693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9837-6469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((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 ExprSearch-Interactive-TTImp-case--9793-6432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--9837-6469 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) 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 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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 ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) 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 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10054-6693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9770-6377 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
-(define ExprSearch-Interactive-TTImp-case--9527-6212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10))))))
-(define ExprSearch-Interactive-TTImp-case--9479-6158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 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))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) 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))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-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))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9405-6125 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9479-6158 arg-0 arg-1 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ExprSearch-Interactive-TTImp-case--9387-6060 (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) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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-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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((ExprSearch-Interactive-TTImp-case--9479-6158 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-case--9277-5977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)))
-(define ExprSearch-Interactive-TTImp-n--10827-7311-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 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--10866-7359 arg-0 arg-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 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7579-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-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11153-8232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13))))
-(define ExprSearch-Interactive-TTImp-n--14241-10339-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--9273-9828-lookupHoleName (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 ((Context-Core-lookupCtxtExactI arg-9 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--14101-10209-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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) ((3) (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14112-10254 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14112-10254 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
-(define ExprSearch-Interactive-TTImp-n--12132-8469-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12132-8468-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-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (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 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (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 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (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))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (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 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (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))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12132-8469-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12132-8468-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 ExprSearch-Interactive-TTImp-n--12132-8468-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 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12180-8534 arg-0 arg-1 arg-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 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7577-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-11 arg-12 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))) (Name-Core-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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-n--11123-7578-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-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 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 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 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) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11152-7790 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 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) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11152-7920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11152-8050 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11123-7577-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))
+(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Searching for " (Name-Core-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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (Context-Core-branch arg-0 ext-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-12 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (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 ((act-29 (let ((act-29 (unbox arg-2))) (vector 1 act-29)))) (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 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-12 e-13 e-17) ext-0)))))))) (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 ((pre_env (List-Data-replicate 'erased e-13 (vector 31 e-7 0)))) (let ((act-31 (Utils-TTImp-uniqueName e-12 (vector 0 ) (Strings-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 e-8) "_rhs") ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc11 1))) (let ((initcs (vector 0 e-7 (TTImp-TTImp-apply (vector 0 e-7 e-8) (List-Prelude-C-43C-43 'erased pre_env (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 e-7 eta-0)) e-17))) (vector 29 e-7 e-18)))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) ((GenerateDef-Interactive-TTImp-case--12484-7409 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 e-12 e-15 e-16 e-17 pre_env e-18 initcs (Context-Core-getNameID e-8 (let ((sc12 e-12)) (let ((e-0 (vector-ref sc12 1))) e-0)))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))
+(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 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)) (let ((e-2 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-8)) eta-0)))))))))))))))))
+(define GenerateDef-Interactive-TTImp-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (GenerateDef-Interactive-TTImp-case--11129-6124 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
+(define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Trying clause " (TTImp-TTImp-show_Show__ImpClause 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 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-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))) (let ((act-26 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-4 (vector 0 ) (vector 0 ) (vector 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 (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 ((_-0 (vector 1 e-2))) (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((act-27 (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "RHS hole") e-3 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))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--11347-6348 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 _-0 e-0 e-3 e-4 e-1 clause e-8 (TT-Core-getFn 'erased e-3)) ext-0))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--14668-10851 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-5 (vector 9 e-9)) 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-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) 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 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) 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))) (ExprSearch-Interactive-TTImp-search arg-5 arg-4 arg-3 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-5 arg-3 arg-2 e-11) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--14687-10784 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--14678-10724 (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 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-7 (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))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--14536-10625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 e-3 arg-3))))(else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--14280-10380 (lambda (arg-0 arg-1 arg-2 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) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-0 arg-1 arg-9 arg-12 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-9 (vector 0 ) (let ((sc1 arg-12)) (let ((e-23 (vector-ref sc1 3))) e-23)) 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))) (ExprSearch-Interactive-TTImp-searchHole arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-10 e-5 arg-1 arg-9 arg-12 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Not a hole: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) arg-2)))))) eta-0)))))))))))
+(define ExprSearch-Interactive-TTImp-case--9605-10347 (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-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) (ExprSearch-Interactive-TTImp-case--14280-10380 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))
+(define ExprSearch-Interactive-TTImp-case--14106-10268 (lambda (arg-0 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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--14097-10196 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-10 arg-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 ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--13573-10080 (lambda (arg-0 arg-1 arg-2 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 1 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--13636-9887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4) (vector 0 ))) (else (vector 0 ))))))
+(define ExprSearch-Interactive-TTImp-case--13573-9779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Context-Core-getSearchData arg-11 arg-8 1 arg-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))) (let ((allHints ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Hints found for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 allHints) (vector 0 ))) (ExprSearch-Interactive-TTImp-case--13636-9887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 allHints e-6 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--13403-9732 (lambda (arg-0 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) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (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))) ((ExprSearch-Interactive-TTImp-case--13573-9779 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-9 e-8 e-7 e-5 e-3 e-10 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 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-8 (vector-ref sc2 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 arg-5 arg-2 arg-3 arg-4 (List-Prelude-C-43C-43 'erased (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 arg-3 arg-4 eta-1)) (vector 0 )) (ExprSearch-Interactive-TTImp-case--13573-10080 arg-0 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 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)))) eta-0))))))))))))
+(define ExprSearch-Interactive-TTImp-case--12538-9280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 ))) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12620-9030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-4 arg-5 arg-7 eta-1)) arg-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))) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12620-8920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 )))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--12553-8842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) 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))) ((ExprSearch-Interactive-TTImp-case--12620-8920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) 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))) ((ExprSearch-Interactive-TTImp-case--12620-9030 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1))))))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--12537-8795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-15))))))))
+(define ExprSearch-Interactive-TTImp-case--11491-8631 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) 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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-5 arg-2 (vector 0 ) (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-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))) (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 2))) e-3)) eta-1)) e-5))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--12245-8572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--11491-7878-appsDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-15 e-2 arg-16 e-3))))))
+(define ExprSearch-Interactive-TTImp-case--11521-8532 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--12245-8572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14 e-2 e-3 (TT-Core-getFnArgs 'erased arg-13)))))))
+(define ExprSearch-Interactive-TTImp-case--11520-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-20 arg-19))) (else 1)))))
+(define ExprSearch-Interactive-TTImp-case--11520-8220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
+(define ExprSearch-Interactive-TTImp-case--11520-8090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased eta-0 eta-1))) arg-22 arg-21))) (else 0)))))
+(define ExprSearch-Interactive-TTImp-case--11230-7655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 (vector 0 arg-13 arg-16))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--11220-7618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-1 arg-2 arg-3 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 _-0 (Context-Core-visibleInAny arg-14 arg-13 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10902-7482 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-3) eta-0)))))))
+(define ExprSearch-Interactive-TTImp-case--10902-7406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10856-7335 (lambda (arg-0 arg-1 arg-2 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-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 ((e-5 (vector-ref sc1 1))) (let ((base (Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))) "_rhs"))) arg-2))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base 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 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 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 ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 1 e-3 (vector 0 ))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--10902-7482 arg-0 arg-1 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-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))
+(define ExprSearch-Interactive-TTImp-case--10817-7302 (lambda (arg-0 arg-1 arg-2 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) (ExprSearch-Interactive-TTImp-case--10856-7335 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Prelude-C-38C-38 arg-6 (lambda () (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))(else (lambda (eta-0) (vector 1 arg-14)))))))
+(define ExprSearch-Interactive-TTImp-case--10401-6966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-12 arg-11 arg-10 arg-9 arg-7 arg-3 arg-4 arg-6 eta-1)) arg-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 ((cs (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-9 (vector 1 arg-9 arg-17 arg-1) e-6))) (let ((act-26 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-26 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) t 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))) (vector 1 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\xa;"))))))))) cs) 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 (Strings-Prelude-C-43C-43 "Candidates: " ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) 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 (vector 1 cs)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10179-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) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--10179-6731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((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 ExprSearch-Interactive-TTImp-case--10132-6694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((namety (ExprSearch-Interactive-TTImp-case--10179-6731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Trying " (Name-Core-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) 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 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 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 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-6 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 ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) 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 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--10401-6966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ty namety e-5 e-6 e-2 e-3 _-0 e-8 e-9 e-10 (let ((sc8 e-10)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--10109-6635 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
+(define ExprSearch-Interactive-TTImp-case--9861-6489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-10))))))
+(define ExprSearch-Interactive-TTImp-case--9813-6410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) ((7) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-search arg-9 arg-8 arg-7 arg-6 arg-12 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 0 e-4 e-3 arg-10)))) arg-4 arg-3 (vector 9 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))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo (List-Prelude-C-43C-43 'erased (vector 0 ) arg-0) arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) 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))) (vector 1 e-6)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-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))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--9737-6377 (lambda (arg-0 arg-1 arg-2 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 ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 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 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ExprSearch-Interactive-TTImp-case--9719-6309 (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) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-10 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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-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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((ExprSearch-Interactive-TTImp-case--9813-6410 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-0 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-case--9609-6226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)))
+(define ExprSearch-Interactive-TTImp-n--11190-7606-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 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-15 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--11230-7655 arg-0 arg-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 arg-13 e-1 _-0 (Context-Core-visibleInAny arg-14 arg-15 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7879-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-11 arg-12 arg-13 arg-14) (ExprSearch-Interactive-TTImp-case--11521-8532 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-14 arg-13 (TT-Core-getFnArgs 'erased arg-13))))
+(define ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName (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 ((Context-Core-lookupCtxtExactI arg-9 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-9 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 ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--14525-10580-getLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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) ((3) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14536-10625 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
+(define ExprSearch-Interactive-TTImp-n--12504-8776-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12504-8775-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-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (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 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (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 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (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))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (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 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (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))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 1 arg-7 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (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))) ((ExprSearch-Interactive-TTImp-n--12504-8776-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 (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-9) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 0 ))) eta-1))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12504-8775-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 ExprSearch-Interactive-TTImp-n--12504-8775-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 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--12553-8842 arg-0 arg-1 arg-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 (ExprSearch-Interactive-TTImp-usableLocal 'erased arg-10 arg-7 arg-17)) ext-0))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7877-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-11 arg-12 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))) (Name-Core-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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((5) (let ((e-4 (vector-ref sc2 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-19 e-29) (lambda () (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (TT-Core-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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased 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))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))) ((5) (let ((e-11 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-11 arg-14)))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-4)))(else 0))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-n--11491-7878-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-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-13)) (case (vector-ref sc0 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 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 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) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8090 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-29 e-32 e-33 e-3 e-24 e-25 e-5 e-31 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-31)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))) ((3) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-35 (vector-ref sc2 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) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (ExprSearch-Interactive-TTImp-case--11520-8220 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-35 e-38 e-39 e-3 e-26 e-27 e-5 e-37 arg-16 arg-15 (Name-Core-C-61C-61_Eq__Name e-5 e-37)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (ExprSearch-Interactive-TTImp-case--11520-8350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased e-21 e-22 e-3 e-4 e-5 e-23 arg-16 arg-15 (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-15) (List-Data-length 'erased 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 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)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1)))))))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (ExprSearch-Interactive-TTImp-n--11491-7877-argDiff arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 arg-14))(else 1))))(else 1))))))))
 (define ExprSearch-Interactive-TTImp-usableLocal (lambda (arg-0 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 ExprSearch-Interactive-TTImp-tryRecursive (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (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 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (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-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 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-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 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11123-7579-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7))))))))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-tryRecursive (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (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 ((Context-Core-lookupCtxtExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) (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-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 ))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-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))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 (vector 0 ) (vector 0 (let ((sc5 e-2)) (let ((e-1 (vector-ref sc5 1))) e-1)) e-3)) eta-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 (unbox arg-1))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--11491-7879-structDiff arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 e-2)) (let ((e-4 (vector-ref sc6 2))) e-4)) eta-1)) e-7))))))))))))))))))))))))))))))))
 (define ExprSearch-Interactive-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) 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 (vector 1 (vector 1 e-5) e-6))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (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 (vector 0 err) e-5))))))))) eta-0)))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (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))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (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 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) 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 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 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 ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (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 ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13007-9381 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11)))))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--10827-7311-visible arg-0 e-2 e-3 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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0)))))))))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (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 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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))) ((ExprSearch-Interactive-TTImp-case--9793-6432 arg-0 e-2 e-3 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 (Context-Core-visibleInAny (vector 1 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)))) eta-0))))))))))))))))))))))
-(define ExprSearch-Interactive-TTImp-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) (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) 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))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12132-8469-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0)))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (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))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-18 arg-9 arg-8 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-11 e-12 (vector 2 e-16 e-17 e-18) e-14) arg-9 arg-8 eta-1)) (vector 1 (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 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) 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 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 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 ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 0 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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) eta-2)) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))(else (let ((e-0 (- arg-10 1))) (let ((sc0 arg-11)) (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 ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 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 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 arg-9 e-0 e-5) 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))) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) eta-1)) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11))))))))))(else (ExprSearch-Interactive-TTImp-case--13403-9732 arg-0 arg-10 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-11)))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--11190-7606-visible arg-0 e-2 e-3 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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) 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 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 arg-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-7 arg-9 arg-10 eta-1)) visns) eta-0)))))))))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (let ((sc0 arg-11)) (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 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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))) ((ExprSearch-Interactive-TTImp-case--10132-6694 arg-0 e-2 e-3 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 (Context-Core-visibleInAny (vector 1 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)))) eta-0))))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-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) (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) 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))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-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))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-9 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--12504-8776-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-1) eta-1) e-9 e-8) (vector 1 (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10 arg-11) (vector 0 ))) eta-0)))))))))))))))))))))))))))
 (define ExprSearch-Interactive-TTImp-searchLocal (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 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (List-Data-reverse 'erased (ExprSearch-Interactive-TTImp-getAllEnv arg-0 arg-4 (vector 0 ) arg-7)) arg-8 arg-9 arg-10) ext-0)))))))
-(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9387-6060 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
+(define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-case--9719-6309 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 3))) e-2)))))
 (define ExprSearch-Interactive-TTImp-searchHole (lambda (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 (Normalise-Core-normalise (vector 0 ) arg-10 (vector 0 ) (let ((sc0 arg-11)) (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 (Context-Core-logTerm (vector 0 ) arg-0 (+ 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 ((ExprSearch-Interactive-TTImp-searchType (vector 0 ) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-9 arg-8 e-5) ext-0))))))))))))
-(define ExprSearch-Interactive-TTImp-search (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 (ExprSearch-Interactive-TTImp-n--9273-9828-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--13863-10018 arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))))))))))))
+(define ExprSearch-Interactive-TTImp-search (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 (ExprSearch-Interactive-TTImp-n--9605-10185-lookupHoleName arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((bind-0 (vector 1 (vector 0 e-4 (vector 0 e-8 e-9))))) ((ExprSearch-Interactive-TTImp-case--14280-10380 arg-8 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) " 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))))))))))))
 (define RecData-ExprSearch-Interactive-TTImp-recname (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-recOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define ExprSearch-Interactive-TTImp-mkCandidates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__List 'erased arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-2 (lambda (arg) (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-1 (vector 4 arg-1 arg-2 arg) e-3))))))))))
 (define RecData-ExprSearch-Interactive-TTImp-lhsapp (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-holesOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ExprSearch-Interactive-TTImp-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 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 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))) ((ExprSearch-Interactive-TTImp-case--10459-7013 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0))))))))
-(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) 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 (ExprSearch-Interactive-TTImp-n--14101-10209-getLHS e-2 arg-0 'erased e-5))))))))))))))
-(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9277-5977 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased)))))))))))))
-(define ExprSearch-Interactive-TTImp-exprSearch (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 (ExprSearch-Interactive-TTImp-n--14241-10339-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-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))) (Metadata-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 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 ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) 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))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0))))))))))))))))
-(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--9770-6377 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) 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 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0)))))))))
+(define ExprSearch-Interactive-TTImp-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 arg-12 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 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))) ((ExprSearch-Interactive-TTImp-case--10817-7302 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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Either-Data-rights 'erased 'erased e-5))) ext-0))))))))
+(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) 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 (ExprSearch-Interactive-TTImp-n--14525-10580-getLHS e-2 arg-0 'erased e-5))))))))))))))
+(define ExprSearch-Interactive-TTImp-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (ExprSearch-Interactive-TTImp-getAllEnv e-3 arg-1 (List-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--9609-6226 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased)))))))))))))
+(define ExprSearch-Interactive-TTImp-exprSearch (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 (ExprSearch-Interactive-TTImp-n--14668-10713-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-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))) (Metadata-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "LHS hole data " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 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 ((act-28 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) 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))) (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-3 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) (vector 0 1 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 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))) ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-2 arg-3 e-13) ext-0))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-4) ext-0))))))))))))))))
+(define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--10109-6635 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define ExprSearch-Interactive-TTImp-dropLinearErrors (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (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 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) 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 (vector 1 e-2 e-6)))))))))))) (ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-0)))))))))
 (define SearchOpts-ExprSearch-Interactive-TTImp-depth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define CaseSplit-Interactive-TTImp-case--11466-9039 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 )))))))))
-(define CaseSplit-Interactive-TTImp-case--11266-8905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) 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 ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0)))))))
-(define CaseSplit-Interactive-TTImp-case--11231-8854 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-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-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) 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 ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11266-8905 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-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3)))))))))
-(define CaseSplit-Interactive-TTImp-case--10993-8666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define CaseSplit-Interactive-TTImp-case--10861-8622 (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) (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-4))) (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 ((Normalise-Core-nf e-0 e-6 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-6 e-2 e-4) 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))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-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 ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
-(define CaseSplit-Interactive-TTImp-case--10861-8543 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (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 ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (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 ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) 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 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) 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 ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 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 ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10)))))))))))))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10630-8371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1)))))))
-(define CaseSplit-Interactive-TTImp-case--10630-8316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))
-(define CaseSplit-Interactive-TTImp-case--10579-8286 (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) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24)))))))))
-(define CaseSplit-Interactive-TTImp-case--10563-8241 (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) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10579-8286 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10491-8198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1)))))))
-(define CaseSplit-Interactive-TTImp-case--10404-8103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) 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 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--10233-7970 (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) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0))))))))
-(define CaseSplit-Interactive-TTImp-case--10220-7950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10233-7970 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0))))))))
-(define CaseSplit-Interactive-TTImp-case--10147-7890 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
-(define CaseSplit-Interactive-TTImp-case--9990-7776 (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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-case--9744-7652 (lambda (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) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define CaseSplit-Interactive-TTImp-case--9743-7544 (lambda (arg-0 arg-1 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 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--9733-7508-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
-(define CaseSplit-Interactive-TTImp-case--9645-7449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5)))))
-(define CaseSplit-Interactive-TTImp-case--9475-7311 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))
-(define CaseSplit-Interactive-TTImp-case--9434-7272 (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 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-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)) (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-8 (vector-ref sc3 7))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--9425-7233 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-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 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))))))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-case--9382-7205 (lambda (arg-0 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 CaseSplit-Interactive-TTImp-case--9207-7067 (lambda (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-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-case--9179-7035 (lambda (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) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 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))) (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 (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7))))))
-(define CaseSplit-Interactive-TTImp-n--9645-7434-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 (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6)))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7508-lookupName (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-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 ((Context-Core-getFullName arg-5 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))) ((CaseSplit-Interactive-TTImp-case--9743-7544 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0))))))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7510-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8))))))
-(define CaseSplit-Interactive-TTImp-n--9733-7509-findNames (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--9733-7508-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))))))))
+(define CaseSplit-Interactive-TTImp-case--11916-9215 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 )))))))))
+(define CaseSplit-Interactive-TTImp-case--11712-9078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) 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 ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0)))))))
+(define CaseSplit-Interactive-TTImp-case--11674-9023 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-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-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) 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 ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 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-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3)))))))))
+(define CaseSplit-Interactive-TTImp-case--11432-8830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define CaseSplit-Interactive-TTImp-case--11289-8782 (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) (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-4))) (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 ((Normalise-Core-nf e-0 e-6 e-2 e-3) 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 ((Normalise-Core-nf e-0 e-6 e-2 e-4) 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))) (let ((act-27 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-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 ((sc5 e-9)) (cond ((equal? sc5 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))
+(define CaseSplit-Interactive-TTImp-case--11289-8697 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (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 ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (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 ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) 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 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) 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 ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 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 ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10)))))))))))))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--11051-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 arg-8)) e-1)))))))
+(define CaseSplit-Interactive-TTImp-case--11051-8457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))
+(define CaseSplit-Interactive-TTImp-case--10999-8427 (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) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24)))))))))
+(define CaseSplit-Interactive-TTImp-case--10982-8381 (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) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 bind-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
+(define CaseSplit-Interactive-TTImp-case--10908-8336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (Utils-TTImp-substNames (vector 0 ) arg-5 arg-0)) e-1)))))))
+(define CaseSplit-Interactive-TTImp-case--10820-8239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((keep (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) 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 (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--10642-8099 (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) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0))))))))
+(define CaseSplit-Interactive-TTImp-case--10629-8079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-case--10642-8099 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0))))))))
+(define CaseSplit-Interactive-TTImp-case--10552-8017 (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))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
+(define CaseSplit-Interactive-TTImp-case--10391-7899 (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-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-case--10141-7771 (lambda (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) (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define CaseSplit-Interactive-TTImp-case--10140-7662 (lambda (arg-0 arg-1 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 (vector 1 arg-8)))) (else (CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
+(define CaseSplit-Interactive-TTImp-case--10042-7564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-4 arg-3 arg-2)) (else arg-5)))))
+(define CaseSplit-Interactive-TTImp-case--9871-7426 (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)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))
+(define CaseSplit-Interactive-TTImp-case--9828-7386 (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 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-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)) (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-8 (vector-ref sc3 7))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--9819-7344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (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 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-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 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Can't find type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-3 e-8))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Prelude-C-43C-43 "Not a type constructor " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))))))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-case--9776-7316 (lambda (arg-0 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 CaseSplit-Interactive-TTImp-case--9600-7178 (lambda (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-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-case--9572-7145 (lambda (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) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 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))) (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 (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7))))))
+(define CaseSplit-Interactive-TTImp-n--10042-7549-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 (Strings-Prelude-C-43C-43 arg-5 (Prelude-show_Show__Int arg-6)))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7623-lookupName (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-5 arg-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 ((Context-Core-getFullName arg-5 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))) ((CaseSplit-Interactive-TTImp-case--10140-7662 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-6 e-7 e-3 arg-7 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0))))))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7625-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-7) (vector 1 e-0 arg-7) 0 arg-8)))(else (CaseSplit-Interactive-TTImp-unique arg-7 arg-7 0 arg-8))))))
+(define CaseSplit-Interactive-TTImp-n--10130-7624-findNames (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-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 "f" (vector 1 "g" (vector 0 ))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames)))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7623-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-14 (vector-ref sc1 15))) 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2)))))))))))))(else (lambda (eta-0) (vector 1 (CaseSplit-Interactive-TTImp-defaultNames))))))))
 (define CaseSplit-Interactive-TTImp-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))) (Strings-Prelude-C-43C-43 "Can't split on " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-1 ")"))))))) (else "No clause to split here")))))
 (define CaseSplit-Interactive-TTImp-showPrec_Show__SplitError (lambda (arg-0 arg-1) (CaseSplit-Interactive-TTImp-show_Show__SplitError arg-1)))
 (define CaseSplit-Interactive-TTImp-__Impl_Show_SplitError (lambda () (vector 0 (lambda (x) (CaseSplit-Interactive-TTImp-show_Show__SplitError x)) (lambda (d) (lambda (x) (CaseSplit-Interactive-TTImp-showPrec_Show__SplitError d x))))))
 (define Updates-CaseSplit-Interactive-TTImp-updates (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--10220-7950 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) 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 ((CaseSplit-Interactive-TTImp-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 ((CaseSplit-Interactive-TTImp-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))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0))))))))
+(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--10629-8079 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) 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 ((CaseSplit-Interactive-TTImp-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 ((CaseSplit-Interactive-TTImp-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))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-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-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0))))))))
 (define CaseSplit-Interactive-TTImp-update (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))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 0 e-0 e-5))))))))))) (else (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 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 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 (vector 1 e-2 e-3 e-5))))))))))))))))
-(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--9645-7434-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--9645-7449 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (vector 1 var) arg-3))))))))))
+(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--10042-7549-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--10042-7564 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (vector 1 var) arg-3))))))))))
 (define CaseSplit-Interactive-TTImp-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-7 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-7 e-4)))) ((4) (let ((e-11 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-11 e-4))))(else (vector 3 e-1 e-2 e-3 (CaseSplit-Interactive-TTImp-substLets (vector 1 e-2 arg-0) e-4))))))))))(else arg-1)))))
 (define CaseSplit-Interactive-TTImp-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 ((nupdates (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (vector 0 arg-1 (Builtin-snd 'erased 'erased x)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (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 (vector 1 (vector 0 arg-2 (Utils-TTImp-substNames (vector 0 ) nupdates arg-3)) e-1)))))))) (vector 1 act-25))))))))))
-(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10404-8103 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 )))))
+(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--10820-8239 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 )))))
 (define Updates-CaseSplit-Interactive-TTImp-namemap (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Context-Core-branch 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 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-1 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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) 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 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 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 ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((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))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (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 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-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))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) 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 ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0))))))))))))))))))
+(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Context-Core-branch 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 ((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))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 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-1 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 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-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 ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) 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 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 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 ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((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))) (lambda (eta-0) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (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 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-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))) (let ((act-29 ((Normalise-Core-nf e-0 e-9 e-2 e-4) 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 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) 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 ((sc8 e-12)) (cond ((equal? sc8 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))) ext-0))))))))))))))))))
 (define CaseSplit-Interactive-TTImp-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "TTImp.Interactive.CaseSplit.UPD" ) (vector 0 (vector 0 ) (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 ((act-25 ((CaseSplit-Interactive-TTImp-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 (vector-ref sc3 2))) e-1)))))))))))))))))))
-(define CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 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 ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased 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 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 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 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 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 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11266-8905 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-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 CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 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 ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased 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 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 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 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 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 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--11712-9078 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-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 CaseSplit-Interactive-TTImp-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-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 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-1 arg-0 arg-2 e-7 e-9 e-10 arg-4) ext-0))))))))) (else (vector 1 (vector 0 (vector 2 )))))))))))))
 (define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-getFnArgs e-1 (vector 1 (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))) (let ((e-6 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getFnArgs e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-1)))))))(else (vector 0 arg-0 arg-1))))))
 (define CaseSplit-Interactive-TTImp-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 arg-1 (vector 0 ) (vector 0 ) arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-5 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-2 1))) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 arg-1 e-0 e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))
-(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9382-7205 'erased arg-1 (TT-Core-getFn 'erased arg-1)))))))
+(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--9776-7316 'erased arg-1 (TT-Core-getFn 'erased arg-1)))))))
 (define CaseSplit-Interactive-TTImp-getArgNames (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 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))) (lambda (eta-0) (let ((act-24 (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 e-8 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))) (vector 1 (vector 1 e-5 (vector 0 )))))))))(else (vector 1 (vector 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 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-1 1))) 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-1 arg-2 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-5) arg-3) arg-4 e-9) 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))) (vector 1 (List-Prelude-C-43C-43 'erased e-5 e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--9733-7509-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-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 (CaseSplit-Interactive-TTImp-n--9733-7510-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4)))))))))
-(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) 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) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-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 ))) ((CaseSplit-Interactive-TTImp-case--10579-8286 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 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 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))
-(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--9179-7035 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9425-7233 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2))))
+(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10130-7624-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-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 (CaseSplit-Interactive-TTImp-n--10130-7625-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4)))))))))
+(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) 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) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-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 ))) ((CaseSplit-Interactive-TTImp-case--10999-8427 e-21 e-13 e-12 e-22 arg-1 arg-0 bind-0 e-6 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 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 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))
+(define CaseSplit-Interactive-TTImp-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))) (CaseSplit-Interactive-TTImp-case--9572-7145 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--9819-7344 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2))))
 (define CaseSplit-Interactive-TTImp-findAllVars (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) ((3) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((1) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4))) ((4) (vector 1 e-2 (CaseSplit-Interactive-TTImp-findAllVars 'erased e-4)))(else (vector 0 ))))))))(else (vector 0 ))))))
 (define CaseSplit-Interactive-TTImp-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 (Context-Core-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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 e-5 arg-2 (vector 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 (TTImp-TTImp-apply (vector 0 arg-1 arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-1 eta-0)) e-8))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))))))))))))
 (define CaseSplit-Interactive-TTImp-defaultNames (lambda () (vector 1 "x" (vector 1 "y" (vector 1 "z" (vector 1 "w" (vector 1 "v" (vector 1 "s" (vector 1 "t" (vector 1 "u" (vector 0 )))))))))))
 (define CaseSplit-Interactive-TTImp-combine (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) (vector 0 (vector 0 )))(else (vector 1 (List-Data-reverse 'erased arg-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CaseSplit-Interactive-TTImp-combine e-3 arg-1))(else (CaseSplit-Interactive-TTImp-combine e-3 (vector 1 e-2 arg-1))))))))))))
 (define CaseSplit-Interactive-TTImp-apply (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-apply (vector 8 e-4 arg-0 e-5) e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-apply (vector 9 e-6 arg-0 e-7 e-8) e-2)))))))))) (else arg-0)))))
-(define AutoSearch-Core-case--12517-5118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7331-4695-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-24 arg-8 arg-9 arg-10 arg-11 (vector 0 ) arg-20 (let ((sc1 arg-22)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
-(define AutoSearch-Core-case--12429-5011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-8)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7331-4695-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--12517-5118 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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 defaults e (AutoSearch-Core-n--7331-4694-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0)))))))
-(define AutoSearch-Core-case--12367-4942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-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 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-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 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-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 (let ((e-7 (vector-ref sc3 1))) (let ((sc4 arg-8)) (cond ((equal? sc4 0) ((AutoSearch-Core-n--7331-4695-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-21 (let ((sc5 e-6)) (let ((e-1 (vector-ref sc5 2))) e-1))) eta-0)) (else (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--12517-5118 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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-6 e-7 defaults e (AutoSearch-Core-n--7331-4694-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))))))
-(define AutoSearch-Core-case--7331-4901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12367-4942 arg-0 arg-1 arg-2 arg-3 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-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0)))))))))))
-(define AutoSearch-Core-case--12149-4790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7331-4695-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 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15))))))
-(define AutoSearch-Core-case--11990-4597 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2))))))
-(define AutoSearch-Core-case--11777-4405 (lambda (arg-0 arg-1 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 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-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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 ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0))))))))))))
-(define AutoSearch-Core-case--11745-4375 (lambda (arg-0 arg-1 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) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) 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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 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 ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0))))))))))))))))
-(define AutoSearch-Core-case--11338-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-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-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 ((Normalise-Core-evalClosure 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 ((AutoSearch-Core-n--11338-4012-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 ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0)))))))))))))))))))))
-(define AutoSearch-Core-case--11362-4183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--11362-4080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--10949-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18))))))
-(define AutoSearch-Core-case--10993-3746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--10984-3705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--10993-3746 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--10695-3516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-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))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--10447-3456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) 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))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--10695-3516 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
-(define AutoSearch-Core-case--10447-3264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((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 AutoSearch-Core-case--9951-2933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--9430-2776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 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))) (let ((act-26 (Context-Core-isPairType arg-13 arg-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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 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))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 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 ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (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))) ((AutoSearch-Core-n--9403-2274-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))))))))))))
-(define AutoSearch-Core-case--9612-2539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9403-2272-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-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))
-(define AutoSearch-Core-case--9521-2478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate 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 ((envC-39 (AutoSearch-Core-n--9403-2272-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-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 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
-(define AutoSearch-Core-case--9429-2405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 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 ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9521-2478 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
-(define AutoSearch-Core-case--9094-2021 (lambda (arg-0 arg-1 arg-2 arg-3 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) (AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
-(define AutoSearch-Core-case--9078-1971 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-evalClosure 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))) ((AutoSearch-Core-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) ((AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9028-1955-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11))))))
-(define AutoSearch-Core-case--8897-1811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7)))
-(define AutoSearch-Core-case--8850-1784 (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) (AutoSearch-Core-case--8897-1811 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7)))))
-(define AutoSearch-Core-case--8625-1631 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-5 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-6 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 (Context-Core-commit arg-6 eta-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)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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-5 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8625-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))
-(define AutoSearch-Core-case--8625-1555 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
-(define AutoSearch-Core-case--8519-1472 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
-(define AutoSearch-Core-case--8050-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
-(define AutoSearch-Core-case--7855-1010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) 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))) (let ((ok 1)) ((AutoSearch-Core-case--8050-1119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
-(define AutoSearch-Core-case--7855-930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define AutoSearch-Core-case--7804-846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-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 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) 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))) ((AutoSearch-Core-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) 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) 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 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) 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 ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157 eta-1)))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-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 ((ok 1)) ((AutoSearch-Core-case--8050-1119 arg-0 arg-1 arg-2 arg-3 arg-4 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 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-case--7758-811 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--7804-846 arg-0 arg-1 arg-2 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
-(define AutoSearch-Core-case--7717-739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0)))))
-(define AutoSearch-Core-case--7546-662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3))))))))
-(define AutoSearch-Core-case--7487-601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) 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 ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4))))))))))))))))))))
-(define AutoSearch-Core-n--10949-3694-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 ((Context-Core-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))) ((AutoSearch-Core-case--10993-3746 arg-0 arg-1 arg-2 arg-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 (Context-Core-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 AutoSearch-Core-n--9028-1955-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9078-1971 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-10 arg-11)))))))))
-(define AutoSearch-Core-n--7331-4695-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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12149-4790 arg-0 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 err (AutoSearch-Core-n--7331-4694-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 err))) eta-0)))))))))))))
-(define AutoSearch-Core-n--8625-1605-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-3 e-2 eta-0)))))))))
-(define AutoSearch-Core-n--7712-731-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--7717-739 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define AutoSearch-Core-n--9403-2274-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9403-2273-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-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9430-2776 arg-0 arg-1 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 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9403-2270-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 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9403-2273-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 AutoSearch-Core-n--9403-2273-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 ((AutoSearch-Core-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 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 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9521-2478 arg-0 arg-1 arg-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-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0)))))))))))))))))))))))))))
-(define AutoSearch-Core-n--11338-4012-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((AutoSearch-Core-n--11338-4012-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-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11338-4012-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11338-4012-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define AutoSearch-Core-n--9403-2271-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased 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 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9403-2271-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 'erased 'erased e-0 'erased arg-18 e-10)))))))))))
-(define AutoSearch-Core-n--9403-2272-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))) (AutoSearch-Core-n--9403-2271-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 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15)))))
-(define AutoSearch-Core-n--9403-2270-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 AutoSearch-Core-n--7331-4694-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 AutoSearch-Core-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))) (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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (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 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (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 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not 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-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9028-1955-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 (vector-ref sc2 1))) e-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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 (Extra-Bool-Data-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))) (let ((sc1 e-19)) (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-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 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-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
+(define AutoSearch-Core-case--13042-5432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (AutoSearch-Core-n--7569-4986-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
+(define AutoSearch-Core-case--12951-5318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (AutoSearch-Core-n--7569-4986-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-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--13042-5432 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (AutoSearch-Core-n--7569-4985-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 e))) eta-0)))))))
+(define AutoSearch-Core-case--12889-5244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-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 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-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 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-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 (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--12951-5318 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-6 e-7 (Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))))))
+(define AutoSearch-Core-case--7569-5203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-5))) (AutoSearch-Core-case--12889-5244 arg-0 arg-1 arg-2 arg-3 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-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0)))))))))))
+(define AutoSearch-Core-case--12662-5087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Core-Core-throw_Catchable__Core_Error 'erased arg-18 eta-0))) (else (AutoSearch-Core-n--7569-4986-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 (Maybe-Data-fromMaybe 'erased (lambda () arg-18) arg-17)) arg-16 arg-15))))))
+(define AutoSearch-Core-case--12499-4886 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0))) (else (AutoSearch-Core-abandonIfCycle arg-0 arg-5 arg-4 arg-3 arg-2))))))
+(define AutoSearch-Core-case--12279-4685 (lambda (arg-0 arg-1 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-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 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-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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 ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0))))))))))))
+(define AutoSearch-Core-case--12245-4655 (lambda (arg-0 arg-1 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) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) 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-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 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 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 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 ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0))))))))))))))))
+(define AutoSearch-Core-case--11701-4548 (lambda (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) (AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-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 ((Normalise-Core-evalClosure 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 ((AutoSearch-Core-n--11701-4169-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 ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0)))))))))))))))))))))
+(define AutoSearch-Core-case--11726-4458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--11726-4354 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--11725-4189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-12 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))))))
+(define AutoSearch-Core-case--11309-4073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18))))))
+(define AutoSearch-Core-case--11354-3899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--11344-3858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--11049-3662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-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))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--10789-3601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) 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))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--11049-3662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
+(define AutoSearch-Core-case--10789-3396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((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 AutoSearch-Core-case--10274-3052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((act-24 (Context-Core-clearDefs arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-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 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) 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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) 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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-27) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 0 )))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--9740-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) 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))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 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))) (let ((act-26 (Context-Core-isPairType arg-13 arg-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 ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 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))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 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 ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-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))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (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))) ((AutoSearch-Core-n--9713-2365-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-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-6) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 0 )))) eta-0))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))))))))))))
+(define AutoSearch-Core-case--9928-2639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9713-2363-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-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-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 (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))
+(define AutoSearch-Core-case--9834-2577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate 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 ((envC-39 (AutoSearch-Core-n--9713-2363-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-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 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))
+(define AutoSearch-Core-case--9739-2499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 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 ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-0 e-5 e-6 e-7 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))))))))))))))))
+(define AutoSearch-Core-case--9394-2103 (lambda (arg-0 arg-1 arg-2 arg-3 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) (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1)))))))
+(define AutoSearch-Core-case--9378-2050 (lambda (arg-0 arg-1 arg-2 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 ((Normalise-Core-evalClosure 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))) ((AutoSearch-Core-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) ((AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9328-2034-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11))))))
+(define AutoSearch-Core-case--9197-1890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 1 (vector 0 (vector 0 arg-6 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-7)))
+(define AutoSearch-Core-case--9150-1863 (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) (AutoSearch-Core-case--9197-1890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (TT-Core-weakenVar 'erased 'erased arg-4 0 'erased))) (else arg-7)))))
+(define AutoSearch-Core-case--8891-1680 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (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 (Context-Core-commit arg-7 eta-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)))))))))))))))(else (lambda (eta-0) (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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-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 (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (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 (Normalise-Core-quote_Quote__NF 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-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) 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-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-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-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-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 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8891-1653-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))
+(define AutoSearch-Core-case--8891-1599 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))))))
+(define AutoSearch-Core-case--8785-1516 (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) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-7 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))))))
+(define AutoSearch-Core-case--8304-1150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
+(define AutoSearch-Core-case--8103-1040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) 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))) (let ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ok e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))))))))
+(define AutoSearch-Core-case--8103-960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define AutoSearch-Core-case--8052-870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-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 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) 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))) ((AutoSearch-Core-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) 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 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 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) 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 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) 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 ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268 eta-1)))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-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 ((ok 1)) ((AutoSearch-Core-case--8304-1150 arg-0 arg-1 arg-2 arg-3 arg-4 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 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-case--8004-835 (lambda (arg-0 arg-1 arg-2 arg-3 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 ((_-0 (vector 1 e-1))) (AutoSearch-Core-case--8052-870 arg-0 arg-1 arg-2 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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0)))))))
+(define AutoSearch-Core-case--7963-761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) 1)(else 0)))))
+(define AutoSearch-Core-case--7789-684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3))))))))
+(define AutoSearch-Core-case--7725-619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) 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 ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4))))))))))))))))))))
+(define AutoSearch-Core-n--11309-3846-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 ((Context-Core-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))) ((AutoSearch-Core-case--11354-3899 arg-0 arg-1 arg-2 arg-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 (Context-Core-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 AutoSearch-Core-n--9328-2034-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--9378-2050 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-10 arg-11)))))))))
+(define AutoSearch-Core-n--7569-4986-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)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (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 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (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 (Strings-Prelude-C-43C-43 "Search: Trying " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-7)) (Strings-Prelude-C-43C-43 " names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) 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 ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--12662-5087 arg-0 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 err (AutoSearch-Core-n--7569-4985-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 err))) eta-0)))))))))))))
+(define AutoSearch-Core-n--8891-1653-normRes (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0)))))))))
+(define AutoSearch-Core-n--7958-753-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--7963-761 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define AutoSearch-Core-n--9713-2365-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)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-13 arg-12 (lambda (eta-1) (AutoSearch-Core-n--9713-2364-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-1)) (lambda (e) (let ((nty (vector 3 e-1 e-2 e-3 e-4 (vector 1 e-7 (vector 1 e-10 (vector 0 )))))) (AutoSearch-Core-case--9740-2884 arg-0 arg-1 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 arg-18 e-7 e-10 e-2 e-1 nty arg-16 arg-15 arg-14 e (AutoSearch-Core-n--9713-2361-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 e)))) eta-0)))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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)))))))))))(else (lambda (eta-0) (AutoSearch-Core-n--9713-2364-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 AutoSearch-Core-n--9713-2364-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 ((AutoSearch-Core-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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 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 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) 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 ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--9834-2577 arg-0 arg-1 arg-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-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0)))))))))))))))))))))))))))
+(define AutoSearch-Core-n--11701-4168-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-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11725-4189 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-12 arg-13)))))))))
+(define AutoSearch-Core-n--11701-4169-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) (Normalise-Core-toClosure 'erased (Value-Core-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))) ((AutoSearch-Core-n--11701-4169-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 (Context-Core-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 ((argsC-39 (AutoSearch-Core-n--11701-4168-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11701-4169-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)))))))) argsC-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 (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 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))) ((AutoSearch-Core-n--11701-4169-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)))))))) 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 (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (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) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) 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)) (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 e-3)) (cond ((equal? sc6 0) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-n--9713-2362-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-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-19)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-multiplicity 'erased 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 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (AutoSearch-Core-n--9713-2362-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 'erased 'erased e-0 'erased arg-18 e-10)))))))))))
+(define AutoSearch-Core-n--9713-2363-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))) (AutoSearch-Core-n--9713-2362-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 'erased 'erased e-4 'erased e-2 arg-15))))(else arg-15)))))
+(define AutoSearch-Core-n--9713-2361-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 AutoSearch-Core-n--7569-4985-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 AutoSearch-Core-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))) (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) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (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 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (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 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not 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-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9328-2034-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 (vector-ref sc2 1))) e-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 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))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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 (Extra-Bool-Data-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))) (let ((sc1 e-19)) (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-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 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-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0)))))))
 (define AutoSearch-Core-successful (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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-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 (Context-Core-branch arg-1 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (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 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (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 (vector 1 (vector 1 (vector 0 e-7 (vector 0 e-9 e-8))) e-12))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (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 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) 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 (vector 1 (vector 0 err) e-9))))))))))))))))) eta-0)))))))))))))))))))
-(define AutoSearch-Core-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) (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))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) 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 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) 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 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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 ((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 ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--12367-4942 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 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) 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))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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) ((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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12367-4942 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 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0))))))))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--10949-3694-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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-12)) (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 (let ((act-25 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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 (Prelude-not (Context-Core-visibleInAny (vector 1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-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 ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10447-3264 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 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) 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 ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 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 ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7148) (lambda (arg-7150) (lambda (arg-7152) (lambda (arg-7153) (lambda (arg-7154) (lambda (arg-7156) (lambda (arg-7157) (Unify-Core-unifyD_Unify__NF vars arg-7148 arg-7150 arg-7152 arg-7153 arg-7154 arg-7156 arg-7157))))))))) (lambda (vars) (lambda (arg-7159) (lambda (arg-7161) (lambda (arg-7163) (lambda (arg-7164) (lambda (arg-7165) (lambda (arg-7167) (lambda (arg-7168) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7159 arg-7161 arg-7163 arg-7164 arg-7165 arg-7167 arg-7168)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) 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))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--10695-3516 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 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))
-(define AutoSearch-Core-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) (let ((sc0 arg-11)) (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 ((Normalise-Core-nf arg-0 e-5 arg-10 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))) ((AutoSearch-Core-n--9403-2274-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-1) eta-1) e-6 arg-12) eta-0)))))))))))))))))
-(define AutoSearch-Core-searchLocal (lambda (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 ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs))))
-(define AutoSearch-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((AutoSearch-Core-case--7804-846 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))))))))))))))))))))))
+(define AutoSearch-Core-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) (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))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) 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 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) 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 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(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-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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 ((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 ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--12889-5244 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 e-6 tryingC-39 e-8 e-9 e-10 e-11 e-12 nty (Prelude-C-61C-61_Eq__Nat e-9 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) 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))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-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 ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) 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) ((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 ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--12889-5244 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 e-6 tryingC-39 e-8 e-4 e-3 e-2 e-1 nty (Prelude-C-61C-61_Eq__Nat e-4 (List-Data-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 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 ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0))))))))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11309-3846-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)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 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))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-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-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-12)) (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 (let ((act-25 (Context-Core-getNS arg-1 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 (Context-Core-getNestedNS arg-1 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 (Prelude-not (Context-Core-visibleInAny (vector 1 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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-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 ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--10789-3396 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 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) 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 ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 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 ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) 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 ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7259) (lambda (arg-7261) (lambda (arg-7263) (lambda (arg-7264) (lambda (arg-7265) (lambda (arg-7267) (lambda (arg-7268) (Unify-Core-unifyD_Unify__NF vars arg-7259 arg-7261 arg-7263 arg-7264 arg-7265 arg-7267 arg-7268))))))))) (lambda (vars) (lambda (arg-7270) (lambda (arg-7272) (lambda (arg-7274) (lambda (arg-7275) (lambda (arg-7276) (lambda (arg-7278) (lambda (arg-7279) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7270 arg-7272 arg-7274 arg-7275 arg-7276 arg-7278 arg-7279)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) 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))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--11049-3662 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 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))
+(define AutoSearch-Core-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) (let ((sc0 arg-11)) (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 ((Normalise-Core-nf arg-0 e-5 arg-10 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))) ((AutoSearch-Core-n--9713-2365-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-1) eta-1) e-6 arg-12) eta-0)))))))))))))))))
+(define AutoSearch-Core-searchLocal (lambda (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 ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-11 elabs))))
+(define AutoSearch-Core-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((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 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) 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))) ((AutoSearch-Core-case--8052-870 arg-0 e-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hole rig e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))))))))))))))))))))))
 (define ArgInfo-AutoSearch-Core-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
 (define AutoSearch-Core-mkArgs (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-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))) (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 (Context-Core-clearDefs 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 (UnifyState-Core-genName arg-1 arg-2 "sa" 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))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (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))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc6 act-28)) (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))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 9 e-14) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-30)) (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))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16) eta-0)))))))) (let ((sc9 act-30)) (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 ((sc10 e-16)) (let ((e-18 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6))))))))
 (define ArgInfo-AutoSearch-Core-metaApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
 (define AutoSearch-Core-isPairNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Context-Core-isPairType arg-1 e-2 eta-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) (lambda (eta-0) (let ((act-24 (((e-10 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-7 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))) ((AutoSearch-Core-isPairNF 'erased arg-1 arg-2 e-5 arg-4) eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))
-(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--7712-731-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--7712-731-impl 'erased arg-1 'erased eta-0)) arg-1))))
+(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Prelude-not (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--7958-753-impl 'erased arg-1 'erased eta-0)) arg-1))))
 (define ArgInfo-AutoSearch-Core-holeID (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
-(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--8850-1784 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) arg-2)))))))))))))))
-(define AutoSearch-Core-exactlyOne (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-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-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--8625-1631 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8625-1631 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0))))))))))))
-(define AutoSearch-Core-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11338-4273 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-7 arg-8))))))))))
-(define AutoSearch-Core-checkConcreteDets (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) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 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 ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) 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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) 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 ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--9150-1863 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) arg-2)))))))))))))))
+(define AutoSearch-Core-exactlyOne (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 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))) ((AutoSearch-Core-case--8891-1680 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0))))))))))))
+(define AutoSearch-Core-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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--11701-4548 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-7 arg-8))))))))))
+(define AutoSearch-Core-checkConcreteDets (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) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 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 ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) 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))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) 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 ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-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 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Determining arguments for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define ArgInfo-AutoSearch-Core-argType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5))))
 (define ArgInfo-AutoSearch-Core-argRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
 (define AutoSearch-Core-anyOne (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-2 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 e-2 (AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))))))
 (define AutoSearch-Core-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (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 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-2 arg-3 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 ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0)) (else ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3) eta-0))))))))))))))))))))))
 (define InitPrimitives-Core-addPrimitives (lambda (arg-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (InitPrimitives-Core-addPrim arg-0 eta-0 eta-1))) (Primitives-Core-allPrimitives))))
 (define InitPrimitives-Core-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-addBuiltin (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) arg-0 (Primitives-Core-opName 'erased (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 (CompileExpr-Compiler-compileDef arg-0 (Primitives-Core-opName 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0)))))))
-(define CompileExpr-Compiler-case--11888-7873 (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 ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0)))))))))
-(define CompileExpr-Compiler-case--11872-7861 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--11888-7873 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
-(define CompileExpr-Compiler-case--11813-7807 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) 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))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
-(define CompileExpr-Compiler-case--11417-7634 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11417-7582-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11417-7583-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))))
-(define CompileExpr-Compiler-case--11417-7562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3))))))))
-(define CompileExpr-Compiler-case--11417-7506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) 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-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11417-7456-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11417-7457-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))))))))))
-(define CompileExpr-Compiler-case--11039-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) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 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 (vector 0 e-2 e-6))))))))))))))))))
-(define CompileExpr-Compiler-case--10842-7072 (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 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (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))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) 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 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 11 e-6)))))))))))))))))))
-(define CompileExpr-Compiler-case--10704-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 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))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))
-(define CompileExpr-Compiler-case--10577-6680 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11))))))))
-(define CompileExpr-Compiler-case--10558-6642 (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-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 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-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CompileExpr-Compiler-case--10547-6627 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (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 ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (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 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10398-6522 (lambda (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))
-(define CompileExpr-Compiler-case--10378-6489 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) 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-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) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10367-6473 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10378-6489 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
-(define CompileExpr-Compiler-case--10314-6434 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3)))))))
-(define CompileExpr-Compiler-case--9076-6280 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13))))))))
-(define CompileExpr-Compiler-case--9905-6106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17))))))))))
-(define CompileExpr-Compiler-case--9076-6054 (lambda (arg-0 arg-1 arg-2 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) (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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 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))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) 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 ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--9905-6106 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define CompileExpr-Compiler-case--9067-5847 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-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))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CompileExpr-Compiler-case--9526-5747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-14 (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9067-5721-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12)))))))
-(define CompileExpr-Compiler-case--9230-5511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16))))))))
-(define CompileExpr-Compiler-case--9153-5465 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) 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 ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-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))) ((CompileExpr-Compiler-case--9230-5511 arg-0 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 (CompileExpr-Compiler-n--9061-5352-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)))) eta-0)))))))))))))))))
-(define CompileExpr-Compiler-case--9120-5400 (lambda (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) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((CompileExpr-Compiler-case--9153-5465 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 (CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9153-5465 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 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))
-(define CompileExpr-Compiler-case--9061-5377 (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))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9120-5400 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 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-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 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 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7)))))))))))))))))))))))
-(define CompileExpr-Compiler-case--8932-5245 (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-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))
-(define CompileExpr-Compiler-case--8484-5203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) 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))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 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 ((CompileExpr-Compiler-numArgs 'erased e-6 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 (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 ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))))))))))))))))))))))))))
-(define CompileExpr-Compiler-case--8481-5139 (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 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 )))))))))
-(define CompileExpr-Compiler-case--8328-4741 (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))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
-(define CompileExpr-Compiler-case--8252-4572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
-(define CompileExpr-Compiler-case--7859-4220 (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 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6)))))))
-(define CompileExpr-Compiler-case--7829-4199 (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))) (CompileExpr-Compiler-case--7859-4220 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-4 arg-3)))))))
-(define CompileExpr-Compiler-case--7736-4105 (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) (CompileExpr-Compiler-n--7717-4091-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--7717-4091-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))))
-(define CompileExpr-Compiler-case--7608-4007 (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-6) (else (CompileExpr-Compiler-n--7599-3985-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))
-(define CompileExpr-Compiler-case--7168-3602 (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) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-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)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((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 CompileExpr-Compiler-case--7140-3587 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7168-3602 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0))))))))
-(define CompileExpr-Compiler-n--8328-4633-toBool (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 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-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define CompileExpr-Compiler-n--11417-7582-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC))))
-(define CompileExpr-Compiler-n--11417-7456-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC))))
-(define CompileExpr-Compiler-n--9067-5721-mkSubst (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9526-5747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13)))))))))
-(define CompileExpr-Compiler-n--7400-3806-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
-(define CompileExpr-Compiler-n--7400-3807-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (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 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5)))))))))
-(define CompileExpr-Compiler-n--7599-3986-keepArg (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-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 (CompileExpr-Compiler-n--7599-3986-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7599-3985-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2)))))))
-(define CompileExpr-Compiler-n--7599-3985-keep (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 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7608-4007 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3)))))))))
-(define CompileExpr-Compiler-n--11417-7583-getVars (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 (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11417-7583-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
-(define CompileExpr-Compiler-n--11417-7457-getVars (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-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11417-7457-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
-(define CompileExpr-Compiler-n--7717-4091-drop (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7736-4105 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Nat arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Nat arg-650 arg-651)))) arg-6 arg-5)))))))))
-(define CompileExpr-Compiler-n--9061-5352-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 CompileExpr-Compiler-n--7496-3904-applyAll (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7496-3904-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3))))))))
-(define CompileExpr-Compiler-n--7496-3926-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 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--12190-8093 (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 ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0)))))))))
+(define CompileExpr-Compiler-case--12172-8081 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--12190-8093 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
+(define CompileExpr-Compiler-case--12109-8023 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) 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))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0)))))))
+(define CompileExpr-Compiler-case--11702-7843 (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))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7791-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))))
+(define CompileExpr-Compiler-case--11702-7771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3))))))))
+(define CompileExpr-Compiler-case--11702-7711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) 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-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--11702-7661-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))))))))))
+(define CompileExpr-Compiler-case--11311-7335 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 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 (vector 0 e-2 e-6))))))))))))))))))
+(define CompileExpr-Compiler-case--11107-7259 (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 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 13 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (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))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) 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 (vector 12 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 6 )))) ((4) (lambda (eta-0) (vector 1 (vector 7 )))) ((5) (lambda (eta-0) (vector 1 (vector 8 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 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-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 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 (vector 11 e-6)))))))))))))))))))
+(define CompileExpr-Compiler-case--10967-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 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))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))
+(define CompileExpr-Compiler-case--10838-6858 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11))))))))
+(define CompileExpr-Compiler-case--10819-6818 (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-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 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 ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 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-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--10807-6803 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (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 ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (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 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10657-6697 (lambda (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) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))
+(define CompileExpr-Compiler-case--10637-6663 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) 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-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) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10625-6647 (lambda (arg-0 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))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-5))) (CompileExpr-Compiler-case--10637-6663 arg-0 arg-1 e-2 e-3 e-4 e-5 e-1 _-0 (List-Data-reverse 'erased e-5)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0)))))))
+(define CompileExpr-Compiler-case--10572-6607 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 (vector 2 "arg" arg-1) e-2) (vector 1 (vector 2 "arg" arg-1) e-3)))))))
+(define CompileExpr-Compiler-case--9315-6453 (lambda (arg-0 arg-1 arg-2 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13))))))))
+(define CompileExpr-Compiler-case--10158-6277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17))))))))))
+(define CompileExpr-Compiler-case--9315-6221 (lambda (arg-0 arg-1 arg-2 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) (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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 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))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) 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 ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define CompileExpr-Compiler-case--9306-6012 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-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))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CompileExpr-Compiler-case--9775-5909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-14 (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))) (else (vector 1 (vector 13 arg-8) (CompileExpr-Compiler-n--9306-5883-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12)))))))
+(define CompileExpr-Compiler-case--9472-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 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16))))))))
+(define CompileExpr-Compiler-case--9394-5620 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) 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 ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-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))) ((CompileExpr-Compiler-case--9472-5668 arg-0 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 (CompileExpr-Compiler-n--9300-5503-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)))) eta-0)))))))))))))))))
+(define CompileExpr-Compiler-case--9361-5554 (lambda (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) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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))) ((CompileExpr-Compiler-case--9394-5620 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 (CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9394-5620 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 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))
+(define CompileExpr-Compiler-case--9300-5531 (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))) (let ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--9361-5554 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 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-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 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 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7)))))))))))))))))))))))
+(define CompileExpr-Compiler-case--9165-5396 (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-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))
+(define CompileExpr-Compiler-case--8709-5346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) 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))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 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 ((CompileExpr-Compiler-numArgs 'erased e-6 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 (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 ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))))))))))))))))))))))))))
+(define CompileExpr-Compiler-case--8706-5282 (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 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 )))))))))
+(define CompileExpr-Compiler-case--8553-4873 (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))) (vector 11 arg-4 arg-3 e-1 arg-1))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
+(define CompileExpr-Compiler-case--8477-4704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getZBranch 'erased arg-2)))) (vector 11 arg-4 arg-3 (vector 1 (vector 0 (vector 1 0) zcase) (vector 0 )) (vector 1 scase)))))) (else (vector 10 arg-4 arg-3 arg-2 arg-1))))))
+(define CompileExpr-Compiler-case--8084-4352 (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 arg-5 (vector 1 arg-6))) (else (vector 0 (vector 1 arg-0 arg-5) (vector 2 arg-6)))))))
+(define CompileExpr-Compiler-case--8054-4331 (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))) (CompileExpr-Compiler-case--8084-4352 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-4 arg-3)))))))
+(define CompileExpr-Compiler-case--7961-4237 (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) (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--7942-4223-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))))
+(define CompileExpr-Compiler-case--7833-4139 (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-6) (else (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))
+(define CompileExpr-Compiler-case--7393-3734 (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) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-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)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Data-length 'erased e-4)))))) ((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 CompileExpr-Compiler-case--7364-3719 (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 ((_-0 (vector 1 e-1))) (CompileExpr-Compiler-case--7393-3734 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0))))))))
+(define CompileExpr-Compiler-n--8553-4765-toBool (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 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-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "True") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-13) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "False") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "LT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "EQ") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-22) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc6 "GT") (let ((sc7 e-2)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 (vector 0 e-25) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define CompileExpr-Compiler-n--11702-7791-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 (FC-Core-emptyFC))))
+(define CompileExpr-Compiler-n--11702-7661-toArgExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 (FC-Core-emptyFC))))
+(define CompileExpr-Compiler-n--9306-5883-mkSubst (lambda (arg-0 arg-1 arg-2 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--9775-5909 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased e-2 e-3 arg-13 arg-12 arg-11 (Prelude-C-61C-61_Eq__Nat arg-11 arg-13)))))))))
+(define CompileExpr-Compiler-n--7625-3938-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
+(define CompileExpr-Compiler-n--7625-3939-mkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) arg-4)(else (let ((sc0 arg-4)) (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 (List-Prelude-C-43C-43 'erased e-3 arg-5)))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 arg-5))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 arg-5))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-4) arg-4 arg-5)))))))))
+(define CompileExpr-Compiler-n--7824-4118-keepArg (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-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 (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-3)))))) ((5) (let ((e-8 (vector-ref sc0 4))) (CompileExpr-Compiler-n--7824-4117-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased 0 e-8)))(else (vector 13 (CompileExpr-Core-getFC 'erased arg-2)))))))
+(define CompileExpr-Compiler-n--7824-4117-keep (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 13 (CompileExpr-Core-getFC 'erased arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7833-4139 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__Nat arg-6 arg-3)))))))))
+(define CompileExpr-Compiler-n--11702-7792-getVars (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 (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7792-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
+(define CompileExpr-Compiler-n--11702-7662-getVars (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-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--11702-7662-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
+(define CompileExpr-Compiler-n--7942-4223-drop (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7961-4237 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Nat arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Nat arg-430 arg-431)))) arg-6 arg-5)))))))))
+(define CompileExpr-Compiler-n--9300-5503-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 CompileExpr-Compiler-n--7721-4036-applyAll (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-1 arg-2 (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (vector 1 e-2 (vector 0 ))) e-3))))))))
+(define CompileExpr-Compiler-n--7721-4058-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 (List-Prelude-C-43C-43 'erased e-3 (vector 1 arg-6 (vector 0 )))))))) ((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))) (vector 5 e-5 e-6 e-7 (List-Prelude-C-43C-43 'erased e-8 (vector 1 arg-6 (vector 0 ))))))))) ((7) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 7 e-10 e-11 (List-Prelude-C-43C-43 'erased e-12 (vector 1 arg-6 (vector 0 ))))))))(else (vector 4 (CompileExpr-Core-getFC 'erased arg-5) arg-5 (vector 1 arg-6 (vector 0 ))))))))
 (define CompileExpr-Compiler-weakenVar (lambda (arg-0 arg-1 arg-2) (+ 1 arg-2)))
 (define CompileExpr-Compiler-tryZBranch (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))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "Z") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (vector 1 e-4))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 ))))))
 (define CompileExpr-Compiler-trySBranch (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 ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (cond ((equal? sc6 "S") (let ((sc7 e-3)) (case (vector-ref sc7 0) ((1) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (let ((fc (CompileExpr-Core-getFC 'erased arg-1))) (vector 1 (vector 3 fc e-13 0 (vector 4 fc (vector 1 fc (vector 1 "prim__sub_Integer")) (vector 1 arg-1 (vector 1 (vector 12 fc (vector 1 1)) (vector 0 )))) e-4))))(else (vector 0 )))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))))(else (vector 0 ))))))
-(define CompileExpr-Compiler-toCExpTreeC-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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 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 ((alts (vector 1 (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 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 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 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 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 ))) ((CompileExpr-Compiler-case--9905-6106 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9076-6280 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2))))))))))
+(define CompileExpr-Compiler-toCExpTreeC-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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 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 ((alts (vector 1 (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 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 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 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 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 ))) ((CompileExpr-Compiler-case--10158-6277 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--9315-6453 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2))))))))))
 (define CompileExpr-Compiler-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 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (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 ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (vector 1 e-10 (vector 1 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 fc e-11 0 (vector 8 fc (vector 0 e-2 (TT-Core-getLoc 'erased e-4))) (vector 3 fc e-10 0 (vector 13 fc) e-6))))))))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))
-(define CompileExpr-Compiler-toCExpTm (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-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))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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) (vector 0 )))))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) 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))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) 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 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) 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 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) 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 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (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 ((CompileExpr-Compiler-toCExp 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 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 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 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 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-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8481-5139 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 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 0 ) (vector 0 ))))))))))
-(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8484-5203 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))
-(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-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))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11417-7506 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (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))) (CompileExpr-Compiler-case--11417-7634 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 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 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3)))))))))))))))))
-(define CompileExpr-Compiler-numArgs (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7168-3602 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))
-(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 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-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) 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 (vector 10 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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (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))) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) e-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))
-(define CompileExpr-Compiler-natHackTree (lambda (arg-0 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))) (CompileExpr-Compiler-case--8252-4572 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1)))))
+(define CompileExpr-Compiler-toCExpTm (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-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))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-60 (vector-ref sc7 1))) (let ((sc8 e-60)) (cond ((equal? sc8 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc8 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) 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 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-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))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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) (vector 0 )))))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) 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))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) 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 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) (lambda () (CompileExpr-Core-shrinkCExp 'erased 'erased (vector 1 (vector 0 )) e-5)) (lambda () (vector 3 e-16 e-17 0 e-6 e-5)) e-66)))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) 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 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) 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 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (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 ((CompileExpr-Compiler-toCExp 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 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 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 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 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-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp 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))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--8706-5282 arg-0 arg-1 e-44 e-43 arg-2 t (Prelude-C-61C-61_Eq__Int t 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 0 ) (vector 0 ))))))))))
+(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--8709-5346 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))
+(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-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))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--11702-7711 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((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 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 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 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (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))) (CompileExpr-Compiler-case--11702-7843 e-8 e-9 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-8))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((nt (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 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 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-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 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered uncompilable name " (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3)))))))))))))))))
+(define CompileExpr-Compiler-numArgs (lambda (arg-0 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--7393-3734 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))
+(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 2 )))) ((14) (lambda (eta-0) (vector 1 (vector 2 )))) ((15) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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 10 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))) (lambda (eta-0) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 3 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (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-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (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-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (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 10 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))) (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-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-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-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (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-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-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-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 4 )))) ((17) (lambda (eta-0) (vector 1 (vector 5 )))) ((19) (lambda (eta-0) (vector 1 (vector 9 ))))(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))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (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-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) 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-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-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))) (vector 1 (vector 10 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))) (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-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-0))) (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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-6 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(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))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (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-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) 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 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 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-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) 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 (vector 10 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))) (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-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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 ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (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 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(else (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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 eta-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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-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 ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) 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))) (vector 1 (vector 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) 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))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (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))) (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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-2 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 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) 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))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (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 13 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (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 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (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 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (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 12 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 6 ))) ((4) (vector 1 (vector 7 ))) ((5) (vector 1 (vector 8 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-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 ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (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 11 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 13 (vector 1 "__") (vector 0 )))))(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 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) e-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))
+(define CompileExpr-Compiler-natHackTree (lambda (arg-0 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))) (CompileExpr-Compiler-case--8477-4704 'erased e-4 e-3 e-2 e-1 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CompileExpr-Compiler-natBranch 'erased eta-0))) e-3)))))))(else arg-1)))))
 (define CompileExpr-Compiler-natHack (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((sc3 e-16)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-17)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-19 (vector-ref sc5 1))) (let ((sc6 e-19)) (cond ((equal? sc6 "Z") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 12 e-1 (vector 1 0)))(else arg-1)))) ((equal? sc6 "S") (let ((sc7 e-4)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (case (vector-ref sc8 0) ((0) (vector 4 e-1 (vector 1 e-1 (vector 1 "prim__add_Integer")) (vector 1 (vector 12 e-1 (vector 1 1)) (vector 1 e-22 (vector 0 )))))(else arg-1))))))(else arg-1))))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((4) (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-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((sc4 e-31)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 1))) (let ((sc7 e-34)) (cond ((equal? sc7 "natToInteger") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((0) e-36)(else arg-1))))))(else arg-1)))) ((equal? sc7 "integerToNat") (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 1))) (let ((e-41 (vector-ref sc8 2))) (let ((sc9 e-41)) (case (vector-ref sc9 0) ((0) e-40)(else arg-1))))))(else arg-1)))) ((equal? sc7 "plus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__add_Integer")) e-8)) ((equal? sc7 "mult") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__mul_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1)))) ((equal? sc4 "Nat") (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-44 (vector-ref sc5 1))) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-44)) (cond ((equal? sc6 "Data") (let ((sc7 e-45)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((1) (let ((e-47 (vector-ref sc8 1))) (let ((sc9 e-47)) (cond ((equal? sc9 "minus") (vector 4 e-6 (vector 1 e-26 (vector 1 "prim__sub_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 2 e-10 e-11 (CompileExpr-Compiler-natHack 'erased e-12))))))(else arg-1)))))
 (define CompileExpr-Compiler-natBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (CompileExpr-Compiler-isNatCon e-1)))))
-(define CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--11888-7873 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
-(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--7829-4199 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3)))))))))
-(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10314-6434 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0))))))))
+(define CompileExpr-Compiler-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 ((Context-Core-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))) ((CompileExpr-Compiler-case--12190-8093 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
+(define CompileExpr-Compiler-mkDropSubst (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--8054-4331 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Prelude-C-43_Num__Nat (+ 1 0) arg-0) arg-1 arg-2 e-3)))))))))
+(define CompileExpr-Compiler-mkArgList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (CompileExpr-Compiler-case--10572-6607 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0))))))))
 (define CompileExpr-Compiler-isNatCon (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-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Prelude") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (cond ((equal? sc5 "Z") 0) ((equal? sc5 "S") 0)(else 1)))))(else 1))))(else 1))))(else 1))))))(else 1))))))(else 1)))))
 (define CompileExpr-Compiler-getZBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-tryZBranch 'erased e-2) (CompileExpr-Compiler-getZBranch 'erased e-3)))))))))
 (define CompileExpr-Compiler-getSBranch (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))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-trySBranch 'erased arg-1 e-2) (CompileExpr-Compiler-getSBranch 'erased arg-1 e-3)))))))))
-(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((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))) ((CompileExpr-Compiler-case--10378-6489 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
-(define CompileExpr-Compiler-getNewType (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 ((e-3 (vector-ref sc0 2))) (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 (Context-Core-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)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9067-5721-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((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))) ((CompileExpr-Compiler-case--10637-6663 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
+(define CompileExpr-Compiler-getNewType (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 ((e-3 (vector-ref sc0 2))) (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 (Context-Core-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)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9306-5883-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
 (define CompileExpr-Compiler-getNArgs (lambda (arg-0 arg-1 arg-2) (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) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "IORes") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 6 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Ptr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "AnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCAnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Buffer") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Unit") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Struct") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-23 (vector-ref sc4 1))) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 e-20) eta-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-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) ((6) (let ((e-6 (vector-ref sc8 1))) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-23 eta-0))) (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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))
 (define CompileExpr-Compiler-getFieldArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) 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 ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-12 ext-0))) (let ((sc6 act-25)) (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-26 (CompileExpr-Compiler-getPArgs arg-0 e-10 ext-0))) (let ((sc7 act-26)) (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 ((sc8 e-14)) (let ((e-16 (vector-ref sc8 1))) (let ((e-15 (vector-ref sc8 2))) (vector 1 (vector 1 (vector 0 e-16 e-15) e-13))))))))))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0)))))))))))
 (define CompileExpr-Compiler-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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) ((9) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))))))
 (define CompileExpr-Compiler-getCFTypes (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 ((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))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-8) 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 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (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 (((e-4 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) 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))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 1 e-5 arg-1) e-10) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) 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 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 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))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))
-(define CompileExpr-Compiler-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) (CompileExpr-Compiler-n--7496-3904-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7496-3926-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 )))))))))))))))
-(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7400-3807-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7400-3806-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4))))))))))
+(define CompileExpr-Compiler-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) (CompileExpr-Compiler-n--7721-4036-applyAll arg-0 arg-3 arg-2 arg-2 arg-3))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (CompileExpr-Compiler-expandToArity arg-0 e-1 (CompileExpr-Compiler-n--7721-4058-addArg arg-0 e-1 e-3 e-4 arg-2 arg-2 e-3) e-4))))(else (let ((sc0 arg-3)) (CompileExpr-Compiler-etaExpand arg-0 0 arg-1 arg-2 (vector 0 )))))))))))))))
+(define CompileExpr-Compiler-etaExpand (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7625-3939-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7625-3938-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4))))))))))
 (define CompileExpr-Compiler-eraseConArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-dropPos 'erased arg-2 fnC-39))))
-(define CompileExpr-Compiler-dropPos (lambda (arg-0 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 (CompileExpr-Compiler-dropPos 'erased arg-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))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--7717-4091-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2)))))
+(define CompileExpr-Compiler-dropPos (lambda (arg-0 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 (CompileExpr-Compiler-dropPos 'erased arg-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))) (let ((e-8 (vector-ref sc0 4))) (vector 5 e-5 e-6 e-7 (CompileExpr-Compiler-n--7942-4223-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2)))))
 (define CompileExpr-Compiler-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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) ((9) (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-5 e-7) e-8)))))))))))))))))))(else (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3)))))))))))
-(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9120-5400 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 ((Context-Core-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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3)))))))))))
+(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-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))) ((CompileExpr-Compiler-case--9361-5554 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 ((Context-Core-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 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased 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 ((CompileExpr-Compiler-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 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3)))))))))))
 (define CompileExpr-Compiler-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 0 ) arg-0 (vector 1 "main") 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))) (vector 1 e-5))))))))
-(define CompileExpr-Compiler-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 ((Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (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))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) 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))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
-(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 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 ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3505) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3505))))) (lambda (a) (lambda (arg-3572) (Prelude-pure_Applicative__Maybe 'erased arg-3572))) (lambda (b) (lambda (a) (lambda (arg-3573) (lambda (arg-3575) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3573 arg-3575)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8328-4633-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 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 CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7599-3986-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
-(define Directory-Core-case--5955-1138 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--5955-1016-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5992-1088 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--5955-1016-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5968-1050 (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 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--5992-1088 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1)))))))
-(define Directory-Core-case--5956-1029 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--5968-1050 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5903-977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 (Directory-System-closeDir e-2 eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Directory-Core-case--5860-937 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 )))))))
-(define Directory-Core-case--5787-873 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3)) e-5) eta-0))))))))
-(define Directory-Core-case--5717-819 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0))))))))
-(define Directory-Core-case--5650-782 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Directory-System-createDir arg-0 eta-0)))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2))))))
-(define Directory-Core-case--5650-758 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Directory-Core-case--5628-737 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5650-758 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Directory-System-createDir arg-0 eta-0))(else act-24)))))(else act-24))))))))))
-(define Directory-Core-case--5621-715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5650-758 arg-0 exist (Path-Utils-parent arg-0)) eta-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) (Directory-System-createDir arg-0 eta-0))(else act-25)))))(else act-25))))))))))))))
-(define Directory-Core-case--5582-682 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-System-closeDir e-2 eta-0))) 0)))) (else (lambda (eta-0) 1))))))
-(define Directory-Core-case--5495-622 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4))))))))))))
-(define Directory-Core-case--5495-600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3)))))
-(define Directory-Core-case--5404-538 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0)))))))
-(define Directory-Core-case--5333-471 (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) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0)))))))))
-(define Directory-Core-case--5274-419 (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 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0)))))))
-(define Directory-Core-case--5183-335 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Directory-Core-case--5164-315 (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) (let ((act-24 (let ((act-24 (File-System-readFile e-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0)))))))
-(define Directory-Core-case--5115-270 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile e-2 eta-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 (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1))))))
-(define Directory-Core-n--5955-1016-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-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))) ((Directory-Core-case--5968-1050 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 )))))))
-(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable 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))) (let ((act-26 (let ((act-26 (File-System-readFile e-1 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 ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0)))))))))))))))))
-(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5495-600 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5495-622 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2))))))
+(define CompileExpr-Compiler-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 ((Context-Core-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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (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))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) 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))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0))))))))))))))))
+(define CompileExpr-Compiler-boolHackTree (lambda (arg-0 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 ((x (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3435))))) (lambda (a) (lambda (arg-3502) (Prelude-pure_Applicative__Maybe 'erased arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3503 arg-3505)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8553-4765-toBool 'erased e-4 e-3 e-2 e-1 eta-0)) e-3))) (let ((sc1 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 CompileExpr-Compiler-applyNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((fnC-39 (CompileExpr-Compiler-expandToArity arg-0 arg-1 arg-3 arg-4))) (CompileExpr-Compiler-n--7824-4118-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
+(define Directory-Core-case--6179-1188 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6217-1135 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6179-1061-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6192-1097 (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 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--6217-1135 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1)))))))
+(define Directory-Core-case--6180-1075 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--6192-1097 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6124-1021 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Directory-Core-case--6078-977 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 )))))))
+(define Directory-Core-case--6010-910 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Directory-Core-case--5938-859 (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 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0))))))))
+(define Directory-Core-case--5868-817 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2))))))
+(define Directory-Core-case--5868-793 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Directory-Core-case--5846-772 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-24)))))(else act-24))))))))))
+(define Directory-Core-case--5839-750 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--5868-793 arg-0 exist (Path-Utils-parent arg-0)) eta-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) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))(else act-25)))))(else act-25))))))))))))))
+(define Directory-Core-case--5795-714 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
+(define Directory-Core-case--5708-651 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Prelude-C-43C-43 "Source file " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-0) (Strings-Prelude-C-43C-43 " is not in the source directory " (Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4))))))))))))
+(define Directory-Core-case--5708-629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3)))))
+(define Directory-Core-case--5614-567 (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))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0)))))))
+(define Directory-Core-case--5541-497 (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) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0)))))))))
+(define Directory-Core-case--5480-442 (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 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0)))))))
+(define Directory-Core-case--5385-356 (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-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Directory-Core-case--5364-332 (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) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0)))))))
+(define Directory-Core-case--5310-282 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1))))))
+(define Directory-Core-n--6179-1061-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-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))) ((Directory-Core-case--6192-1097 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 )))))))
+(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable 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))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find data file " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " in any of " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) fs))))) ext-0)))))))))))))))))
+(define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--5708-629 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5708-651 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2))))))
 (define Directory-Core-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((fnameOrig (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fnameBase (Prelude-maybe 'erased 'erased (lambda () fnameOrig) (lambda () (lambda (srcdir) (Path-Utils-C-60C-47C-62 srcdir fnameOrig))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (ext) (Path-Utils-C-60C-46C-62 fnameBase ext)) (vector 1 ".idr" (vector 1 ".lidr" (vector 1 ".yaff" (vector 1 ".org" (vector 1 ".md" (vector 0 ))))))))) (let ((act-25 ((Directory-Core-firstAvailable 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-2) ext-0)))))))))))))))))))
 (define Directory-Core-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((fnameBase (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p (Path-Utils-C-60C-46C-62 fnameBase "ttc"))) (vector 1 (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc") (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8)))))) (let ((act-25 ((Directory-Core-firstAvailable 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 51 arg-1 arg-2))))))))))))))))))))
-(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5621-715 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath)))))
-(define Directory-Core-makeExecDirectory (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))) 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-7) ext-0)))))))))))))))))
+(define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--5839-750 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath)))))
 (define Directory-Core-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((bdir (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc"))) (let ((ns (List-Data-reverse 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (List-Data-tailC-39 'erased arg-1))))) (let ((ndir (Path-Utils-joinPath ns))) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (Path-Utils-C-60C-47C-62 bdir 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) ndir) e-7) ext-0))))))))))))))))))))
 (define Directory-Core-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((Directory-Core-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 ((fname (Path-Utils-C-60C-46C-62 (Path-Utils-joinPath (List-Data-reverse 'erased e-7)) arg-2))) (let ((bdir (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (vector 1 (Path-Utils-C-60C-47C-62 bdir (Path-Utils-C-60C-47C-62 "ttc" fname)))))))))))))))))))))
-(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-dirEntry arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 )))))))
-(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-openFile e-2 (vector 0 ) 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))) (let ((act-25 (let ((act-25 (File-System-closeFile e-4 eta-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 (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0)))))))))))))))))
+(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 )))))))
+(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2 (vector 0 )) 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))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-4) eta-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 (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0)))))))))))))))))
 (define Directory-Core-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (List-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Path-Utils-C-60C-47C-62 x "lib")) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8))))))) (let ((act-25 ((Directory-Core-firstAvailable 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't find library " arg-1)) ext-0)))))))))))))))))
-(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 (Directory-System-currentDir ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--5955-1016-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 )))))))
-(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-openDir arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-System-closeDir e-2 ext-0))) 0))) (else 1))))))
-(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 (Directory-System-openDir arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 (Directory-System-closeDir e-2 ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
+(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6179-1061-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 )))))))
+(define Directory-Core-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Directory-Core-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1))))))
+(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define IdrisPaths-yprefix (lambda () "__PREFIX__"))
-(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "4848cc1a7")))
-(define Version-Idris-with--1649-5882 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3))))))))))
-(define Version-Idris-case--1666-5952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1666-5908-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
-(define Version-Idris-case--1682-5912 (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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
-(define Version-Idris-n--1666-5908-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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
+(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "ebc413ede")))
+(define Version-Idris-with--1694-6131 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 0 e-2 (vector 0 )))(else (vector 0 e-2 (vector 1 e-3))))))))))
+(define Version-Idris-case--1711-6201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1711-6157-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
+(define Version-Idris-case--1727-6161 (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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
+(define Version-Idris-n--1711-6157-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))) (Strings-Prelude-C-43C-43 "-" e-2)))))))
 (define Version-Version-Idris-versionTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Version-Idris-version (lambda () (Version-Idris-with--1649-5882 (IdrisPaths-idrisVersion))))
-(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1666-5908-showTag e-4 e-8 e-9 e-1 arg-0)) (else "")))))))))))))))
+(define Version-Idris-version (lambda () (Version-Idris-with--1694-6131 (IdrisPaths-idrisVersion))))
+(define Version-Idris-showVersion (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Nat eta-0)) (vector 1 e-4 (vector 1 e-8 (vector 1 e-9 (vector 0 ))))))) (let ((sc3 arg-0)) (cond ((equal? sc3 0) (Version-Idris-n--1711-6157-showTag e-4 e-8 e-9 e-1 arg-0)) (else "")))))))))))))))
 (define Version-Version-Idris-semVer (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Syntax-Idris-case--10078-5548 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
-(define Syntax-Idris-case--10077-5511 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
-(define Syntax-Idris-case--9733-5158 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0)))))))
-(define Syntax-Idris-case--9021-4555 (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 Syntax-Idris-case--9020-4503 (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 Syntax-Idris-case--8243-4176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}"))))))))))
-(define Syntax-Idris-n--8243-4046-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))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible")))))))
-(define Syntax-Idris-n--8243-3983-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
-(define Syntax-Idris-n--9982-5437-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) 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))) ((Syntax-Idris-n--9982-5437-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
-(define Syntax-Idris-n--9981-5398-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) 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))) ((Syntax-Idris-n--9981-5398-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
-(define Syntax-Idris-n--10208-5611-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 3 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Syntax-Idris-n--10208-5615-goPairedPTerms (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (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-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
-(define Syntax-Idris-n--10208-5625-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5608-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5625-goPTypeDecls arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5608-goPTypeDecl (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5614-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (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))))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-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 ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--10208-5603-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 (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--10208-5622-goPFieldUpdates arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--10208-5603-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))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))))) ((10) (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 (Prelude-map_Functor__IO 'erased 'erased (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 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--10208-5603-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))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-44 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm 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))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 15 e-50 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--10208-5607-goPDecl arg-0 eta-1)) 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))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-56 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-58 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (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)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (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-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-78 e-79 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (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-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 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))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-84 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 31 e-87 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-89 e-5))))))) (Syntax-Idris-n--10208-5618-goPDos 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)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-91 e-5))))))) (Syntax-Idris-n--10208-5603-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)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-93 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (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-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-95 e-5))))))) (Syntax-Idris-n--10208-5614-goPTerms arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (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-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--10208-5618-goPDos arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (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))))))))))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--10208-5613-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--10208-5603-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--10208-5613-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (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-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 (Prelude-map_Functor__IO 'erased 'erased (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 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--10208-5603-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))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-125 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (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-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (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 Syntax-Idris-n--10208-5624-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5612-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5624-goPFnOpts arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5612-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-1) eta-0))))))))
-(define Syntax-Idris-n--10208-5623-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5610-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5623-goPFields arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5622-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5604-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5622-goPFieldUpdates arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5604-goPFieldUpdate (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5610-goPField (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-4) eta-0))))))))))
-(define Syntax-Idris-n--10208-5618-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5605-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5618-goPDos arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5605-goPDo (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm 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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-4) 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-8) eta-0))))))) ((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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-13) eta-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 ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-19 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-21 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-22) eta-0)))))))))
-(define Syntax-Idris-n--10208-5621-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5607-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5607-goPDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5624-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--10208-5608-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-6) eta-0))))) ((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) (Prelude-map_Functor__IO 'erased 'erased (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-7 e-8 e-5))))))) (Syntax-Idris-n--10208-5609-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-10 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-13 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-16 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-17) eta-0))))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--10208-5616-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--10208-5615-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--10208-5614-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--10208-5620-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5617-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--10208-5623-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-50 e-51 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-52) eta-0)))))) ((12) (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-57 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Syntax-Idris-n--10208-5609-goPDataDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--10208-5625-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-7) eta-0))))))))))
-(define Syntax-Idris-n--10208-5619-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--10208-5606-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-3) eta-0)))))))))
-(define Syntax-Idris-n--10208-5606-goPClause (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-3) eta-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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--10208-5619-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-10) eta-0)))))))))
-(define Syntax-Idris-n--10208-5613-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-2) eta-0))))))))
-(define Syntax-Idris-n--10208-5620-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--10208-5621-goPDecls arg-0 e-2) eta-0))))))))
-(define Syntax-Idris-n--10208-5617-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (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 (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--10208-5611-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--10208-5617-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
-(define Syntax-Idris-n--10208-5616-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (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-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--10208-5603-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--10208-5616-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
-(define Syntax-Idris-n--7707-3286-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Syntax-Idris-n--8243-4489-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 ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--9020-4503 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4)))))
-(define Syntax-Idris-n--8243-4490-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 ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--9021-4555 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4)))))
-(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Syntax-Idris-toBuf_TTC__Fixity arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8244 eta-1))))) arg-8243 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0)))))))))))))))))))
-(define Syntax-Idris-toBuf_TTC__IFaceInfo (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) arg-0 e-1 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 eta-1)))) arg-0 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTC-Core-toBuf_TTC__TotalReq arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8248 eta-1)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8246 eta-1)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8248) (lambda (arg-8249) (Binary-Utils-toBuf_TTC__Bool arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8248 eta-1)))) (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-1))))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8246 eta-1))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-2)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-2)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-2))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8245 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-4)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-5)))) arg-8246 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-4)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-4))))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-5)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-5))))) arg-8246 eta-4))))) arg-8245 eta-3))))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8241 arg-8243 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8243 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-3)))) arg-8240 arg-8242 eta-2)))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8245 eta-3)))) arg-8244 eta-2))))) arg-8243 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
+(define Syntax-Idris-case--10870-5979 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
+(define Syntax-Idris-case--10869-5941 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
+(define Syntax-Idris-case--10503-5566 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0)))))))
+(define Syntax-Idris-case--9780-4949 (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 Syntax-Idris-case--9779-4897 (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 Syntax-Idris-case--9000-4570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}"))))))))))
+(define Syntax-Idris-n--9000-4440-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))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible")))))))
+(define Syntax-Idris-n--9000-4377-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
+(define Syntax-Idris-n--10768-5862-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) 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))) ((Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
+(define Syntax-Idris-n--10767-5821-insertAll (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 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-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) 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))) ((Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-2 arg-3 (ANameMap-Data-addName 'erased e-5 e-8 arg-4) e-3) eta-0))))))))))))))))))))))
+(define Syntax-Idris-n--11004-6042-goPiInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Syntax-Idris-n--11004-6046-goPairedPTerms (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 ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (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-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
+(define Syntax-Idris-n--11004-6056-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6039-goPTypeDecl (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6045-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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)))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Prelude-map_Functor__IO 'erased 'erased (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))))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-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 ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--11004-6034-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 (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 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))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--11004-6034-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))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))))) ((10) (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 (Prelude-map_Functor__IO 'erased 'erased (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 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--11004-6034-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))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-44 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm 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))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 15 e-50 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--11004-6038-goPDecl arg-0 eta-1)) 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))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-56 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-58 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (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)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (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-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-78 e-79 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (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-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 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))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-84 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 31 e-87 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-89 e-5))))))) (Syntax-Idris-n--11004-6049-goPDos 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)))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-91 e-5))))))) (Syntax-Idris-n--11004-6034-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)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-93 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-94) eta-0))) (let ((sc1 act-24)) (case (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-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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-95 e-5))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 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))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 36 e-97 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 37 e-100 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-103) eta-0))) (let ((sc1 act-24)) (case (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) (arg-0 arg-1)) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 39 e-105 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-108) eta-0))) (let ((sc1 act-24)) (case (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-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 40 e-109 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 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))) ((arg-0 e-5) eta-0))))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 41 e-112 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-114) eta-0))) (let ((sc1 act-24)) (case (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))))))))))) ((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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--11004-6034-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 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--11004-6044-goMPTerm arg-0 e-121) eta-0))) (let ((sc1 act-24)) (case (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-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 (Prelude-map_Functor__IO 'erased 'erased (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 46 e-122 e-123 e-5))))))) (Syntax-Idris-n--11004-6034-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))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-125 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-126) eta-1)) (lambda (eta-1) (vector 1 e-127)) eta-0))) (let ((sc1 act-24)) (case (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-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (arg-0 (vector 45 e-128 e-129))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 47 e-130 e-131 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-132) eta-0))) (let ((sc1 act-24)) (case (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 Syntax-Idris-n--11004-6055-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6043-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6043-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-1) eta-0))))))))
+(define Syntax-Idris-n--11004-6054-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6041-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6053-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6035-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6053-goPFieldUpdates arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6035-goPFieldUpdate (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6041-goPField (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) eta-0))))))))))
+(define Syntax-Idris-n--11004-6049-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6036-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6049-goPDos arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6036-goPDo (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm 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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-4) 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0))))))) ((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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-13) eta-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 ((e-18 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-18) eta-0)))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-19 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-20) eta-0))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-21 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-22) eta-0)))))))))
+(define Syntax-Idris-n--11004-6052-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6038-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6038-goPDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6055-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--11004-6039-goPTypeDecl arg-0 e-4) eta-0)))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-6) eta-0))))) ((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) (Prelude-map_Functor__IO 'erased 'erased (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-7 e-8 e-5))))))) (Syntax-Idris-n--11004-6040-goPDataDecl arg-0 e-9) eta-0)))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-10 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-12) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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-13 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-15) eta-0)))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-16 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-17) eta-0))))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-18 e-19 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-20) eta-6)) (lambda (eta-6) (vector 1 e-21)) eta-5)) (lambda (eta-5) (vector 1 e-22)) eta-4)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-23) eta-3)) (lambda (eta-3) (vector 1 e-24)) eta-2)) (lambda (eta-2) (vector 1 e-25)) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-26) eta-0)))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-5) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref 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-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-27 e-28 e-29 e-30 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--11004-6046-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--11004-6045-goPTerms arg-0 e-34) eta-3)) (lambda (eta-3) (vector 1 e-35)) eta-2)) (lambda (eta-2) (vector 1 e-36)) eta-1)) (Syntax-Idris-n--11004-6051-goMPDecls arg-0 e-37) eta-0)))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 8 e-38 e-39 e-40 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--11004-6054-goPFields arg-0 e-43) eta-0))))))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-45) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-50 e-51 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-52) eta-0)))))) ((12) (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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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 12 e-53 e-54 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-56) eta-0))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-57 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Syntax-Idris-n--11004-6040-goPDataDecl (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11004-6056-goPTypeDecls arg-0 e-4) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-7) eta-0))))))))))
+(define Syntax-Idris-n--11004-6050-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (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) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--11004-6037-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-3) eta-0)))))))))
+(define Syntax-Idris-n--11004-6037-goPClause (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 ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (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-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-3) eta-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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased (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-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--11004-6050-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-10) eta-0)))))))))
+(define Syntax-Idris-n--11004-6044-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-2) eta-0))))))))
+(define Syntax-Idris-n--11004-6051-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--11004-6052-goPDecls arg-0 e-2) eta-0))))))))
+(define Syntax-Idris-n--11004-6048-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (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 (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--11004-6042-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--11004-6048-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
+(define Syntax-Idris-n--11004-6047-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (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-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--11004-6034-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--11004-6047-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
+(define Syntax-Idris-n--8459-3673-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Syntax-Idris-n--9000-4883-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 ((tm (vector 7 e-0 (vector 0 e-3 e-4) e-2))) (Syntax-Idris-case--9779-4897 arg-0 arg-1 arg-2 arg-3 e-0 e-3 e-4 e-2 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-4) (vector 1 "pure")))))))(else arg-4)))))))(else arg-4)))))
+(define Syntax-Idris-n--9000-4884-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 ((tm (vector 0 e-0 (vector 7 e-2 (vector 0 e-5 e-6) e-4)))) (Syntax-Idris-case--9780-4949 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4)))))
+(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (StringMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (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 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0)))))))))))))))))))
+(define Syntax-Idris-toBuf_TTC__IFaceInfo (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))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) 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 ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) arg-0 e-1 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 eta-1)))) arg-0 e-2 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-1)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2109 eta-1)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-1)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-1))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2109 eta-1))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-2)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-2)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-2))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2108 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-4)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-5)))) arg-2109 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-4)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-4))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-5)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-5))))) arg-2109 eta-4))))) arg-2108 eta-3))))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2104 arg-2106 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2106 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-3)))) arg-2103 arg-2105 eta-2)))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-3)))) arg-2107 eta-2))))) arg-2106 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
 (define Syntax-Idris-toBuf_TTC__Fixity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
 (define Syntax-Idris-show_Show__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showimplicits = " (Prelude-show_Show__Bool e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shownamespace = " (Prelude-show_Show__Bool e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showtypes = " (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "eval = " (Syntax-Idris-show_Show__REPLEval e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "editor = " (Prelude-show_Show__String e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "cg = " e-5)))))))
 (define Syntax-Idris-show_Show__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "typecheck") ((1) "normalise") (else "execute")))))
 (define Syntax-Idris-show_Show__PTerm (lambda (arg-0) (Syntax-Idris-showPrec_Show__PTerm (vector 0 ) arg-0)))
-(define Syntax-Idris-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))) (Name-Core-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) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--8243-3983-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-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))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8243-4046-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >>  } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((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))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--8243-4176 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <<declaration>> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--8243-4489-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--8243-4490-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132)))))))))))
-(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
+(define Syntax-Idris-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))) (Name-Core-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) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-140 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-140) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 ") -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-143 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-143) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-146 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-146) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-137 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 "_ : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-149 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-137) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-149) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 "} -> " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Prelude-C-43C-43 " => " (Syntax-Idris-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) ((24) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--9000-4377-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-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))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9000-4440-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "let { << definitions >>  } in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-26)))) ((6) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "record { " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showUpdate eta-0)) e-28)) " }")))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-31)))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Prelude-C-43C-43 " | " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-34)))))) ((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))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " @{" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-154 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (Syntax-Idris-case--9000-4570 e-35 e-155 e-154 e-156 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-154 e-156)))))(else (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Prelude-C-43C-43 " {" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-154) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}"))))))))))))))))) ((10) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 e-40)) (case (vector-ref sc1 0) ((0) (Prelude-showCon arg-0 "Inf" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))(else (Prelude-showCon arg-0 "Lazy" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-41)))))))) ((11) (let ((e-43 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Delay" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-43)))) ((12) (let ((e-45 (vector-ref sc0 2))) (Prelude-showCon arg-0 "Force" (Prelude-showArg 'erased (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x)))) e-45)))) ((13) "%search") ((15) (let ((e-49 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "`{{" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <<declaration>> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-90))))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-92)))) ((34) (let ((e-94 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-94) "|]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-96)) "]")))) ((36) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-98) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) ")"))))))) ((37) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) ")"))))))))))))) ((38) "()") ((39) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108)))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--9000-4883-dePure e-109 e-111 e-110 arg-0 e-110)) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--9000-4884-deGuard e-109 e-111 e-110 arg-0 eta-0))) e-111)) "]")))))))) ((41) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-113) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114))))))) ((42) (let ((e-116 (vector-ref sc0 2))) (let ((e-117 (vector-ref sc0 3))) (let ((e-118 (vector-ref sc0 4))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]"))))) (else (let ((e-160 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-160) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) "]")))))))))))))) ((43) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) " .. ]"))) (else (let ((e-163 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-120) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-163) " .. ]"))))))))))) ((46) (let ((e-124 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124))) ((44) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-126) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))))) ((45) (let ((e-129 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-129))) (else (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "with " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-131) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-132)))))))))))
+(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
 (define Syntax-Idris-resolved_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--9982-5437-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
-(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
+(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10768-5862-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
+(define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 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 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7)))))))))))))))))))
 (define Syntax-Idris-full_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1)))
-(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--9981-5398-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
-(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Syntax-Idris-toBuf_TTC__Fixity arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Nat arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Syntax-Idris-toBuf_TTC__Fixity arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__String arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__Nat arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__String arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Nat arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (TTImp-TTImp-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 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9)))))))))))))))))))))))))))))
-(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__RigCount arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-0)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTC-Core-toBuf_TTC__TotalReq arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-8248 eta-0)))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8246 eta-0)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8248) (lambda (arg-8249) (Binary-Utils-toBuf_TTC__Bool arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-8248 eta-0)))) (vector 0 (lambda (arg-8248) (lambda (arg-8249) (TTImp-TTImp-toBuf_TTC__RawImp arg-8248 arg-8249))) (lambda (arg-8248) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8248 eta-0))))) arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8246 eta-0))))) arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8244 eta-0))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__RigCount arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-8244 eta-1)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTC-Core-toBuf_TTC__TotalReq arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-1)))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8245 eta-1)))) (vector 0 (lambda (arg-8245) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8247) (lambda (arg-8248) (Binary-Utils-toBuf_TTC__Bool arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-1)))) (vector 0 (lambda (arg-8247) (lambda (arg-8248) (TTImp-TTImp-toBuf_TTC__RawImp arg-8247 arg-8248))) (lambda (arg-8247) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-1))))) arg-8245 arg-8246))) (lambda (arg-8245) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8245 eta-1))))) arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__RigCount arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-8245 eta-2)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTC-Core-toBuf_TTC__TotalReq arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-2)))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8245 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8246) (lambda (arg-8247) (Binary-Utils-toBuf_TTC__Bool arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-2)))) (vector 0 (lambda (arg-8246) (lambda (arg-8247) (TTImp-TTImp-toBuf_TTC__RawImp arg-8246 arg-8247))) (lambda (arg-8246) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-2))))) arg-8241 arg-8245))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTC-Core-toBuf_TTC__TotalReq arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-8246 eta-3)))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__TotalReq arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-8247 eta-4)))) arg-8246 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8246) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8246 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8246) (TTImp-TTImp-toBuf_TTC__RawImp arg-8241 arg-8246))) (lambda (arg-8246) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8246 eta-3))))) arg-8240 arg-8242))) (lambda (arg-8246) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-8247 eta-4)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__RawImp arg-8240 arg-8242))) (lambda (arg-8247) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-8247 eta-4))))) arg-8246 eta-3))))) arg-8245 eta-2))))) arg-8244 eta-1))))) arg-8243 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8243) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-8243 eta-0)))) (vector 0 (lambda (arg-8241) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-1)))) arg-8241 arg-8243 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-1)))) arg-8243 eta-0))))) arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-1)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8244 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8244) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTImp-TTImp-toBuf_TTC__ImpClause arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-8245 eta-2)))) arg-8244 eta-1))))) arg-8243 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 Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--10767-5821-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3))))
+(define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Syntax-Idris-toBuf_TTC__Fixity arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Nat arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Syntax-Idris-toBuf_TTC__Fixity arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__String arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__Nat arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__String arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Nat arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (TTImp-TTImp-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 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9)))))))))))))))))))))))))))))
+(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__RigCount arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-0)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTC-Core-toBuf_TTC__TotalReq arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2111 eta-0)))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2109 eta-0)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2111) (lambda (arg-2112) (Binary-Utils-toBuf_TTC__Bool arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2111 eta-0)))) (vector 0 (lambda (arg-2111) (lambda (arg-2112) (TTImp-TTImp-toBuf_TTC__RawImp arg-2111 arg-2112))) (lambda (arg-2111) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2111 eta-0))))) arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2109 eta-0))))) arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2107 eta-0))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__RigCount arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2107 eta-1)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTC-Core-toBuf_TTC__TotalReq arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-1)))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2108 eta-1)))) (vector 0 (lambda (arg-2108) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2110) (lambda (arg-2111) (Binary-Utils-toBuf_TTC__Bool arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-1)))) (vector 0 (lambda (arg-2110) (lambda (arg-2111) (TTImp-TTImp-toBuf_TTC__RawImp arg-2110 arg-2111))) (lambda (arg-2110) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-1))))) arg-2108 arg-2109))) (lambda (arg-2108) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2108 eta-1))))) arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__RigCount arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2108 eta-2)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTC-Core-toBuf_TTC__TotalReq arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-2)))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2108 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2109) (lambda (arg-2110) (Binary-Utils-toBuf_TTC__Bool arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-2)))) (vector 0 (lambda (arg-2109) (lambda (arg-2110) (TTImp-TTImp-toBuf_TTC__RawImp arg-2109 arg-2110))) (lambda (arg-2109) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-2))))) arg-2104 arg-2108))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTC-Core-toBuf_TTC__TotalReq arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2109 eta-3)))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__TotalReq arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2110 eta-4)))) arg-2109 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2109) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2109 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2109) (TTImp-TTImp-toBuf_TTC__RawImp arg-2104 arg-2109))) (lambda (arg-2109) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2109 eta-3))))) arg-2103 arg-2105))) (lambda (arg-2109) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2110 eta-4)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__RawImp arg-2103 arg-2105))) (lambda (arg-2110) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2110 eta-4))))) arg-2109 eta-3))))) arg-2108 eta-2))))) arg-2107 eta-1))))) arg-2106 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 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2106) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2106 eta-0)))) (vector 0 (lambda (arg-2104) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2104 arg-2106 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-1)))) arg-2106 eta-0))))) arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-1)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2107 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2107) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2108 eta-2)))) arg-2107 eta-1))))) arg-2106 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 Syntax-Idris-fromBuf_TTC__Fixity (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-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 (Binary-Utils-corrupt 'erased "Fixity" ext-0)))))))))))
-(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-0))))))
-(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-8243 eta-0))))))
-(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Syntax-Idris-toBuf_TTC__Fixity arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-8243 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2106 eta-0))))))
+(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Syntax-Idris-toBuf_TTC__Fixity arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2106 eta-0))))))
 (define Syntax-Idris-__Impl_Show_PTerm (lambda () (vector 0 (lambda (x) (Syntax-Idris-show_Show__PTerm x)) (lambda (d) (lambda (x) (Syntax-Idris-showPrec_Show__PTerm d x))))))
-(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-11959 arg-11960 eta-0)))))))
-(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-11957 arg-11958 eta-0)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-11959 arg-11960 eta-0)))))))
-(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-11959 arg-11960))))))
+(define Syntax-Idris-__Impl_HasNames_SyntaxInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-0)))))))
+(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5886 arg-5887 eta-0)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5888 arg-5889 eta-0)))))))
+(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-5888 arg-5889))))))
 (define Syntax-Idris-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 SyntaxInfo-Syntax-Idris-usingImpl (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Syntax-Idris-typePass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 1 ))))))
 (define SyntaxInfo-Syntax-Idris-startExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define Syntax-Idris-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))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-0) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-2) (Strings-Prelude-C-43C-43 " $= " (Syntax-Idris-show_Show__PTerm e-3))))))))))
-(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >>  }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22))))))))
-(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
+(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-8)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-13))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-15) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-17) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-showAlt eta-0))) e-18))))))))) ((5) "let { << definitions >>  }") (else (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "rewrite " (Syntax-Idris-show_Show__PTerm e-22))))))))
+(define Syntax-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "0 " "1 " (lambda (eta-0) "") ext-0)))
 (define Syntax-Idris-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))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " => " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <<with alts not possible>>;") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;"))))))))
 (define Import-Syntax-Idris-reexport (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define SyntaxInfo-Syntax-Idris-prefixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
@@ -6120,7 +6172,7 @@
 (define Import-Syntax-Idris-nameAs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define Module-Syntax-Idris-moduleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define IFaceInfo-Syntax-Idris-methods (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--10208-5603-goPTerm arg-0 ext-0)))
+(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--11004-6034-goPTerm arg-0 ext-0)))
 (define Import-Syntax-Idris-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Syntax-Idris-initSyntax (lambda () (vector 0 (StringMap-Data-insert 'erased "=" (vector 0 (vector 2 ) 0) (StringMap-Data-empty 'erased)) (StringMap-Data-insert 'erased "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (StringMap-Data-empty 'erased)) (ANameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (vector 0 (vector 0 "(default)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")))))
 (define SyntaxInfo-Syntax-Idris-infixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
@@ -6128,1016 +6180,349 @@
 (define SyntaxInfo-Syntax-Idris-ifaces (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define IFaceInfo-Syntax-Idris-iconstructor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Module-Syntax-Idris-headerloc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Syntax-Idris-getPTypeDeclLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Syntax-Idris-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)) ((9) (let ((e-35 (vector-ref sc0 1))) e-35)) ((10) (let ((e-39 (vector-ref sc0 1))) e-39)) ((11) (let ((e-42 (vector-ref sc0 1))) e-42)) ((12) (let ((e-44 (vector-ref sc0 1))) e-44)) ((13) (let ((e-46 (vector-ref sc0 1))) e-46)) ((14) (let ((e-48 (vector-ref sc0 1))) e-48)) ((15) (let ((e-50 (vector-ref sc0 1))) e-50)) ((16) (let ((e-52 (vector-ref sc0 1))) e-52)) ((17) (let ((e-54 (vector-ref sc0 1))) e-54)) ((18) (let ((e-56 (vector-ref sc0 1))) e-56)) ((19) (let ((e-58 (vector-ref sc0 1))) e-58)) ((20) (let ((e-60 (vector-ref sc0 1))) e-60)) ((21) (let ((e-63 (vector-ref sc0 1))) e-63)) ((22) (let ((e-64 (vector-ref sc0 1))) e-64)) ((23) (let ((e-67 (vector-ref sc0 1))) e-67)) ((24) (let ((e-69 (vector-ref sc0 1))) e-69)) ((25) (let ((e-70 (vector-ref sc0 1))) e-70)) ((26) (let ((e-71 (vector-ref sc0 1))) e-71)) ((27) (let ((e-75 (vector-ref sc0 1))) e-75)) ((28) (let ((e-78 (vector-ref sc0 1))) e-78)) ((29) (let ((e-81 (vector-ref sc0 1))) e-81)) ((30) (let ((e-84 (vector-ref sc0 1))) e-84)) ((31) (let ((e-87 (vector-ref sc0 1))) e-87)) ((32) (let ((e-89 (vector-ref sc0 1))) e-89)) ((33) (let ((e-91 (vector-ref sc0 1))) e-91)) ((34) (let ((e-93 (vector-ref sc0 1))) e-93)) ((35) (let ((e-95 (vector-ref sc0 1))) e-95)) ((36) (let ((e-97 (vector-ref sc0 1))) e-97)) ((37) (let ((e-100 (vector-ref sc0 1))) e-100)) ((38) (let ((e-104 (vector-ref sc0 1))) e-104)) ((39) (let ((e-105 (vector-ref sc0 1))) e-105)) ((40) (let ((e-109 (vector-ref sc0 1))) e-109)) ((41) (let ((e-112 (vector-ref sc0 1))) e-112)) ((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-127 (vector-ref sc0 1))) e-127)) (else (let ((e-130 (vector-ref sc0 1))) e-130))))))
+(define Syntax-Idris-getPDeclLoc (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-5 (vector-ref sc0 1))) e-5)) ((2) (let ((e-7 (vector-ref sc0 1))) e-7)) ((3) (let ((e-10 (vector-ref sc0 1))) e-10)) ((4) (let ((e-13 (vector-ref sc0 1))) e-13)) ((5) (let ((e-16 (vector-ref sc0 1))) e-16)) ((6) (let ((e-18 (vector-ref sc0 1))) e-18)) ((7) (let ((e-27 (vector-ref sc0 1))) e-27)) ((8) (let ((e-38 (vector-ref sc0 1))) e-38)) ((9) (let ((e-44 (vector-ref sc0 1))) e-44)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) ((11) (let ((e-50 (vector-ref sc0 1))) e-50)) ((12) (let ((e-53 (vector-ref sc0 1))) e-53)) ((13) (let ((e-57 (vector-ref sc0 1))) e-57)) (else (let ((e-59 (vector-ref sc0 1))) e-59))))))
+(define Syntax-Idris-getPDataDeclLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) (else (let ((e-5 (vector-ref sc0 1))) e-5))))))
+(define Syntax-Idris-getPClauseLoc (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-4 (vector-ref sc0 1))) e-4)) (else (let ((e-9 (vector-ref sc0 1))) e-9))))))
 (define Syntax-Idris-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-5 (vector-ref sc0 1))) e-5)) ((3) (let ((e-9 (vector-ref sc0 1))) e-9)) ((4) (let ((e-14 (vector-ref sc0 1))) e-14)) ((5) (let ((e-19 (vector-ref sc0 1))) e-19)) (else (let ((e-21 (vector-ref sc0 1))) e-21))))))
-(define Syntax-Idris-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))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--7707-3286-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 ))))))))
+(define Syntax-Idris-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))) (vector 1 e-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--8459-3673-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 ))))))))
 (define Syntax-Idris-definedIn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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-22 (vector-ref sc2 2))) (vector 1 e-22 (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))) ((2) (let ((e-11 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedInData e-11) (Syntax-Idris-definedIn e-3)))) ((3) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-14) (Syntax-Idris-definedIn e-3)))) ((4) (let ((e-17 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-17) (Syntax-Idris-definedIn e-3)))) ((11) (let ((e-20 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-20) (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))))))))
 (define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define Syntax-Idris-defPass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 2 ))))))
 (define Module-Syntax-Idris-decls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
 (define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define ANameMap-Data-case--2506-3228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2417-3124-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
-(define ANameMap-Data-case--2417-3198 (lambda (arg-0 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))) (ANameMap-Data-case--2506-3228 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
-(define ANameMap-Data-case--2426-3148 (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 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2417-3124-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
-(define ANameMap-Data-case--2327-3092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2291-3006-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
-(define ANameMap-Data-case--2327-3050 (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))) (vector 1 (vector 0 arg-2 e-2) (vector 0 ))))))))
-(define ANameMap-Data-case--2291-3037 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2327-3050 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2327-3092 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3))))))))))
-(define ANameMap-Data-n--2417-3124-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2426-3148 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2))))))))))
-(define ANameMap-Data-n--2291-3006-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
-(define ANameMap-Data-n--2665-3343-insertFrom (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2665-3343-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7))))))))))))
-(define ANameMap-Data-n--2615-3295-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2615-3295-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3)))))))))))
+(define ANameMap-Data-case--2558-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 0 arg-2 arg-3) (vector 0 )) arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
+(define ANameMap-Data-case--2469-3213 (lambda (arg-0 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))) (ANameMap-Data-case--2558-3243 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
+(define ANameMap-Data-case--2478-3163 (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 (vector 0 arg-3 arg-6) arg-5)) (else (vector 1 arg-4 (ANameMap-Data-n--2469-3139-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
+(define ANameMap-Data-case--2379-3107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (List-Data-filter 'erased (lambda (eta-0) (ANameMap-Data-n--2343-3021-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
+(define ANameMap-Data-case--2379-3065 (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))) (vector 1 (vector 0 arg-2 e-2) (vector 0 ))))))))
+(define ANameMap-Data-case--2343-3052 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2379-3065 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2379-3107 'erased arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) e-3))))))))))
+(define ANameMap-Data-n--2469-3139-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-4) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ANameMap-Data-case--2478-3163 'erased arg-1 arg-2 arg-3 e-2 e-3 arg-4 (Name-Core-C-61C-61_Eq__Name arg-3 (Builtin-fst 'erased 'erased e-2))))))))))
+(define ANameMap-Data-n--2343-3021-matches (lambda (arg-0 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 ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
+(define ANameMap-Data-n--2717-3358-insertFrom (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) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2717-3358-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7))))))))))))
+(define ANameMap-Data-n--2667-3310-fromListC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3)))))))))))
 (define ANameMap-Data-toList (lambda (arg-0 arg-1) (NameMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))))
-(define ANameMap-Data-mergeAs (lambda (arg-0 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))) (ANameMap-Data-n--2665-3343-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3))))))
-(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2291-3037 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1))))
+(define ANameMap-Data-mergeAs (lambda (arg-0 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))) (ANameMap-Data-n--2717-3358-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3))))))
+(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2343-3052 'erased arg-2 arg-1 (Name-Core-userNameRoot arg-1))))
 (define ANameMap-Data-lookupExact (lambda (arg-0 arg-1 arg-2) (NameMap-Data-lookup 'erased arg-1 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)))))
 (define ANameMap-ANameMap-Data-hierarchy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
-(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2615-3295-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0)))
+(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2667-3310-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0)))
 (define ANameMap-ANameMap-Data-exactNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
 (define ANameMap-Data-empty (lambda (arg-0) (vector 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased))))
-(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2417-3198 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1))))
+(define ANameMap-Data-addToHier (lambda (arg-0 arg-1 arg-2 arg-3) (ANameMap-Data-case--2469-3213 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1))))
 (define ANameMap-Data-addName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dictC-39 (NameMap-Data-insert 'erased arg-1 arg-2 e-1))) (let ((hierC-39 (ANameMap-Data-addToHier 'erased arg-1 arg-2 e-2))) (vector 0 dictC-39 hierC-39))))))))
-(define SetOptions-Idris-case--10260-7988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0)))))))))))))))
-(define SetOptions-Idris-case--10260-7947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7828 (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-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 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7646 (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) (let ((act-24 (Context-Core-setCG arg-3 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 ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn "No such code generator" 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 ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) 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 ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))
-(define SetOptions-Idris-case--10260-7633 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7548 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-case--10260-7429 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
-(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (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 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (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 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--10260-7646 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (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 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-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 (vector 1 1))))))))))))) ((25) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (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 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (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-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (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))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3)))))))))))
-(define SetOptions-Idris-postOptions (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))) ((23) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
-(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) 0)(else (SetOptions-Idris-ideModeSocket e-3)))))))))))
-(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (SetOptions-Idris-ideMode e-3)))))))))))
-(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))) eta-0))) (vector 1 act-24))))))
+(define SetOptions-Idris-case--10758-8562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 1 arg-0)))))))))))))))
+(define SetOptions-Idris-case--10758-8519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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-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 (vector 1 arg-0) e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8394 (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-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 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8150 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 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 ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "No such code generator") 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 ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) 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 ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))
+(define SetOptions-Idris-case--10758-8128 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8077 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-8038 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-case--10758-7913 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
+(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-12 (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 0 e-14 e-13 e-12 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (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 0 e-14 e-13 e-4 e-12 e-11 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((18) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (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 0 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((12) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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 0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--10758-8150 e-6 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-6)) eta-0))))))))) ((14) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((5) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-11 (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 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-11) 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))))))))))))) ((28) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((29) (lambda (eta-0) (let ((act-24 (Context-Core-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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-11 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-11 e-7 e-8 e-9 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((27) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (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 0 e-12 e-4 e-11 e-6 e-7 e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (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-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-14 e-12 e-4 e-11 e-6 (vector 1 e-13) e-8 e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((23) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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-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 e-6 e-7 (vector 1 e-14) e-9 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((24) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 (vector 1 e-15) 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 ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((25) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-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))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (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))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-16))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))(else (SetOptions-Idris-preOptions arg-0 arg-1 e-3)))))))))))
+(define SetOptions-Idris-postOptions (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 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 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 ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))) ((26) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
+(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) 0)(else (SetOptions-Idris-ideModeSocket e-3)))))))))))
+(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((18) 0)(else (SetOptions-Idris-ideMode e-3)))))))))))
+(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24))))))
 (define SetOptions-Idris-addPkgDir (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))) (Context-Core-addExtraDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) arg-1)) ext-0))))))))
-(define REPL-Idris-case--25696-14580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
-(define REPL-Idris-case--25689-14454 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
-(define REPL-Idris-case--25683-14384 (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 (let ((act-24 (PrimIO-putStrLn "" 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 (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 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))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0))))))))))))
-(define REPL-Idris-case--25588-14236 (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) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0))))))))))))
-(define REPL-Idris-case--25484-14203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2))))))))
-(define REPL-Idris-case--25487-14147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--25484-14121-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--25484-14122-fnameCmd arg-0 arg-3 arg-4))))))
-(define REPL-Idris-case--23850-13961 (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))) (vector 0 e-0 1 e-2))))))
-(define REPL-Idris-case--23850-13882 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args))))))))))))
-(define REPL-Idris-case--23850-13830 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))))))))))
-(define REPL-Idris-case--23850-13660 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 16 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn 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 ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960)))) e-6 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))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--24815-13548 (lambda (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) 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))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) 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 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9))))))))
-(define REPL-Idris-case--23850-13492 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 15 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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 ((bind-0 arg-7)) ((REPL-Idris-case--24815-13548 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--23850-13370 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 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-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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-8 (vector-ref sc5 1))) (vector 1 (vector 14 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
-(define REPL-Idris-case--23850-13282 (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 10 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-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 (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))))))
-(define REPL-Idris-case--23850-13239 (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-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))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--23850-13169 (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 10 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))
-(define REPL-Idris-case--23850-13113 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
-(define REPL-Idris-case--23850-13031 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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))) (vector 1 (vector 6 e-6 e-8))))))))))))))))))))))))))))
-(define REPL-Idris-case--23850-12949 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
-(define REPL-Idris-case--23981-12800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Normalise-Core-getTerm 'erased 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 (let ((act-25 ((((arg-16 arg-14) (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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) 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 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 )))))))))
-(define REPL-Idris-case--23893-12730 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (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))) (let ((norm (REPL-Idris-n--23850-12611-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) 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 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 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 ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--23981-12800 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 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--23850-12645 (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) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 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 (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) 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 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 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 ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--23850-12610-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (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 (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 ((norm (REPL-Idris-n--23850-12611-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 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 ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--23981-12800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--23715-12522 (lambda (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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 9 arg-0 arg-9))))))))
-(define REPL-Idris-case--23689-12480 (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 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-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))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 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 ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 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 ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 9 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource 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 (vector 1 (vector 8 arg-0 e-5)))))))))))))
-(define REPL-Idris-case--23582-12399 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-6 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))) (Common-Compiler-compile arg-6 e-6 e-5 arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 12 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 13 eta-1))))) e-6) eta-0))))))))))))))))
-(define REPL-Idris-case--23450-12277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG 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))) (Common-Compiler-execute arg-4 e-6 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 (vector 1 (vector 2 arg-0))))))))))))))))
-(define REPL-Idris-case--19904-12167 (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 (eta-0) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
-(define REPL-Idris-case--23026-11943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23))))))))
-(define REPL-Idris-case--22947-11880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23))))))))))
-(define REPL-Idris-case--22746-11826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((_-0 (vector 1 e-1))) (REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
-(define REPL-Idris-case--22746-11728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
-(define REPL-Idris-case--22681-11665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 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 ((act-25 (Resugar-Idris-pterm arg-7 arg-5 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))) (let ((act-26 (let ((act-26 (unbox arg-3))) (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 ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))
-(define REPL-Idris-case--19904-11614 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (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-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-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-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (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))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-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 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (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 ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--22947-11880 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition"))))))))
-(define REPL-Idris-case--22269-11305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23))))))))
-(define REPL-Idris-case--22208-11243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) 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 ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))))))
-(define REPL-Idris-case--22146-11201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
-(define REPL-Idris-case--22071-11155 (lambda (arg-0 arg-1 arg-2 arg-3 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-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-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 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-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)))))))
-(define REPL-Idris-case--22016-11091 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (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 ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))
-(define REPL-Idris-case--19904-11045 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-25)) (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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (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 ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--22208-11243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1))))))))))))
-(define REPL-Idris-case--21568-10839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 ))))))))))
-(define REPL-Idris-case--21568-10736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25)))))
-(define REPL-Idris-case--21451-10667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-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-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))
-(define REPL-Idris-case--20725-10571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--21451-10667 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18))))))))
-(define REPL-Idris-case--20725-10462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))))))))))
-(define REPL-Idris-case--20936-10342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 ))))))))))
-(define REPL-Idris-case--20936-10247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
-(define REPL-Idris-case--20818-10150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))
-(define REPL-Idris-case--20725-10052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))
-(define REPL-Idris-case--19904-9972 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) 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 ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (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-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--20725-10462 arg-0 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-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (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))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--20725-10571 arg-0 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-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))
-(define REPL-Idris-case--20533-9819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 ))))))))))
-(define REPL-Idris-case--19904-9798 (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 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here")))))))))
-(define REPL-Idris-case--20373-9696 (lambda (arg-0 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12))))))))
-(define REPL-Idris-case--19904-9655 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))))))))))
-(define REPL-Idris-case--19904-9582 (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) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0)))))))
-(define REPL-Idris-case--19904-9521 (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) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) 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))) (vector 1 (Name-Core-showSep "\xa;" e-5)))))))))))))
-(define REPL-Idris-case--19956-9438 (lambda (arg-0 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 (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 ))))))))))
-(define REPL-Idris-case--19956-9329 (lambda (arg-0 arg-1 arg-2 arg-3 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 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-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))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
-(define REPL-Idris-case--19904-9290 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--19956-9329 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-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--19956-9438 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))
-(define REPL-Idris-case--19792-9165 (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) (vector 1 (Strings-Prelude-C-43C-43 "\xa;" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--19785-9140-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
-(define REPL-Idris-case--19719-9082 (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) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--19710-9075-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4)))))))))
-(define REPL-Idris-case--19579-8962 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-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 ((act-25 (let ((act-25 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-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 (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0))))))))
-(define REPL-Idris-case--19566-8942 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-readFile e-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-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 ((act-26 (let ((act-26 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-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 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
-(define REPL-Idris-case--19414-8789 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) (else (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit))))))))
-(define REPL-Idris-case--19199-8725 (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))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0)))))))
-(define REPL-Idris-case--19199-8714 (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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8683 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8652 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6))))))))))
-(define REPL-Idris-case--19199-8621 (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))) (vector 0 e-0 e-1 arg-0))))))
-(define REPL-Idris-case--19199-8601 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2))))))
-(define REPL-Idris-case--19107-8518 (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))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Name-Core-showSep "\xa;" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition"))))))))
-(define REPL-Idris-case--18610-8188 (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (vector 1 act-24)))))))))
-(define REPL-Idris-n--19710-9075-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--19719-9082 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6)))))))
-(define REPL-Idris-n--25683-14348-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 REPL-Idris-n--23850-12611-nfun (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) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3))))))))))
-(define REPL-Idris-n--25702-14692-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
-(define REPL-Idris-n--19785-9140-insertInBlank (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 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--19792-9165 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) "")))))))))
-(define REPL-Idris-n--25484-14121-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3))))))
-(define REPL-Idris-n--25484-14122-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--25487-14147 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
-(define REPL-Idris-n--23540-12324-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0))))))))
-(define REPL-Idris-n--23850-12610-emode (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 (vector 2 ))))))
-(define REPL-Idris-n--19904-9892-dropLams (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (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))) (REPL-Idris-n--19904-9892-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13)))))))))))
-(define REPL-Idris-n--25702-14693-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--25702-14692-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--25702-14692-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
-(define REPL-Idris-n--25702-14694-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "   " (REPL-Idris-n--25702-14693-col (+ 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 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7))))))))))
-(define REPL-Idris-n--19785-9141-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) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--19785-9140-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--19785-9141-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8))))))))))
-(define REPL-Idris-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))) ((REPL-Idris-case--19566-8942 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
-(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Def arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Def arg-11959 arg-11960)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (vector 1 act-25))))))))) (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 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-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-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-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 (let ((act-27 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (vector 1 act-27)))) (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (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-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (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-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--18610-8188 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) 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 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) 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-14 (vector-ref sc9 1))) (let ((act-32 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (vector 1 act-32))))))))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) 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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (vector 1 act-33))))))))) (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 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (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 ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-11957 arg-11958 eta-3)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-11959 arg-11960 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-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 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (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))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (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 (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-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--19199-8725 e-5 arg-1 arg-0 (Options-Core-getCG e-5))))))))
+(define REPL-Idris-case--27259-8813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
+(define REPL-Idris-case--27252-8671 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
+(define REPL-Idris-case--27246-8596 (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 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") 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 (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 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))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0))))))))))))
+(define REPL-Idris-case--27146-8429 (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) (vector 1 (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0))))))))))))))))
+(define REPL-Idris-case--27042-8396 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2))))))))
+(define REPL-Idris-case--27045-8340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--27042-8314-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--27042-8315-fnameCmd arg-0 arg-3 arg-4))))))
+(define REPL-Idris-case--25292-8140 (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))) (vector 0 e-0 1 e-2))))))
+(define REPL-Idris-case--25292-8056 (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 ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args))))))))))))
+(define REPL-Idris-case--25292-8004 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))))))))))
+(define REPL-Idris-case--25292-7819 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn 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 ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-6 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))) (vector 1 (vector 0 fn e-6))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--26334-7703 (lambda (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) 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))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) 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 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9))))))))
+(define REPL-Idris-case--25292-7645 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn 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 ((bind-0 arg-7)) ((REPL-Idris-case--26334-7703 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 bind-0 fn e-5 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--25292-7518 (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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) 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 ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 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-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0)))))))
+(define REPL-Idris-case--25292-7423 (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 ((line (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Prelude-C-43C-43 " +" (Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line)))) eta-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 (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))))))
+(define REPL-Idris-case--25292-7350 (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-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 (vector 1 arg-0) e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--25292-7276 (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))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))
+(define REPL-Idris-case--25292-7218 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
+(define REPL-Idris-case--25292-7128 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 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 ((Normalise-Core-getTerm 'erased e-3) 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 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) 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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 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))) (vector 1 (vector 6 e-6 e-8))))))))))))))))))))))))))))
+(define REPL-Idris-case--25292-7042 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) 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))) (vector 1 (vector 5 e-5)))))))))))))
+(define REPL-Idris-case--25430-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) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased 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 (let ((act-25 ((((arg-16 arg-14) (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))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) 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 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 )))))))))
+(define REPL-Idris-case--25336-6812 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (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 (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))) (let ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) 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 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 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 ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 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 _-0 e-5 e-6 norm e-7 e-8 e-9 (let ((sc6 e-6)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--25292-6721 (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) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 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 (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) 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 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) 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 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 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 ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--25292-6685-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 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 ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (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 (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 ((norm (REPL-Idris-n--25292-6686-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 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 ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 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 ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--25430-6887 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-6 e-7 e-2 e-3 _-0 e-9 e-10 norm e-11 e-12 e-13 (let ((sc10 e-10)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--25153-6596 (lambda (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)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 11 arg-0 arg-9))))))))
+(define REPL-Idris-case--25122-6551 (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 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-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))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 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 ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 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 ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 11 arg-0 e-5))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource 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 (vector 1 (vector 10 arg-0 e-5)))))))))))))
+(define REPL-Idris-case--25008-6461 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-2 arg-6 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))) (Common-Compiler-compile arg-6 e-6 e-5 arg-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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 14 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 15 eta-1))))) e-6) eta-0))))))))))))))))
+(define REPL-Idris-case--24861-6327 (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 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 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 ((act-25 (let ((act-25 (REPL-Idris-findCG arg-1 arg-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))) (Common-Compiler-execute arg-5 e-6 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 (vector 1 (vector 2 arg-0))))))))))))))))
+(define REPL-Idris-case--21269-6210 (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 (eta-0) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
+(define REPL-Idris-case--24434-5985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 arg-27 arg-0 arg-20 arg-23))))))))
+(define REPL-Idris-case--24355-5922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma e-2 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 2 e-2 arg-0 arg-20 arg-23))))))))))
+(define REPL-Idris-case--24150-5868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((_-0 (vector 1 e-1))) (REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
+(define REPL-Idris-case--24150-5769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
+(define REPL-Idris-case--24084-5703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-7 arg-5 e-2 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 ((act-25 (Resugar-Idris-pterm arg-7 arg-5 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))) (let ((act-26 (let ((act-26 (unbox arg-3))) (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 ((e-7 (vector-ref sc3 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc4 arg-10)) (cond ((equal? sc4 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-6)) (else e-6)))))) (let ((act-27 (REPLOpts-Idris-getSourceLine arg-3 arg-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 ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-1 (vector 1 e-1))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 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-2 e-3 _-0 e-5 e-6 e-7 pappstr e-1 _-1 (Unlit-Parser-isLitLine e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))
+(define REPL-Idris-case--21269-5651 (lambda (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-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (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-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((7) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-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-7 (vector-ref sc6 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc7 e-7)) (let ((e-4 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-25 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (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))) (let ((act-26 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-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 (let ((act-27 (unbox arg-3))) (vector 1 act-27)))) (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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-10)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-11)) (else e-11)))))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-28)) (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 ((_-0 (vector 0 e-4 e-3))) (let ((sc12 e-17)) (case (vector-ref sc12 0) ((1) (let ((e-18 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-18))) ((REPL-Idris-case--24355-5922 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-16 e-5 e-9 e-15 e-14 bind-0 e-4 e-3 _-0 e-8 e-11 e-12 pappstr e-18 _-1 (Unlit-Parser-isLitLine e-18)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Can't make lifted definition"))))))))
+(define REPL-Idris-case--23667-5338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines arg-23) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-23))))))))
+(define REPL-Idris-case--23606-5275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((l (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-15))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-7 arg-5 e-2 l eta-1)) arg-16) 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 ((sc2 arg-2)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))))))
+(define REPL-Idris-case--23543-5233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not found"))))))))
+(define REPL-Idris-case--23463-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) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-3 arg-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-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 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-6 _-0 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 "Source line not found"))))))))))))))))) (else (REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)))))))
+(define REPL-Idris-case--23407-5117 (lambda (arg-0 arg-1 arg-2 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 ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) arg-12 eta-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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (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 ((_-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-3))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 bind-0 e-7 e-6 _-0 e-3 _-1 (Unlit-Parser-isLitLine e-3)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 1 "Already defined")))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))
+(define REPL-Idris-case--21269-5070 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) 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-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-1 1) p))) e-9 eta-1))) (let ((sc7 act-25)) (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 ((bind-0 (vector 1 (vector 0 )))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((sc9 e-3)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-26)) (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 ((_-1 (vector 1 (vector 0 e-12 e-11)))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-13 e-5 e-9 _-0 bind-0 e-12 e-11 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 arg-1 arg-0)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int arg-1))))))))))))
+(define REPL-Idris-case--22952-4858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 arg-26 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-26 (vector 0 ))))))))))
+(define REPL-Idris-case--22952-4755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-12)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-25)) (else arg-25)))))
+(define REPL-Idris-case--22835-4685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-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-5 (vector-ref sc2 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc3 arg-12)) (cond ((equal? sc3 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-5)) (else e-5)))))) (let ((sc3 arg-4)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))
+(define REPL-Idris-case--22104-4589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--22835-4685 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0 (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-0 (vector 0 ) arg-18))))))))
+(define REPL-Idris-case--22104-4480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))))))))))
+(define REPL-Idris-case--22320-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 arg-24 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-24 (vector 0 ))))))))))
+(define REPL-Idris-case--22320-4265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11)) (cond ((equal? sc0 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) arg-21)) (else arg-21)))))
+(define REPL-Idris-case--22202-4168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc0 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-11)) (cond ((equal? sc1 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch arg-1 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))
+(define REPL-Idris-case--22104-4070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-0)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 "No search results")))) (else (let ((e-2 (vector-ref sc1 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc2 arg-12)) (cond ((equal? sc2 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-2)) (else e-2)))))) (let ((sc2 arg-4)) (cond ((equal? sc2 0) (lambda (eta-0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))
+(define REPL-Idris-case--21269-3985 (lambda (arg-0 arg-1 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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((7) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) 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 ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc6 act-25)) (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-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) eta-1 eta-2))) e-5) eta-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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 7 e-12 e-13))) (vector 0 )))) (REPL-Idris-case--22104-4480 arg-0 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-13 e-6 e-10 e-12 bind-0 e-5 e-8 e-9 tm (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 ) e-12 (vector 0 ) tm)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14)))) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc10 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc11 arg-12)) (cond ((equal? sc11 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc11 arg-4)) (cond ((equal? sc11 0) (REPL-Idris-updateFile arg-5 (lambda (eta-1) (REPL-Idris-proofSearch arg-2 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-3 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 )))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((1) (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))) (let ((e-18 (vector-ref sc3 5))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 1 e-14 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) (REPL-Idris-case--22104-4589 arg-0 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-17 e-18 e-22 e-6 e-10 e-23 e-14 bind-0 (let ((sc7 e-14)) (let ((e-0 (vector-ref sc7 1))) e-0)))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole")))))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))) ((0) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2))))))(else (lambda (eta-0) (vector 1 (vector 1 "Not a searchable hole"))))))))
+(define REPL-Idris-case--21908-3828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause arg-8 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 (vector 0 ))))))))))
+(define REPL-Idris-case--21269-3807 (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 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer arg-1) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-1 (vector 0 )))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here")))))))))
+(define REPL-Idris-case--21746-3704 (lambda (arg-0 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-3)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines arg-12) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-12))))))))
+(define REPL-Idris-case--21269-3662 (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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-updateCase arg-8 arg-6 arg-4 e-1 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-3)) (cond ((equal? sc2 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-5) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-2 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-5))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))))))))))
+(define REPL-Idris-case--21269-3588 (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) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int arg-2 1) (Prelude-C-45_Neg__Int arg-1 1)) eta-0))) (else (lambda (eta-0) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-2 1) eta-0)))))))
+(define REPL-Idris-case--21269-3526 (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) (vector 1 "")))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-7 arg-5 arg-8 eta-1)) 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))) (vector 1 (Name-Core-showSep "\xa;" e-5)))))))))))))
+(define REPL-Idris-case--21326-3443 (lambda (arg-0 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 (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 (vector 0 ))))))))))
+(define REPL-Idris-case--21326-3333 (lambda (arg-0 arg-1 arg-2 arg-3 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 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-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))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 ))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
+(define REPL-Idris-case--21269-3294 (lambda (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-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (REPL-Idris-case--21326-3333 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-9 e-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))))) (else (let ((_-0 (vector 0 ))) (REPL-Idris-case--21326-3443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (Prelude-C-61C-61_Eq__String arg-10 ""))))))))
+(define REPL-Idris-case--21157-3164 (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) (vector 1 (Strings-Prelude-C-43C-43 "\xa;" (Unlit-Parser-relit arg-8 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--21150-3139-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
+(define REPL-Idris-case--21084-3081 (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) (Strings-Prelude-C-43C-43 arg-5 (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-6) (Prelude-unpack arg-4))))) (else (Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--21075-3074-replaceStr arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 (substring arg-4 1 (string-length arg-4)))))))))
+(define REPL-Idris-case--20934-2955 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-3 "~") e-2) eta-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 ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-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 (vector 1 (vector 0 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-5) eta-0))))))))
+(define REPL-Idris-case--20920-2931 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-1 "~") e-2) eta-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 ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-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 (vector 0 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 )))))))))
+(define REPL-Idris-case--20708-2755 (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 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " arg-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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))
+(define REPL-Idris-case--20694-2711 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-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))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "No such code generator: " e-0)) eta-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 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))))))))
+(define REPL-Idris-case--20454-2638 (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) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0)))))))
+(define REPL-Idris-case--20454-2619 (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))) (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 arg-0 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2585 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 ((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 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2551 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPL-Idris-case--20454-2517 (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))) (vector 0 e-0 e-1 arg-0))))))
+(define REPL-Idris-case--20454-2496 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 e-2))))))
+(define REPL-Idris-case--20360-2410 (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))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Name-Core-showSep "\xa;" e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition"))))))))
+(define REPL-Idris-case--19827-2069 (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24)))))))))
+(define REPL-Idris-n--21075-3074-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (REPL-Idris-case--21084-3081 arg-0 arg-1 arg-2 arg-3 arg-6 arg-5 arg-4 (Strings-Data-isPrefixOf arg-4 arg-6)))))))
+(define REPL-Idris-n--27246-8548-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 REPL-Idris-n--25292-6686-nfun (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) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normaliseAll arg-6 eta-0 eta-1 eta-2 eta-3))))))(else (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Normalise-Core-normalise arg-6 eta-0 eta-1 eta-2 eta-3))))))))))
+(define REPL-Idris-n--27265-8925-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
+(define REPL-Idris-n--21150-3139-insertInBlank (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 1 (Unlit-Parser-relit arg-6 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 arg-3 "\xa;")))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-case--21157-3164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) "")))))))))
+(define REPL-Idris-n--27042-8314-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Prelude-substr arg-1 (Prelude-length arg-3) arg-3))))))
+(define REPL-Idris-n--27042-8315-fnameCmd (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--27045-8340 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
+(define REPL-Idris-n--24963-6380-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0))))))))
+(define REPL-Idris-n--25292-6685-emode (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 (vector 2 ))))))
+(define REPL-Idris-n--21269-3901-dropLams (lambda (arg-0 arg-1 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)) (cond ((equal? sc0 0) (vector 0 arg-10 (vector 0 arg-12 arg-13)))(else (let ((e-0 (- arg-11 1))) (let ((sc0 arg-13)) (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))) (REPL-Idris-n--21269-3901-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-3 arg-10) e-0 (vector 1 e-4 arg-12) e-5)))))(else (vector 0 arg-10 (vector 0 arg-12 arg-13)))))))))))
+(define REPL-Idris-n--27265-8926-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27265-8925-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
+(define REPL-Idris-n--27265-8927-cmdInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "   " (REPL-Idris-n--27265-8926-col (+ 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 0)))))))))))) (Name-Core-showSep " " e-2) (Parser-Idris-show_Show__CmdArg e-6) e-7))))))))))
+(define REPL-Idris-n--21150-3140-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) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--21150-3139-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)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (REPL-Idris-n--21150-3140-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8))))))))))
+(define REPL-Idris-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))) ((REPL-Idris-case--20920-2931 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
+(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Def arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Def arg-5888 arg-5889)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-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-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-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 (let ((act-27 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (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-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (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-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--19827-2069 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) 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 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) 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-14 (vector-ref sc9 1))) (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-32 (arg-3664 eta-1))) ((arg-3665 act-32) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-33 (arg-3664 eta-1))) ((arg-3665 act-33) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (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 ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-5886 arg-5887 eta-3)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-5888 arg-5889 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-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 (Prelude-not (List-Data-isNil 'erased (let ((sc14 e-7)) (let ((e-20 (vector-ref sc14 21))) e-20)))))) (cond ((equal? sc13 0) (((let ((scinfo (Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Nat d x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Nat d-0 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-0) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-35 (arg-3664 eta-2))) ((arg-3665 act-35) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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))) (Context-Core-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)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-2 e-1 e-10 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (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 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-0 e-3 e-2 e-10 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (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 (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-9 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (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-6 (vector-ref sc1 1))) ((REPL-Idris-case--20454-2638 e-5 arg-1 arg-0 e-6 (Options-Core-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5)) eta-0)))))))))))))
 (define REPL-Idris-rtrim (lambda (arg-0) (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse arg-0)))))
 (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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 ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))))))))))))
-(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (let ((act-26 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--25683-14348-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> ")) 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 ((act-27 (let ((act-27 (PrimIO-getLine 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 ((act-28 (File-System-fEOF (File-System-stdin) 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 ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 (PrimIO-putStrLn "" ext-0))) (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 (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0)))))))))))))))))))))))))))))))))))
-(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--19710-9075-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
-(define REPL-Idris-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 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) 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 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) 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 (Name-Core-showSep "\xa;" e-7)))))))))))) (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 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--19956-9329 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--19956-9438 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) 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 ((find (REPL-Idris-case--19904-9582 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased 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 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-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 (CaseSplit-IDEMode-Idris-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " 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))) (let ((e-14 (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 (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (Context-Core-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (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 ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--20725-10462 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--19904-9892-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) 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-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--20725-10571 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((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 (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 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 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 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-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 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (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 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--22208-11243 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (REPL-Idris-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (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) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (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)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-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 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-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 (Resugar-Idris-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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-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 (vector 0 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))) ((REPL-Idris-case--22947-11880 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (lambda (eta-0) (vector 1 (vector 1 "Not implemented yet")))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-4 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))))) (else (vector 1 (vector 1 "Source line not available"))))))))))))))))))
-(define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (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 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((act-30 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))) (lambda (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 (Error-Idris-display arg-0 arg-2 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 REPL-Idris-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) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 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))) ((REPL-Idris-case--23850-12645 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 2))) e-8))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-17 (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-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-16 e-17) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 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 ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (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-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (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 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (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 ((Context-Core-lookupCtxtName 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (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))) ((REPL-Idris-case--23850-13169 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)))))))) ((5) (let ((e-4 (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 ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-8 e-7 e-6))))))))))) (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 (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((14) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 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 ((act-25 (Context-Core-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-7 (vector-ref sc2 1))) (vector 1 (vector 11 e-7)))))))))))))) ((15) (lambda (eta-0) (let ((act-24 (Context-Core-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 11 e-5))))))))) ((6) (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))) ((REPL-Idris-case--23850-13282 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)))))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-7 eta-0))))) ((8) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-8 eta-0)))) ((9) (lambda (eta-0) (vector 1 (vector 3 )))) ((10) (let ((e-9 (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 (Context-Core-lookupTyName 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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-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-12 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 14 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-9) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((16) (let ((e-10 (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 ((Context-Core-lookupCtxtName e-10 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 15 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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 ((bind-0 e-6)) ((REPL-Idris-case--24815-13548 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (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 ((Context-Core-lookupCtxtName e-11 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 16 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn 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 ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Totality arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Totality arg-11959 arg-11960)))) e-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))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((11) (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 (let ((act-25 ((Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 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 (vector 1 (vector 0 )))))))))))))) ((12) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 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 (vector 1 (vector 0 ))))))))) ((13) (lambda (eta-0) (let ((act-24 (REPL-Idris-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 18 e-5))))))))) ((18) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 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 19 e-14))))))))) ((19) (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 ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n 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 ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--23850-13830 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) 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 17 e-8))))))))))))))))))))))))))) ((20) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-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 23 e-7))))))))))))))))))))))) ((22) (lambda (eta-0) (vector 1 (vector 22 )))) ((23) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 20 (Version-Idris-version)))))))))
+(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-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 (let ((act-26 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 (REPL-Idris-n--27246-8548-prompt arg-4 arg-3 arg-2 arg-1 arg-0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) 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 ((act-27 (let ((act-27 ((Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-28 (arg-3664 eta-0))) ((arg-3665 act-28) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (File-System-stdin)) 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 ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "") ext-0))) (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 (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 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))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0)))))))))))))))))))))))))))))))))))
+(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--21075-3074-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
+(define REPL-Idris-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 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) 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 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 ""))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) 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 (Name-Core-showSep "\xa;" e-7)))))))))))) (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 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Prelude-C-45_Neg__Int e-0 1) (Prelude-C-45_Neg__Int e-1 1)) p))) 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 ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((_-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) ((REPL-Idris-case--21326-3333 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-10 e-12 e-11 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) eta-0)))))))))) (else (let ((_-0 (vector 0 ))) ((REPL-Idris-case--21326-3443 e-2 e-1 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 _-0 (Prelude-C-61C-61_Eq__String e-7 "")) 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 ((find (REPL-Idris-case--21269-3588 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased 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 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Prelude-C-45_Neg__Int e-4 1) (Prelude-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 e-8)))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (CaseSplit-Interactive-TTImp-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 (CaseSplit-IDEMode-Idris-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) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 e-1 (vector 0 ))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " 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))) (let ((e-14 (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 (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (Context-Core-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((7) (let ((e-18 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (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 ((e-20 (vector-ref sc10 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-normaliseHoles (vector 0 ) e-20 (vector 0 ) eta-1 eta-2))) e-19) eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (tm) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 7 e-18 e-17))) (vector 0 )))) (REPL-Idris-case--22104-4480 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-9 e-16 e-18 bind-0 e-19 e-20 e-21 tm (REPL-Idris-n--21269-3901-dropLams e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-18 (vector 0 ) tm)))) e-21) 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-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22)))) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 1 "No search results"))) (else (let ((e-4 (vector-ref sc14 1))) (let ((res (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-4)) (else e-4)))))) (let ((sc15 e-10)) (cond ((equal? sc15 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 res (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (vector 1 res (vector 0 ))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-20 (vector-ref sc7 2))) (let ((e-19 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-16 (vector 1 e-21 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--22104-4589 e-14 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-16 e-23 e-21 bind-0 (let ((sc11 e-21)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole"))))))))(else (vector 1 (vector 1 "Not a searchable hole")))))))) ((0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))))(else (vector 1 (vector 1 "Not a searchable hole")))))))))))))))))))))))))))) ((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 (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 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) 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 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((act-26 (Context-Core-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 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (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) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int e-16 1) p))) e-9 eta-1))) (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 (vector 1 (vector 0 )))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((sc12 e-3)) (let ((e-19 (vector-ref sc12 1))) (let ((e-18 (vector-ref sc12 2))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc13 1))) (let ((_-1 (vector 1 (vector 0 e-19 e-18)))) (let ((sc14 e-20)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--23606-5275 e-17 e-16 e-15 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-14 e-13 e-8 e-9 _-0 bind-0 e-19 e-18 _-1 e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-1)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))) (else ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 e-15 e-16 e-17)) eta-1))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find a definition for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Prelude-C-43C-43 ": " (Core-Core-show_Show__Error err)))))))) eta-0))(else (vector 1 (vector 1 "Already defined"))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))))))))))))))))))))))) (else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 " on line " (Prelude-show_Show__Int e-16)))))))))))))))))))))))) ((5) (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 ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-26 (REPL-Idris-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)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (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) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (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)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-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 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-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 (Resugar-Idris-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 ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-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 (vector 0 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))) ((REPL-Idris-case--24355-5922 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 "Source line not found")))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition"))))))))(else (vector 1 (vector 1 "Can't make lifted definition")))))))))))))))))))))))))) ((6) (lambda (eta-0) (vector 1 (vector 1 "Not implemented yet")))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getSourceLine arg-4 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))))) (else (vector 1 (vector 1 "Source line not available"))))))))))))))))))
+(define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (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 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((act-30 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))) (lambda (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 (Error-Idris-display arg-0 arg-2 arg-4 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 REPL-Idris-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) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 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))) ((REPL-Idris-case--25292-6721 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (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-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-18 (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-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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-17 e-18) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 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 ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (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-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (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 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (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 ((Context-Core-lookupCtxtName 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-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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) 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))) (vector 1 (vector 5 e-7))))))))))))))))))))))) ((4) (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))) ((REPL-Idris-case--25292-7276 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)))))))) ((5) (let ((e-4 (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 ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-10 e-9 e-6 e-7 e-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 (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) 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 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((15) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-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 ((act-25 (Context-Core-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-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((16) (lambda (eta-0) (let ((act-24 (Context-Core-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))))))))) ((7) (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))) ((REPL-Idris-case--25292-7423 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)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (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 (Context-Core-lookupTyName e-10 (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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-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))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((17) (let ((e-11 (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 ((Context-Core-lookupCtxtName e-11 (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) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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 ((bind-0 e-6)) ((REPL-Idris-case--26334-7703 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (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 ((Context-Core-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)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (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 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn 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 ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn 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))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Totality arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Totality arg-5888 arg-5889)))) e-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))) (vector 1 (vector 0 fn e-8))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((12) (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 (let ((act-25 ((Context-Core-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))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 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 (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 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 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-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))))))))) ((19) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 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 (vector 1 (vector 21 e-15))))))))) ((20) (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 ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n 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 ((globs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--25292-8004 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) 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))))))))))))))))))))))))))) ((21) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-16) 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 (Context-Core-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 25 e-7))))))))))))))))))))))) ((23) (lambda (eta-0) (vector 1 (vector 24 )))) ((24) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 22 (Version-Idris-version)))))))))
 (define REPL-Idris-printClause (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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 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))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 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))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 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-8 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) ")\xa;"))))) (Name-Core-showSep "\xa;" e-10))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 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 (Unlit-Parser-relit arg-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible"))))))))))))))))
-(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--25484-14203 arg-0 (REPL-Idris-n--25484-14122-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 14 eta-0))) (vector 0 )))) arg-0))))
+(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--27042-8396 arg-0 (REPL-Idris-n--27042-8315-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))) arg-0))))
 (define REPL-Idris-parseEmptyCmd (lambda () (vector 8 1 1 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-eoi)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (vector 0 (vector 0 )))))))
-(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-14110) (vector 0 (vector 1 c))))))))
+(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-8304) (vector 0 (vector 1 c))))))))
 (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0)))
-(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext 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 ((act-25 (let ((act-25 (File-System-readFile arg-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 ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) 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 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) 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 ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 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 ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 9 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource 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 (vector 1 (vector 8 arg-5 e-7)))))))))))))))))))))
-(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--25588-14236 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5))))
-(define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((22) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 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 (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)))))))))))
+(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext 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 ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-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 ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) 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 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) 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 ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 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 ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource 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 (vector 1 (vector 10 arg-5 e-7)))))))))))))))))))))
+(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--27146-8429 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5))))
+(define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((24) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 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 (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0)))))))))))
 (define REPL-Idris-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))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered")))))))
 (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-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 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 )))))))))))))))))))
-(define REPL-Idris-findCG (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))) ((REPL-Idris-case--19414-8789 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
-(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 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 (vector 1 (vector 2 arg-4))))))))))))))))))))))))))))))
-(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--23540-12324-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 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 (vector 1 (vector 21 ))))))))
+(define REPL-Idris-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))) ((REPL-Idris-case--20694-2711 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
+(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-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 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) 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 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 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 (vector 1 (vector 2 arg-5))))))))))))))))))))))))))))))
+(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--24963-6380-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 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 (vector 1 (vector 23 ))))))))
 (define REPL-Idris-displayType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))))))))))) (lambda () (lambda (num) (lambda (eta-0) (Holes-IDEMode-Idris-showHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (Holes-IDEMode-Idris-isHole e-7)))))))))
 (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 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))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) 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 (Syntax-Idris-show_Show__PTerm e-5)))))))))
-(define REPL-Idris-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) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-23 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-23))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-26)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-16)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-16)))) eta-0))))))) ((19) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-17)) eta-0)))) ((20) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-18) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((23) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-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))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34) eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((18) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--19107-8518 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)))))))))))
+(define REPL-Idris-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) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-26))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Imported module " 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 ((Error-Idris-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))) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading module " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ": " e-5))) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-10 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-12) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-14 "'")) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-15 " written")) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name (let ((sc3 e-29)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc2 eta-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-19)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name (let ((sc1 eta-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) eta-0))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-21) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((25) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((0) (let ((e-32 (vector-ref sc1 1))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-32) eta-0))))))) ((1) (let ((e-33 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-33 eta-0)))) ((2) (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) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-34 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-35) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-36) "\xa;")))) e-37) eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-23)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--20360-2410 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)))))))))))
 (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 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))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) 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 (Syntax-Idris-show_Show__PTerm e-5)))))))))
-(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--25702-14694-cmdInfo eta-0)) (Parser-Idris-help)))))
-(define REPL-Idris-displayErrors (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))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--27265-8927-cmdInfo eta-0)) (Parser-Idris-help)))))
+(define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 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))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 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))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 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))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 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))) (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8))))))))))))))))))))))))))
-(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) 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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 12 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 13 eta-0))))) e-9) ext-0))))))))))))))))))))))))))))))
+(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) 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 ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) 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 ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) 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 ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-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 ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 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))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-9) ext-0))))))))))))))))))))))))))))))
 (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 ))))))))))))
 (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2)))
-(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--19785-9141-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5))))
+(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--21150-3140-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5))))
 (define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 )))))))))))
 (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1)))))
-(define MakeLemma-Interactive-TTImp-case--7559-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2)))))))))
-(define MakeLemma-Interactive-TTImp-case--7272-6345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 arg-13))(else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-case--7087-6300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (MakeLemma-Interactive-TTImp-case--7272-6345 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13))))))
-(define MakeLemma-Interactive-TTImp-case--7087-6190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1 )) (else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-case--7024-6148 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7087-6300 arg-0 arg-1 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-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7087-6190 arg-0 arg-1 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-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3))))))))))
-(define MakeLemma-Interactive-TTImp-case--6821-5898 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1)))))
-(define MakeLemma-Interactive-TTImp-n--7522-6516-getArg (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) ext-0))))
+(define MakeLemma-Interactive-TTImp-case--7783-6830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2)))))))))
+(define MakeLemma-Interactive-TTImp-case--7495-6604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 1 arg-13))(else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-case--7310-6559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (MakeLemma-Interactive-TTImp-case--7495-6604 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (TT-Core-shrinkTerm 'erased 'erased arg-8 (vector 1 (vector 0 ))))) (else (vector 1 arg-13))))))
+(define MakeLemma-Interactive-TTImp-case--7310-6449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 1 )) (else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-case--7240-6407 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-0 arg-1 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-3 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-0 arg-1 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-3 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3))))))))))
+(define MakeLemma-Interactive-TTImp-case--7037-6147 (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 ((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) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3))(else 1))))) ((6) (let ((e-11 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-11 e-3)))) ((7) (let ((e-16 (vector-ref sc1 4))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-16 e-3)))) ((8) (let ((e-20 (vector-ref sc1 3))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) (vector 1 e-20 e-3)))) ((0) (let ((e-25 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1)))))
+(define MakeLemma-Interactive-TTImp-n--7746-6778-getArg (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 ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 arg-2 e-2)))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define MakeLemma-Interactive-TTImp-used (lambda (ext-0) (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) ext-0))))
 (define MakeLemma-Interactive-TTImp-mkType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 1 arg-0 e-18 e-14 e-10 e-19 (MakeLemma-Interactive-TTImp-mkType arg-0 e-3 arg-2))))))))))))))))))))
-(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--7522-6516-getArg arg-2 arg-1 arg-0 eta-0)) arg-2))))
+(define MakeLemma-Interactive-TTImp-mkApp (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-apply (vector 0 arg-0 arg-1) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (MakeLemma-Interactive-TTImp-n--7746-6778-getArg arg-2 arg-1 arg-0 eta-0)) arg-2))))
 (define MakeLemma-Interactive-TTImp-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((MakeLemma-Interactive-TTImp-getArgs (vector 0 ) arg-1 (vector 0 ) 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 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-2 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-2 arg-3 e-2)))))))))))))
 (define MakeLemma-Interactive-TTImp-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 MakeLemma-Interactive-TTImp-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 (Normalise-Core-normalise 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))) ((Unelab-TTImp-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 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 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))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) 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 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) 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))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-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 ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7087-6300 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7087-6190 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) 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 0 (vector 0 ) e-7)))))))))))))))))))))(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 (Normalise-Core-normalise arg-0 e-5 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 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 ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))))))))))
+(define MakeLemma-Interactive-TTImp-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 (Normalise-Core-normalise 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))) ((Unelab-TTImp-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 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 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))) (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))) (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-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) 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 (Utils-TTImp-uniqueName e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) 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))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-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 ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6559 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--7310-6449 arg-1 e-2 e-0 arg-0 e-9 e-8 e-7 e-3 e-5 arg-2 e-6 e-10 e-11 xC-39 e-14 e-13 _-0 mn (Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Prelude-C-38C-38 (Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) 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 0 (vector 0 ) e-7)))))))))))))))))))))(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 (Normalise-Core-normalise arg-0 e-5 arg-2 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))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 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 ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))))))))))
 (define MakeLemma-Interactive-TTImp-bindableArg (lambda (arg-0 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-8 (vector-ref sc1 3))) (Prelude-C-124C-124 (MakeLemma-Interactive-TTImp-bindable 'erased arg-1 e-8) (lambda () (MakeLemma-Interactive-TTImp-bindableArg 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4)))))(else 1))))))(else 1)))))
-(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--6821-5898 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
-(define REPLCommon-Idris-case--10381-6556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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)))))))))))))))))))))))))))))
-(define REPLCommon-Idris-case--10306-6461 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6))))))))))
-(define REPLCommon-Idris-case--10306-6429 (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-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6))))))))))
-(define REPLCommon-Idris-case--10228-6388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 0 ))))))))))))))))))))))))))))))
-(define REPLCommon-Idris-case--10066-6225 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10030-6156-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10030-6156-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
-(define REPLCommon-Idris-case--10030-6184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 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 (PrimIO-putStrLn e-5 eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-0) 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))) ((REPLCommon-Idris-case--10066-6225 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0)))))))))))))))
-(define REPLCommon-Idris-case--9868-6047 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--9832-5978-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--9832-5978-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
-(define REPLCommon-Idris-case--9832-6006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 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 (PrimIO-putStrLn e-5 eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-0) 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))) ((REPLCommon-Idris-case--9868-6047 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0)))))))))))))))
-(define REPLCommon-Idris-case--9780-5943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn arg-0 eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPLCommon-Idris-case--9713-5881 (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))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn arg-0 eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
-(define REPLCommon-Idris-n--10030-6156-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
-(define REPLCommon-Idris-n--9832-5978-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
-(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (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 (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-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (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-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-9 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-9 e-8 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6))))))))))) (vector 1 act-25))))))))))))))
+(define MakeLemma-Interactive-TTImp-bindable (lambda (arg-0 arg-1 arg-2) (MakeLemma-Interactive-TTImp-case--7037-6147 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
+(define REPLCommon-Idris-case--10881-6843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) 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)))))))))))))))))))))))))))))
+(define REPLCommon-Idris-case--10800-6742 (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))) (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 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6 e-7 e-8))))))))))))
+(define REPLCommon-Idris-case--10800-6707 (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-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 0 ) e-6 e-7 e-8))))))))))))
+(define REPLCommon-Idris-case--10720-6663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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 ((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))) (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 e-20 e-21 e-22 e-23 e-24 (vector 0 ))))))))))))))))))))))))))))))
+(define REPLCommon-Idris-case--10551-6498 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10514-6421-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
+(define REPLCommon-Idris-case--10514-6450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 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 ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) 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))) ((REPLCommon-Idris-case--10551-6498 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0)))))))))))))))
+(define REPLCommon-Idris-case--10345-6312 (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) (REPLCommon-Idris-iputStrLn arg-2 arg-8 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-6 (vector 0 (vector 1 (vector 4 "warning") (vector 1 (vector 0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String (FC-Core-file e-2)) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-startPos e-2))) (vector 1 (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0)) (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-0))) (REPLCommon-Idris-n--10308-6235-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-8) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 ))))))))))))
+(define REPLCommon-Idris-case--10308-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Error-Idris-display arg-3 arg-1 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 ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) 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))) ((REPLCommon-Idris-case--10345-6312 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getErrorLoc arg-0)) eta-0)))))))))))))))
+(define REPLCommon-Idris-case--10252-6197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPLCommon-Idris-case--10181-6131 (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))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-0) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
+(define REPLCommon-Idris-n--10514-6421-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
+(define REPLCommon-Idris-n--10308-6235-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63)))))))
+(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (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 (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-6 (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 e-4 (vector 0 ) e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (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-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-11 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-4 (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))) (vector 0 e-0 e-1 e-11 e-10 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6 e-7 e-8))))))))))))) (vector 1 act-25))))))))))))))
 (define REPLCommon-Idris-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 (Context-Core-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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 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)))))))))))))))))))))))))))))) (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 ((InitPrimitives-Core-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 (UnifyState-Core-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 (Syntax-Idris-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 (Metadata-Core-initMetadata)))) (vector 1 act-29)))))))))))))))))))))))))
-(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--9780-5943 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--10252-6197 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define REPLCommon-Idris-printResult (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "ok" arg-1 ext-0)))
 (define REPLCommon-Idris-printError (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "error" arg-1 ext-0)))
-(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--9713-5881 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-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))) ((REPLCommon-Idris-case--10181-6131 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define REPLCommon-Idris-getFCLine (lambda (arg-0) (Builtin-fst 'erased 'erased (FC-Core-startPos arg-0))))
 (define REPLCommon-Idris-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPLCommon-Idris-emitWarning arg-0 arg-1 arg-2 eta-0 eta-1))) (List-Data-reverse 'erased (let ((sc1 e-5)) (let ((e-25 (vector-ref sc1 26))) e-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 (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-27 (vector-ref sc2 6))) (let ((e-26 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 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 (vector 0 ))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))
-(define REPLCommon-Idris-emitWarning (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))) ((REPLCommon-Idris-case--10030-6184 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
-(define REPLCommon-Idris-emitError (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))) ((REPLCommon-Idris-case--9832-6006 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
-(define REPLOpts-Idris-case--7981-8331 (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-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6))))))))))
-(define REPLOpts-Idris-case--7948-8301 (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-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))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6))))))))))
-(define REPLOpts-Idris-case--7903-8261 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 arg-0))))))))))
-(define REPLOpts-Idris-n--8026-8348-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--8026-8348-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
+(define REPLCommon-Idris-emitWarning (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))) ((REPLCommon-Idris-case--10514-6450 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLCommon-Idris-emitError (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))) ((REPLCommon-Idris-case--10308-6264 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define REPLOpts-Idris-case--9179-2401 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8))))))))))))
+(define REPLOpts-Idris-case--9093-2322 (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-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 arg-0 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPLOpts-Idris-case--9057-2289 (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-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 arg-0 e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define REPLOpts-Idris-case--9008-2245 (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))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (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 arg-0 e-7 e-8))))))))))))
+(define REPLOpts-Idris-n--9142-2340-findLine (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (REPLOpts-Idris-n--9142-2340-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
 (define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
 (define REPLOpts-REPLOpts-Idris-showTypes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define REPLOpts-Idris-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-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))
-(define REPLOpts-Idris-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-7 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 arg-1))))))))))) (vector 1 act-25)))))))))
-(define REPLOpts-Idris-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-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-7 e-6))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-4 (vector-ref sc1 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-9 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 arg-1 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-9 (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))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-9 e-6 e-7 e-8))))))))))))) (vector 1 act-25)))))))))
+(define REPLOpts-Idris-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-9 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-9 e-6 arg-1 e-8))))))))))))) (vector 1 act-25)))))))))
 (define REPLOpts-Idris-replFC (lambda () (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0))))
 (define REPLOpts-REPLOpts-Idris-mainfile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
-(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-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 (REPLOpts-Idris-n--8026-8348-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5))))))))))
+(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-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 (REPLOpts-Idris-n--9142-2340-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5))))))))))
 (define REPLOpts-Idris-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-3 (vector-ref sc1 4))) e-3))))))))))
 (define REPLOpts-Idris-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-6 (vector-ref sc1 7))) e-6))))))))))
+(define REPLOpts-Idris-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-7 (vector-ref sc1 8))) e-7))))))))))
+(define REPLOpts-Idris-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 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-1 (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))))
+(define REPLOpts-REPLOpts-Idris-extraCodegens (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
 (define REPLOpts-REPLOpts-Idris-evalMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define REPLOpts-REPLOpts-Idris-errorLine (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
 (define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
-(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1)))
-(define Commands-IDEMode-Idris-case--3092-9148 (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))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 )))))))))
-(define Commands-IDEMode-Idris-case--2035-8428 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-case--2035-8325 (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 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2035-8316-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-case--2035-8276 (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 6 arg-0 arg-1 e-1 1))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-n--2035-8316-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all")))
-(define Commands-IDEMode-Idris-n--2929-8961-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 )))))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__String (lambda (ext-0) (vector 1 ext-0)))
-(define Commands-IDEMode-Idris-toSExp_SExpable__SExp (lambda (ext-0) ext-0))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Nat (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Nat_Integer ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Name (lambda (ext-0) (vector 4 (Name-Core-show_Show__Name ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Integer (lambda (ext-0) (vector 3 ext-0)))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Int (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Int_Integer ext-0))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__Bool (lambda (ext-0) (vector 2 ext-0)))
-(define Commands-IDEMode-Idris-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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3092-9148 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3)))))))
-(define Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (arg-1 arg-3)) arg-2))))
-(define Commands-IDEMode-Idris-show_Show__SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" e-4)))))))
-(define Commands-IDEMode-Idris-showPrec_Show__SExp (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)))
-(define Commands-IDEMode-Idris-__Impl_Show_SExp (lambda () (vector 0 (lambda (x) (Commands-IDEMode-Idris-show_Show__SExp x)) (lambda (d) (lambda (x) (Commands-IDEMode-Idris-showPrec_Show__SExp d x))))))
-(define Commands-IDEMode-Idris-__Impl_SExpable_SExp (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp ext-0)))
-(define Commands-IDEMode-Idris-__Impl_SExpable_Int (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int ext-0)))
-(define Commands-IDEMode-Idris-__Impl_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-0 arg-1 arg-2 ext-0) (Commands-IDEMode-Idris-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 'erased 'erased arg-2 ext-0)))
-(define Commands-IDEMode-Idris-__Impl_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased arg-1 ext-0)))
-(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-9039) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-9039)) (lambda (arg-9039) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-9040) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-9040)) (lambda (arg-9040) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-9040))) arg-9039))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1)))))
-(define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0)))
-(define Commands-IDEMode-Idris-sendLine (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (lambda (eta-0) (File-System-fPutStr arg-0 arg-1 eta-0)) ext-0)))
-(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\xa;"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-hex arg-2 (Prelude-cast_Cast__Nat_Int (Prelude-length 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 (Commands-IDEMode-Idris-sendLine arg-2 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 (File-System-fflush arg-2 eta-0))) (vector 1 act-26))))))))))))))
-(define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-hex (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-prim__printfHex arg-0 "%06x" arg-1 ext-0)))
-(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2035-8276 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2035-8325 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (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)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--2929-8961-escapeChar eta-0))) (Prelude-unpack ext-0)))))
-(define Error-Idris-case--9458-8912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-5 arg-4 e-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-5 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " e-5))))))))))))))))
-(define Error-Idris-case--9458-8675 (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))) (Error-Idris-perror arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-8600-pAlterror arg-0 arg-1 arg-2 eta-1)) 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 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\xa;" (Name-Core-showSep "\xa;" e-5))))))))))))))
-(define Error-Idris-case--9458-8542 (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))) (vector 0 e-0 e-1 0))))))
-(define Error-Idris-case--9458-8432 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " is not accessible in this context")) (else (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8395-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8396-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0) " context")))))))))))
-(define Error-Idris-case--9458-8337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
-(define Error-Idris-n--9458-8792-tshow (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-6 arg-5 arg-4 arg-7 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5))))))))))))))
-(define Error-Idris-n--9458-8395-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
-(define Error-Idris-n--9458-8396-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
-(define Error-Idris-n--9458-8140-showPVar (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) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--9458-8140-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0)))(else (Name-Core-show_Show__Name arg-7))))))
-(define Error-Idris-n--9458-9299-showMod (lambda (arg-0 arg-1 arg-2 arg-3) (Name-Core-showSep "." (List-Data-reverse 'erased arg-3))))
-(define Error-Idris-n--9458-8964-showHoles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\xa;" (Error-Idris-n--9458-8964-showHoles arg-0 arg-1 arg-2 e-3)))))))))))))))
-(define Error-Idris-n--9458-8600-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName 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))) (let ((act-25 ((Error-Idris-perror arg-2 arg-1 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-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\xa;")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-2 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\xa;\x9;" e-5))))))))))))))))
-(define Error-Idris-n--9458-8847-dropEnv (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-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) (Error-Idris-n--9458-8847-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-2 arg-6) (vector 1 e-3 arg-7) e-4)) ((1) (Error-Idris-n--9458-8847-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-2 arg-6) (vector 1 e-3 arg-7) e-4))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))
-(define Error-Idris-n--9458-8601-allUndefined (lambda (arg-0 arg-1 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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--9458-8601-allUndefined arg-0 arg-1 arg-2 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
-(define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 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 (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5))))))))))))))
-(define Error-Idris-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 (Resugar-Idris-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 (Syntax-Idris-show_Show__PTerm e-6)))))))))))))
-(define Error-Idris-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 (let ((act-25 (Normalise-Core-normaliseHoles 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))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 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 (Syntax-Idris-show_Show__PTerm e-6))))))))))))))
-(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 e-0))) ((1) (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))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Mismatch between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (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 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" e-11)))))))))))))))))))) ((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) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 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 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--9458-8140-showPVar e-11 e-12 e-15 e-14 e-13 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\xa;\x9;" e-5)))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (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 ((Context-Core-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " e-6)))))))))))))))))))) ((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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-perror arg-0 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 (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;" e-7)))))))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-196 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-196 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 (Strings-Prelude-C-43C-43 e-5 " is not a valid impossible case")))))))))) (else (let ((e-199 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 e-199) 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 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\xa;" e-5)))))))))))))))) ((7) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (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-201 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-201)) " is not explicitly imported")))))))) (else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private")))))))))) ((9) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type")))))) ((10) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Name-Core-show_Show__Name e-40))))))))) ((11) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-203 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-203) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering. Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-6))))))))))))))))) (else (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering:\xa;\x9;" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc3 e-204)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-204)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-204))))))))))))))))))))))) ((12) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\xa;\x9;" (TT-Core-show_Show__PartialReason e-46))))))))))))) ((13) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Resugar-Idris-sugarName 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))) (lambda (eta-0) (vector 1 (Error-Idris-case--9458-8432 e-53 e-52 e-51 e-50 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) e-52))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (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 (Error-Idris-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 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 " so must be fully applied")))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " borrows, so must return a concrete type")))))))))))) ((17) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-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 (Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-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 ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration. Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-7)))) (let ((act-27 (Context-Core-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 res))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) 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))) (vector 1 (Strings-Prelude-C-43C-43 "Multiple solutions found in search. Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-5))))))))))))) ((20) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-75) 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 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)))))))))))))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Error-Idris-case--9458-8675 e-76 arg-1 arg-0 (Error-Idris-n--9458-8601-allUndefined e-76 arg-1 arg-0 e-76)))) ((22) (lambda (eta-0) (vector 1 "Can't infer type for this record update"))) ((23) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")))) (else (let ((e-207 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-207) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type"))))) ((25) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 3))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (let ((sc1 e-90)) (case (vector-ref sc1 0) ((1) (let ((e-209 (vector-ref sc1 1))) (let ((e-210 (vector-ref sc1 2))) (let ((sc2 e-209)) (case (vector-ref sc2 0) ((1) (let ((e-212 (vector-ref sc2 1))) (let ((sc3 e-210)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-212) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))))))))))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (let ((e-95 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-8792-tshow e-92 e-93 e-95 e-94 arg-1 arg-0 e-92 e-94 eta-1)) e-95) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Name-Core-showSep ", " e-5)))))))))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-96 arg-0 arg-1 e-98 e-100 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 " here. Try binding explicitly.")))))))))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (Error-Idris-case--9458-8912 e-101 e-102 e-104 e-103 arg-1 arg-0 (Error-Idris-n--9458-8847-dropEnv e-101 e-102 e-104 e-103 arg-1 arg-0 e-101 e-103 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 5))) (let ((e-110 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-105 arg-0 arg-1 e-109 e-110 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Name-Core-show_Show__Name e-107))))))))))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\xa;" (Error-Idris-n--9458-8964-showHoles e-111 arg-1 arg-0 e-111)))))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 3))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-112 arg-0 arg-1 e-114 e-117 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Name-Core-show_Show__Name e-116)))))))))))))))))))) ((33) (let ((e-118 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 3))) (let ((e-121 (vector-ref sc0 4))) (let ((e-122 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-118 arg-0 arg-1 e-120 e-122 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) (Strings-Prelude-C-43C-43 " has been solved by unification\xa;" (Strings-Prelude-C-43C-43 "Result: " e-5)))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-125 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-127 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 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Resugar-Idris-sugarName e-6)))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Non linear pattern " (Resugar-Idris-sugarName e-129)))))) ((36) (let ((e-131 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-133 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-135 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined"))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 3))) (let ((e-139 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-136 arg-0 arg-1 e-138 e-139 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " is not a function type")))))))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 3))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-143 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-144 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 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " e-6)))))))))))))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 3))) (let ((e-148 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-145 arg-0 arg-1 e-147 e-148 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 e-5 " is not a rewrite rule type")))))))))))) ((42) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " have differing numbers of arguments")))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " require matching on different types")))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Can't infer type to match in " e-5))))))))) ((3) (let ((e-214 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) e-214 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 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " is not fully applied"))))))))))) (else (let ((e-215 (vector-ref sc1 1))) (let ((sc2 e-215)) (let ((e-218 (vector-ref sc2 1))) (let ((e-219 (vector-ref sc2 2))) (let ((sc3 e-219)) (let ((e-222 (vector-ref sc3 1))) (let ((e-223 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-218 arg-0 arg-1 e-222 e-223 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 ((Context-Core-prettyName arg-0 e-150) 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 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " e-6)))))))))))))))))))))))))))) ((44) (let ((e-152 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 3))) (let ((e-155 (vector-ref sc0 4))) (let ((e-156 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-152 arg-0 arg-1 e-154 e-156 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-155) ")")))))))))))))))) ((43) (let ((e-158 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 3))) (let ((e-161 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-158 arg-0 arg-1 e-160 e-161 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 " as it has a polymorphic type"))))))))))))) ((45) (let ((e-163 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-163 (Strings-Prelude-C-43C-43 "\xa;" "Try making it a bound implicit."))))))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 3))) (let ((e-167 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-164 arg-0 arg-1 e-166 e-167 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "Bad elaborator script " e-5)))))))))))) ((47) (let ((e-169 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-169)))) ((48) (let ((e-170 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170)))))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-172))))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176)))))) ((51) (let ((e-178 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found"))))) ((52) (let ((e-179 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--9458-9299-showMod e-179 arg-1 arg-0 eta-1)) e-179))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180))))) ((55) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-181))))) ((56) (let ((e-182 (vector-ref sc0 1))) (let ((e-183 (vector-ref sc0 2))) (let ((e-184 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-183) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 e-184) 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 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-182) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) ((57) (let ((e-185 (vector-ref sc0 1))) (let ((e-186 (vector-ref sc0 2))) (let ((e-187 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 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))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 e-187) 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 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-185) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) ((58) (let ((e-188 (vector-ref sc0 1))) (let ((e-189 (vector-ref sc0 2))) (let ((e-190 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-perror arg-0 arg-1 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 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-188) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) (else (let ((e-191 (vector-ref sc0 1))) (let ((e-192 (vector-ref sc0 2))) (let ((e-193 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-perror arg-0 arg-1 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 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-191) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))))))))))))))))))))))
-(define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Error-Idris-pwarning 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))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-2)) e-5)))))))))
-(define Error-Idris-display (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Error-Idris-perror 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))) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-2)) e-5)))))))))
-(define Resugar-Idris-case--11157-5068 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11157-4990-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
-(define Resugar-Idris-case--11161-4994 (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))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
-(define Resugar-Idris-case--9592-4895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11)))))))))))))))
-(define Resugar-Idris-case--9586-4723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-n--9586-4653-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
-(define Resugar-Idris-case--10523-4483 (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-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0))))))
-(define Resugar-Idris-case--9568-4432 (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 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) 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 (Resugar-Idris-showFullEnv arg-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 ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0)))))))))))))))))))
-(define Resugar-Idris-case--9565-4343 (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) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3))))))
-(define Resugar-Idris-case--9562-4115 (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) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8))))))
-(define Resugar-Idris-case--9907-3907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17)))))
-(define Resugar-Idris-case--9562-3831 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
-(define Resugar-Idris-case--9562-3760 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
-(define Resugar-Idris-case--9562-3696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define Resugar-Idris-case--9562-3622 (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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) 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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0))))))
-(define Resugar-Idris-case--9526-3547 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0)))))))))
-(define Resugar-Idris-case--9190-3494 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 ))))))
-(define Resugar-Idris-case--9205-3394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9205-3291 (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-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9190-3243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9205-3291 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9205-3394 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 ))))))
-(define Resugar-Idris-case--9128-3177 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 ))))))
-(define Resugar-Idris-case--9037-3113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Resugar-Idris-case--8972-3090 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0)))))
-(define Resugar-Idris-case--8889-2988 (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) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4)))))))))
-(define Resugar-Idris-n--8972-3040-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0)))))
-(define Resugar-Idris-n--9562-3873-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)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (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)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--9907-3907 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 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7)))))
-(define Resugar-Idris-n--9586-4653-mapPiInfo (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Resugar-Idris-n--11157-4990-cleanNode (lambda (arg-0 arg-1 arg-2) (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (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 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5 e-11))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-12 e-13 e-5))))))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Resugar-Idris-n--11157-4989-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))) (Resugar-Idris-n--11157-4989-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
-(define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (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 Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0)))))
-(define Resugar-Idris-tyPrec (lambda () (+ 1 0)))
-(define Resugar-Idris-toPTypeDecl (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 0 e-0 e-1 "" e-5))))))))))))))
-(define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) 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 ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (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 ((Context-Core-lookupCtxtExact 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))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) 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-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 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-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0))))))))))))
-(define Resugar-Idris-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))) (Resugar-Idris-toPRef 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))) (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) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) 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 ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) 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))) (let ((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 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--9562-3873-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 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 (Resugar-Idris-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) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) 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 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0))))))))))
-(define Resugar-Idris-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 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1)))))))))
-(define Resugar-Idris-toPRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (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 ((Resugar-Idris-n--9586-4653-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (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 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-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 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6)))))))))))))))))))))))
-(define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-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))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2))))))))
-(define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-2 e-5)))))))))))))))
-(define Resugar-Idris-toPField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) 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 0 e-0 e-1 e-6 e-3 e-5)))))))))))))))))))))
-(define Resugar-Idris-toPDecl (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFnOpt arg-0 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 ((Resugar-Idris-toPTypeDecl arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPData 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) (Builtin-snd 'erased 'erased ntm)) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 3 e-11 e-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPRecord arg-0 arg-1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 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))) (vector 1 (vector 1 (vector 11 e-18 e-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-24) 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 1 (vector 12 e-21 (Name-Core-show_Show__Name e-22) e-5 e-6))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 1 (vector 13 e-25 e-5)))))))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Resugar-Idris-toPData (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTypeDecl arg-0 arg-1 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-5 e-6 e-8))))))))))))))))
-(define Resugar-Idris-toPClause (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (vector 1 (vector 0 e-0 e-5 e-6 (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 2 e-8 e-5)))))))))))))))
-(define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) (Resugar-Idris-cleanPTerm arg-0 e-5 ext-0))))))))
-(define Resugar-Idris-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (Resugar-Idris-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (Name-Core-show_Show__Name arg-0))))))
-(define Resugar-Idris-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-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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9190-3243 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9190-3494 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 ))))))
-(define Resugar-Idris-sugarApp (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () arg-0) (Resugar-Idris-sugarAppM arg-0))))
-(define Resugar-Idris-startPrec (lambda () 0))
-(define Resugar-Idris-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
-(define Resugar-Idris-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
-(define Resugar-Idris-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (Resugar-Idris-toCleanPTerm arg-0 arg-1 (Resugar-Idris-startPrec) arg-2 ext-0)))
-(define Resugar-Idris-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))) (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))) (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-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--8889-2988 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0)))))))))))))))))))))))))))
-(define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-0 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 ))))))
-(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-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 ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11157-4990-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0)))))))))))
-(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) ((Resugar-Idris-case--9037-3113 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0))))))))
-(define Resugar-Idris-argPrec (lambda () (Prelude-fromInteger_Num__Nat 1000)))
-(define Resugar-Idris-appPrec (lambda () (Prelude-fromInteger_Num__Nat 999)))
-(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--8972-3090 arg-1 arg-0 (Resugar-Idris-n--8972-3040-needed arg-1 arg-0 arg-1))))
-(define Parser-Idris-case--20495-19246 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
-(define Parser-Idris-case--20440-19204 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10))))))))))))
-(define Parser-Idris-case--19267-17968 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option")))))))
-(define Parser-Idris-case--9288-17444 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3)))))))
-(define Parser-Idris-case--18715-17397 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3))))))
-(define Parser-Idris-case--18682-17336 (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 (vector 0 ) (vector 1 arg-5 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-Idris-case--18715-17397 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9288-17302-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
-(define Parser-Idris-case--9287-17209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Parser-Idris-case--17607-16422 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7)))))))))))
-(define Parser-Idris-case--17607-16380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
-(define Parser-Idris-case--17403-15986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
-(define Parser-Idris-case--15136-13431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--15134-13416-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
-(define Parser-Idris-case--14616-12886 (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 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3)))))))
-(define Parser-Idris-case--9785-11706 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable"))))))
-(define Parser-Idris-case--9773-10854 (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 3 arg-9 (vector 1 arg-3) arg-2 arg-5 arg-6) (Parser-Idris-buildDoLets arg-8 arg-7))) (else (vector 1 (vector 4 arg-9 (vector 0 arg-4 (vector 1 arg-3)) arg-5 arg-6 (vector 0 )) (Parser-Idris-buildDoLets arg-8 arg-7)))))))
-(define Parser-Idris-case--9763-10074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
-(define Parser-Idris-case--9756-9114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4))))))
-(define Parser-Idris-case--9749-8327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8344) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8352) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed"))))))
-(define Parser-Idris-case--10016-7925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 1)))))
-(define Parser-Idris-case--9746-7882 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-7895) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-7903) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here")))))))
-(define Parser-Idris-case--9746-7855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4)))))))
-(define Parser-Idris-case--9318-7093 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
-(define Parser-Idris-n--9288-17302-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--18682-17336 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
-(define Parser-Idris-n--9748-8113-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 ))))))))
-(define Parser-Idris-n--9781-11468-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name))))))))
-(define Parser-Idris-n--14341-12743-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12761) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
-(define Parser-Idris-n--20224-18953-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18960) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18967) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n))))))))))))))))
-(define Parser-Idris-n--20178-18900-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18907) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18914) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
-(define Parser-Idris-n--20135-18852-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18859) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-18866) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt)))))))))))))
-(define Parser-Idris-n--20091-18801-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18808) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18815) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
-(define Parser-Idris-n--20047-18751-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18758) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18765) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
-(define Parser-Idris-n--20003-18701-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18708) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18715) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
-(define Parser-Idris-n--19967-18660-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-18667) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-18674) (vector 0 arg-1)))))))))
-(define Parser-Idris-n--20224-18952-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20178-18899-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20135-18851-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
-(define Parser-Idris-n--20091-18800-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20047-18750-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--20003-18700-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--19967-18659-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
-(define Parser-Idris-n--9748-8114-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8139) (vector 8 1 0 (vector 5 ) (lambda (_-8147) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8167) (vector 0 ns))))))))))))))
-(define Parser-Idris-n--9790-12285-mkPi (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--9790-12285-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
-(define Parser-Idris-n--9755-8909-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--9755-8909-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
-(define Parser-Idris-n--9288-17303-isClause (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 2))) (vector 1 e-1)))(else (vector 0 ))))))
-(define Parser-Idris-n--9781-11467-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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 Parser-Idris-n--17400-15954-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--17403-15986 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16035) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns))))))))))))))))))))))
-(define Parser-Idris-n--15134-13416-drop (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))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--15136-13431 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
-(define Parser-Idris-n--17910-16480-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-16487) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-16501) (vector 0 n)))))))))))
-(define Parser-Idris-n--9762-9899-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-9911) (vector 0 "_"))))))))
-(define Parser-Idris-n--9770-10570-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--9770-10570-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
-(define Parser-Idris-n--9745-7659-applyExpImp (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Parser-Idris-n--9745-7659-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))) (let ((e-6 (vector-ref sc1 2))) (Parser-Idris-n--9745-7659-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5 e-6) e-3)))) (else (let ((e-7 (vector-ref sc1 1))) (Parser-Idris-n--9745-7659-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-7) e-3))))))))))))
-(define Parser-Idris-n--14341-12742-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-Idris-n--14341-12742-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3)))))))))))
-(define Parser-Idris-show_Show__CmdArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") ((1) "<name>") ((2) "<expr>") ((3) "<decls>") ((4) "<number>") ((5) "<option>") (else "<filename>")))))
-(define Parser-Idris-with_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-8193) (vector 8 1 0 (vector 5 ) (lambda (_-8201) (vector 7 0 (vector 9 0 0 (Parser-Idris-n--9748-8113-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--9748-8114-nameList arg-1 arg-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rhs) (vector 0 (vector 47 (vector 0 arg-0 start end) ns rhs)))))))))))))))))))
-(define ParseOpts-Parser-Idris-withOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Parser-Idris-withFlags (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-pragma "syntactic") (lambda () (lambda (_-12543) (vector 8 1 1 (Parser-Idris-withFlags) (lambda (fs) (vector 0 (vector 1 (vector 0 ) fs))))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-whereBlock (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7441) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))
-(define Parser-Idris-visibility (lambda () (vector 9 0 1 (Parser-Idris-visOption) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-12427) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-12434) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-12416) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-12405) (vector 0 (vector 0 )))))))))))
-(define Parser-Idris-visOpt (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-Idris-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-Idris-fnDirectOpt arg-0) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
-(define Parser-Idris-validPatternVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-case--9785-11706 e-0 (Parser-Idris-lowerFirst e-0))))(else (vector 4 1 "Not a pattern variable"))))))
-(define Parser-Idris-usingDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-14681) (vector 8 1 0 (vector 5 ) (lambda (_-14689) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-14697) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 1 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14732) (vector 0 (vector 1 (vector 1 x)))))))))) (lambda (n) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 n ty)))))))) (lambda (us) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-14766) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 4 (vector 0 arg-0 start end) us (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))
-(define Parser-Idris-typeExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-12330) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9790-12285-mkPi arg-2 arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg))))))))))
-(define Parser-Idris-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12482) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12506) (vector 0 (vector 0 (vector 0 arg-0 start end) n doc ty))))))))))))))))))))))
-(define Parser-Idris-tuple (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Parser-Text-some 'erased 'erased (vector 7 0 (Source-Rule-Parser-symbol ",") (lambda () (lambda (_-8997) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (estart) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (el) (vector 0 (vector 0 estart el))))))))))) (lambda () (lambda (rest) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8970) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 36 (vector 0 arg-0 arg-1 end) arg-3 (Parser-Idris-n--9755-8909-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8942) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 arg-1 end) arg-3)))))))))))
-(define Parser-Idris-transformDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "transform") (lambda () (lambda (_-14377) (vector 7 0 (Source-Rule-Parser-strLit) (lambda () (lambda (n) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-14397) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) n lhs rhs)))))))))))))))))))))))
-(define Parser-Idris-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-13555) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-13543) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-13532) (vector 0 (vector 1 )))))))))))
-(define Parser-Idris-topDecl (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))))) (vector 7 1 (Parser-Idris-dataDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))) (vector 7 1 (Parser-Idris-claim arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (vector 7 1 (Parser-Idris-definition arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (Parser-Idris-fixDecl arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))) (vector 7 1 (Parser-Idris-ifaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))) (vector 7 1 (Parser-Idris-implDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))) (vector 7 1 (Parser-Idris-recordDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 1 (Parser-Idris-namespaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 1 (Parser-Idris-mutualDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))) (vector 7 1 (Parser-Idris-paramDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))) (vector 7 1 (Parser-Idris-usingDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))) (vector 7 1 (Parser-Idris-runElabDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 7 1 (Parser-Idris-transformDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 7 1 (Parser-Idris-directiveDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (vector 1 "Expected CG directive" (lambda (x) (Parser-Idris-case--9287-17209 arg-1 arg-0 start x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3))))) (lambda () (lambda (dstr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (let ((cgrest (Strings-Data-span (lambda (eta-0) (Prelude-isAlphaNum eta-0)) dstr))) (vector 14 (vector 0 arg-0 start end) (vector 10 (Builtin-fst 'erased 'erased cgrest) (Parser-Idris-stripBraces (Strings-Data-trim (Builtin-snd 'erased 'erased cgrest)))))) (vector 0 )))))))))) (lambda () (vector 4 0 "Couldn't parse declaration")))))))))))))))))))))))))))))))))
-(define Parser-Idris-stripBraces (lambda (arg-0) (Prelude-pack (Parser-Idris-n--15134-13416-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--15134-13416-drop arg-0 #\} (List-Data-reverse 'erased (Prelude-unpack arg-0))))))))
-(define Parser-Idris-simplerExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-9726) (vector 8 1 0 (vector 5 ) (lambda (_-9734) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (expr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 22 (vector 0 arg-0 start end) (vector 1 x) expr))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-atom arg-0) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-binder arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-record_ arg-0 arg-1) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-9659) (vector 8 1 0 (vector 5 ) (lambda (_-9667) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9681) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 23 (vector 0 arg-0 start end) e))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`(") (lambda () (lambda (_-9609) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9623) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 15 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`{{") (lambda () (lambda (_-9557) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "}}") (lambda () (lambda (_-9572) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) n))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`[") (lambda () (lambda (_-9495) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9511) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ns))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "~") (lambda () (lambda (_-9455) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 18 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9435) (Parser-Idris-bracketedExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-9415) (Parser-Idris-listExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-9375) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 33 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[|") (lambda () (lambda (_-9325) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol "|]") (lambda () (lambda (_-9339) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 34 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-9285) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-9236) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 46 (vector 0 arg-0 start end) lvl e)))))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-simpleExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-recField)) (lambda () (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 45 (vector 0 arg-0 start end) recFields))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simplerExpr arg-0 arg-1) (lambda () (lambda (root) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-recField)) (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((sc0 recFields)) (case (vector-ref sc0 0) ((0) root)(else (vector 44 (vector 0 arg-0 start end) root recFields))))))))))))))))))
-(define Parser-Idris-simpleData (lambda (arg-0 arg-1 arg-2 arg-3) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-name)) (lambda (params) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (let ((tyfc (vector 0 arg-0 arg-1 tyend))) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-13026) (let ((conRetTy (Syntax-Idris-papply tyfc (vector 0 tyfc arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 tyfc eta-0)) params)))) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "|") (Parser-Idris-simpleCon arg-0 conRetTy arg-3)) (lambda () (lambda (cons) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-2 (Parser-Idris-mkTyConType tyfc params) (vector 0 ) cons))))))))))))))))))
-(define Parser-Idris-simpleCon (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (cdoc) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (cname) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr (Parser-Idris-plhs) arg-0 arg-2)) (lambda (params) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-12971) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((cfc (vector 0 arg-0 start end))) (vector 0 cfc cname cdoc (Parser-Idris-mkDataConType cfc arg-1 params)))))))))))))))))))
-(define Parser-Idris-setVarOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "eval") (lambda () (lambda (_-17900) (vector 7 1 (Parser-Idris-parseMode) (lambda () (lambda (mode) (vector 0 (vector 3 mode)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-exactIdent "editor") (lambda () (lambda (_-17882) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (e) (vector 0 (vector 4 e)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "cg") (lambda () (lambda (_-17864) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (c) (vector 0 (vector 5 c))))))))))))))
-(define Parser-Idris-setOption (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "showimplicits") (lambda () (lambda (_-17961) (vector 0 (vector 0 arg-0))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "shownamespace") (lambda () (lambda (_-17950) (vector 0 (vector 1 arg-0))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "showtypes") (lambda () (lambda (_-17939) (vector 0 (vector 2 arg-0))))) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))))))))
-(define Parser-Idris-runParseCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-replCmd e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-keyword e-1))) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-exactIdent e-2)))))))
-(define Parser-Idris-runElabDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-14444) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) tm))))))))))))))
-(define Parser-Idris-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-11606) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11619) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 41 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
-(define Parser-Idris-replCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 1 "Unrecognised command")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 9 0 0 (Source-Rule-Parser-exactIdent e-2) (lambda () (vector 9 0 0 (Source-Rule-Parser-symbol e-2) (lambda () (Parser-Idris-replCmd e-3))))))))))))
-(define Parser-Idris-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-11404) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11412) (vector 8 1 0 (vector 5 ) (lambda (_-11420) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11439) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 6 (vector 0 arg-0 start end) fs))))))))))))))))))))))
-(define Parser-Idris-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16337) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16358) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16229) (vector 8 1 0 (vector 5 ) (lambda (_-16237) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-16267) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16312) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 25 (vector 0 arg-0 start end))))) (vector 0 ))))))))))))))))
-(define Parser-Idris-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-16547) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-16570) (vector 8 1 1 (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--17910-16480-ctor arg-1 arg-0 eta-0)) (lambda (eta-0) (Parser-Idris-fieldDecl arg-0 eta-0))) (lambda (dcflds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 8 (vector 0 arg-0 start end) vis n params (Builtin-fst 'erased 'erased dcflds) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Builtin-snd 'erased 'erased dcflds))))))))))))))))))))))))))))))
-(define Parser-Idris-progHdr (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-17705) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (vector 0 )))))))))))))))
-(define Parser-Idris-prog (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-17608) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
-(define Parser-Idris-pnowith (lambda () (vector 0 0 1)))
-(define Parser-Idris-pnoeq (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
-(define Parser-Idris-plhs (lambda () (vector 0 1 1)))
-(define Parser-Idris-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-n--9762-9899-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10007) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10020) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-n--9762-9899-binderName arg-2 arg-1 arg-0) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9949) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))))))
-(define Parser-Idris-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-Idris-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
-(define Parser-Idris-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-Idris-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
-(define Parser-Idris-pdef (lambda () (vector 0 0 0)))
-(define Parser-Idris-patAlt (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12080) (Parser-Idris-caseAlt arg-0 arg-1))))))
-(define Parser-Idris-parserCommandsForHelp (lambda () (vector 1 (Parser-Idris-exprArgCmd (vector 0 (vector 1 "t" (vector 1 "type" (vector 0 )))) (lambda (eta-0) (vector 2 eta-0)) "Check the type of an expression") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "printdef" (vector 0 ))) (lambda (eta-0) (vector 3 eta-0)) "Show the definition of a function") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "s" (vector 1 "search" (vector 0 )))) (lambda (eta-0) (vector 10 eta-0)) "Search for values by type") (vector 1 (Parser-Idris-nameArgCmd (vector 2 "di") (lambda (eta-0) (vector 11 eta-0)) "Show debugging information for a name") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "q" (vector 1 "quit" (vector 1 "exit" (vector 0 ))))) (vector 22 ) "Exit the Idris system") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "cwd" (vector 0 ))) (vector 15 ) "Displays the current working directory") (vector 1 (Parser-Idris-optArgCmd (vector 2 "set") (lambda (eta-0) (vector 12 eta-0)) 0 "Set an option") (vector 1 (Parser-Idris-optArgCmd (vector 2 "unset") (lambda (eta-0) (vector 12 eta-0)) 1 "Unset an option") (vector 1 (Parser-Idris-compileArgsCmd (vector 0 (vector 1 "c" (vector 1 "compile" (vector 0 )))) (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "Compile to an executable") (vector 1 (Parser-Idris-exprArgCmd (vector 2 "exec") (lambda (eta-0) (vector 8 eta-0)) "Compile to an executable and run") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "r" (vector 1 "reload" (vector 0 )))) (vector 4 ) "Reload current file") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "e" (vector 1 "edit" (vector 0 )))) (vector 6 ) "Edit current file using $EDITOR or $VISUAL") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "miss" (vector 1 "missing" (vector 0 )))) (lambda (eta-0) (vector 16 eta-0)) "Show missing clauses") (vector 1 (Parser-Idris-nameArgCmd (vector 1 "total") (lambda (eta-0) (vector 17 eta-0)) "Check the totality of a name") (vector 1 (Parser-Idris-numberArgCmd (vector 0 (vector 1 "log" (vector 1 "logging" (vector 0 )))) (lambda (eta-0) (vector 18 eta-0)) "Set logging level") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "m" (vector 1 "metavars" (vector 0 )))) (vector 19 ) "Show remaining proof obligations (metavariables or holes)") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "version" (vector 0 ))) (vector 21 ) "Display the Idris version") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "?" (vector 1 "h" (vector 1 "help" (vector 0 ))))) (vector 9 ) "Display this help text") (vector 1 (Parser-Idris-declsArgCmd (vector 1 "let") (lambda (eta-0) (vector 0 eta-0)) "Define a new value") (vector 0 ))))))))))))))))))))))
-(define Parser-Idris-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12683) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-4) (lambda () (lambda (rhs) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Idris-whereBlock arg-1 arg-3)) (lambda (ws) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-12711) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 arg-2 end) arg-5 rhs ws))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-12617) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 8 1 0 (Parser-Idris-withFlags) (lambda (flags) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-12638) (vector 7 0 (Parser-Idris-bracketedExpr arg-1 wstart arg-4) (lambda () (lambda (wval) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-1 arg-2 end) arg-5 wval flags ws)))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-12587) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-12594) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-1 arg-2 end) arg-5)))))))))))))))
-(define Parser-Idris-parseMode (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 1 (Source-Rule-Parser-exactIdent "typecheck") (lambda () (lambda (_-17840) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "tc") (lambda () (lambda (_-17829) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "normalise") (lambda () (lambda (_-17818) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "normalize") (lambda () (lambda (_-17807) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "execute") (lambda () (lambda (_-17796) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "exec") (lambda () (lambda (_-17785) (vector 0 (vector 2 )))))))))))))))))
-(define Parser-Idris-paramDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "parameters") (lambda () (lambda (_-14551) (vector 8 1 0 (vector 5 ) (lambda (_-14559) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-14567) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14592) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 (vector 1 x) ty)))))))))))) (lambda (ps) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-14618) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 3 (vector 0 arg-0 start end) ps (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))
-(define Parser-Idris-optArgCmd (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (Parser-Idris-n--20135-18851-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-3 (Parser-Idris-n--20135-18852-parse arg-3 arg-2 arg-1 arg-0))))))
-(define Parser-Idris-opExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-appExpr arg-0 arg-1 arg-2) (lambda () (lambda (l) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 1)) (Parser-Idris-case--9749-8327 arg-2 arg-1 arg-0 start l (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8285) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (middle) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (r) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 start end) op l r)))))))))))))) (lambda () (vector 0 l))))))))))))
-(define Parser-Idris-onoff (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "on") (lambda () (lambda (_-13479) (vector 0 0)))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "off") (lambda () (lambda (_-13468) (vector 0 1))))))))
-(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20178-18899-names arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-2 (Parser-Idris-n--20178-18900-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-nonEmptyCommand (lambda () (Parser-Text-choice 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))) (Parser-Idris-parserCommandsForHelp)))))
-(define Parser-Idris-noArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--19967-18659-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--19967-18660-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-namespaceHead (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-14271) (vector 8 1 0 (vector 5 ) (lambda (_-14279) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
-(define Parser-Idris-namespaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Parser-Idris-namespaceHead) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (vector 11 (vector 0 arg-0 start end) ns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))
-(define Parser-Idris-nameArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20003-18700-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--20003-18701-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-mutualDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "mutual") (lambda () (lambda (_-14486) (vector 8 1 0 (vector 5 ) (lambda (_-14494) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 9 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))
-(define Parser-Idris-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-mkTyConType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 21 arg-0)) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) (vector 21 arg-0) (Parser-Idris-mkTyConType arg-0 e-3))))))))
-(define Parser-Idris-mkDataConType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) e-4 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Parser-Idris-case--14616-12886 e-9 e-8 e-5 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) e-5 e-6 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))))))) (else (vector 24 arg-0)))))))))))
-(define Parser-Idris-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
-(define Parser-Idris-listRange (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8757) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 43 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (y) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8719) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 42 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate) y)))))))))))))))))
-(define Parser-Idris-listExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-2) (lambda () (lambda (ret) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8859) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-doAct arg-0 arg-2)) (lambda () (lambda (conds) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8878) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 40 (vector 0 arg-0 arg-1 end) ret ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) conds))))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda (xs) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "..") (lambda () (lambda (_-8842) (Parser-Idris-listRange arg-0 arg-1 arg-2 xs)))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8819) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 35 (vector 0 arg-0 arg-1 end) xs)))))))))))))))
-(define Parser-Idris-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11028) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda () (lambda (res) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11043) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-buildLets arg-0 res scope)))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-10952) (vector 8 1 0 (vector 5 ) (lambda (_-10960) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-10975) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)) scope))))))))))))))))))))))))
-(define Parser-Idris-letBinder (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (vector 0 arg-0 start tyend)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10698) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-10709) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 start (vector 0 end (vector 0 rig (vector 0 pat (vector 0 ty (vector 0 val alts))))))))))))))))))))))))))))))))
-(define Parser-Idris-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-12230) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-12192) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-12154) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-12116) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) tm))))))))))))))))))))
-(define Parser-Idris-lambdaCase (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (let ((sc0 (Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "\\")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "case")))) (lambda () (lambda (_-11142) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 8 1 1 (vector 5 ) (lambda (_-11157) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts)))))))))))))))))) (else (vector 7 1 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "\\")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "case")))) (lambda () (lambda (_-11142) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 8 1 1 (vector 5 ) (lambda (_-11157) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts))))))))))))))))))))))))
-(define Parser-Idris-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-10601) (vector 7 0 (Parser-Idris-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10615) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-10623) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9770-10570-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
-(define Parser-Idris-import_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "import") (lambda () (lambda (_-17490) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 1 (vector 7 1 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-17507) (vector 0 0))))) (lambda (reexp) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 ns (vector 7 0 (Source-Rule-Parser-exactIdent "as") (lambda () (lambda (_-17536) (Source-Rule-Parser-namespacedIdent))))) (lambda (nsAs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17554) (vector 0 (vector 0 (vector 0 arg-0 start end) reexp ns nsAs))))))))))))))))))))
-(define Parser-Idris-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10513) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10527) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10535) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
-(define Parser-Idris-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8014) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8072) (vector 8 1 0 (vector 5 ) (lambda (_-8080) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8094) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8043) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-7961) (vector 8 1 0 (vector 5 ) (lambda (_-7969) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-7983) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
-(define Parser-Idris-implDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Source-Rule-Parser-keyword "implementation")) (lambda (_-15752) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-15770) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (iname) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-15785) (vector 0 (vector 1 iname)))))))))))) (lambda (iname) (vector 8 1 0 (Parser-Idris-implBinds arg-0 arg-1) (lambda (impls) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda (params) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-15841) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (names) (vector 0 names)))))))) (lambda (nusing) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-15875) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))))))) (lambda (body) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15886) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) vis opts (vector 0 ) impls cons n params iname nusing (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) eta-0))) body)))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-implBinds (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-15311) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15339) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-15353) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-15361) (vector 8 1 1 (Parser-Idris-implBinds arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 n (vector 0 rig tm)) more)))))))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))
-(define Parser-Idris-ifaceParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15449) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15464) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15478) (vector 0 (vector 0 n tm))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 n (vector 25 (vector 0 arg-0 start end)))))))))))))))
-(define Parser-Idris-ifaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "interface") (lambda () (lambda (_-15536) (vector 8 1 0 (vector 5 ) (lambda (_-15544) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-ifaceParam arg-0 arg-1)) (lambda (params) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (vector 0 ) (vector 7 1 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-15582) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)))))) (lambda (det) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-15599) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-15616) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n-0) (vector 0 (vector 1 n-0))))))))) (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (body) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 6 (vector 0 arg-0 start end) vis cons n doc params det dc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) body)))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-if_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "if") (lambda () (lambda (_-11326) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (x) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "then") (lambda () (lambda (_-11339) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "else") (lambda () (lambda (_-11352) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11365) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 39 (vector 0 arg-0 start end) x t e))))))))))))))))))))))))))))
-(define Parser-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
-(define Parser-Idris-iOperator (lambda () (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7522) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7537) (vector 0 n))))))))))))))
-(define Parser-Idris-help (lambda () (vector 1 (vector 0 (vector 1 "<expr>" (vector 0 )) (vector 0 (vector 0 ) "Evaluate an expression")) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-0) (Strings-Prelude-C-43C-43 ":" arg-0)) e-2) (vector 0 e-6 e-10))))))))))) (Parser-Idris-parserCommandsForHelp)))))
-(define Parser-Idris-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-Idris-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))
-(define Parser-Idris-getRight (lambda (arg-0 arg-1 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 Parser-Idris-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
-(define Parser-Idris-getInitRange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 e-1 (vector 0 )))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 0 (vector 0 e-1 (vector 1 e-5))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax"))))))
-(define Parser-Idris-gadtData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-13291) (vector 8 1 0 (vector 5 ) (lambda (_-13299) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-4) (lambda () (lambda (ty) (Parser-Idris-dataBody arg-0 arg-1 arg-2 arg-3 arg-4 ty)))))))))))
-(define Parser-Idris-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-10397) (vector 8 1 0 (vector 5 ) (lambda (_-10405) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 24 nfc)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-10441) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
-(define Parser-Idris-fnOpt (lambda () (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 0 (vector 7 x))))))))
-(define Parser-Idris-fnDirectOpt (lambda (arg-0) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-15035) (vector 0 (vector 0 (vector 2 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-15022) (vector 0 (vector 0 (vector 3 1)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-15009) (vector 0 (vector 0 (vector 3 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-14984) (vector 8 1 1 (vector 5 ) (lambda (_-14992) (vector 0 (vector 0 (vector 0 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "tcinline") (lambda () (lambda (_-14959) (vector 8 1 1 (vector 5 ) (lambda (_-14967) (vector 0 (vector 0 (vector 1 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-14946) (vector 0 (vector 0 (vector 4 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "macro") (lambda () (lambda (_-14932) (vector 0 (vector 0 (vector 8 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "spec") (lambda () (lambda (_-14906) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda (ns) (vector 0 (vector 0 (vector 9 ns)))))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "foreign") (lambda () (lambda (_-14882) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 eta-0))) (lambda (cs) (vector 0 (vector 1 cs)))))))))))))))))))))))))
-(define Parser-Idris-fixDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-fix) (lambda () (lambda (fixity) (vector 8 1 0 (vector 5 ) (lambda (_-16802) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (prec) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-iOperator)) (lambda () (lambda (ops) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 10 (vector 0 arg-0 start end) fixity (Prelude-fromInteger_Num__Nat prec) eta-0)) ops)))))))))))))))))))
-(define Parser-Idris-fix (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-keyword "infixl") (lambda () (lambda (_-14260) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "infixr") (lambda () (lambda (_-14249) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "infix") (lambda () (lambda (_-14238) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "prefix") (lambda () (lambda (_-14227) (vector 0 (vector 3 )))))))))))))
-(define Parser-Idris-fieldDecl (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16128) (vector 8 1 0 (vector 5 ) (lambda (_-16136) (vector 7 0 (Parser-Idris-n--17400-15954-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16152) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16159) (vector 0 fs)))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-n--17400-15954-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16103) (vector 0 fs))))))))))))
-(define Parser-Idris-field (lambda (arg-0 arg-1) (vector 7 0 (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 1)) eta-2 eta-3))))) (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Parser-Idris-n--9781-11467-fieldName arg-1 arg-0 eta-1)) eta-0)) (vector 8 (Prelude-C-124C-124 1 (lambda () 0)) 1 (vector 8 1 0 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (Parser-Idris-n--9781-11468-recFieldCompat arg-1 arg-0)))))) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11543) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-11530) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11543) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-11530) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
-(define Parser-Idris-extractNames (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-1 (vector-ref sc0 1))) (vector 1 e-1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (vector 0 ))))))))
-(define Parser-Idris-extension (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "ElabReflection") (lambda () (lambda (_-13508) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "Borrowing") (lambda () (lambda (_-13497) (vector 0 (vector 1 )))))))))
-(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20047-18750-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--20047-18751-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-expr (lambda (ext-0 ext-1 ext-2) (Parser-Idris-typeExpr ext-0 ext-1 ext-2)))
-(define Parser-Idris-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10149) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10163) (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
-(define Parser-Idris-eval (lambda () (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm)))))))
-(define ParseOpts-Parser-Idris-eqOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Parser-Idris-editCmd (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "typeat" (vector 0 ))) (lambda () (lambda (_-18582) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 0 line col n)))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "cs" (vector 0 ))) (lambda () (lambda (_-18509) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18527) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 upd line col n)))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ac" (vector 0 ))) (lambda () (lambda (_-18447) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18465) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ps" (vector 1 "proofsearch" (vector 0 )))) (lambda () (lambda (_-18383) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18401) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 1))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "psall" (vector 0 ))) (lambda () (lambda (_-18316) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18334) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 0))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "gd" (vector 0 ))) (lambda () (lambda (_-18254) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18272) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ml" (vector 1 "makelemma" (vector 0 )))) (lambda () (lambda (_-18192) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18210) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Parser-Idris-replCmd (vector 1 "mc" (vector 1 "makecase" (vector 0 )))) (lambda () (lambda (_-18127) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18145) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 upd line n))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-replCmd (vector 1 "mw" (vector 1 "makewith" (vector 0 )))) (lambda () (lambda (_-18062) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-18080) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 upd line n))))))))))))) (lambda () (vector 4 0 "Unrecognised command")))))))))))))))))))))
-(define Parser-Idris-dpair (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8465) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8486) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) (vector 0 (vector 0 arg-0 arg-1 loc) (vector 1 x)) ty rest))))))))))))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (l) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8418) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) l (vector 24 (vector 0 arg-0 arg-1 end)) rest)))))))))))))))))))
-(define Parser-Idris-doBlock (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "do") (lambda () (lambda (_-11660) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-0 eta-0))) (lambda (actions) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 32 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) actions))))))))))))))
-(define Parser-Idris-doAct (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Idris-validPatternVar n) (lambda (_-11995) (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12003) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12016) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 1 (vector 0 arg-0 start end) n val) (vector 0 )))))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11951) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11965) (vector 0 (Parser-Idris-buildDoLets arg-0 res))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11907) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11928) (vector 0 (vector 1 (vector 5 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) res)) (vector 0 )))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-11859) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11872) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 6 (vector 0 arg-0 start end) rule) (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (e) (vector 9 1 (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11825) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 (vector 0 arg-0 start end) e) (vector 0 ))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-11775) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11795) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 2 (vector 0 arg-0 start end) e val alts) (vector 0 ))))))))))))))))))))))))))))))))
-(define Parser-Idris-directiveDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 1 (Parser-Idris-directive arg-0 arg-1) (lambda () (lambda (d) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) d))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-16882) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-16902) (vector 0 (vector 5 (vector 0 arg-0 start end) tm))))))))))))))))))
-(define Parser-Idris-directive (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "hide") (lambda () (lambda (_-14179) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14193) (vector 0 (vector 0 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-14147) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14161) (vector 0 (vector 1 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_lazy") (lambda () (lambda (_-14119) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14132) (vector 0 (vector 2 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "unbound_implicits") (lambda () (lambda (_-14091) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14104) (vector 0 (vector 3 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "undotted_record_projections") (lambda () (lambda (_-14063) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14076) (vector 0 (vector 16 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "ambiguity_depth") (lambda () (lambda (_-14031) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14045) (vector 0 (vector 4 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_implicit_depth") (lambda () (lambda (_-13999) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (dpt) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14013) (vector 0 (vector 17 (Prelude-fromInteger_Num__Nat dpt))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "pair") (lambda () (lambda (_-13951) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (ty) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (f) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (s) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13979) (vector 0 (vector 5 ty f s)))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "rewrite") (lambda () (lambda (_-13912) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (eq) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (rw) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13933) (vector 0 (vector 6 eq rw))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "integerLit") (lambda () (lambda (_-13882) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13896) (vector 0 (vector 7 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "stringLit") (lambda () (lambda (_-13852) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13866) (vector 0 (vector 8 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-pragma "charLit") (lambda () (lambda (_-13822) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13836) (vector 0 (vector 9 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-pragma "name") (lambda () (lambda (_-13780) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13805) (vector 0 (vector 11 n ns))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-pragma "start") (lambda () (lambda (_-13752) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13765) (vector 0 (vector 12 e)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-pragma "allow_overloads") (lambda () (lambda (_-13722) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13736) (vector 0 (vector 13 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-pragma "language") (lambda () (lambda (_-13694) (vector 7 1 (Parser-Idris-extension) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13707) (vector 0 (vector 14 e)))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "default") (lambda () (lambda (_-13666) (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (tot) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13679) (vector 0 (vector 15 tot))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) (vector 1 nd (vector 0 )))))))))))))))
-(define Parser-Idris-defaultImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10302) (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10309) (vector 8 1 0 (vector 5 ) (lambda (_-10317) (vector 7 0 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10337) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10345) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 3 t) binders scope)))))))))))))))))))))))))))))))
-(define Parser-Idris-declsArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20091-18800-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--20091-18801-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-13160) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-13149) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-13126) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "external") (lambda () (lambda (_-13115) (vector 0 (vector 3 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "noNewtype") (lambda () (lambda (_-13104) (vector 0 (vector 4 )))))))))))))))
-(define Parser-Idris-dataDeclBody (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-13335) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 9 0 0 (Parser-Idris-simpleData arg-0 start n arg-1) (lambda () (Parser-Idris-gadtData arg-0 col start n arg-1)))))))))))))))
-(define Parser-Idris-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 7 1 (Parser-Idris-dataDeclBody arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) vis dat)))))))))))))))
-(define Parser-Idris-dataBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 1 0 (vector 8 1 1 (Source-Rule-Parser-atEndIndent arg-4) (lambda (_-13263) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 arg-2 end) arg-3 arg-5)))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-13184) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-13202) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-13221) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 arg-5 opts cs)))))))))))))))
-(define Parser-Idris-continueWith (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7508) (Source-Rule-Parser-symbol arg-1)))))
-(define Parser-Idris-constraints (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 7 0 (Parser-Idris-appExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-15270) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 0 ) tm) more)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15190) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15205) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15219) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-15227) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 1 n) tm) more)))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))))
-(define Parser-Idris-compileArgsCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--20224-18952-names arg-2 arg-1 arg-0) (vector 0 (vector 6 ) (vector 0 arg-2 (Parser-Idris-n--20224-18953-parse arg-2 arg-1 arg-0))))))
-(define Parser-Idris-commitKeyword (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7475) (vector 7 1 (Source-Rule-Parser-keyword arg-1) (lambda () (lambda (_-7482) (Source-Rule-Parser-mustContinue arg-0 (vector 0 )))))))))
-(define Parser-Idris-command (lambda () (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-19340) (vector 0 (vector 23 )))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (Parser-Idris-nonEmptyCommand) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 1 (Source-Rule-Parser-symbol ":?") (lambda () (lambda (_-19328) (vector 0 (vector 9 ))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-19308) (vector 7 1 (Parser-Idris-editCmd) (lambda () (lambda (cmd) (vector 0 (vector 20 cmd)))))))) (lambda () (Parser-Idris-eval)))))))))))
-(define Parser-Idris-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Parser-Idris-case--9288-17444 e-5 e-4 e-3 (Parser-Idris-n--9288-17302-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--9288-17303-isClause e-5 e-4 e-3 eta-0)) e-3))))) ((11) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 1 (vector 11 e-6 e-7 (Parser-Idris-collectDefs e-8)) (Parser-Idris-collectDefs e-3)))))) ((9) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 1 (vector 9 e-9 (Parser-Idris-collectDefs e-10)) (Parser-Idris-collectDefs e-3)))))(else (vector 1 e-2 (Parser-Idris-collectDefs e-3))))))))))))
-(define Parser-Idris-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-n--14341-12743-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-Idris-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS arg-0 arg-1 start col arg-2 (Parser-Idris-n--14341-12742-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))))
-(define Parser-Idris-claim (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 1 (Parser-Idris-tyDecl arg-0 arg-1) (lambda () (lambda (cl) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) rig vis opts cl))))))))))))))))))))))
-(define Parser-Idris-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11083) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Parser-Idris-commitKeyword arg-1 "of") (lambda () (lambda (_-11096) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 4 (vector 0 arg-0 start end) scr alts)))))))))))))))))))
-(define Parser-Idris-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11270) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-2 (vector 0 )) (lambda (_-11278) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11291) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-3 rhs (vector 0 ))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-11239) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11246) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-1 end) arg-3)))))))))))))
-(define Parser-Idris-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (Parser-Idris-caseRHS arg-0 start arg-1 lhs))))))))
-(define Parser-Idris-buildLets (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 3 fc e-14 e-18 e-22 e-26 (Parser-Idris-buildLets arg-0 e-3 arg-2) e-27)))))))))))))))))))))))))))
-(define Parser-Idris-buildDoLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((sc7 e-19)) (case (vector-ref sc7 0) ((0) (let ((e-33 (vector-ref sc7 1))) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-37 (vector-ref sc8 1))) (let ((e-38 (vector-ref sc8 2))) (let ((sc9 e-38)) (case (vector-ref sc9 0) ((0) (let ((fc (vector 0 arg-0 e-6 e-10))) (Parser-Idris-case--9773-10854 e-6 e-10 e-14 e-30 e-28 e-33 e-37 e-3 arg-0 fc (Parser-Idris-lowerFirst e-30))))(else (let ((sc9 e-19)) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-23)) (let ((e-26 (vector-ref sc10 1))) (let ((e-27 (vector-ref sc10 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((sc9 e-23)) (let ((e-26 (vector-ref sc9 1))) (let ((e-27 (vector-ref sc9 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (let ((e-26 (vector-ref sc8 1))) (let ((e-27 (vector-ref sc8 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3))))))))))))))(else (let ((sc6 e-19)) (let ((e-22 (vector-ref sc6 1))) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (let ((e-26 (vector-ref sc7 1))) (let ((e-27 (vector-ref sc7 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))))))))))))))))))
-(define Parser-Idris-bracketedExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8611) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 arg-1 end) op e))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8578) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 38 (vector 0 arg-0 arg-1 end)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-dpair arg-0 arg-1 arg-2) (lambda () (lambda (p) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8565) (vector 0 p))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 9 0 0 (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8647) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 arg-1 end) e op)))))))))) (lambda () (Parser-Idris-tuple arg-0 arg-1 arg-2 e))))))))))))))
-(define Parser-Idris-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-Idris-let_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-defaultImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-explicitPi arg-0 arg-1) (lambda () (Parser-Idris-lam arg-0 arg-1)))))))))))))))
-(define Parser-Idris-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10128) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10114) (vector 0 (vector 2 )))))))))
-(define Parser-Idris-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-2) (lambda () (lambda (pat) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 25 (vector 0 arg-0 arg-1 arg-1)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-9870) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 pat ty)))))))))))))))
-(define Parser-Idris-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10214) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-10221) (vector 8 1 0 (vector 5 ) (lambda (_-10229) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10243) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10251) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
-(define Parser-Idris-atom (lambda (arg-0) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7415) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7321) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 24 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7288) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 25 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) 1 x))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7225) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) (vector 9 )))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7192) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) (vector 19 )))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7157) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Parser-Idris-argExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-7841) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (arg) (let ((sc0 arg)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg)))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-7819) (vector 7 1 (Parser-Idris-implicitArg arg-1 arg-2) (lambda () (lambda (arg) (vector 0 (vector 1 (Builtin-fst 'erased 'erased arg) (Builtin-snd 'erased 'erased arg)))))))) (Parser-Idris-case--9746-7882 arg-2 arg-1 arg-0 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))
-(define Parser-Idris-appExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Parser-Idris-case_ arg-1 arg-2) (lambda () (vector 9 0 0 (Parser-Idris-lambdaCase arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-lazy arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-if_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-with_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-doBlock arg-1 arg-2) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr arg-0 arg-1 arg-2)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-Idris-n--9745-7659-applyExpImp arg-2 arg-1 arg-0 start end f args))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (arg) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-1 start end) op arg)))))))))))) (lambda () (vector 4 1 "Expected 'case', 'if', 'do', application or operator expression")))))))))))))))))))
-(define ModTree-Idris-case--13442-9385 (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 (Context-Core-clearCtxt 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 ((act-25 ((InitPrimitives-Core-addPrimitives arg-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 (let ((act-26 (set-box! arg-3 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttc" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-8) (Strings-Prelude-C-43C-43 " from " arg-0)))) 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 (ProcessIdr-Idris-readAsMain arg-5 arg-2 arg-4 e-8 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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttm" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String 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 ((act-32 (Metadata-Core-readFromTTM arg-3 e-11 eta-0))) (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 0 ))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
-(define ModTree-Idris-case--13361-9315 (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) (ModTree-Idris-buildMods arg-7 arg-6 arg-5 arg-4 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) arg-2 arg-1))(else (lambda (eta-0) (vector 1 arg-8)))))))
-(define ModTree-Idris-case--12799-9192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-2))) (vector 1 arg-17 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-18)))))))))
-(define ModTree-Idris-case--12908-8963 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))(else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-25) 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 (List-Prelude-C-43C-43 'erased arg-14 arg-25))))))))))))))))
-(define ModTree-Idris-case--12799-8892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (cond ((equal? sc0 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 arg-23 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-process arg-6 arg-21 arg-20 arg-5 arg-4 msg 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-14) eta-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-14))))))))))(else (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 (List-Prelude-C-43C-43 'erased arg-14 e-5))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))))))
-(define ModTree-Idris-case--12605-8794 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ModTree-Idris-fnameModified arg-12 eta-1))) (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-5)))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) 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 ((act-25 (ModTree-Idris-fnameModified arg-11 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 ((Core-Core-traverse 'erased 'erased (lambda (f) (lambda (eta-1) (let ((act-26 (ModTree-Idris-fnameModified f eta-1))) (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 f e-7))))))))) e-3) 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 ((needsBuilding (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) 0) (else (let ((e-4 (vector-ref sc4 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-4))) (vector 1 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7))))))))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 (let ((act-29 (set-box! arg-5 (Syntax-Idris-initSyntax)))) (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 ((showMod (Name-Core-showSep "." (List-Data-reverse 'erased (let ((sc7 arg-0)) (let ((e-1 (vector-ref sc7 2))) e-1)))))) (let ((sc7 needsBuilding)) (cond ((equal? sc7 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 showMod (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (let ((act-30 (ProcessIdr-Idris-process arg-6 e-9 e-8 arg-5 arg-4 msg 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 ((e-11 (vector-ref sc8 1))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))(else (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-11) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (List-Prelude-C-43C-43 'erased e-2 e-11)))))))))))))))))))) (else (let ((act-30 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))))))))))))))))))))))))))))
-(define ModTree-Idris-case--12616-8715 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 arg-9 e-3)))))))
-(define ModTree-Idris-case--12616-8663 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-9 e-2) e-3))))))
-(define ModTree-Idris-case--12537-8579 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))))))
-(define ModTree-Idris-case--12527-8564 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-fileModifiedTime e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define ModTree-Idris-case--12408-8471 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((ModTree-Idris-mkModTree arg-4 arg-5 arg-2 (vector 0 ) 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))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.DoneMod" ) (StringMap-Data-empty 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.BuildOrder" ) (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 ((act-27 ((ModTree-Idris-mkBuildMods e-6 e-7 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 ((act-28 (let ((act-28 (unbox e-7))) (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))) (vector 1 (List-Data-reverse 'erased e-9))))))))))))))))))))))))))))))))
-(define ModTree-Idris-case--12301-8355 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkBuildMods arg-2 arg-1 eta-1)) (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-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 (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 (vector 1 (vector 0 arg-3 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) (let ((sc3 arg-0)) (let ((e-2 (vector-ref sc3 3))) e-2)))) 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 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-2 (StringMap-Data-insert 'erased arg-3 (vector 0 ) e-8)))) (vector 1 act-28))))))))))))))))))))))))))
-(define ModTree-Idris-case--12104-8244 (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 (Directory-Core-nsToSource arg-4 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 ((act-25 (ProcessIdr-Idris-readHeader arg-4 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 ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-2 (vector-ref sc3 3))) e-2))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkModTree arg-4 arg-3 arg-2 (vector 1 arg-0 arg-1) eta-1)) imps) 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 ((mt (vector 0 arg-0 (vector 1 e-5) e-7))) (let ((act-27 (let ((act-27 (unbox arg-3))) (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 (let ((act-28 (set-box! arg-3 (vector 1 (vector 0 arg-0 mt) e-8)))) (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 (vector 1 mt))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define ModTree-Idris-case--12104-8193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((52) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))))
-(define ModTree-Idris-case--12090-8151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 52 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 arg-0 (vector 0 )))) eta-0))) (else (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (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))) ((ModTree-Idris-case--12104-8244 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-0 e-5)) eta-1))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((52) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))) eta-0)))))))
-(define ModTree-Idris-n--12605-8633-getEithers (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) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (ModTree-Idris-case--12616-8663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--12605-8633-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (ModTree-Idris-case--12616-8715 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--12605-8633-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
-(define ModTree-Idris-n--13604-9511-dropLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (ModTree-Idris-n--13604-9511-dropLater arg-0 arg-1 arg-2 arg-3 (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (let ((sc1 x)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-3))))))))))
-(define ModTree-ModTree-Idris-sourceFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define ModTree-ModTree-Idris-nspace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ModTree-Idris-mkModTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (ModTree-Idris-case--12090-8151 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) arg-4 arg-3))))
-(define ModTree-Idris-mkBuildMods (lambda (arg-0 arg-1 arg-2) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (sf) (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))) ((ModTree-Idris-case--12301-8355 arg-2 arg-1 arg-0 sf e-5 (StringMap-Data-lookup 'erased sf e-5)) eta-0))))))))) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
-(define BuildMod-ModTree-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define ModTree-Idris-getBuildMods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.AllMods" ) (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 ((act-25 (Context-Core-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 ((Directory-Core-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-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))) ((ModTree-Idris-case--12408-8471 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-1 (vector-ref sc3 2))) e-1))) arg-3))) ext-0))))))))))))))))))
-(define ModTree-Idris-getAllBuildMods (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-2 arg-3 arg-4 e-2 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))) ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased e-5 arg-4) e-3) eta-0))))))))))))))
-(define ModTree-Idris-fnameModified (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (File-System-openFile 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 (File-System-fileModifiedTime 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 (File-System-closeFile 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (File-System-closeFile 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) ext-0)))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
-(define ModTree-ModTree-Idris-deps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define BuildMod-ModTree-Idris-buildNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define ModTree-Idris-buildMods (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-buildMod arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-5 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
-(define ModTree-Idris-buildMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-clearCtxt 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 ((InitPrimitives-Core-addPrimitives 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 (Context-Core-lazyActive arg-0 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 (Context-Core-setUnboundImplicits arg-0 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 ((src (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-28 (Directory-Core-getTTCFileName arg-0 src "ttc" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Directory-Core-nsToPath arg-0 arg-3 eta-0 eta-1))) (let ((sc5 arg-6)) (let ((e-2 (vector-ref sc5 3))) e-2))) 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))) ((ModTree-Idris-case--12605-8794 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 src e-9 e-10 (ModTree-Idris-n--12605-8633-getEithers arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 'erased e-10)) ext-0))))))))))))))))))))))))))))))))))
-(define BuildMod-ModTree-Idris-buildFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define ModTree-Idris-buildDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-4 (FC-Core-toplevelFC) (vector 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 ((ModTree-Idris-buildMods arg-0 arg-1 arg-4 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased e-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) ((0) (let ((act-26 (Context-Core-clearCtxt 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 ((act-27 ((InitPrimitives-Core-addPrimitives 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 ((act-28 (let ((act-28 (set-box! arg-2 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttc" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-10) (Strings-Prelude-C-43C-43 " from " arg-5)))) 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 (ProcessIdr-Idris-readAsMain arg-0 arg-3 arg-1 e-10 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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttm" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String e-13))) 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 (Metadata-Core-readFromTTM arg-2 e-13 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))(else (vector 1 e-6))))))))))))))))
-(define ModTree-Idris-buildAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (vector 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 ((modsC-39 (ModTree-Idris-n--13604-9511-dropLater arg-3 arg-2 arg-1 arg-0 e-5))) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased modsC-39) modsC-39) ext-0)))))))))
-(define ProcessIdr-Idris-case--16332-9966 (lambda (arg-0 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 (eta-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 (Context-Core-getDirs 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-6 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 ((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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-11957 arg-11958 eta-1)))) (lambda (arg-11959) (lambda (arg-11960) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-11959 arg-11960 eta-1))))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1))))) arg-6 arg-4 e-9 arg-9 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 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" 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 (Metadata-Core-writeToTTM arg-6 arg-5 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10)))))))
-(define ProcessIdr-Idris-case--16275-9940 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--16332-9966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessIdr-Idris-case--16255-9890 (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 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" 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 ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 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 ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--16332-9966 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 ))))))))))
-(define ProcessIdr-Idris-case--15761-9721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-32)) (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-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))) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
-(define ProcessIdr-Idris-case--15761-9605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-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 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) 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 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-22)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-20)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))
-(define ProcessIdr-Idris-case--15611-9441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Bool arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Bool arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Bool arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Bool arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Bool arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Bool arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Bool arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-985) (lambda (arg-986) (Prelude-min_Ord__String arg-985 arg-986)))) arg-983 arg-984)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__Int arg-983 arg-984)))) arg-981 arg-982)))) arg-979 arg-980)))) arg-12)) 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 (UnifyState-Core-resetNextVar arg-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-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15761-9605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-11) 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 ((act-29 (Context-Core-setNS arg-8 arg-20 eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (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-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (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))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--15362-9305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-setNS arg-8 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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 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 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-9428) (vector 0 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Bool arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Int arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Int arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Bool arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Bool arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Bool arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-973) (lambda (arg-974) (Prelude-compare_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Bool arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Bool arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Bool arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-60C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Bool arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Bool arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Bool arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Bool arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Bool arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Bool arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Bool arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Bool arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-981) (lambda (arg-982) (Prelude-C-62C-61_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__Int arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-983) (lambda (arg-984) (Prelude-max_Ord__String arg-983 arg-984))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-985) (lambda (arg-986) (Prelude-min_Ord__String arg-985 arg-986)))) arg-983 arg-984)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__Int arg-983 arg-984)))) arg-981 arg-982)))) arg-979 arg-980)))) arg-12)) 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))) (let ((act-28 (UnifyState-Core-resetNextVar arg-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 ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15761-9605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-11) 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 (Context-Core-setNS arg-8 arg-20 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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-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-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-12) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (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 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 ))))))))))))))))))))))))
-(define ProcessIdr-Idris-case--15362-9111 (lambda (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 (ProcessIdr-Idris-addPrelude (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))
-(define ProcessIdr-Idris-case--15258-8991 (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))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
-(define ProcessIdr-Idris-case--15223-8976 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15258-8991 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15223-8945-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define ProcessIdr-Idris-case--15227-8950 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1)))))
-(define ProcessIdr-Idris-case--15097-8842 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-closeFile arg-1 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 (vector 1 0)))))))))))
-(define ProcessIdr-Idris-case--15087-8827 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-fileModifiedTime e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 (File-System-closeFile e-2 eta-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 (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define ProcessIdr-Idris-case--15060-8807 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0)))))
-(define ProcessIdr-Idris-case--14869-8746 (lambda (arg-0 arg-1 arg-2 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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9)))))))))))))
-(define ProcessIdr-Idris-case--14849-8610 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 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 ((act-26 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 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 ((act-27 (let ((act-27 (unbox arg-2))) (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-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) 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 (Context-Core-getSession arg-3 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 ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 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 (unbox arg-2))) (vector 1 act-30)))) (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 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (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-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (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 ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0)))))))
-(define ProcessIdr-Idris-case--14743-8511 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash 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 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
-(define ProcessIdr-Idris-case--14497-8313 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 ((act-26 (Context-Core-getNS arg-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-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--14457-8278 (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))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (Context-Core-getNS arg-8 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-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
-(define ProcessIdr-Idris-case--14403-8246 (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 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-8 arg-4 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)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-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-8))) (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 (Context-Core-getNS arg-8 eta-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-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
-(define ProcessIdr-Idris-case--14302-8160 (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 1 arg-6 (vector 0 )))(else arg-8)))))
-(define ProcessIdr-Idris-case--14274-8111 (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 (ProcessDecls-TTImp-getTotalityErrors 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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--14302-8160 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5)))))))))))
-(define ProcessIdr-Idris-n--15223-8945-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--15227-8950 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
-(define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0)))))))
-(define ProcessIdr-Idris-readModule (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))) ((ProcessIdr-Idris-case--14403-8246 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__Bool arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Bool arg-652 arg-653)))) (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Bool arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__Bool arg-654 arg-655)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-654) (lambda (arg-655) (Prelude-C-61C-61_Eq__String arg-654 arg-655))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-656) (lambda (arg-657) (Prelude-C-47C-61_Eq__String arg-656 arg-657)))) arg-654 arg-655)))) arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
-(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-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-1 (vector-ref sc0 2))) e-1)) (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 (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (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 ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (File-System-readFile 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 ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--15258-8991 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15223-8945-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
-(define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-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 (Binary-Core-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 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0))))))))))))
-(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-8240 arg-8242 eta-0)))) (lambda (arg-8243) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-8243 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (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)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 (Desugar-Idris-extendAs arg-2 e-8 e-8 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 m 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 (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 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 (Context-Core-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 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 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 (Context-Core-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 (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0)))))))))))
-(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-readHeader arg-0 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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession 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 ((imps (ProcessIdr-Idris-case--15362-9111 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-124C-124 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) 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 (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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc4 e-8)) (let ((e-15 (vector-ref sc4 16))) e-15))))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\xa;" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7)))))) 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 ((act-30 (Binary-Core-readImportHashes arg-6 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 ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\xa;" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) e-11)))))) 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 (ProcessIdr-Idris-modTime arg-5 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))) (let ((act-33 (ProcessIdr-Idris-modTime arg-6 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 ((ns (let ((sc10 e-5)) (let ((e-1 (vector-ref sc10 2))) e-1)))) ((ProcessIdr-Idris-case--15362-9305 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 imps e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__Int arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-652) (lambda (arg-653) (Prelude-C-61C-61_Eq__String arg-652 arg-653))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-654) (lambda (arg-655) (Prelude-C-47C-61_Eq__String arg-654 arg-655)))) arg-652 arg-653)))) (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__Int arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__Int arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-971) (lambda (arg-972) (Prelude-compare_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__Int arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__Int arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__Int arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-60C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__Int arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-979) (lambda (arg-980) (Prelude-C-62C-61_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__String arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__String arg-979 arg-980)))) arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-979) (lambda (arg-980) (Prelude-max_Ord__Int arg-979 arg-980))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-969) (lambda (arg-970) (Prelude-compare_Ord__String arg-969 arg-970))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-60_Ord__String arg-971 arg-972))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-62_Ord__String arg-973 arg-974))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-60C-61_Ord__String arg-975 arg-976))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-977) (lambda (arg-978) (Prelude-C-62C-61_Ord__String arg-977 arg-978))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-981) (lambda (arg-982) (Prelude-max_Ord__String arg-981 arg-982))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__String arg-981 arg-982)))) arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__String arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__String arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__String arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__String arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__String arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__String arg-977 arg-978))) (lambda (arg-983) (lambda (arg-984) (Prelude-min_Ord__String arg-983 arg-984)))) arg-981 arg-982)))) (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-981) (lambda (arg-982) (Prelude-min_Ord__Int arg-981 arg-982)))) arg-979 arg-980)))) e-11)) (lambda () (Prelude-C-60C-61_Ord__Integer e-13 e-14)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0)))
-(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-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 (UnifyState-Core-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 (ProcessDecls-TTImp-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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (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))) (ProcessIdr-Idris-case--14302-8160 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))))))))))))))))))))
-(define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) 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 (err) (lambda (eta-0) (let ((act-24 (Unify-Core-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 err)))))))) ext-0)))
-(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (File-System-readFile 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-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 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-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))) ((ProcessIdr-Idris-case--16332-9966 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 ))))))))))))))
-(define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )))))
-(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (File-System-openFile 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 (File-System-fileModifiedTime 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 (File-System-closeFile 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 (File-System-closeFile 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 ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC))))))
-(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7066) (Hash-Core-hash_Hashable__String arg-7066)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__String arg-7066 arg-7067)))) arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__String arg-7065)) (lambda (arg-7068) (lambda (arg-7069) (Hash-Core-hashWithSalt_Hashable__String arg-7068 arg-7069)))) arg-7066 arg-7067)))) 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 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7065) (Hash-Core-hash_Hashable__Int arg-7065)) (lambda (arg-7066) (lambda (arg-7067) (Hash-Core-hashWithSalt_Hashable__Int arg-7066 arg-7067)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15060-8807 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-650) (lambda (arg-651) (Prelude-C-61C-61_Eq__String arg-650 arg-651))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-652) (lambda (arg-653) (Prelude-C-47C-61_Eq__String arg-652 arg-653)))) arg-650 arg-651)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0))))))
-(define Desugar-Idris-case--12770-11438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11457) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-5 arg-1 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11502) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-5 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-5 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-11535) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-5 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11562) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-5 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11589) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-5 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11616) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-5 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11643) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-5 arg-1 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11670) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-5 arg-1 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11697) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-5 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11724) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-5 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11751) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-5 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11778) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-5 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11805) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-5 arg-1 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11832) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11862) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-5 arg-1 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11890) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-5 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption 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 (vector 1 (vector 0 )))))))))))))
-(define Desugar-Idris-case--12770-11381 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-8 arg-7 arg-5 arg-6 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) arg-0 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 1 (vector 6 arg-3 (vector 1 arg-2) e-3 e-5) (vector 0 ))))))))))))))
-(define Desugar-Idris-case--12770-11266 (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-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 0 (StringMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 e-2 e-3 e-4 e-5))))))))))
-(define Desugar-Idris-case--12770-11213 (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-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 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5))))))))))
-(define Desugar-Idris-case--18169-11094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
-(define Desugar-Idris-case--17724-11030 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-11 (vector-ref sc3 2))) e-11))))))) arg-11))) (else (vector 0 ))))))
-(define Desugar-Idris-case--18015-10969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 4 arg-5 (vector 1 (Name-Core-nameRoot arg-3)) arg-4 (vector 0 arg-5 arg-3 arg-18 arg-22 arg-20)) (vector 0 )))))
-(define Desugar-Idris-case--17926-10916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((conname (Prelude-maybe 'erased 'erased (lambda () (Desugar-Idris-n--12770-10522-mkConName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-3)) (lambda () (lambda (eta-0) eta-0)) arg-1))) (lambda (eta-0) (Desugar-Idris-case--18015-10969 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 conname conname eta-0)))))
-(define Desugar-Idris-case--17777-10843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Desugar-Idris-desugarField arg-10 arg-9 arg-8 arg-7 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--12770-10521-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) 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))) ((Desugar-Idris-case--17926-10916 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5) ext-0))))))))
-(define Desugar-Idris-case--17777-10778 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))))
-(define Desugar-Idris-case--17724-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))) arg-11))) (lambda (eta-0) (Desugar-Idris-case--17777-10843 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 paramsb paramsb eta-0)))))
-(define Desugar-Idris-case--17678-10692 (lambda (arg-0 arg-1 arg-2 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 (Context-Core-isUnboundImplicits 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 ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-11 (vector-ref sc4 2))) e-11))))))) arg-11))) (else (vector 0 )))))) ((Desugar-Idris-case--17724-10732 arg-0 arg-1 arg-2 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 bnames bnames) ext-0)))))))))
-(define Desugar-Idris-case--12770-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) (let ((fnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--12770-10521-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) arg-0))) (lambda (eta-0) (Desugar-Idris-case--17678-10692 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 fnames fnames eta-0)))))
-(define Desugar-Idris-case--12770-10592 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-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))) (let ((act-25 ((Desugar-Idris-n--12770-10523-mapDesugarPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
-(define Desugar-Idris-case--16850-10387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 ))))))
-(define Desugar-Idris-case--17040-10266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (b) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-15 arg-14 arg-13 arg-12 arg-11 eta-1)) b) 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 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) 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 1 (vector 8 (lambda (vars-10344) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-10344 arg-14 arg-13 arg-15 arg-12 arg-10 arg-9 arg-16 arg-7 env nest arg-26 arg-28 arg-4 arg-25 arg-2 arg-1 e-5))))) (vector 0 ))))))))))
-(define Desugar-Idris-case--17040-10197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))))
-(define Desugar-Idris-case--16850-10131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))) arg-19))) (lambda (eta-0) (Desugar-Idris-case--17040-10266 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 consb consb eta-0)))))
-(define Desugar-Idris-case--16850-10058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind arg-24 e-7)))))))))))
-(define Desugar-Idris-case--16775-9990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 (Context-Core-isUnboundImplicits arg-14 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 )))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind bnames eta-0)) arg-21))) (let ((isb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind bnames e-7)))))))))) arg-17))) ((Desugar-Idris-case--16850-10131 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 bnames paramsb isb isb) ext-0)))))))))))
-(define Desugar-Idris-case--16628-9933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 eta-0 eta-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))) (Desugar-Idris-case--16775-9990 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5 ext-0))))))))
-(define Desugar-Idris-case--16628-9874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))))
-(define Desugar-Idris-case--12770-9824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))) 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))) (Desugar-Idris-case--16628-9933 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5 ext-0))))))))
-(define Desugar-Idris-case--12770-9761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
-(define Desugar-Idris-case--12770-9379 (lambda (arg-0 arg-1 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-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))) (vector 0 e-0 e-1 e-2 e-3 arg-9 e-5)))))))))
-(define Desugar-Idris-case--12770-9347 (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)) (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))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-5)))))))))
-(define Desugar-Idris-case--12749-8623 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-6) arg-2 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 1 arg-4 e-3 e-5 arg-1 arg-11)))))))))))))
-(define Desugar-Idris-case--15159-8525 (lambda (arg-0 arg-1 arg-2 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) ((0) arg-14)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
-(define Desugar-Idris-case--12749-8483 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-9 arg-8 arg-6 arg-7 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-5) arg-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))) (vector 1 (vector 0 arg-3 e-3 (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) e-5)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))))))))))))))
-(define Desugar-Idris-case--12733-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-12 arg-13 arg-11 arg-9 arg-10 arg-8 arg-7 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-12 arg-11 arg-10 arg-9 arg-7 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-7))) (let ((act-26 ((Desugar-Idris-expandDo arg-12 arg-11 arg-10 arg-9 arg-8 psC-39 arg-6 arg-5) 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-13))) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)) (vector 4 arg-4 e-5 arg-15 (vector 1 (vector 0 arg-4 e-3 e-7) e-6)))))))))))))))))))))))))))))))
-(define Desugar-Idris-case--12733-8009 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-11 arg-10 arg-8 arg-9 arg-7 arg-6 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-11 arg-10 arg-9 arg-8 arg-6 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-6))) (let ((act-26 ((Desugar-Idris-expandDo arg-11 arg-10 arg-9 arg-8 arg-7 psC-39 arg-5 arg-4) 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 8 arg-3 (vector 8 arg-3 (vector 0 arg-3 (vector 1 ">>=")) e-5) (vector 2 arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 4 arg-3 (vector 0 arg-3 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 1 (vector 0 arg-3 e-3 e-7) e-6)))))))))))))))))))))))))))
-(define Desugar-Idris-case--12733-7896 (lambda (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) ((4) (vector 0 arg-1 (vector 1 "Unit")))(else (vector 31 arg-1 1))))))
-(define Desugar-Idris-case--12715-7691 (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)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFrom")) arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFromThen")) arg-1) e-2))))))))
-(define Desugar-Idris-case--12715-7633 (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-1)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromTo")) arg-2) arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromThenTo")) arg-2) e-2) arg-0))))))))
-(define Desugar-Idris-case--12715-7323 (lambda (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 arg-11 (vector 0 arg-1 arg-9)) e-1)))))))
-(define Desugar-Idris-case--12715-7222 (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-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 0 e-0 e-1 e-2 (vector 1 (vector 1 arg-0) e-3) e-4 e-5))))))))))
-(define Desugar-Idris-case--12715-7083 (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) (vector 1 (vector 27 arg-1 (vector 7 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 7 arg-0)))))))))))
-(define Desugar-Idris-case--12715-7029 (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) (vector 1 (vector 27 arg-1 (vector 6 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 6 arg-0)))))))))))
-(define Desugar-Idris-case--12715-6965 (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) (vector 1 (vector 12 arg-1 (vector 2 (vector 27 arg-1 (vector 1 arg-0))) (vector 1 (vector 27 arg-1 (vector 1 arg-0)) (vector 1 (vector 27 arg-1 (vector 0 arg-0)) (vector 0 ))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 1 arg-0)))))))))))
-(define Desugar-Idris-case--12715-6872 (lambda (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) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 arg-2 (vector 2 "arg" 0)) (vector 24 arg-2) (vector 26 arg-2 arg-1 (vector 0 arg-2 (vector 2 "arg" 0)) arg-0)))) (else (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 27 arg-2 arg-1 arg-0)))))))
-(define Desugar-Idris-case--12361-6114 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-5 "' is not a prefix operator"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-3 arg-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))) (vector 1 (vector 1 (vector 0 arg-2 arg-1 (vector 3 e-2)) e-5))))))))))))))
-(define Desugar-Idris-case--12384-5975 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Unknown operator '" (Strings-Prelude-C-43C-43 arg-6 "'"))) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 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))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-n--12361-5934-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))))))))))))))
-(define Desugar-Idris-case--12361-5950 (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) (Desugar-Idris-case--12384-5975 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-6 "' is a prefix operator"))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 arg-0) 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-mkPrec e-5 e-6)) e-7)))))))))))))))))))))
-(define Desugar-Idris-case--12308-5910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 1))) e-11)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-10 (vector-ref sc1 2))) e-10)) e-1) (ANameMap-Data-mergeAs 'erased arg-2 arg-1 (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 3))) e-9)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-8 (vector-ref sc1 4))) e-8)) e-3) e-4 e-5))))))))))
-(define Desugar-Idris-n--12715-7588-toPure (lambda (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 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "pure")) arg-10))))
-(define Desugar-Idris-n--12770-9022-toIDef (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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-0 e-5 (vector 1 (vector 0 e-0 e-1 e-2) (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 2 e-3 e-8 (vector 1 (vector 1 e-3 e-4 e-5 e-6 e-7) (vector 0 )))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-8 e-5 (vector 1 (vector 2 e-8 e-9) (vector 0 )))))))))))))))))
-(define Desugar-Idris-n--12770-9421-pairToCons (lambda (arg-0 arg-1 arg-2 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) ((36) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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) (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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)))))(else (vector 1 arg-14 (vector 0 )))))))
-(define Desugar-Idris-n--12764-8828-mkRecType (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 21 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-5 e-10 e-14 (vector 1 e-6) e-15 (Desugar-Idris-n--12764-8828-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))))))
-(define Desugar-Idris-n--12770-10522-mkConName (lambda (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) (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))) (vector 0 e-0 (vector 4 e-2 (vector 2 (Strings-Prelude-C-43C-43 "__mk" e-2) 0)))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0))))))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0)))))))
-(define Desugar-Idris-n--12770-10523-mapDesugarPiInfo (lambda (arg-0 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) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-11 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
-(define Desugar-Idris-n--12715-7587-guard (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 7 e-0 (vector 0 e-0 (vector 1 "guard")) e-1)))))(else arg-10)))))
-(define Desugar-Idris-n--12770-9021-getFn (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 2))) (lambda (eta-0) (vector 1 e-1)))) ((8) (let ((e-3 (vector-ref sc0 2))) (Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Desugar-Idris-n--12770-9021-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-7) " is not a function application")) eta-0)))))))
-(define Desugar-Idris-n--12770-10521-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) (let ((sc0 arg-11)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define Desugar-Idris-n--12770-9422-expandConstraint (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-5) e-3) (vector 0 )))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (vector 0 ) x)) (Desugar-Idris-n--12770-9421-pairToCons arg-0 arg-1 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 Desugar-Idris-n--12361-5934-backtickPrec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 2 (+ 1 0))))
-(define Desugar-Idris-toTokList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((26) (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))) (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 ((op (Name-Core-nameRoot e-1))) ((Desugar-Idris-case--12361-5950 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 1))) e-10)))) eta-0))))))))))))) ((27) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (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-7 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-5))) ((Desugar-Idris-case--12361-6114 e-6 e-5 e-4 arg-0 e-7 op (StringMap-Data-lookup 'erased op (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-1) (vector 0 )))))))))
-(define Desugar-Idris-pairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "Pair"))))
-(define BangData-Desugar-Idris-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Desugar-Idris-mkpairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "MkPair"))))
-(define Desugar-Idris-mkdpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "MkDPair"))))
-(define Desugar-Idris-mkPrec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 arg-1)) ((1) (vector 1 arg-1)) ((2) (vector 2 arg-1)) (else (vector 3 arg-1))))))
-(define Desugar-Idris-initBangs (lambda () (vector 0 0 (vector 0 ))))
-(define Desugar-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
-(define Desugar-Idris-idiomise (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (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 arg-0 (vector 8 arg-0 (vector 0 arg-0 (vector 1 "<*>")) (Desugar-Idris-idiomise e-0 e-1)) e-2)))))(else (vector 8 arg-0 (vector 0 arg-0 (vector 1 "pure")) arg-1))))))
-(define Desugar-Idris-getDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (let ((e-76 (vector-ref sc0 5))) (let ((e-77 (vector-ref sc0 6))) (let ((e-78 (vector-ref sc0 7))) (let ((e-79 (vector-ref sc0 8))) (let ((e-80 (vector-ref sc0 9))) (let ((e-81 (vector-ref sc0 10))) (let ((e-82 (vector-ref sc0 11))) (vector 1 (vector 7 e-72 e-73 e-74 arg-0 e-76 e-77 e-78 e-79 e-80 e-81 e-82))))))))))))) ((11) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (let ((e-85 (vector-ref sc0 3))) (vector 1 (vector 11 e-83 e-84 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-85)))))))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 arg-1)) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (vector 1 (vector 2 e-11 e-12 (vector 1 e-35 e-36 e-37)))))))(else (vector 0 )))))))) ((6) (vector 1 arg-1)) ((8) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-27 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (vector 1 (vector 2 e-23 e-24 (vector 1 e-23 e-25 (Desugar-Idris-n--12764-8828-mkRecType e-27 e-28 e-26 e-25 e-24 e-23 arg-1 e-26))))))))))) ((10) (vector 1 arg-1)) ((14) (vector 1 arg-1))(else (vector 0 ))))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((2) (let ((e-47 (vector-ref sc1 3))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (vector 1 arg-1))(else (vector 1 arg-1)))))) ((6) (vector 0 )) ((8) (vector 1 arg-1)) ((10) (vector 0 )) ((14) (vector 0 ))(else (vector 1 arg-1)))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 3 e-0 e-1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-2))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 4 e-3 e-4 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-5)))))))(else (let ((sc0 arg-0)) (vector 1 arg-1)))))))))))))
-(define Desugar-Idris-extendAs (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-6 (vector-ref sc1 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-12 (vector-ref sc2 1))) e-12)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-11 (vector-ref sc2 2))) e-11)) e-1) (ANameMap-Data-mergeAs 'erased arg-1 arg-2 (let ((sc2 arg-3)) (let ((e-10 (vector-ref sc2 3))) e-10)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc2 arg-3)) (let ((e-9 (vector-ref sc2 4))) e-9)) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))))
-(define Desugar-Idris-expandList (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 arg-7 (vector 1 "Nil"))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-2) 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 ((act-25 ((Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-7 (vector 1 "::")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))))))))
-(define Desugar-Idris-expandDo (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Do block cannot be empty") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-29 eta-0)))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((ty (let ((sc5 e-6)) (case (vector-ref sc5 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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)) (let ((e-7 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) eta-0))) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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))) (vector 1 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((e-17 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 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-7 (vector-ref sc5 1))) (let ((act-27 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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-8 (vector-ref sc6 1))) (let ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox e-5))) (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 ((e-9 (vector-ref sc7 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc8 e-9)) (let ((e-1 (vector-ref sc8 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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-6 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 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-7 (vector-ref sc5 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (let ((e-9 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc8 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc9 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc10 act-30)) (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-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc11 act-31)) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc12 e-13)) (let ((e-1 (vector-ref sc12 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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))) (vector 1 (vector 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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))) (vector 1 (vector 13 e-25 e-6 e-5))))))))))))))))))))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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 ((ty (let ((sc4 e-6)) (case (vector-ref sc4 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-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 (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) 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))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((e-17 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-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 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox 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 ((e-9 (vector-ref sc6 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-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 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (let ((e-9 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc7 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc8 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc10 act-31)) (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 (Desugar-Idris-bindBangs (let ((sc11 e-13)) (let ((e-1 (vector-ref sc11 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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 13 e-25 e-6 e-5)))))))))))))))))))))))))))))))
-(define Desugar-Idris-dpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "DPair"))))
-(define Desugar-Idris-desugarUpdate (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) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 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 (vector 1 e-2 e-5)))))))))))))))
-(define Desugar-Idris-desugarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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))) (vector 1 (vector 0 e-0 e-1 e-7))))))))))))))))))))))))
-(define Desugar-Idris-desugarTree (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))) (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)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((sc2 e-14)) (cond ((equal? sc2 "=") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-2 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "===")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "~=~")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 0 ))))))))))))))))) ((equal? sc2 "$") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-2 e-6 e-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-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))) (vector 1 (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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 ((Desugar-Idris-desugarTree 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 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) 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))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (cond ((equal? sc2 "-") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-5 (vector-ref sc3 1))) (vector 1 (vector 8 e-8 (vector 0 e-8 (vector 1 "negate")) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5))))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-13)))))))
-(define Desugar-Idris-desugarFnOpt (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) (vector 1 e-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))))))))
-(define Desugar-Idris-desugarField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-2))) e-2) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc4 e-5)) (let ((e-9 (vector-ref sc4 5))) e-9)) arg-4 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 (vector 0 e-0 e-1 e-6 e-3 e-8)))))))))))))))))))))))))))))))
-(define Desugar-Idris-desugarDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (vector 0 e-0 e-1 e-2 e-5 e-6) (vector 0 )))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 1 eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--12770-9022-toIDef e-6 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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-8 (vector-ref sc2 1))) (vector 1 (Parser-TTImp-collectDefs 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 ((Desugar-Idris-desugarData 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))) (vector 1 (vector 1 (vector 1 e-7 e-8 e-5) (vector 0 ))))))))))))) ((3) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-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-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((pnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind pnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (vector 1 (vector 1 (vector 3 e-10 paramsb ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (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 ((oldu (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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 (BindImplicits-TTImp-bindTypeNames arg-1 oldu arg-4 e-6 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 (vector 0 (Builtin-fst 'erased 'erased ntm) e-7)))))))))))))) 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))) (let ((act-26 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased e-6 oldu) 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 (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-15) 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-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 ((act-29 (let ((act-29 (set-box! arg-0 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (vector 0 e-0 e-1 e-2 e-3 oldu e-10)))))))))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))))))))))))))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-16 "Reflection not implemented yet") eta-0)))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (let ((cons ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--12770-9422-expandConstraint e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) e-20))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23)) (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-5))))))))) cons) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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))) (let ((mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS eta-1)) (Syntax-Idris-definedIn e-26)))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((bnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (let ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-5))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) eta-1)) e-26) 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 1 (vector 8 (lambda (vars-9647) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-9647 arg-1 arg-2 arg-0 arg-3 e-18 e-19 env nest consb e-21 paramsb e-24 e-25 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8) eta-1)))))) (vector 0 ))))))))))))))))))))))))))))))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-8)))))))))))))))) 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))) (Desugar-Idris-case--12770-9824 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-6 eta-0)))))))))))))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-11 eta-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))) (let ((act-25 ((Desugar-Idris-n--12770-10523-mapDesugarPiInfo e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-10) eta-1))) (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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-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))) ((Desugar-Idris-case--12770-10656 e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-5) eta-0)))))))))))))) ((10) (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 ((sc1 e-45)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 e-0 (StringMap-Data-insert 'erased e-62 e-46 e-1) e-2 e-3 e-4 e-6))))))))))) (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 (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0)))))))))(else (let ((sc1 e-47)) (case (vector-ref sc1 0) ((1) (let ((e-61 (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 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0))))))))))))) ((9) (let ((e-49 (vector-ref sc0 2))) (let ((mds (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 1 ) eta-0)) e-49) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 2 ) eta-0)) e-49)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) mds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (vector 1 (vector 1 (vector 5 e-50 e-51 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))) ((12) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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))) (BindImplicits-TTImp-bindNames arg-1 1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-56 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 1 (vector 6 e-53 (vector 1 e-54) e-3 e-6) (vector 0 )))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) 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))) (vector 1 (vector 1 (vector 7 e-57 e-5) (vector 0 )))))))))))) (else (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((sc1 e-60)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11457) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-1 e-59 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11502) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-1 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-1 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-11535) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-1 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11562) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-1 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11589) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-1 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11616) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-1 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11643) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-1 e-59 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11670) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-1 e-59 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11697) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-1 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11724) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-1 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11751) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-1 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11778) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-1 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11805) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-1 e-59 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11832) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11862) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-1 e-59 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11890) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-1 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption arg-1 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 (vector 1 (vector 0 ))))))))))))))))))
-(define Desugar-Idris-desugarData (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))) (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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 5))) e-8)) arg-4 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 (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-4) 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 (vector 0 e-0 e-1 e-7 e-3 e-8))))))))))))))))))))))))))))) (else (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 (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-8 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-10))))))))))))))))))))))))))
-(define Desugar-Idris-desugarClause (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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-1 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))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-6 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-7 arg-4) e-2 eta-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 0 e-0 e-4 (let ((sc5 e-5)) (case (vector-ref sc5 0) ((0) e-8)(else (vector 5 e-0 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-8)))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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-10 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 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-10 (vector-ref sc2 1))) (let ((sc3 e-10)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-6 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 (vector 1 e-4 e-3 e-11 e-7 e-9))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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 (BindImplicits-TTImp-bindNames arg-1 arg-5 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 (vector 2 e-9 (Builtin-snd 'erased 'erased e-6)))))))))))))))))))))
-(define Desugar-Idris-desugarB (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) (vector 1 (vector 0 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))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((psC-39 (Prelude-maybe 'erased 'erased (lambda () arg-6) (lambda () (lambda (arg-8) (vector 1 arg-8 arg-6))) e-5))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 eta-1 eta-2))) e-4) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 psC-39 e-7) 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 ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-3 e-8 e-5 e-9 e-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) ((0) (let ((e-134 (vector-ref sc1 2))) (let ((sc2 e-134)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (vector 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 0 )))))))))))))))))))))))))) ((24) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 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 2 e-8 e-9 e-5 (vector 0 ) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 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))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-140 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-140 arg-6) e-19 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))) (vector 1 (vector 3 e-14 e-15 e-140 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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 4 e-14 e-5 e-6 e-7)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Desugar-Idris-desugarB 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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-14 e-5 e-6 e-7))))))))))))))))))))))))))))) ((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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) 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 (vector 31 e-21 1) e-6))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((psC-39 (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-25) arg-6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 psC-39 eta-1)) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 e-26 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-24 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-6)))))))))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((6) (let ((e-143 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarUpdate arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 eta-1)) e-143) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) 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 7 e-27 e-5 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-27 e-5 e-6)))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-30 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-30 (vector 2 "rec" 0)) (vector 24 e-30) (vector 7 e-30 (vector 6 e-30 e-31) (vector 0 e-30 (vector 2 "rec" 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 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 10 e-32 e-5 e-6))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 9 e-35 e-5 e-37 e-6)))))))))))))))))) ((10) (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 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 19 e-39 e-40 e-5)))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 20 e-42 e-5))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 21 e-44 e-5))))))))))) ((30) (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 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-46 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "===")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "~=~")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 0 )))))))))))))))))))) ((31) (let ((e-50 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-50))) ((26) (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 ((Desugar-Idris-toTokList arg-0 (vector 26 e-51 e-52 e-53 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))) (let ((act-25 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0))))))))))))))))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-0 (vector 27 e-55 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 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0)))))))))))))))) ((28) (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 (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))) ((Desugar-Idris-case--12715-6872 e-60 e-59 e-58 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-59) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))) ((29) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-61 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-61 (vector 2 "arg" 0)) (vector 24 e-61) (vector 26 e-61 e-63 e-62 (vector 0 e-61 (vector 2 "arg" 0))))))))) ((13) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 11 e-64 e-65)))))) ((14) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((sc1 e-67)) (case (vector-ref sc1 0) ((1) (let ((e-144 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromIntegerName arg-2 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) ((0) (vector 1 (vector 12 e-66 (vector 2 (vector 27 e-66 (vector 1 e-144))) (vector 1 (vector 27 e-66 (vector 1 e-144)) (vector 1 (vector 27 e-66 (vector 0 e-144)) (vector 0 )))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 1 e-144)))))))))))))))) ((6) (let ((e-145 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromStringName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 6 e-145)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 6 e-145)))))))))))))))) ((7) (let ((e-146 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromCharName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 7 e-146)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 7 e-146))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 27 e-66 e-67))))))))) ((15) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 22 e-68 e-5))))))))))) ((16) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 23 e-70 e-71)))))) ((17) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 arg-6 eta-1)) 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 24 e-72 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))) ((18) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 25 e-74 e-5))))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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 26 e-76 e-5))))))))))) ((20) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-79)) (cond ((equal? sc1 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 (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-6 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 e-80) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))) (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 (vector 1 (vector 29 e-78 e-80))))))))))) ((21) (let ((e-81 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 28 e-81))))) ((22) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 17 e-82 (vector 1 ) e-83 e-5)))))))))))) ((23) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 18 e-85 (vector 4 ) e-5))))))))))) ((24) (let ((e-87 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-87 0))))) ((25) (let ((e-88 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-88 1))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (Desugar-Idris-expandDo arg-0 arg-2 arg-4 arg-3 arg-5 arg-6 e-89 e-90)))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (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 ((bn (vector 2 "bind" (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 bn (vector 0 e-91 e-5)) e-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 (vector 1 (vector 0 e-91 bn))))))))))))))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Desugar-Idris-idiomise e-93 e-5))))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-95 e-96)))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-6 (vector-ref sc2 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-mkpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))) (vector 1 (vector 12 e-97 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-pairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 pval (vector 0 ))))))))))))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-101)) (case (vector-ref sc1 0) ((0) (let ((e-148 (vector-ref sc1 1))) (let ((e-149 (vector-ref sc1 2))) (let ((sc2 e-149)) (case (vector-ref sc2 0) ((1) (let ((e-150 (vector-ref sc2 1))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 ((pval (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 (vector 0 e-148 (vector 1 e-150)) (vector 1 e-5 (vector 0 )))))) (vector 1 (vector 12 e-100 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 (vector 31 e-148 1) (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) (vector 31 e-148 1) e-5) (vector 0 )))) (vector 1 pval (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-102) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 e-5 (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) e-5 e-6) (vector 0 )))))))))))))))))))))(else (let ((sc2 e-102)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0)))))))))))(else (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0))))))))))))) ((38) (let ((e-104 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 12 e-104 (vector 2 (vector 0 e-104 (vector 1 "MkUnit"))) (vector 1 (vector 0 e-104 (vector 1 "Unit")) (vector 1 (vector 0 e-104 (vector 1 "MkUnit")) (vector 0 )))))))) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-106) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-108 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-105 e-5 (vector 0 e-105 (vector 1 "Bool")) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "True")) e-6) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "False")) e-7) (vector 0 )))))))))))))))))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 32 e-109 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--12715-7587-guard e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-111) (vector 1 (Desugar-Idris-n--12715-7588-toPure e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-110) (vector 0 ))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 13 e-112 e-5 e-6))))))))))))))))) ((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))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromTo")) e-116) e-118))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromThenTo")) e-116) e-2) e-118))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFrom")) e-120))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFromThen")) e-120) e-2)))))))))) ((46) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 30 e-122 e-123 e-5)))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-125 (vector 0 e-125 f) r))) e-126 e-127)))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-128 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-128 (vector 2 "rec" 0)) (vector 24 e-128) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-128 (vector 0 e-128 f) r))) (vector 0 e-128 (vector 2 "rec" 0)) e-129)))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-130 e-131 e-5))))))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-132) eta-0))))))))))
-(define Desugar-Idris-desugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 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 ((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 (Desugar-Idris-bindBangs (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-6)))))))))))))))))))
-(define Desugar-Idris-bindBangs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Desugar-Idris-bindBangs e-3 (vector 8 e-10 (vector 8 e-10 (vector 0 e-10 (vector 1 ">>=")) e-11) (vector 2 e-10 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) (vector 31 e-10 1) arg-1))))))))))))))))
-(define BangData-Desugar-Idris-bangNames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Shunting-Utils-case--2352-1232 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-1)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))
-(define Shunting-Utils-case--2215-985 (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) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-9 (vector 0 arg-3 arg-4 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 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-9 arg-6 arg-7 arg-8) eta-0))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-4 arg-5)) arg-6))))))))
-(define Shunting-Utils-case--2022-866 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-3))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-5) arg-4))))))))
-(define Shunting-Utils-case--2022-797 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-2))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat arg-3 (Shunting-Utils-getPrec arg-5)))))))))
-(define Shunting-Utils-n--2352-1138-sprec (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) e-7))))))
-(define Shunting-Utils-n--2352-1137-sop (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
-(define Shunting-Utils-n--2352-1136-sloc (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) e-2))))))
-(define Shunting-Utils-shunt (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 arg-4 e-2) eta-0)))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 arg-4 e-10 e-11) 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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11)) e-5) e-2) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (s) (lambda (eta-1) (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 (Shunting-Utils-n--2352-1136-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2352-1137-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2352-1138-sprec 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s)) eta-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 (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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 e-1))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))))))
-(define Shunting-Utils-processStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-higher 'erased arg-2 e-6 e-10 e-11 arg-5 arg-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 (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (let ((act-25 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 e-6 e-10 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 e-3 arg-5 arg-6) eta-0)))))) (else (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) e-3))))))))))))))))))))))))
-(define Shunting-Utils-parseOps (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Shunting.Out" ) (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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 e-5 (vector 0 ) arg-3) ext-0))))))))
-(define Shunting-Utils-output (lambda (arg-0 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-22 e-23 e-5) e-6))))(else (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))(else (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))
-(define Shunting-Utils-isLAssoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0)(else 1)))))
-(define Shunting-Utils-higher (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) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (Shunting-Utils-case--2022-797 'erased arg-1 arg-3 e-1 arg-5 arg-6 arg-2 (Prelude-C-61C-61_Eq__Nat e-1 (Shunting-Utils-getPrec arg-6)))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Shunting-Utils-case--2022-866 'erased arg-1 arg-3 arg-5 e-0 arg-4 arg-2 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) e-0))))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Shunting-Utils-isLAssoc arg-4))))))))))))))))))
-(define Shunting-Utils-getPrec (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
-(define Shunting-Utils-emit (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))) (let ((act-25 ((Shunting-Utils-output 'erased 'erased e-5 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 (set-box! arg-2 e-6))) (vector 1 act-26))))))))))))))
-(define Interface-Elab-Idris-case--12862-2526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 0 e-14 (vector 0 e-6 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))))
-(define Interface-Elab-Idris-case--12886-2247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 0 e-5 e-14)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-15 (Strings-Prelude-C-43C-43 "No method named " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-17) (Strings-Prelude-C-43C-43 " in interface " (Name-Core-show_Show__Name arg-4))))) eta-0)))))))
-(define Interface-Elab-Idris-case--12886-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 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ity (TTImp-TTImp-apply (vector 0 arg-15 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-15 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-3))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-24 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (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 n (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 0 arg-15 e-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19)) 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 ((dty (Utils-TTImp-substNames arg-6 e-5 e-3))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19) arg-6) (Interface-Elab-Idris-bindIFace arg-15 ity dty) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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 ((dtydecl (vector 0 arg-15 e-2 arg-9 (vector 0 ) (vector 0 arg-15 arg-21 e-6)))) (let ((act-27 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21 eta-1)) arg-18))) (let ((act-28 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) 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 ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 arg-15 arg-21 csC-39)) eta-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 (vector 0 arg-17 arg-18))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-case--13202-1912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-21 arg-22)) (else (vector 0 arg-21 arg-20))))))
-(define Interface-Elab-Idris-case--12738-1525 (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)) (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 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-5 arg-10 e-2) e-3 e-4 e-5))))))))))
-(define Interface-Elab-Idris-case--12192-1076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 )))))))
-(define Interface-Elab-Idris-case--12002-780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)) (else (vector 1 arg-18 arg-17 arg-16 arg-15 arg-14 (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)))))))
-(define Interface-Elab-Idris-case--11642-627 (lambda (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) (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 0 )))) (else (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 1 (vector 0 arg-1) (vector 0 )))))))))
-(define Interface-Elab-Idris-n--12738-1449-totMeth (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((treq (Interface-Elab-Idris-n--12738-1448-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 treq e-11)))))))))))))))))
-(define Interface-Elab-Idris-n--11962-767-stripParams (lambda (arg-0 arg-1 arg-2 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-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))) (Interface-Elab-Idris-case--12002-780 'erased 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-4 e-3 e-2 e-1 e-0 arg-13 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) n arg-13))) e-3)))))))))(else arg-14)))))
-(define Interface-Elab-Idris-n--12884-1596-notData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 0 1 e-3)))))))
-(define Interface-Elab-Idris-n--12862-1561-nameCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 "__con" (Prelude-show_Show__Int arg-15))) e-7) (Interface-Elab-Idris-n--12862-1561-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-3)))))))))))
-(define Interface-Elab-Idris-n--11642-448-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-9 e-10 arg-11 e-6 e-11 (Interface-Elab-Idris-n--11642-448-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 e-3 arg-13)))))))))))))))
-(define Interface-Elab-Idris-n--12192-965-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 2 arg-1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-2) (vector 31 arg-1 1) (Interface-Elab-Idris-n--12192-965-mkLam arg-0 arg-1 arg-2 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-3 arg-16)))))))))
-(define Interface-Elab-Idris-n--12192-967-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 1 (Interface-Elab-Idris-n--12192-966-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15))))
-(define Interface-Elab-Idris-n--11642-445-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) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
-(define Interface-Elab-Idris-n--12192-964-getExplicitArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 3))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 2 "arg" arg-15) (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-5)))(else (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-0 arg-1 arg-2 arg-3 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)))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-n--12738-1448-findSetTotal (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--12738-1448-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))))
-(define Interface-Elab-Idris-n--12862-1563-elabMethods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethToplevel arg-6 arg-14 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) arg-16 arg-3 eta-0)) 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 ((fns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Top level methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) fns))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-0)) fns) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-0) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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 (Context-Core-setFlag arg-14 arg-10 e-8 (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 ((act-29 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Context-Core-setFlag arg-14 arg-10 e-8 (vector 2 ) eta-0)))))))))))))))) arg-16) ext-0)))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1564-elabDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((dn_in (vector 1 (Strings-Prelude-C-43C-43 "Default implementation of " (Name-Core-show_Show__Name e-10))))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-14 dn_in) 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))) (let ((act-25 ((Interface-Elab-Idris-case--12886-2247 arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 dn_in e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-10 arg-15)) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-26 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc6 act-26)) (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 0 n (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 (vector 0 e-2 e-12) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15)) eta-0))) (let ((sc6 act-26)) (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))) (let ((dty (Utils-TTImp-substNames arg-6 e-12 e-4))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15) arg-6) (Interface-Elab-Idris-bindIFace e-2 ity dty) eta-0))) (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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-13))))) 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 ((dtydecl (vector 0 e-2 e-9 arg-9 (vector 0 ) (vector 0 e-2 e-5 e-13)))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 e-5 eta-1)) e-11))) (let ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 e-2 e-5 csC-39)) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (vector 1 (vector 0 e-10 e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1565-elabConstraintHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((nconstraints (Interface-Elab-Idris-n--12862-1561-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 0 arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-getConstraintHint arg-6 arg-14 arg-10 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) nconstraints) arg-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3) eta-1)) nconstraints) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraint hints from " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-1 x-1)))) d-0 x-0))))) d 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 (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-1)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Builtin-snd 'erased 'erased eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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))) (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-5)) eta-0))))))))))))))))))
-(define Interface-Elab-Idris-n--12862-1562-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 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) 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 ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Method declarations: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (vector 0 arg-10 (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12884-1596-notData arg-0 arg-1 arg-2 arg-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 'erased 'erased eta-0)) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Interface-Elab-Idris-mkIfaceData arg-6 arg-14 arg-10 arg-9 arg-8 e-7 arg-4 arg-15 arg-3 arg-2 e-5) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-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 ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making interface data type " (TTImp-TTImp-show_Show__ImpDecl e-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 ((act-31 (ProcessDecls-TTImp-processDecls arg-6 arg-14 arg-11 arg-13 arg-7 arg-8 (vector 1 e-9 (vector 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 (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-n--12500-1229-constName (lambda (arg-0 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 (Interface-Elab-Idris-n--12500-1228-bindName arg-0 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 Interface-Elab-Idris-n--12886-1887-changeNameTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Interface-Elab-Idris-case--13202-1912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 e-0 arg-20 (Name-Core-C-61C-61_Eq__Name arg-17 e-1))))) ((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 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) e-7 e-8))))))(else arg-21)))))
-(define Interface-Elab-Idris-n--12886-1888-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1) 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))) (vector 1 e-3 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4) e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12886-1888-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 eta-0)) e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Interface-Elab-Idris-n--12886-1887-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)))))))))
-(define Interface-Elab-Idris-n--11642-446-bname (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 1 e-2) (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
-(define Interface-Elab-Idris-n--12192-962-bindPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-getFC e-7) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--12192-962-bindPs arg-0 arg-1 arg-2 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-3 arg-16))))))))))))
-(define Interface-Elab-Idris-n--12500-1228-bindName (lambda (arg-0 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12500-1228-bindName 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)))(else (Name-Core-show_Show__Name arg-12))))))
-(define Interface-Elab-Idris-n--12192-966-bindName (lambda (arg-0 arg-1 arg-2 arg-3 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12192-966-bindName arg-0 arg-1 arg-2 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-2)))(else (Name-Core-show_Show__Name arg-15))))))
-(define Interface-Elab-Idris-n--11642-447-bhere (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
-(define Interface-Elab-Idris-n--12886-1886-applyParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) arg-20) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 9 arg-15 arg-20 (vector 1 (vector 1 e-4)) (vector 16 arg-15 e-4)) e-3)))(else (Interface-Elab-Idris-n--12886-1886-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)))))))))))
-(define Interface-Elab-Idris-n--12192-963-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 0 arg-15 (vector 9 arg-1 (vector 0 arg-1 arg-15) (vector 1 (vector 1 "__con")) (vector 0 arg-1 (vector 1 "__con"))))))
-(define Interface-Elab-Idris-updateIfaceSyn (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12738-1449-totMeth arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((info (vector 0 arg-3 arg-4 arg-5 e-6 arg-7))) (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 (ANameMap-Data-addName 'erased arg-2 info e-2) e-3 e-4 e-7))))))))))) (vector 1 act-26)))))))))))))))
-(define Interface-Elab-Idris-namePis (lambda (arg-0 arg-1) (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 ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 2 ) (vector 1 (vector 2 "i_con" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 0 ) (vector 1 (vector 2 "i_imp" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5))))))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))))))))) ((15) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 15 e-6 e-7 (Interface-Elab-Idris-namePis arg-0 e-8))))))(else arg-1)))))
-(define Interface-Elab-Idris-mkIfaceData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((opts (Interface-Elab-Idris-case--11642-627 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (List-Data-isNil 'erased arg-9)))) (let ((retty (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((conty (Interface-Elab-Idris-n--11642-448-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-445-jname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-8) (Interface-Elab-Idris-n--11642-448-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 1 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-447-bhere arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--11642-446-bname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-10)) retty)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) 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 ((con (vector 0 arg-2 arg-7 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) (Interface-Elab-Idris-mkDataTy arg-2 arg-8) 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 arg-2 arg-3 (vector 0 arg-2 arg-6 e-6 opts (vector 1 con (vector 0 ))))))))))))))))))))))
-(define Interface-Elab-Idris-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-mkDataTy arg-0 e-3))))))))))))
-(define Interface-Elab-Idris-mkCon (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-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-0 (vector 4 (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" e-2))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1))))))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1)))))))))
-(define Interface-Elab-Idris-getSig (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 1 (vector 0 e-8 (vector 0 e-1 (vector 0 e-3 (vector 0 e-9 (vector 0 1 (Interface-Elab-Idris-namePis 0 e-10)))))))))))(else (vector 0 )))))))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (vector 1 (vector 0 e-11 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 6 ) (vector 0 )) (vector 0 e-12 (vector 0 0 (Interface-Elab-Idris-namePis 0 e-13)))))))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-getMethToplevel (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 e-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((ty_constr (Interface-Elab-Idris-n--12192-962-bindPs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-8 (Utils-TTImp-substNames arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12192-963-applyCon arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-0)) arg-7) e-19)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (Interface-Elab-Idris-bindIFace e-2 ity ty_constr) 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 ((act-25 ((Context-Core-inCurrentNS arg-1 e-14) eta-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-8 (vector-ref sc6 1))) (let ((tydecl (vector 0 e-2 e-6 arg-3 (let ((sc7 e-18)) (cond ((equal? sc7 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 ))))) (vector 0 e-2 e-8 e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 e-2 arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 e-2 0)) arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12192-966-bindName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-1)) arg-7)))))) (let ((argns (Interface-Elab-Idris-n--12192-964-getExplicitArgs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 0 e-19))) (let ((fnclause (vector 0 e-2 (vector 9 e-2 (vector 0 e-2 e-8) (vector 1 (vector 1 "__con")) conapp) (Interface-Elab-Idris-n--12192-965-mkLam arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 argns (TTImp-TTImp-apply (vector 0 e-2 (Interface-Elab-Idris-n--12192-967-methName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 e-14)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) argns)))))) (let ((fndef (vector 2 e-2 e-8 (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-getMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-2 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) (List-Prelude-C-43C-43 'erased arg-6 arg-1)) e-19 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 (vector 0 e-14 (vector 0 e-6 (Interface-Elab-Idris-n--11962-767-stripParams 'erased arg-2 e-2 e-6 e-10 e-14 e-18 e-19 arg-6 arg-5 arg-1 arg-4 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) e-5)))))))))))))))))))))))))))
-(define Interface-Elab-Idris-getDefault (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))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) (vector 0 e-1 e-2))))))))(else (vector 0 ))))))
-(define Interface-Elab-Idris-getConstraintHint (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 ((ity (TTImp-TTImp-apply (vector 0 arg-2 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) arg-9)))) (let ((fty (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ity e-3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased arg-8 arg-0) fty 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 ((hintname (vector 4 (Strings-Prelude-C-43C-43 "Constraint " (TTImp-TTImp-show_Show__RawImp e-3)) (vector 1 (Strings-Prelude-C-43C-43 "__" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 "_" (TTImp-TTImp-show_Show__RawImp e-3)))))))) (let ((tydecl (vector 0 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-4 (vector 1 (vector 0 ) (vector 1 (vector 2 1) (vector 0 ))) (vector 0 arg-2 hintname e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12500-1228-bindName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 eta-1)) arg-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 arg-2 0)) arg-8))))) (let ((fnclause (vector 0 arg-2 (vector 8 arg-2 (vector 0 arg-2 hintname) conapp) (vector 0 arg-2 (Interface-Elab-Idris-n--12500-1229-constName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 e-2))))) (let ((fndef (vector 2 arg-2 hintname (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 0 hintname (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))
-(define Interface-Elab-Idris-elabInterface (lambda (arg-0 arg-1 arg-2 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 ((Context-Core-getFullName arg-1 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 ((conName_in (Prelude-maybe 'erased 'erased (lambda () (Interface-Elab-Idris-mkCon arg-5 e-5)) (lambda () (lambda (eta-0) eta-0)) arg-13))) (let ((act-25 ((Context-Core-inCurrentNS arg-1 conName_in) 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 ((meth_sigs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getSig eta-0)) arg-14))) (let ((meth_decls (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (vector 0 e-14 (vector 0 e-8 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))) meth_sigs))) (let ((meth_names (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) meth_decls))) (let ((defaults (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getDefault eta-0)) arg-14))) (let ((act-26 (Interface-Elab-Idris-n--12862-1562-elabAsData arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Interface-Elab-Idris-n--12862-1565-elabConstraintHints arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names) 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 (Interface-Elab-Idris-n--12862-1563-elabMethods arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12862-1564-elabDefault arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 meth_decls eta-0)) defaults) 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 ((Core-Core-traverse 'erased 'erased (lambda (mt) (lambda (eta-0) (let ((act-30 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) 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))) (vector 1 (vector 0 e-11 (Builtin-snd 'erased 'erased mt)))))))))) meth_decls) 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 ((Context-Core-inCurrentNS arg-1 e-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))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-12 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-11) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-9) e-11 e-10 ext-0)))))))))))))))))))))))))))))))))))))))))))))
-(define Interface-Elab-Idris-bindIFace (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-2)) (case (vector-ref sc1 0) ((0) (vector 1 e-0 e-1 (vector 0 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5))) ((2) (vector 1 e-0 e-1 (vector 2 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5)))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2)))))))))))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2))))))
-(define Implementation-Elab-Idris-case--14552-9258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-48)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added defaults: body is " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-2))) 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Missing methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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 ((act-26 (let ((act-26 (unbox arg-17))) (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 ((e-7 (vector-ref sc3 1))) (let ((hs (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (let ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Open hints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 1 arg-19 arg-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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-28 (Context-Core-checkUnambig arg-17 arg-13 n 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))) (Context-Core-addOpenHint arg-17 e-9 eta-1)))))))) arg-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 ((act-29 (let ((act-29 (unbox arg-17))) (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 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 ) arg-19 arg-46 arg-29 (let ((sc7 arg-23)) (let ((e-1 (vector-ref sc7 2))) e-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7171-mkTopMethDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-1)) e-11)) 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 ((con (let ((sc9 arg-23)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-19) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-46))))) (let ((act-32 (let ((act-32 (unbox arg-17))) (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 (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-13 (vector 0 ) arg-27 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 ((e-14 (vector-ref sc10 1))) (let ((fldTys (Implementation-Elab-Idris-n--12297-7161-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-14))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field types " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d x-4)))) x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-3) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-3 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-4) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-4 x-4)))) d-3 x-3))))) d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x)))) fldTys))) 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 ((irhs (TTImp-TTImp-apply (vector 0 arg-13 con) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 11 arg-13 (Prelude-fromInteger_Num__Nat 500))) (let ((sc12 arg-23)) (let ((e-17 (vector-ref sc12 3))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7165-mkMethField arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-46 fldTys eta-1)) e-11))))) (let ((impFn (vector 2 arg-13 arg-19 (vector 1 (vector 0 arg-13 ilhs irhs) (vector 0 ))))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation record: " (TTImp-TTImp-show_Show__ImpDecl impFn))) 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 ((act-36 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (x) (lambda (eta-1) (Context-Core-addOpenHint arg-17 arg-19 eta-1)))) arg-2) eta-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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 5 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (vector 1 impFn (vector 0 ))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 5 ) 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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 3 ) eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 4 (vector 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 ((upds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7172-methNameUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased eta-1)) e-11))) (let ((act-42 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7176-updateBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 upds eta-1)) e-2) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation body: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-23))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) e-23) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7177-addTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 upds eta-1)) (let ((sc22 arg-23)) (let ((e-26 (vector-ref sc22 4))) e-26))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 3 ) 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 ((act-47 (Context-Core-setOpenHints arg-17 hs 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 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-case--14089-9112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-44)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((_-0 (vector 1 e-1))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 e-5 e-6 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-1))) (let ((sc3 arg-23)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 arg-23)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-42)) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-0)))))))
-(define Implementation-Elab-Idris-case--14089-8949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-35)) (else (vector 0 ))))))
-(define Implementation-Elab-Idris-case--14004-8702 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-5)))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) arg-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))) (let ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc2 arg-23)) (let ((e-6 (vector-ref sc2 2))) e-6))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc2 arg-23)) (let ((e-2 (vector-ref sc2 3))) e-2))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc2 arg-23)) (let ((e-3 (vector-ref sc2 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0))) "\xa;")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-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 ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-28 (Context-Core-isUnboundImplicits arg-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 ((e-9 (vector-ref sc5 1))) (let ((paramBinds (let ((sc6 e-9)) (cond ((equal? sc6 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 (let ((sc7 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc7 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 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 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc8 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-31 (let ((act-31 (unbox arg-17))) (vector 1 act-31)))) (let ((sc9 act-31)) (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-32 (Context-Core-lookupTyExact arg-19 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) e-0)) eta-1))) (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 ((_-0 (vector 1 e-1))) (let ((sc11 e-13)) (case (vector-ref sc11 0) ((1) (let ((e-2 (vector-ref sc11 1))) (let ((act-33 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-2) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-14))) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-1 (vector 1 e-2))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 impsp e-5 e-6 e-7 e-8 opts initTy e-9 paramBinds impTy impTyDecl e-10 e-11 body_in e-12 e-2 _-1 e-14 e-15 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc14 arg-23)) (let ((e-3 (vector-ref sc14 4))) e-3))) (let ((sc14 arg-23)) (let ((e-4 (vector-ref sc14 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
-(define Implementation-Elab-Idris-case--13917-8642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-24)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) e-1 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc4 arg-23)) (let ((e-8 (vector-ref sc4 2))) e-8))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc4 arg-23)) (let ((e-7 (vector-ref sc4 3))) e-7))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc4 arg-23)) (let ((e-3 (vector-ref sc4 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-23)) (let ((e-0 (vector-ref sc4 1))) e-0))) "\xa;")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-2 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))) (let ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-29 (Context-Core-isUnboundImplicits arg-17 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 ((paramBinds (let ((sc8 e-10)) (cond ((equal? sc8 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((sc9 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc9 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (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 ((sc10 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc10 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-32 (let ((act-32 (unbox arg-17))) (vector 1 act-32)))) (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))) (let ((act-33 (Context-Core-lookupTyExact arg-19 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((act-34 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-3) eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-15))) eta-1))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-2 (vector 1 e-3))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 impsp e-6 e-7 e-8 e-9 opts initTy e-10 paramBinds impTy impTyDecl e-11 e-12 body_in e-13 e-3 _-2 e-15 e-16 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc16 arg-23)) (let ((e-17 (vector-ref sc16 4))) e-17))) (let ((sc16 arg-23)) (let ((e-4 (vector-ref sc16 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc3 arg-23)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-22) eta-0)))))))
-(define Implementation-Elab-Idris-case--12297-8575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((cn (Builtin-fst 'erased 'erased e-1))) (let ((cdata (Builtin-snd 'erased 'erased e-1))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact cn (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-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))) (let ((act-26 (Context-Core-lookupTyExact (let ((sc5 cdata)) (let ((e-0 (vector-ref sc5 1))) e-0)) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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-7 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-3))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name cn))) e-3 eta-0))) (let ((sc7 act-27)) (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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc8 cdata)) (let ((e-12 (vector-ref sc8 2))) e-12))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc8 cdata)) (let ((e-11 (vector-ref sc8 3))) e-11))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc8 cdata)) (let ((e-10 (vector-ref sc8 4))) e-10))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc8 cdata)) (let ((e-0 (vector-ref sc8 1))) e-0))) "\xa;")))))))))))) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 eta-0))) (let ((sc9 act-29)) (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-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) eta-0))) (let ((sc10 act-30)) (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))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-31 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((paramBinds (let ((sc12 e-12)) (cond ((equal? sc12 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-32 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) eta-0))) (let ((sc12 act-32)) (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-33 (let ((sc13 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc13 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((sc14 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc14 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-17))) (vector 1 act-34)))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-15 (vector-ref sc15 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc15 1))) (let ((act-35 (Context-Core-lookupTyExact arg-19 (let ((sc16 e-15)) (let ((e-0 (vector-ref sc16 1))) e-0)) eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-16 (vector-ref sc16 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-4))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((1) (let ((e-17 (vector-ref sc17 1))) (let ((act-36 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-17) eta-1))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-18 (vector-ref sc18 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-37 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-18))) eta-1))) (let ((sc19 act-37)) (case (vector-ref sc19 0) ((0) (let ((e-19 (vector-ref sc19 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc19 1))) (let ((_-2 (vector 1 e-17))) ((Implementation-Elab-Idris-case--14552-9258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 cn cdata e-5 e-3 _-0 e-4 _-1 impsp e-8 e-9 e-10 e-11 opts initTy e-12 paramBinds impTy impTyDecl e-13 e-14 body_in e-15 e-17 _-2 e-18 e-19 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc20 cdata)) (let ((e-21 (vector-ref sc20 4))) e-21))) (let ((sc20 cdata)) (let ((e-20 (vector-ref sc20 5))) e-20)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 cn) eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-4) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))
-(define Implementation-Elab-Idris-case--12337-8386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((rhs (vector 0 arg-13 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp rhs)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (UnifyState-Core-handleUnify 'erased arg-17 arg-16 (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 (vector 6 arg-13 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-24)))) arg-26 rhs)) (lambda (err) (lambda (eta-1) (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Can't add transform " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp rhs) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Core-Core-show_Show__Error err))))))) eta-1))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Implementation-Elab-Idris-case--12333-8138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-19 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " is not a method of " (Name-Core-show_Show__Name arg-4)))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Implementation-Elab-Idris-case--12330-8013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-3 arg-25) arg-24 arg-23 arg-22 arg-21 arg-20 arg-19) 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 1 e-2 e-5)))))))))))))
-(define Implementation-Elab-Idris-case--12717-7761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-29 (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-29) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-46))) (vector 0 )))))))
-(define Implementation-Elab-Idris-case--12329-7535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-28 e-2))) (let ((mbase (Implementation-Elab-Idris-n--12297-7168-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-26 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_in))))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-29) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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))) (let ((act-26 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "    (initially " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) ")"))) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-28))) 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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) 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 ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Name updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0))))) d x)))) e-3))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Param names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-24))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) ibound))) 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 ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-26))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--12717-7761 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 mty_in mbase ibound e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ibinds (List-Data-isNil 'erased ibinds)))) (vector 1 (vector 0 (vector 0 arg-18 (vector 0 arg-29 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-5))))) methupdsC-39)))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-case--12109-6992 (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) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 arg-5 arg-8) arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((mupdates (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 9 arg-4 (vector 0 arg-4 n) (vector 1 (vector 1 "__con")) (vector 0 arg-4 arg-3)))) arg-2))) (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause (vector 0 ) mupdates eta-0)) e-2))) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-6 (vector 1 (vector 2 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-4 eta-0)) csC-39)) arg-7))))))))))
-(define Implementation-Elab-Idris-n--12297-7175-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) (let ((sc0 arg-19)) (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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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 0 e-0 e-5 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))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-8 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7175-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-1)) 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 1 e-3 e-8 e-5 e-6 e-9))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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 2 e-8 e-5)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7176-updateBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((2) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12297-7175-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (let ((act-25 ((Implementation-Elab-Idris-n--12297-7173-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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))) (vector 1 (vector 2 e-0 e-6 e-5)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-13 "Implementation body can only contain definitions") eta-0)))))))
-(define Implementation-Elab-Idris-n--12297-7174-updateApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7173-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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))))))))))) ((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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 1 (vector 8 e-2 e-5 e-4)))))))))))) ((9) (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 ((Implementation-Elab-Idris-n--12297-7174-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-9 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-8)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-19) "Invalid method definition") eta-0)))))))
-(define Implementation-Elab-Idris-n--12297-7170-topMethTypes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12297-7169-topMethType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((Implementation-Elab-Idris-n--12297-7170-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-4 arg-18) arg-19 arg-20 arg-21 arg-22 arg-23 e-3) eta-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))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7169-topMethType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Implementation-Elab-Idris-n--12297-7167-applyCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 eta-1 eta-2))) arg-23) 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-8 (vector-ref sc5 1))) (let ((updsC-39 e-8)) (let ((mty_in (Utils-TTImp-substNames arg-7 updsC-39 e-15))) ((Implementation-Elab-Idris-case--12329-7535 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-15 arg-23 arg-22 arg-21 arg-20 arg-19 arg-18 e-5 e-8 updsC-39 mty_in (State-Monad-Control-runState 'erased 'erased (BindImplicits-TTImp-renameIBinds arg-21 (TTImp-TTImp-findImplicits mty_in) mty_in) (vector 0 ))) eta-0))))))))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7171-mkTopMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () arg-11) (lambda () (lambda (t) (vector 1 (vector 7 t) arg-11))) e-18))) (vector 0 arg-13 e-14 arg-12 opts (vector 0 arg-13 e-6 e-19))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7165-mkMethField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((argns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Implementation-Elab-Idris-n--12325-7349-applyUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-18 e-19 arg-19 arg-18 eta-0)) (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) eta-0)) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Name-Core-dropNS e-2) arg-19))))) (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-18))) (Implementation-Elab-Idris-n--12297-7163-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 argns (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-13 (vector 0 arg-13 e-6) argns) (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 0 arg-13 (vector 1 (Name-Core-show_Show__Name n))))) imps))))))))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7163-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-13 e-10 e-11 (vector 1 e-6) (vector 31 arg-13 1) (Implementation-Elab-Idris-n--12297-7163-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7172-methNameUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (vector 0 (vector 1 (Name-Core-nameRoot e-2)) e-6))))))))
-(define Implementation-Elab-Idris-n--12297-7166-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)))(else (vector 4 (Name-Core-show_Show__Name arg-18) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) arg-2) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-3)))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7162-impsApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) arg-18) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12297-7162-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 9 arg-13 arg-18 (vector 1 e-6) e-7) e-3)))))))))))
-(define Implementation-Elab-Idris-n--12297-7161-getFieldArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-2 (Implementation-Elab-Idris-n--12321-7188-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-1 e-8 e-7 e-6 e-2 e-4 'erased e-8)) (Implementation-Elab-Idris-n--12297-7161-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-4))))))(else (vector 0 )))))))))(else (vector 0 ))))))
-(define Implementation-Elab-Idris-n--12321-7188-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (vector 0 e-6 (TT-Core-forgetDef 'erased 'erased e-7))) (Implementation-Elab-Idris-n--12321-7188-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 'erased e-4)))))(else (vector 0 ))))))))(else (vector 0 ))))))
-(define Implementation-Elab-Idris-n--12297-7173-findMethName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Implementation-Elab-Idris-case--12333-8138 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-19 arg-18 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-20 arg-18))))
-(define Implementation-Elab-Idris-n--12103-6971-extendBody (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) (vector 0 arg-7 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Implementation-Elab-Idris-case--12109-6992 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 arg-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) e-2 arg-1)))))))))
-(define Implementation-Elab-Idris-n--12103-6972-dropGot (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12103-6972-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 e-5)) arg-5) e-3)))(else (Implementation-Elab-Idris-n--12103-6972-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
-(define Implementation-Elab-Idris-n--12297-7168-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 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-13 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-n--12297-7168-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
-(define Implementation-Elab-Idris-n--12325-7349-applyUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 (vector 1 e-4) (vector 0 e-7 e-8))) (lambda () (lambda (nC-39) (vector 0 (vector 1 nC-39) (vector 0 e-7 e-8)))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
-(define Implementation-Elab-Idris-n--12297-7164-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 8 arg-18 arg-19 (vector 0 arg-18 e-6)) e-3)) ((2) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) ((0) (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) (else (Implementation-Elab-Idris-n--12297-7164-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3))))))))))))))))
-(define Implementation-Elab-Idris-n--12297-7167-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12297-7166-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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)) ext-0))) (let ((sc0 act-24)) (case (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 (Name-Core-dropNS arg-19) (vector 0 arg-13 e-5))))))))))
-(define Implementation-Elab-Idris-n--12297-7177-addTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Adding transform for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-15) (Strings-Prelude-C-43C-43 "\xa;\x9;for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) arg-19))))))))) 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))) (let ((lhs (vector 9 arg-13 (vector 0 arg-13 e-2) (vector 1 (vector 1 "__con")) (vector 0 arg-13 arg-18)))) ((Implementation-Elab-Idris-case--12337-8386 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-14 e-10 e-6 e-2 e-15 arg-19 arg-18 e-5 lhs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (Name-Core-dropNS e-2) arg-19)) eta-0))))))))))))))))))))))
-(define Implementation-Elab-Idris-mkImpl (lambda (arg-0 arg-1 arg-2) (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " implementation at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__Impl_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-2)))))))))
-(define Implementation-Elab-Idris-getMethImps (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-0 arg-1 arg-2 e-8 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 ((Implementation-Elab-Idris-getMethImps (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 2 e-6 (vector 0 ) e-8) arg-2) e-4) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Implementation-Elab-Idris-elabImplementation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((impName_in (Prelude-maybe 'erased 'erased (lambda () (Implementation-Elab-Idris-mkImpl arg-5 arg-13 arg-14)) (lambda () (lambda (eta-0) eta-0)) arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 impName_in) 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-3))) (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))) ((Implementation-Elab-Idris-case--12297-8575 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 impName_in e-5 e-6 (ANameMap-Data-lookupName 'erased arg-13 (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) eta-0)))))))))))))))
-(define Implementation-Elab-Idris-bindImpls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-bindImpls arg-0 e-3 arg-2)))))))))))))))
-(define Implementation-Elab-Idris-bindConstraints (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-6 e-7 (Implementation-Elab-Idris-bindConstraints arg-0 arg-1 e-3 arg-3))))))))))))
-(define Implementation-Elab-Idris-addDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((missing (Implementation-Elab-Idris-n--12103-6972-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--12103-6971-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
-(define Inline-Compiler-case--9913-3905 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1)))))))
-(define Inline-Compiler-case--9846-3846 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9830-3834 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9846-3846 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9766-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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9750-3764 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9766-3776 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9686-3706 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9670-3694 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9686-3706 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--9640-3662 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))))))))
-(define Inline-Compiler-case--9484-3525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs))))))))))))
-(define Inline-Compiler-case--8918-2988 (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 ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
-(define Inline-Compiler-case--8894-2970 (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))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--8918-2988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
-(define Inline-Compiler-case--6984-2867 (lambda (arg-0 arg-1 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) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-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 Inline-Compiler-case--8532-2678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 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))) (vector 1 (vector 1 e-5)))))))))))))))
-(define Inline-Compiler-case--6977-2637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Inline-Compiler-case--8532-2678 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11))))))
-(define Inline-Compiler-case--6965-2506 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-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 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5))))))))))))))
-(define Inline-Compiler-case--6960-2462 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3)))))))))
-(define Inline-Compiler-case--6954-2318 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Inline-Compiler-case--6954-2212 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) 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 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
-(define Inline-Compiler-case--6954-2114 (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) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9)))))))))
-(define Inline-Compiler-case--6954-1889 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 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))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 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))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) 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))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6))))))))))))))))))))))))
-(define Inline-Compiler-case--7389-1644 (lambda (arg-0 arg-1 arg-2 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 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 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))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--7352-1605 (lambda (arg-0 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 ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7389-1644 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 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Context-Core-C-61C-61_Eq__DefFlag arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Context-Core-C-47C-61_Eq__DefFlag arg-650 arg-651)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--6954-1579 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7352-1605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
-(define Inline-Compiler-case--6949-1382 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-case--6942-1294 (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-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4)))))))
-(define Inline-Compiler-case--6444-1150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6)))
-(define Inline-Compiler-case--6441-832 (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) 1000) (else arg-8)))))
-(define Inline-Compiler-case--6441-739 (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) 1) (else 0)))))
-(define Inline-Compiler-case--6379-686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3))))))
-(define Inline-Compiler-case--6247-574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3)))))))
-(define Inline-Compiler-n--8894-3156-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 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 ((Inline-Compiler-n--8894-3156-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define Inline-Compiler-n--9910-3889-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 ((Context-Core-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 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1))))))))))))))))
-(define Inline-Compiler-n--6977-2600-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) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1)))))
-(define Inline-Compiler-n--8894-3324-fixArityConstAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define Inline-Compiler-n--8894-3267-fixArityAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
-(define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2)))))
-(define Inline-Compiler-usedCon (lambda (arg-0 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))) (Inline-Compiler-case--6444-1150 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2)))))))))
-(define Inline-Compiler-used (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))) (Inline-Compiler-case--6441-739 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased 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 ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6441-832 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Int arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Int arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Int arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Int arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Int arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Int arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Int arg-979 arg-980)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0)))))
-(define Inline-Compiler-unloadApp (lambda (arg-0 arg-1 arg-2 arg-3) (Inline-Compiler-unload 'erased (List-Data-drop 'erased arg-1 arg-2) (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (List-Data-take 'erased arg-1 arg-2)))))
-(define Inline-Compiler-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-unload 'erased e-3 (vector 4 (CompileExpr-Core-getFC 'erased arg-2) arg-2 (vector 1 e-2 (vector 0 )))))))))))
-(define Inline-Compiler-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))) (Inline-Compiler-case--6949-1382 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))
-(define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3)))
-(define Inline-Compiler-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)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--6984-2867 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 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (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))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--6977-2637 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--6977-2600-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3)))))))))
-(define Inline-Compiler-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))) (Inline-Compiler-case--9484-3525 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1))))))
-(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9846-3846 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 Inline-Compiler-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))) (Inline-Compiler-case--9640-3662 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6379-686 'erased 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9686-3706 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 Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 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 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
-(define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9)))))))))))))))
-(define Inline-Compiler-getLams (lambda (arg-0 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))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4)))))))
-(define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Data-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Data-length 'erased e-6))) (else 0)))))
-(define Inline-Compiler-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 (b+ 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--8918-2988 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 (Inline-Compiler-unload 'erased 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 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 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-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 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 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 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))) (vector 1 (CompileExpr-Compiler-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 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased 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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--8894-3156-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) 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 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) 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 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--8894-3267-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--8894-3324-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) 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 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))
-(define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 ))))
-(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9766-3776 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 Inline-Compiler-fixArity (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 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 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))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (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))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
-(define Inline-Compiler-extendLoc (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 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" 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 ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4))))))))))))))))))))))))
-(define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16)))))))))))))
-(define Inline-Compiler-evalLocal (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-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 e-7)))(else (Inline-Compiler-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CompileExpr-Core-weakenNs_Weaken__CExp arg-2 e-3 e-7))))))(else (let ((e-9 (- arg-9 1))) (Inline-Compiler-evalLocal 'erased e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9 'erased))))))))))))))
-(define Inline-Compiler-evalConstAlt (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0)))))))
-(define Inline-Compiler-evalAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-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 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8))))))))))))))))))))))))
-(define Inline-Compiler-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-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (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 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) 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))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-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-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (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-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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-62 (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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7352-1605 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (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 ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--6954-1889 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))))
-(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-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 Inline-Compiler-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 ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--9910-3889-nonErased arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) 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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))))))))))))))))))))))))))))))))))))))
-(define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.CompileExpr.CExp" arg-0))))
-(define Holes-IDEMode-Idris-case--8583-8957 (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) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (premise) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 premise)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 premise)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-tidy (let ((sc0 premise)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm (let ((sc0 premise)) (let ((e-1 (vector-ref sc0 2))) e-1))) "\xa;")))))) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))))))))
-(define Holes-IDEMode-Idris-case--8497-8918 (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))
-(define Holes-IDEMode-Idris-case--8394-8869 (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 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))))))
-(define Holes-IDEMode-Idris-case--8408-8810 (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) (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)) (else (vector 1 arg-8 (Holes-IDEMode-Idris-n--8394-8788-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)))))))
-(define Holes-IDEMode-Idris-case--8243-8699 (lambda (arg-0 arg-1 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (vector 1 arg-13 e-2))))))))
-(define Holes-IDEMode-Idris-case--8154-8648 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise arg-0 arg-8 arg-7 (TT-Core-binderType 'erased 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))) (Resugar-Idris-resugar arg-0 arg-10 arg-9 arg-7 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))) (let ((premise (vector 0 arg-2 e-5 (TT-Core-multiplicity 'erased arg-4) (Holes-IDEMode-Idris-n--8154-8595-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4)))) (vector 1 (let ((sc2 arg-11)) (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 (vector 1 premise e-2))))))))))))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Holes-IDEMode-Idris-case--8049-8489 (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 Holes-IDEMode-Idris-case--8046-8468 (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))) (Holes-IDEMode-Idris-case--8049-8489 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) ((0) (vector 1 0))(else (vector 0 ))))))
-(define Holes-IDEMode-Idris-n--8154-8595-implicitBind (lambda (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) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1)))))
-(define Holes-IDEMode-Idris-n--8394-8788-dropShadows (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Holes-IDEMode-Idris-case--8408-8810 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Name-Core-C-61C-61_Eq__Name arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Name-Core-C-47C-61_Eq__Name arg-650 arg-651)))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) e-3))))))))))
-(define HolePremise-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define HoleData-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define HolePremise-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HoleData-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HolePremise-Holes-IDEMode-Idris-rf--multiplicity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define HolePremise-Holes-IDEMode-Idris-rf--isImplicit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
-(define HoleData-Holes-IDEMode-Idris-rf--context (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Holes-IDEMode-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0))))))
-(define Holes-IDEMode-Idris-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 Holes-IDEMode-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Holes-IDEMode-Idris-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))) ((Holes-IDEMode-Idris-case--8583-8957 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 Holes-IDEMode-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-648) (lambda (arg-649) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-650 arg-651))))) " 0 " " 1 " (lambda (eta-0) "   ") ext-0)))
-(define Holes-IDEMode-Idris-sexpPremise (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Holes-IDEMode-Idris-tidy (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))
-(define Holes-IDEMode-Idris-sexpHole (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpPremise eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (vector 1 (vector 0 (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))) (vector 0 )))))))
-(define HolePremise-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define HoleData-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Holes-IDEMode-Idris-isHole (lambda (arg-0) (Holes-IDEMode-Idris-case--8046-8468 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
-(define Holes-IDEMode-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}")))))))
-(define Holes-IDEMode-Idris-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Holes-IDEMode-Idris-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 (Context-Core-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 (Holes-IDEMode-Idris-case--8394-8869 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 Holes-IDEMode-Idris-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 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))(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-8 (vector-ref sc1 2))) (Holes-IDEMode-Idris-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-24 ((Holes-IDEMode-Idris-extractHoleData (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 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))) ((Holes-IDEMode-Idris-case--8154-8648 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (Holes-IDEMode-Idris-showName e-3)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))))))))))
-(define MakeClause-IDEMode-Idris-case--2701-7164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-length e-2) e-3))))))
-(define MakeClause-IDEMode-Idris-case--2636-7150 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((isrc (MakeClause-IDEMode-Idris-case--2701-7164 arg-0 arg-1 e-2 e-3 (Strings-Data-span (lambda (eta-0) (Prelude-isSpace eta-0)) e-3)))) (let ((indent (Builtin-fst 'erased 'erased isrc))) (let ((src (Builtin-snd 'erased 'erased isrc))) (let ((lhs (Prelude-pack (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7091-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7092-mkWithPat arg-0 arg-1 e-2 indent lhs) "\xa;"))))))))))))
-(define MakeClause-IDEMode-Idris-case--2611-7076 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
-(define MakeClause-IDEMode-Idris-n--2636-7089-readLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 #\=) (vector 0 ))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (cond ((equal? sc3 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (cond ((equal? sc2 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 ))))))))(else (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 ((sc1 e-1)) (cond ((equal? sc1 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2636-7089-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
-(define MakeClause-IDEMode-Idris-n--2636-7090-pref (lambda (arg-0 arg-1 arg-2 arg-3) (Unlit-Parser-relit arg-2 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )))))
-(define MakeClause-IDEMode-Idris-n--2636-7092-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7090-pref arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0)))) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 "| with_pat = ?" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-showRHSName arg-1) "_rhs"))))))
-(define MakeClause-IDEMode-Idris-n--2636-7091-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2636-7090-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
-(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2611-7076 arg-0 fn ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack fn))))))
-(define MakeClause-IDEMode-Idris-makeWith (lambda (arg-0 arg-1) (MakeClause-IDEMode-Idris-case--2636-7150 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
-(define CaseSplit-IDEMode-Idris-case--10948-8902 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-n--10829-8764-indent arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 0 arg-11) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-16) (Strings-Prelude-C-43C-43 " " arg-16)) arg-12)) (Strings-Prelude-C-43C-43 " = ?" (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 1 arg-11) "_rhs"))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10889-8870 (lambda (arg-0 arg-1 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))) (let ((_-0 (vector 1 e-1))) (CaseSplit-IDEMode-Idris-case--10948-8902 arg-0 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-case--10829-8819 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-5 (vector 0 ) e-14) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 arg-5 e-13 e-8) 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 ((act-26 (REPLOpts-Idris-getSourceLine arg-2 arg-1 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-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--10948-8902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-case--10800-8747 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
-(define CaseSplit-IDEMode-Idris-case--10795-8734 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
-(define CaseSplit-IDEMode-Idris-case--10598-8610 (lambda (arg-0 arg-1 arg-2 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) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CaseSplit-IDEMode-Idris-showImpossible arg-5 arg-4 arg-3 eta-0 eta-1))) arg-13)) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-IDEMode-Idris-getReplaces arg-5 arg-4 arg-3 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (let ((stok (TokenLine-IDEMode-Idris-tokens arg-10))) (let ((act-25 (let ((act-25 (unbox arg-5))) (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 (Core-Core-newRef 'erased 'erased (vector "Idris.IDEMode.CaseSplit.UPD" ) (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))) ((CaseSplit-IDEMode-Idris-updateAll e-7 e-6 stok e-5) eta-0)))))))))))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10561-8551 (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline (vector 1 e-2))) (CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 thisline valid bad (List-Data-isNil 'erased valid)))))))))))
-(define CaseSplit-IDEMode-Idris-case--10508-8523 (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-2 (vector-ref sc0 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-2) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-2))) (let ((sc1 thisline)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-3 (vector-ref sc1 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline-0 (vector 1 e-3))) (CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 _-0 e-3 thisline-0 valid bad (List-Data-isNil 'erased valid))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-7 e-5) eta-0))))))))
-(define CaseSplit-IDEMode-Idris-case--10471-8476 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No file loaded") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-readFile e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-3) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-3))) (let ((sc3 thisline)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0)) (else (let ((e-4 (vector-ref sc3 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10471-8448-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10471-8449-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((thisline-0 (vector 1 e-4))) ((CaseSplit-IDEMode-Idris-case--10598-8610 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-4 thisline-0 valid bad (List-Data-isNil 'erased valid)) eta-0)))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-2 e-6) eta-0)))))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10099-8274 (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) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 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))) (vector 1 (vector 1 (vector 1 arg-0) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-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 1 (vector 6 e-2) e-5))))))))))))))
-(define CaseSplit-IDEMode-Idris-case--10161-8176 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (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 ((sc3 e-5)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-3) (vector 1 (vector 4 ) e-6))) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7)))))))))))) ((5) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))
-(define CaseSplit-IDEMode-Idris-case--10099-8148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 3 ) e-2) e-5))))))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-5) (vector 1 (vector 4 ) e-6))) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8)))))))))))) ((5) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))) eta-0)))))))
-(define CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (vector 0 (vector 0 ) (vector 1 (vector 4 ) e-3))) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-mapFst 'erased 'erased 'erased (lambda (arg-5) (let ((w (vector 0 e-4))) (vector 1 w arg-5))) (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))(else (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
-(define CaseSplit-IDEMode-Idris-n--10829-8764-indent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unlit-Parser-relit (vector 1 e-1) (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Prelude-max_Ord__Int 0 (Prelude-C-45_Neg__Int (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6)) 1))) #\ ))))) (else (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6))) #\ )))))))
-(define CaseSplit-IDEMode-Idris-n--10471-8448-getValid (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 e-1)))(else (vector 0 ))))))
-(define CaseSplit-IDEMode-Idris-n--10471-8449-getBad (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-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define CaseSplit-IDEMode-Idris-n--10034-8037-bracket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-4) ((35) arg-4) ((36) arg-4) ((38) arg-4) ((40) arg-4) ((14) arg-4)(else (vector 31 (FC-Core-emptyFC) arg-4))))))
-(define CaseSplit-IDEMode-Idris-updateCase (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))) ((CaseSplit-IDEMode-Idris-case--10471-8476 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
-(define CaseSplit-IDEMode-Idris-updateAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 e-2 arg-2) 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 ((act-25 ((CaseSplit-IDEMode-Idris-updateAll arg-0 arg-1 arg-2 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))) (vector 1 (vector 1 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-1) (TokenLine-IDEMode-Idris-toString eta-1))) e-5) e-6))))))))))))))))))))
-(define CaseSplit-IDEMode-Idris-toStrUpdate (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-3 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 (vector 1 (vector 0 e-4 (Syntax-Idris-show_Show__PTerm (CaseSplit-IDEMode-Idris-n--10034-8037-bracket e-4 e-3 arg-1 arg-0 e-5))) (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define CaseSplit-IDEMode-Idris-showImpossible (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Resugar-Idris-pterm 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 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))
-(define CaseSplit-IDEMode-Idris-getReplaces (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-toStrUpdate arg-0 arg-1 eta-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))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))
-(define CaseSplit-IDEMode-Idris-getClause (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 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-3 1) p))) 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getFullName arg-0 e-9) 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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-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-12 (vector-ref sc7 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 e-13 e-12) ext-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-12 (vector-ref sc7 1))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-2 arg-3 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-15 (vector-ref sc8 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-2 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--10948-8902 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-13 e-14 _-0 e-11 e-12 e-2 _-1 (Unlit-Parser-isLitLine e-2)) ext-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
-(define CaseSplit-IDEMode-Idris-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-IDEMode-Idris-case--10795-8734 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (CaseSplit-IDEMode-Idris-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
-(define CaseSplit-IDEMode-Idris-doUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (CaseSplit-IDEMode-Idris-case--10099-8148 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--10099-8101-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--10099-8274 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-4 arg-2)))) ((2) (let ((e-5 (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-6 (vector-ref sc2 1))) (let ((act-25 (Utils-TTImp-uniqueName arg-1 e-6 e-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 (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (vector 1 e-7 e-6)))) (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 ((act-27 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) 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-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-7) e-9))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5))))))))))))))))))
-(define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4))))))))))))
-(define TokenLine-IDEMode-Idris-case--1808-360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 6 arg-4) (vector 0 )))))))
-(define TokenLine-IDEMode-Idris-case--1803-330 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) e-2) (TokenLine-IDEMode-Idris-case--1808-360 arg-0 e-2 e-6 e-10 e-11 (Prelude-C-61C-61_Eq__String e-11 ""))))))))))))))
-(define TokenLine-IDEMode-Idris-tokens (lambda (arg-0) (TokenLine-IDEMode-Idris-case--1803-330 arg-0 (Core-Lexer-Text-lex 'erased (TokenLine-IDEMode-Idris-srcTokens) arg-0))))
-(define TokenLine-IDEMode-Idris-toString (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "?" e-2))) ((3) "{") ((4) "}") ((5) "=") (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
-(define TokenLine-IDEMode-Idris-srcTokens (lambda () (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (vector 1 eta-0))) (vector 1 (vector 0 (TokenLine-IDEMode-Idris-holeIdent) (lambda (x) (vector 2 (substring x 1 (string-length x))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 0 eta-0))) (vector 1 (vector 0 (Lexer-Text-is #\{) (lambda (eta-0) (vector 3 ))) (vector 1 (vector 0 (Lexer-Text-is #\}) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Lexer-Text-is #\=) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 6 eta-0))) (vector 0 ))))))))))
-(define TokenLine-IDEMode-Idris-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
-(define Common-Compiler-case--10680-2531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Common-Compiler-case--10658-2514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-writeToFile arg-0 e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--10645-2492 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Binary-Utils-writeToFile arg-0 e-2 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
-(define Common-Compiler-case--10539-2401 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix))))))))
-(define Common-Compiler-case--10532-2380 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--10539-2401 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6))))))))))))))))
-(define Common-Compiler-case--10409-2306 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10409-2260-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
-(define Common-Compiler-case--10413-2272 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10409-2260-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
-(define Common-Compiler-case--10369-2232 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (File-System-closeFile e-2 eta-0))) 0)))) (else (lambda (eta-0) 1))))))
-(define Common-Compiler-case--9614-2060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9934-1928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF 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 (vector 0 e-2 e-5)))))))))))))
-(define Common-Compiler-case--9614-1863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-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 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9614-1739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Common-Compiler-case--9421-1577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) 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 ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1863 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 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 ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-2060 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) 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 ((act-28 (let ((act-28 (unbox arg-2))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " f) eta-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 (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f) eta-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 ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f) eta-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 ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " f) eta-1))) (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 ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-case--9426-1390 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Common-Compiler-case--9352-1346 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9283-1281 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9214-1216 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9068-1147 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
-(define Common-Compiler-case--9090-1092 (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9068-1047-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\xa;")))))))))))
-(define Common-Compiler-case--9073-1067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9090-1092 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
-(define Common-Compiler-case--8937-947 (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))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 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 (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))))))))))))))
-(define Common-Compiler-case--8921-925 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--8937-947 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
-(define Common-Compiler-case--8732-783 (lambda (arg-0 arg-1 arg-2 arg-3 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 (let ((act-24 ((IOArray-Data-writeArray 'erased arg-4 arg-0 (vector 0 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 ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-1 eta-2))) (NameMap-Data-keys 'erased 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))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
-(define Common-Compiler-case--8679-744 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 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 ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
-(define Common-Compiler-case--8653-698 (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) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) 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-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
-(define Common-Compiler-case--8631-677 (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 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (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 ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) 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-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--8732-783 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
-(define Common-Compiler-case--8270-365 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Common-Compiler-case--8271-351 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
-(define Common-Compiler-n--8265-400-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0)))))
-(define Common-Compiler-n--9421-1374-nonErased (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))) (let ((act-25 ((Context-Core-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))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0))))))))))))))))
-(define Common-Compiler-n--10409-2260-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10413-2272 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
-(define Common-Compiler-n--9352-1308-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9283-1243-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9214-1178-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
-(define Common-Compiler-n--9068-1047-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3))))))
-(define Common-Compiler-n--9352-1309-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9352-1308-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\xa;"))))))))
-(define Common-Compiler-n--9283-1244-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9283-1243-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\xa;"))))))))
-(define Common-Compiler-n--9214-1179-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9214-1178-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\xa;"))))))))
-(define Common-Compiler-n--9068-1048-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) ((Common-Compiler-case--9090-1092 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 Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8271-351 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1))))
-(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8270-365 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1))))
-(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8265-400-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8265-400-tag arg-1 arg-0 arg-1))))
-(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Common-Compiler-C-61C-61_Eq__UsePhase arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Common-Compiler-C-47C-61_Eq__UsePhase arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Common-Compiler-compare_Ord__UsePhase arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Common-Compiler-C-60_Ord__UsePhase arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Common-Compiler-C-62_Ord__UsePhase arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Common-Compiler-C-60C-61_Ord__UsePhase arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Common-Compiler-C-62C-61_Ord__UsePhase arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Common-Compiler-max_Ord__UsePhase arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Common-Compiler-min_Ord__UsePhase arg-979 arg-980))))))
-(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-648) (lambda (arg-649) (Common-Compiler-C-61C-61_Eq__UsePhase arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Common-Compiler-C-47C-61_Eq__UsePhase arg-650 arg-651))))))
+(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1 "" arg-2)))
+(define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
+(define Common-Compiler-case--11207-2656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Common-Compiler-case--11184-2638 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-writeToFile arg-0 e-2 eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--11171-2615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Binary-Utils-writeToFile arg-0 e-2 eta-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
+(define Common-Compiler-case--11065-2523 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix))))))))
+(define Common-Compiler-case--11058-2502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--11065-2523 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) #\. (Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Prelude-C-43C-43 "." e-6))))))))))))))))
+(define Common-Compiler-case--10933-2428 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
+(define Common-Compiler-case--10937-2393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--10933-2380-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
+(define Common-Compiler-case--10890-2350 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
+(define Common-Compiler-case--10112-2164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--10442-2031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF 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 (vector 0 e-2 e-5)))))))))))))
+(define Common-Compiler-case--10112-1964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-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 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--10112-1840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-case--9896-1668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) 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 ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) 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 ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 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 ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) 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 ((act-28 (let ((act-28 (unbox arg-2))) (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-29 (arg-3664 eta-2))) ((arg-3665 act-29) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " f)) eta-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 (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 8))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-30 (arg-3664 eta-2))) ((arg-3665 act-30) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-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 ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 9))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-31 (arg-3664 eta-2))) ((arg-3665 act-31) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-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 ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 10))) e-13))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-32 (arg-3664 eta-2))) ((arg-3665 act-32) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (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 ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 11))) e-13))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-case--9901-1460 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Common-Compiler-case--9823-1414 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9750-1345 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9677-1276 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9526-1203 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0))))))))
+(define Common-Compiler-case--9549-1144 (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Common-Compiler-n--9526-1098-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\xa;")))))))))))
+(define Common-Compiler-case--9531-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9549-1144 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
+(define Common-Compiler-case--9395-997 (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))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 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 (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))))))))))))))
+(define Common-Compiler-case--9377-975 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--9395-997 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19))))))))))
+(define Common-Compiler-case--9183-826 (lambda (arg-0 arg-1 arg-2 arg-3 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 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4 arg-0 (vector 0 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 ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-1 eta-2))) (NameMap-Data-keys 'erased 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))) ((Common-Compiler-getAllDesc arg-5 (List-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
+(define Common-Compiler-case--9129-786 (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))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 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 ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
+(define Common-Compiler-case--9102-739 (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) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) 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-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
+(define Common-Compiler-case--9077-717 (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 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (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 ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) 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-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (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 ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--9183-826 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
+(define Common-Compiler-case--8695-385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Common-Compiler-case--8696-371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
+(define Common-Compiler-n--8690-420-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0)))))
+(define Common-Compiler-n--9896-1442-nonErased (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))) (let ((act-25 ((Context-Core-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))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0))))))))))))))))
+(define Common-Compiler-n--10933-2380-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10937-2393 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
+(define Common-Compiler-n--9823-1372-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9750-1303-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9677-1234-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2))))))
+(define Common-Compiler-n--9526-1098-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))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3))))))
+(define Common-Compiler-n--9823-1373-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9823-1372-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\xa;"))))))))
+(define Common-Compiler-n--9750-1304-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9750-1303-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\xa;"))))))))
+(define Common-Compiler-n--9677-1235-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Compiler-n--9677-1234-fullShow arg-0 arg-1 e-2) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\xa;"))))))))
+(define Common-Compiler-n--9526-1099-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-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))) ((Common-Compiler-case--9549-1144 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 Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8696-371 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1))))
+(define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--8695-385 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1))))
+(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-compare_Ord__Int (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8690-420-tag arg-1 arg-0 arg-1))))
+(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Common-Compiler-compare_Ord__UsePhase arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Common-Compiler-C-60_Ord__UsePhase arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Common-Compiler-C-62_Ord__UsePhase arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Common-Compiler-C-60C-61_Ord__UsePhase arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Common-Compiler-C-62C-61_Ord__UsePhase arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Common-Compiler-max_Ord__UsePhase arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Common-Compiler-min_Ord__UsePhase arg-787 arg-788))))))
+(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-428) (lambda (arg-429) (Common-Compiler-C-61C-61_Eq__UsePhase arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Common-Compiler-C-47C-61_Eq__UsePhase arg-430 arg-431))))))
 (define Common-Compiler-C-62_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2)))
 (define Common-Compiler-C-62C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0)))
 (define Common-Compiler-C-61C-61_Eq__UsePhase (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 Common-Compiler-C-60_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0)))
 (define Common-Compiler-C-60C-61_Ord__UsePhase (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2)))
 (define Common-Compiler-C-47C-61_Eq__UsePhase (lambda (arg-0 arg-1) (Prelude-not (Common-Compiler-C-61C-61_Eq__UsePhase arg-0 arg-1))))
-(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0)) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
 (define Common-Compiler-replaceEntry (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-0 (vector 9 e-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 (vector 1 (vector 0 ))))))))))))))))
-(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10409-2306 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0)))))))
+(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10933-2428 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0)))))))
 (define Common-Compiler-natHackNames (lambda () (vector 1 (vector 1 "prim__add_Integer") (vector 1 (vector 1 "prim__sub_Integer") (vector 1 (vector 1 "prim__mul_Integer") (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "natToInteger")) (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "integerToNat")) (vector 0 ))))))))
 (define CompileData-Common-Compiler-namedDefs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define CompileData-Common-Compiler-mainExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--10532-2380 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 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 (vector 0 fname e-5)))))))))))
-(define Common-Compiler-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 ((Context-Core-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))) ((Common-Compiler-case--8937-947 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 Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__CDef arg-8240 arg-8242))) (lambda (arg-8243) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-8243 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))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8241) (lambda (arg-8243) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8244) (lambda (arg-8245) (TTC-Core-toBuf_TTC__Name arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8244) (lambda (arg-8245) (Binary-Utils-toBuf_TTC__Bool arg-8244 arg-8245))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8241 arg-8243))) (lambda (arg-8243) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-3)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-3))))) arg-8243 eta-2)))) arg-8240 arg-8242 eta-1)))) (lambda (arg-8243) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8241) (lambda (arg-8244) (TTC-Core-toBuf_TTC__Name arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-8244 eta-2)))) (vector 0 (lambda (arg-8241) (lambda (arg-8244) (Binary-Utils-toBuf_TTC__Bool arg-8241 arg-8244))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-8244 eta-2))))) arg-8240 arg-8242))) (lambda (arg-8244) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-8240) (lambda (arg-8242) (TTC-Core-toBuf_TTC__Name arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-8245 eta-3)))) (vector 0 (lambda (arg-8240) (lambda (arg-8242) (Binary-Utils-toBuf_TTC__Bool arg-8240 arg-8242))) (lambda (arg-8245) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-8245 eta-3))))) arg-8244 eta-2)))) arg-8243 eta-1)))) 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC 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 ((act-28 (TTC-Core-fromBuf_TTC__RigCount 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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 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 ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-getCompileData (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 (Context-Core-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 ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-11959 arg-11960)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-0 eta-1))) (Common-Compiler-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 (Context-Core-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 (IOArray-Data-newArray 'erased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 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 ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-11957) (lambda (arg-11958) (Context-Core-full_HasNames__Name arg-11957 arg-11958))) (lambda (arg-11959) (lambda (arg-11960) (Context-Core-resolved_HasNames__Name arg-11959 arg-11960)))) eta-0 eta-1))) 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9421-1374-nonErased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) 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 (CompileExpr-Compiler-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))) ((Inline-Compiler-fixArityExp (vector 0 ) 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 ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) 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 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-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 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1739 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-1863 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 (vector 0 e-2 e-3))) ((Common-Compiler-case--9614-2060 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " 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 (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " 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 ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " 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 ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " 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 ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((IOArray-Data-readArray 'erased 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 ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry 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) ((Common-Compiler-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 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-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 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 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 ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--8732-783 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-241) (lambda (arg-242) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-241 arg-242))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3)))))))))))
-(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (File-System-closeFile e-2 ext-0))) 0))) (else 1))))))
+(define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--11058-2502 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 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 (vector 0 fname e-5)))))))))))
+(define Common-Compiler-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 ((Context-Core-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))) ((Common-Compiler-case--9395-997 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 Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) 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 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__CDef arg-2103 arg-2105))) (lambda (arg-2106) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2106 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))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2104) (lambda (arg-2106) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2107) (lambda (arg-2108) (TTC-Core-toBuf_TTC__Name arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2107) (lambda (arg-2108) (Binary-Utils-toBuf_TTC__Bool arg-2107 arg-2108))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2104 arg-2106))) (lambda (arg-2106) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-3)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-3))))) arg-2106 eta-2)))) arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2104) (lambda (arg-2107) (TTC-Core-toBuf_TTC__Name arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2107 eta-2)))) (vector 0 (lambda (arg-2104) (lambda (arg-2107) (Binary-Utils-toBuf_TTC__Bool arg-2104 arg-2107))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2107 eta-2))))) arg-2103 arg-2105))) (lambda (arg-2107) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2103) (lambda (arg-2105) (TTC-Core-toBuf_TTC__Name arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2108 eta-3)))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (Binary-Utils-toBuf_TTC__Bool arg-2103 arg-2105))) (lambda (arg-2108) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2108 eta-3))))) arg-2107 eta-2)))) arg-2106 eta-1)))) 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 ((refsR (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC 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 ((act-28 (TTC-Core-fromBuf_TTC__RigCount 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 (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 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 ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-getCompileData (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 (Context-Core-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 ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5888 arg-5889)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) (Common-Compiler-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 (Context-Core-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 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 9 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) eta-0 eta-1))) 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 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9896-1442-nonErased 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 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) 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 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) 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 (CompileExpr-Compiler-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))) ((Inline-Compiler-fixArityExp (vector 0 ) 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 ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) 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 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-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 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1840 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Prelude-C-43C-43 'erased e-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-1964 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 (vector 0 e-2 e-3))) ((Common-Compiler-case--10112-2164 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-44 (arg-3664 eta-1))) ((arg-3665 act-44) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping case trees to " 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 (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 8))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-45 (arg-3664 eta-1))) ((arg-3665 act-45) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " 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 ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 9))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-46 (arg-3664 eta-1))) ((arg-3665 act-46) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping ANF defs to " 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 ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 10))) e-28))) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-47 (arg-3664 eta-1))) ((arg-3665 act-47) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Dumping VM defs to " 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 ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 11))) e-28))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) 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 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((n (vector 9 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry 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) ((Common-Compiler-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 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-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 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 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 ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--9183-826 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3)))))))))))
+(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) 0))) (else 1))))))
 (define Codegen-Common-Compiler-executeExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-makeExecDirectory 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 (Context-Core-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 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) ((((e-1 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) 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 Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so")))
-(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9352-1309-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9214-1179-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9068-1048-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 (File-System-writeFile arg-1 (Strings-Data-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0)))))))))))))))))
-(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9283-1244-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
-(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--10645-2492 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3)))))))
+(define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-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 ((tmpDir (Options-Core-execBuildDir e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists 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 (vector-ref sc2 2))) ((((e-1 arg-0) 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 Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so")))
+(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9823-1373-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9677-1235-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9526-1099-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 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Strings-Data-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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0)))))))))))))))))
+(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9750-1304-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Strings-Data-fastAppend 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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))
+(define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--11171-2615 e-2 e-3 (Prelude-C-61C-61_Eq__String e-2 e-3)))))))
 (define Codegen-Common-Compiler-compileExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Directory-Core-makeExecDirectory 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 (Context-Core-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))) (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) ((((e-0 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) arg-2) arg-3))) ext-0))))))))))))
-(define VMCode-Compiler-case--6380-4356 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))))
-(define VMCode-Compiler-case--6307-4296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6304-4281-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6304-4281-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
-(define VMCode-Compiler-case--5585-3707 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
-(define VMCode-Compiler-n--5905-4037-toVMConstAlt (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))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1)))))))
-(define VMCode-Compiler-n--5905-3973-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-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3)))))))))))))
-(define VMCode-Compiler-n--5905-3972-projectArgs (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--5905-3972-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3)))))))))
-(define VMCode-Compiler-n--6109-4167-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
-(define VMCode-Compiler-n--6109-4218-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
-(define VMCode-Compiler-n--6304-4281-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6307-4296 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) e-2 arg-2)))))))))
-(define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36))))))))
+(define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 ((tmpDir (Options-Core-execBuildDir e-5))) (let ((outputDir (Options-Core-outputDirWithDefault e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists 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 (Directory-Core-ensureDirectoryExists 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 (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) (((((e-0 arg-0) tmpDir) outputDir) arg-2) arg-3))) ext-0))))))))))))))))))
+(define VMCode-Compiler-case--6597-4522 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))))
+(define VMCode-Compiler-case--6524-4460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6521-4445-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
+(define VMCode-Compiler-case--5772-3847 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
+(define VMCode-Compiler-n--6101-4201-toVMConstAlt (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))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1)))))))
+(define VMCode-Compiler-n--6101-4137-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-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3)))))))))))))
+(define VMCode-Compiler-n--6101-4136-projectArgs (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6101-4136-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3)))))))))
+(define VMCode-Compiler-n--6326-4331-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
+(define VMCode-Compiler-n--6326-4382-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
+(define VMCode-Compiler-n--6521-4445-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--6524-4460 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) e-2 arg-2)))))))))
+(define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d 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))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36))))))))
 (define VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-2))))))))
 (define VMCode-Compiler-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))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "DISCARD")))))
 (define VMCode-Compiler-showPrec_Show__VMInst (lambda (arg-0 arg-1) (VMCode-Compiler-show_Show__VMInst arg-1)))
 (define VMCode-Compiler-__Impl_Show_VMInst (lambda () (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x))))))
 (define VMCode-Compiler-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 (VMCode-Compiler-declareVars e-0 (VMCode-Compiler-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (VMCode-Compiler-declareVars (vector 0 ) (VMCode-Compiler-toVM 0 (vector 0 ) e-2))))))(else (vector 0 ))))))
-(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(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-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 1 (vector 3 arg-1 e-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 ))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (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 ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-41 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-41) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--5905-3973-toVMConAlt e-41 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (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 ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--5905-4037-toVMConstAlt e-42 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))))
+(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(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-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (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) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (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 ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4137-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (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 ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6101-4201-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))))
 (define VMCode-Compiler-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 VMCode-Compiler-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))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6109-4167-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6109-4218-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3462 arg-3463))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6304-4281-declareAll arg-1 arg-0 arg-0 vs))))
+(define VMCode-Compiler-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))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((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))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4331-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6326-4382-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Prelude-map_Functor__Maybe 'erased 'erased (Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars 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))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6521-4445-declareAll arg-1 arg-0 arg-0 vs))))
 (define VMCode-Compiler-allDefs (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))) ext-0)))
-(define ANF-Compiler-case--6808-1538 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) 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 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5)))))))))))))
-(define ANF-Compiler-case--6702-1505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6702-1414-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-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))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7))))))))))))))))))))))
-(define ANF-Compiler-case--6707-1451 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3)))))))))
-(define ANF-Compiler-case--6237-1375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) 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 arg-4 arg-3 e-2 e-5)))))))))))))
-(define ANF-Compiler-case--6558-1328 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3)))))))))
-(define ANF-Compiler-case--6234-1167 (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) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2)))))))
-(define ANF-Compiler-case--6234-1078 (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))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)"))))))
-(define ANF-Compiler-n--5863-667-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4))))
-(define ANF-Compiler-n--6126-904-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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 (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6126-904-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
-(define ANF-Compiler-n--6702-1414-bindArgs (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) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 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 ((act-25 ((ANF-Compiler-n--6702-1414-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
-(define ANF-Compiler-n--6237-1297-bindArgs (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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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))) (let ((act-25 ((ANF-Compiler-n--6237-1297-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
+(define ANF-Compiler-case--7047-1594 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) 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 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5)))))))))))))
+(define ANF-Compiler-case--6937-1560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-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))) (vector 1 (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7))))))))))))))))))))))
+(define ANF-Compiler-case--6942-1504 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3)))))))))
+(define ANF-Compiler-case--6452-1423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) 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 arg-4 arg-3 e-2 e-5)))))))))))))
+(define ANF-Compiler-case--6788-1375 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3)))))))))
+(define ANF-Compiler-case--6449-1203 (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) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2)))))))
+(define ANF-Compiler-case--6449-1109 (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))) (let ((e-2 (vector-ref sc0 2))) (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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)"))))))
+(define ANF-Compiler-n--6063-683-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int arg-4))))
+(define ANF-Compiler-n--6338-930-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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 (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6338-930-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
+(define ANF-Compiler-n--6937-1464-bindArgs (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) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 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 ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
+(define ANF-Compiler-n--6452-1341-bindArgs (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) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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))) (let ((act-25 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4)))))))))))))))))))))))
 (define ANF-Compiler-show_Show__AVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "[__]")))))
 (define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (ANF-Compiler-show_Show__ANF e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Prelude-C-43C-43 " arity " (Prelude-show_Show__Nat e-3))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-4) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-5) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-6)))))))))) (else (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (ANF-Compiler-show_Show__ANF e-7))))))))
 (define ANF-Compiler-show_Show__ANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ANF-Compiler-show_Show__AVar e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-4)) ")")))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " underapp " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-7) (Strings-Prelude-C-43C-43 ">(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-8)) ")")))))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-10) (Strings-Prelude-C-43C-43 " @ (" (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-11) ")")))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%let v" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANF e-14) (Strings-Prelude-C-43C-43 " in " (ANF-Compiler-show_Show__ANF e-15)))))))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%con " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-19)) ")"))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%op " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-22) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-23))) ")"))))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%extprim " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-25) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-26)) ")"))))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-28) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)) e-29)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-30)))))))))) ((9) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-32) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)) e-33)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-34)))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-36))) ((11) "___") (else (let ((e-39 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%CRASH(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-39) ")"))))))))
 (define ANF-Compiler-show_Show__AConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-0) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-1)))))))))
-(define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--5863-667-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3)))))))))))))
+(define ANF-Compiler-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))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6063-683-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3)))))))))))))
 (define ANF-Compiler-showPrec_Show__ANF (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__ANF arg-1)))
 (define ANF-Compiler-showPrec_Show__AConstAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)))
 (define ANF-Compiler-showPrec_Show__AConAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)))
@@ -7145,29 +6530,29 @@
 (define ANF-Compiler-__Impl_Show_AConstAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConstAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConstAlt d x))))))
 (define ANF-Compiler-__Impl_Show_AConAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConAlt d x))))))
 (define ANF-Compiler-toVect (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 )))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (ANF-Compiler-toVect 'erased e-0 e-4) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-3 xsC-39)))))))(else (vector 0 ))))))))))
-(define ANF-Compiler-toANF (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((act-25 ((ANF-Compiler-n--6702-1414-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 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 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6702-1414-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) 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 ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-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 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 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))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) 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-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))))))))))))))
+(define ANF-Compiler-toANF (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((act-25 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 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 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--6937-1464-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) 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 ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-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 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 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))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 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 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) 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-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))))))))))))))
 (define ANF-Compiler-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 (b+ 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 ANF-Compiler-mlet (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))) (lambda (eta-0) (vector 1 (arg-3 e-1)))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar 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 (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5)))))))))))))))
 (define ANF-Compiler-lookup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-8 (vector-ref sc0 2))) (ANF-Compiler-lookup 'erased 'erased e-0 'erased e-8)))))))))
-(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-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 (ANF-Compiler-n--6126-904-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5)))))))))
+(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-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 (ANF-Compiler-n--6338-930-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5)))))))))
 (define ANF-Compiler-bindArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) 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 ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 )) e-6)))))))))) ((11) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 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))) (vector 1 (vector 1 (vector 0 (vector 1 ) (vector 0 )) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 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 ((act-25 ((ANF-Compiler-bindArgs arg-0 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))) (vector 1 (vector 1 (vector 0 (vector 0 e-5) (vector 1 e-2)) e-6)))))))))))))))))))))))
 (define ANF-Compiler-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6237-1297-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-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 (vector 0 e-1 e-2 e-7 e-8)))))))))))))))))))))))
+(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6452-1341-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-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 (vector 0 e-1 e-2 e-7 e-8)))))))))))))))))))))))
 (define ANF-Compiler-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ANF-Compiler-anf arg-0 arg-1 arg-3 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))) (ANF-Compiler-letBind arg-1 arg-2 e-5 arg-5 ext-0))))))))
-(define ANF-Compiler-anf (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))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((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 (ANF-Compiler-nextVar 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 ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 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-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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) 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))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--6234-1167 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((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) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (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 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) 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))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) 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))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54))))))))))
-(define LambdaLift-Compiler-case--6581-1549 (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))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LambdaLift-Compiler-case--6565-1537 (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 ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6581-1549 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define LambdaLift-Compiler-case--6469-1504 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3))))))))
-(define LambdaLift-Compiler-case--6469-1451 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3))))))))
-(define LambdaLift-Compiler-case--5952-1060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2)))))))
-(define LambdaLift-Compiler-case--5979-999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3)))
-(define LambdaLift-Compiler-case--5881-915 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63)))))))
-(define LambdaLift-Compiler-n--5956-1207-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-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))) (let ((act-25 ((LambdaLift-Compiler-n--5956-1207-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
-(define LambdaLift-Compiler-n--5881-878-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 (LambdaLift-Compiler-n--5881-878-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))) (LambdaLift-Compiler-n--5881-878-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
-(define LambdaLift-Compiler-n--5956-1343-liftConstAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
-(define LambdaLift-Compiler-n--5956-1298-liftConAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
-(define LambdaLift-Compiler-n--5952-962-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--5952-961-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
-(define LambdaLift-Compiler-n--5952-961-allPrfs (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--5952-961-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))
+(define ANF-Compiler-anf (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))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((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 (ANF-Compiler-nextVar 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 ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 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-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))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) 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))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--6449-1203 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((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) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (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 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) 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))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) 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))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54))))))))))
+(define LambdaLift-Compiler-case--6797-1604 (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))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LambdaLift-Compiler-case--6779-1592 (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 ((_-0 (vector 1 e-1))) (LambdaLift-Compiler-case--6797-1604 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define LambdaLift-Compiler-case--6681-1556 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3))))))))
+(define LambdaLift-Compiler-case--6681-1502 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3))))))))
+(define LambdaLift-Compiler-case--6143-1089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2)))))))
+(define LambdaLift-Compiler-case--6170-1023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3)))
+(define LambdaLift-Compiler-case--6070-939 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63)))))))
+(define LambdaLift-Compiler-n--6147-1243-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-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))) (let ((act-25 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define LambdaLift-Compiler-n--6070-900-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 (LambdaLift-Compiler-n--6070-900-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))) (LambdaLift-Compiler-n--6070-900-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
+(define LambdaLift-Compiler-n--6147-1386-liftConstAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
+(define LambdaLift-Compiler-n--6147-1338-liftConAlt (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
+(define LambdaLift-Compiler-n--6143-986-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
+(define LambdaLift-Compiler-n--6143-985-allPrfs (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6143-985-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))
 (define LambdaLift-Compiler-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))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-0) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (List-Data-reverse 'erased e-1)) (Strings-Prelude-C-43C-43 ": " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased 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))) (Strings-Prelude-C-43C-43 "Constructor tag " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-3) (Strings-Prelude-C-43C-43 " arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-4) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat 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))) (Strings-Prelude-C-43C-43 "Foreign call " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-7) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-8)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (vector 0 ) e-9))))))))
 (define LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%constalt(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-1) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-2)))))))))
 (define LambdaLift-Compiler-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-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%conalt " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)) (Strings-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) e-4))))))))))))
@@ -7180,90 +6565,789 @@
 (define LambdaLift-Compiler-__Impl_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedC-32C-36vsC-41 arg-0 d x))))))
 (define LambdaLift-Compiler-unload (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LambdaLift-Compiler-unload 'erased arg-1 (vector 3 arg-1 arg-2 e-2) e-3))))))))
 (define LDefs-LambdaLift-Compiler-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 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 (LambdaLift-Compiler-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 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) 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-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--5952-962-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1))))))))))))))))))))))))))))
-(define LambdaLift-Compiler-liftExp (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))) (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 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) 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 ((LambdaLift-Compiler-liftExp arg-0 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 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) 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-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))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) 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 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 5 e-23 e-24 e-25 e-5))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--5956-1207-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased 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 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--5956-1298-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) 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-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--5956-1343-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59))))))))))
+(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 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 (LambdaLift-Compiler-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 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) 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-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--6143-986-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1))))))))))))))))))))))))))))
+(define LambdaLift-Compiler-liftExp (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))) (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 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) 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 ((LambdaLift-Compiler-liftExp arg-0 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 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) 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-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))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) 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 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 5 e-23 e-24 e-25 e-5))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6147-1243-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased 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 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-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 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1338-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) 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-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6147-1386-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59))))))))))
 (define LambdaLift-Compiler-liftBody (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-1 (vector 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 ((act-25 ((LambdaLift-Compiler-liftExp 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 ((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 (vector 0 e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)))))))))))))))))))))
 (define LambdaLift-Compiler-lambdaLiftDef (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 (LambdaLift-Compiler-liftBody e-0 arg-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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 0 e-0 (vector 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))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 1 e-2 e-3 e-4)) (vector 0 )))))))) ((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) (vector 1 (vector 1 (vector 0 arg-0 (vector 2 e-5 e-6 e-7)) (vector 0 )))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody (vector 0 ) arg-0 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 ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 3 e-2)) e-3)))))))))))))))))
-(define LambdaLift-Compiler-lambdaLift (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 ((Context-Core-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))) ((LambdaLift-Compiler-case--6581-1549 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 LambdaLift-Compiler-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 ((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 (b+ 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 (LambdaLift-Compiler-n--5881-878-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i))))))))))))))
+(define LambdaLift-Compiler-lambdaLift (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 ((Context-Core-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))) ((LambdaLift-Compiler-case--6797-1604 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 LambdaLift-Compiler-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 ((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 (b+ 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 (LambdaLift-Compiler-n--6070-900-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i))))))))))))))
 (define LDefs-LambdaLift-Compiler-defs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define LDefs-LambdaLift-Compiler-basename (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define Gambit-Scheme-Compiler-case--10307-2517 (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 e-1 eta-1))) (vector 1 act-24))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Gambit-Scheme-Compiler-case--10202-2457 (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) (vector 1 (vector 1 (Path-Utils-C-60C-47C-62 arg-2 arg-0))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Gambit-Scheme-Compiler-case--10000-2326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Gambit-Scheme-Compiler-case--9812-2104 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-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 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-11) (Strings-Prelude-C-43C-43 arg-12 (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-9)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\xa;"))))))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-case--9678-1969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--9678-1926-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-c-struct " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")\xa;")))))))))))))))))))))
-(define Gambit-Scheme-Compiler-case--9434-1715 (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) (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 0 e-7 ""))))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9434-1707-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-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-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 1 e-15) e-7))))))))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9434-1707-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 1 e-15) e-7)))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Gambit-Scheme-Compiler-case--9389-1667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Gambit-Scheme-Compiler-case--8787-1538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet arg-9 arg-18) arg-15))(else (vector 0 arg-18 arg-15))))))
-(define Gambit-Scheme-Compiler-case--8805-1395 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (vector 1 (vector 0 arg-11 arg-12 e-2 e-6 e-7)))))))))))))
-(define Gambit-Scheme-Compiler-case--8801-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) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 " " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (i) (Strings-Prelude-C-43C-43 "farg-" (Prelude-show_Show__Integer i))) (Prelude-rangeFromTo_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-3030) (lambda (arg-3031) (Prelude-div_Integral__Integer arg-3030 arg-3031))) (lambda (arg-3032) (lambda (arg-3033) (Prelude-mod_Integral__Integer arg-3032 arg-3033)))) (vector 0 (vector 0 (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Integer arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Integer arg-650 arg-651)))) (lambda (arg-967) (lambda (arg-968) (Prelude-compare_Ord__Integer arg-967 arg-968))) (lambda (arg-969) (lambda (arg-970) (Prelude-C-60_Ord__Integer arg-969 arg-970))) (lambda (arg-971) (lambda (arg-972) (Prelude-C-62_Ord__Integer arg-971 arg-972))) (lambda (arg-973) (lambda (arg-974) (Prelude-C-60C-61_Ord__Integer arg-973 arg-974))) (lambda (arg-975) (lambda (arg-976) (Prelude-C-62C-61_Ord__Integer arg-975 arg-976))) (lambda (arg-977) (lambda (arg-978) (Prelude-max_Ord__Integer arg-977 arg-978))) (lambda (arg-979) (lambda (arg-980) (Prelude-min_Ord__Integer arg-979 arg-980)))) (vector 0 (vector 0 (lambda (arg-2849) (lambda (arg-2850) (+ arg-2849 arg-2850))) (lambda (arg-2851) (lambda (arg-2852) (* arg-2851 arg-2852))) (lambda (arg-2853) arg-2853)) (lambda (arg-2903) (Prelude-negate_Neg__Integer arg-2903)) (lambda (arg-2904) (lambda (arg-2905) (Prelude-C-45_Neg__Integer arg-2904 arg-2905)))))) 0 (Prelude-C-45_Neg__Integer (List-Data-length 'erased arg-9) 1)))))) (else "")))))
-(define Gambit-Scheme-Compiler-case--7930-285 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Gambit-Scheme-Compiler-n--9678-1926-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1101-replaceChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (Prelude-pack (List-Data-replaceOn 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Char arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Char arg-650 arg-651)))) arg-8 arg-9 (Prelude-unpack ext-0)))))
-(define Gambit-Scheme-Compiler-n--8787-1099-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1104-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Gambit-Scheme-Compiler-n--8787-1099-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
-(define Gambit-Scheme-Compiler-n--8554-924-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8554-924-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8554-924-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 "(function (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8481-849-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8481-849-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8481-849-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cType arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cType arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (*)(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-6) ")"))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--9434-1707-fnWrapName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 arg-7 "-cFunWrap")))))
-(define Gambit-Scheme-Compiler-n--8787-1105-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8787-1105-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) args)) 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 ((Gambit-Scheme-Compiler-cftySpec arg-5 arg-10) 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 0 (Gambit-Scheme-Compiler-n--8787-1104-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (vector 0 e-5 e-6))))))))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1102-buildCWrapperDefs (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-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 ((box (Strings-Prelude-C-43C-43 e-1 "-box"))) (let ((setBox (Strings-Prelude-C-43C-43 "\xa; (set-box! " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 ")")))))) (let ((cWrapName (Gambit-Scheme-Compiler-n--8787-1101-replaceChar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 #\- #\_ e-1))) (let ((boxDef (Strings-Prelude-C-43C-43 "\xa;(define " (Strings-Prelude-C-43C-43 box " (box #f))\xa;")))) (let ((args (Gambit-Scheme-Compiler-case--8801-1191 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 e-3 e-2 e-1 e-0 box setBox cWrapName boxDef (Prelude-C-62_Ord__Nat (List-Data-length 'erased e-3) 0)))) (let ((cWrapDef (Strings-Prelude-C-43C-43 "\xa;(c-define " (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-3) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-4 (Strings-Prelude-C-43C-43 " \"" (Strings-Prelude-C-43C-43 cWrapName (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 " \"\"" (Strings-Prelude-C-43C-43 "\xa; ((unbox " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" "\xa;)\xa;"))))))))))))))))))))) (vector 0 setBox boxDef cWrapDef)))))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1103-buildCFunWrapDeclaration (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Strings-Prelude-C-43C-43 "\xa;(c-declare #<<c-declare-end\xa;" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " arg-10) (Strings-Prelude-C-43C-43 ");" "\xa;c-declare-end\xa;)\xa;")))))))))
-(define Gambit-Scheme-Compiler-n--8787-1106-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((arg (Common-Scheme-Compiler-schName e-2))) (let ((schemeWrap (arg-3 arg))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-n--8787-1105-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg (vector 1 e-4 (vector 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 schemeWrap (vector 1 (vector 0 arg schemeWrap e-8 e-10 e-9)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (Common-Scheme-Compiler-schName e-2) (vector 0 ))))))))))))
-(define Gambit-Scheme-Compiler-n--8787-1100-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Gambit-Scheme-Compiler-n--8787-1100-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
+(define Inline-Compiler-case--10175-3980 (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))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1)))))))
+(define Inline-Compiler-case--10107-3918 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10089-3906 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10107-3918 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10024-3845 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--10006-3833 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--10024-3845 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9941-3772 (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-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))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9923-3760 (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 ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9941-3772 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--9893-3726 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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))))))))
+(define Inline-Compiler-case--9730-3581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Prelude-C-43C-43 'erased arg-1 (List-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs))))))))))))
+(define Inline-Compiler-case--9161-3039 (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 ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
+(define Inline-Compiler-case--9135-3021 (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))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--9161-3039 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1)))))))))
+(define Inline-Compiler-case--7196-2915 (lambda (arg-0 arg-1 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) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Inline-Compiler-eval arg-4 arg-3 arg-0 arg-12 arg-11 arg-10 arg-9 arg-5) eta-0))) (else (Inline-Compiler-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 Inline-Compiler-case--8773-2726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((envC-39 (Inline-Compiler-extend 'erased 'erased arg-13 arg-1 arg-5 e-2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-5 arg-6) arg-0 arg-16 arg-15 arg-14 envC-39 arg-12 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))) (vector 1 (vector 1 e-5)))))))))))))))
+(define Inline-Compiler-case--7189-2685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Inline-Compiler-case--8773-2726 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-1 arg-5))) (else (Inline-Compiler-pickAlt arg-6 arg-0 arg-16 arg-15 arg-14 arg-13 arg-12 (vector 5 arg-4 arg-3 arg-2 arg-1) arg-10 arg-11))))))
+(define Inline-Compiler-case--7177-2555 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-2) arg-1 arg-11 arg-10 arg-8 e-3 arg-6 arg-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 (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5))))))))))))))
+(define Inline-Compiler-case--7172-2510 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3)))))))))
+(define Inline-Compiler-case--7166-2360 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 (vector 11 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Inline-Compiler-case--7166-2249 (lambda (arg-0 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-10 arg-9 arg-8 arg-7 arg-6 eta-1)) 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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-10 arg-9 arg-5 arg-8 arg-7 arg-6 eta-1)) 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 (vector 10 arg-5 arg-11 e-6 e-5)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Inline-Compiler-case--7166-2148 (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) ((9) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-eval (vector 0 ) arg-1 arg-8 arg-7 arg-6 (vector 0 ) arg-4 e-2)))(else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9)))))))))
+(define Inline-Compiler-case--7166-1912 (lambda (arg-0 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 (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 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))) ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 e-5 arg-7) arg-6 arg-3) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 arg-0 arg-2) arg-1 arg-10 arg-9 arg-8 (vector 1 (vector 1 arg-5 e-5) arg-7) arg-6 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))) (let ((act-26 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) 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))) (vector 1 (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6))))))))))))))))))))))))
+(define Inline-Compiler-case--7605-1662 (lambda (arg-0 arg-1 arg-2 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 ((Inline-Compiler-tryApply arg-0 arg-1 arg-8 arg-7 (vector 1 arg-2 arg-6) arg-4 arg-5 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))) (vector 1 (Prelude-maybe 'erased 'erased (lambda () (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) (lambda () (lambda (eta-1) eta-1)) e-5))))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7568-1623 (lambda (arg-0 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 ((arity (Inline-Compiler-getArity e-1))) (Inline-Compiler-case--7605-1662 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 arity (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Context-Core-C-61C-61_Eq__DefFlag arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Context-Core-C-47C-61_Eq__DefFlag arg-430 arg-431)))) (vector 0 ) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11))) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7166-1597 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--7568-1623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2)))))))))
+(define Inline-Compiler-case--7161-1395 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased arg-0 arg-3) arg-2 arg-8 arg-7 arg-6 e-5 e-6 (CompileExpr-Core-embed 'erased 'erased arg-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-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-7))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-case--7154-1307 (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-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (Inline-Compiler-eval arg-2 arg-0 arg-10 arg-9 arg-7 arg-3 arg-6 (CompileExpr-Core-weakenNs_Weaken__CExp arg-0 arg-2 arg-4)))))))
+(define Inline-Compiler-case--6656-1163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Inline-Compiler-used 'erased (List-Prelude-C-43C-43 'erased arg-5 arg-1) arg-8 'erased arg-6)))
+(define Inline-Compiler-case--6653-845 (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) 1000) (else arg-8)))))
+(define Inline-Compiler-case--6653-752 (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) 1) (else 0)))))
+(define Inline-Compiler-case--6591-699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3))))))
+(define Inline-Compiler-case--6456-585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3)))))))
+(define Inline-Compiler-n--9135-3206-traverseArgs (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-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 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 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
+(define Inline-Compiler-n--10172-3962-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 ((Context-Core-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 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1))))))))))))))))
+(define Inline-Compiler-n--7189-2648-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) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1)))))
+(define Inline-Compiler-n--9135-3377-fixArityConstAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (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))) (vector 1 (vector 0 e-1 e-5)))))))))))))
+(define Inline-Compiler-n--9135-3320-fixArityAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) 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 (vector 0 e-1 e-2 e-3 e-5)))))))))))))))
+(define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2)))))
+(define Inline-Compiler-usedCon (lambda (arg-0 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))) (Inline-Compiler-case--6656-1163 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2)))))))))
+(define Inline-Compiler-used (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))) (Inline-Compiler-case--6653-752 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased 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 ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--6653-845 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) (Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0)))))
+(define Inline-Compiler-unloadApp (lambda (arg-0 arg-1 arg-2 arg-3) (Inline-Compiler-unload 'erased (List-Data-drop 'erased arg-1 arg-2) (vector 4 (CompileExpr-Core-getFC 'erased arg-3) arg-3 (List-Data-take 'erased arg-1 arg-2)))))
+(define Inline-Compiler-unload (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-unload 'erased e-3 (vector 4 (CompileExpr-Core-getFC 'erased arg-2) arg-2 (vector 1 e-2 (vector 0 )))))))))))
+(define Inline-Compiler-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))) (Inline-Compiler-case--7161-1395 e-0 e-1 arg-1 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-takeFromStack 'erased 'erased arg-6 arg-5 e-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))
+(define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3)))
+(define Inline-Compiler-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)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--7196-2915 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 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-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 ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (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))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--7189-2685 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7189-2648-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3)))))))))
+(define Inline-Compiler-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))) (Inline-Compiler-case--9730-3581 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1))))))
+(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--10107-3918 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 Inline-Compiler-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))) (Inline-Compiler-case--9893-3726 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--6591-699 'erased 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9941-3772 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 Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 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 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9)))))))))))))))
+(define Inline-Compiler-getLams (lambda (arg-0 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))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4)))))))
+(define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Data-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Data-length 'erased e-6))) (else 0)))))
+(define Inline-Compiler-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 (b+ 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 Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--9161-3039 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 (Inline-Compiler-unload 'erased 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 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 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-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 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 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 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))) (vector 1 (CompileExpr-Compiler-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 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Prelude-C-43C-43 'erased 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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9135-3206-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) 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 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) 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 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((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 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3320-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) 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))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9135-3377-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) 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 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))
+(define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 ))))
+(define Inline-Compiler-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 ((Context-Core-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))) ((Inline-Compiler-case--10024-3845 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 Inline-Compiler-fixArity (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 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 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))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (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))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Inline-Compiler-extendLoc (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 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" 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 ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 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))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4))))))))))))))))))))))))
+(define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16)))))))))))))
+(define Inline-Compiler-evalLocal (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-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 e-7)))(else (Inline-Compiler-eval e-3 arg-2 arg-3 arg-4 arg-6 e-8 arg-7 (CompileExpr-Core-weakenNs_Weaken__CExp arg-2 e-3 e-7))))))(else (let ((e-9 (- arg-9 1))) (Inline-Compiler-evalLocal 'erased e-3 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-8 e-9 'erased))))))))))))))
+(define Inline-Compiler-evalConstAlt (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0)))))))
+(define Inline-Compiler-evalAlt (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 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)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-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 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8))))))))))))))))))))))))
+(define Inline-Compiler-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-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (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 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) 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))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (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 ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (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 ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (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-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (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-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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 ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-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-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (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 ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (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 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-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-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (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 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (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 ((Context-Core-lookupCtxtExact e-62 (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-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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-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-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (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))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" 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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (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 ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-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))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) 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 ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-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))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (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 ((Context-Core-lookupCtxtExact e-62 (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 ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--7568-1623 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (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))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) 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-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(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 (Inline-Compiler-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 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) 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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased 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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) 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 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) 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-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) 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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) 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 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-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-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (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 ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-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 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--7166-1912 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (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 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) 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))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) 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 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 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))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) 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 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (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 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 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))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) 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 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))))
+(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 ": " (CompileExpr-Core-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 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) 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 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-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 Inline-Compiler-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 ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--10172-3962-nonErased arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) 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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))))))))))))))))))))))))))))))))))))))
+(define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.CompileExpr.CExp" arg-0))))
+(define Commands-IDEMode-Idris-case--3173-3016 (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))) (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) e-0))))(else (vector 0 (vector 1 ((Builtin-fst 'erased 'erased arg-2) arg-3) (vector 1 arg-5 (vector 0 )))))))))
+(define Commands-IDEMode-Idris-case--2106-2284 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "overview") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc2 "full") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-case--2106-2181 (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 6 arg-0 arg-1 e-1 (Commands-IDEMode-Idris-n--2106-2172-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-case--2106-2132 (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 6 arg-0 arg-1 e-1 1))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-n--2106-2172-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Prelude-C-61C-61_Eq__String arg-4 "all")))
+(define Commands-IDEMode-Idris-n--3000-2817-escapeChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ (vector 0 )))) ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" (vector 0 ))))(else (vector 1 arg-0 (vector 0 )))))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__String (lambda (ext-0) (vector 1 ext-0)))
+(define Commands-IDEMode-Idris-toSExp_SExpable__SExp (lambda (ext-0) ext-0))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Nat (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Nat_Integer ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Name (lambda (ext-0) (vector 4 (Name-Core-show_Show__Name ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Integer (lambda (ext-0) (vector 3 ext-0)))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Int (lambda (ext-0) (vector 3 (Prelude-cast_Cast__Int_Integer ext-0))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__Bool (lambda (ext-0) (vector 2 ext-0)))
+(define Commands-IDEMode-Idris-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-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Commands-IDEMode-Idris-case--3173-3016 'erased 'erased arg-2 e-2 e-3 ((Builtin-snd 'erased 'erased arg-2) e-3)))))))
+(define Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (arg-1 arg-3)) arg-2))))
+(define Commands-IDEMode-Idris-show_Show__SExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)) e-0)) ")")))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-escape e-1) "\"")))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 ":" e-4)))))))
+(define Commands-IDEMode-Idris-showPrec_Show__SExp (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-show_Show__SExp arg-1)))
+(define Commands-IDEMode-Idris-__Impl_Show_SExp (lambda () (vector 0 (lambda (x) (Commands-IDEMode-Idris-show_Show__SExp x)) (lambda (d) (lambda (x) (Commands-IDEMode-Idris-showPrec_Show__SExp d x))))))
+(define Commands-IDEMode-Idris-__Impl_SExpable_SExp (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp ext-0)))
+(define Commands-IDEMode-Idris-__Impl_SExpable_Int (lambda (ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__Int ext-0)))
+(define Commands-IDEMode-Idris-__Impl_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-0 arg-1 arg-2 ext-0) (Commands-IDEMode-Idris-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 'erased 'erased arg-2 ext-0)))
+(define Commands-IDEMode-Idris-__Impl_SExpable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased arg-1 ext-0)))
+(define Commands-IDEMode-Idris-version (lambda (arg-0 arg-1) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-2897) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2897)) (lambda (arg-2897) (Commands-IDEMode-Idris-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 'erased 'erased (vector 0 (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898)) (lambda (arg-2898) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2898))) arg-2897))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1)))))
+(define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0)))
+(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 arg-1) ext-0)))
+(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\xa;"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Prelude-cast_Cast__Nat_Int (Prelude-length 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 (Commands-IDEMode-Idris-sendStr arg-2 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 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) (vector 1 act-26))))))))))))))
+(define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-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)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--2106-2132 e-71 e-75 e-80 (Commands-IDEMode-Idris-readHints e-80))) ((1) (let ((e-83 (vector-ref sc10 1))) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-83)) (case (vector-ref sc11 0) ((4) (let ((e-85 (vector-ref sc11 1))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((0) (Commands-IDEMode-Idris-case--2106-2181 e-71 e-75 e-80 e-85 (Commands-IDEMode-Idris-readHints e-80)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "generate-def") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-88 (vector-ref sc4 1))) (let ((e-89 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((3) (let ((e-90 (vector-ref sc5 1))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-92 (vector-ref sc6 1))) (let ((e-93 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((1) (let ((e-94 (vector-ref sc7 1))) (let ((sc8 e-93)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 7 e-90 e-94)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-lemma") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-97 (vector-ref sc4 1))) (let ((e-98 (vector-ref sc4 2))) (let ((sc5 e-97)) (case (vector-ref sc5 0) ((3) (let ((e-99 (vector-ref sc5 1))) (let ((sc6 e-98)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-101)) (case (vector-ref sc7 0) ((1) (let ((e-103 (vector-ref sc7 1))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 8 e-99 e-103)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-case") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-106 (vector-ref sc4 1))) (let ((e-107 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((3) (let ((e-108 (vector-ref sc5 1))) (let ((sc6 e-107)) (case (vector-ref sc6 0) ((1) (let ((e-110 (vector-ref sc6 1))) (let ((e-111 (vector-ref sc6 2))) (let ((sc7 e-110)) (case (vector-ref sc7 0) ((1) (let ((e-112 (vector-ref sc7 1))) (let ((sc8 e-111)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 9 e-108 e-112)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "make-with") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-115)) (case (vector-ref sc5 0) ((3) (let ((e-117 (vector-ref sc5 1))) (let ((sc6 e-116)) (case (vector-ref sc6 0) ((1) (let ((e-119 (vector-ref sc6 1))) (let ((e-120 (vector-ref sc6 2))) (let ((sc7 e-119)) (case (vector-ref sc7 0) ((1) (let ((e-121 (vector-ref sc7 1))) (let ((sc8 e-120)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 10 e-117 e-121)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "docs-for") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-124 (vector-ref sc4 1))) (let ((e-125 (vector-ref sc4 2))) (let ((sc5 e-124)) (case (vector-ref sc5 0) ((1) (let ((e-126 (vector-ref sc5 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (let ((sc6 e-125)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((e-6 (vector-ref sc6 2))) (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)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 0 ))))(else (vector 0 ))))) ((equal? sc8 "full") (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 1 (vector 1 ))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))) (lambda (modeOpt) (vector 1 (vector 11 e-126 modeOpt))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "apropos") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-128)) (case (vector-ref sc5 0) ((1) (let ((e-130 (vector-ref sc5 1))) (let ((sc6 e-129)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 12 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-133 (vector-ref sc4 1))) (let ((e-134 (vector-ref sc4 2))) (let ((sc5 e-133)) (case (vector-ref sc5 0) ((3) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 13 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "who-calls") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-138)) (case (vector-ref sc5 0) ((1) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-140)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "calls-who") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-143 (vector-ref sc4 1))) (let ((e-144 (vector-ref sc4 2))) (let ((sc5 e-143)) (case (vector-ref sc5 0) ((1) (let ((e-145 (vector-ref sc5 1))) (let ((sc6 e-144)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 15 e-145)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "browse-namespace") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-148 (vector-ref sc4 1))) (let ((e-149 (vector-ref sc4 2))) (let ((sc5 e-148)) (case (vector-ref sc5 0) ((1) (let ((e-150 (vector-ref sc5 1))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-150)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "normalise-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-153 (vector-ref sc4 1))) (let ((e-154 (vector-ref sc4 2))) (let ((sc5 e-153)) (case (vector-ref sc5 0) ((1) (let ((e-155 (vector-ref sc5 1))) (let ((sc6 e-154)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 17 e-155)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "show-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-158 (vector-ref sc4 1))) (let ((e-159 (vector-ref sc4 2))) (let ((sc5 e-158)) (case (vector-ref sc5 0) ((1) (let ((e-160 (vector-ref sc5 1))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 18 e-160)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "hide-term-implicits") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-163 (vector-ref sc4 1))) (let ((e-164 (vector-ref sc4 2))) (let ((sc5 e-163)) (case (vector-ref sc5 0) ((1) (let ((e-165 (vector-ref sc5 1))) (let ((sc6 e-164)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 19 e-165)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "elaborate-term") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-168 (vector-ref sc4 1))) (let ((e-169 (vector-ref sc4 2))) (let ((sc5 e-168)) (case (vector-ref sc5 0) ((1) (let ((e-170 (vector-ref sc5 1))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 20 e-170)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "print-definition") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-173 (vector-ref sc4 1))) (let ((e-174 (vector-ref sc4 2))) (let ((sc5 e-173)) (case (vector-ref sc5 0) ((1) (let ((e-175 (vector-ref sc5 1))) (let ((sc6 e-174)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 21 e-175)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "repl-completions") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-178 (vector-ref sc4 1))) (let ((e-179 (vector-ref sc4 2))) (let ((sc5 e-178)) (case (vector-ref sc5 0) ((1) (let ((e-180 (vector-ref sc5 1))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 22 e-180)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "get-options") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 24 )))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "version") (vector 1 (vector 23 )))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Prelude-pack ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3000-2817-escapeChar eta-0))) (Prelude-unpack ext-0)))))
+(define Error-Idris-case--10453-3195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-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-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-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 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-8)))))))))))))))))))))))
+(define Error-Idris-case--10453-2901 (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))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-2821-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) 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 (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\xa;" (Name-Core-showSep "\xa;" e-5))))))))))))))
+(define Error-Idris-case--10453-2735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0))))))
+(define Error-Idris-case--10453-2572 (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) (let ((act-24 ((Error-Idris-ploc arg-4 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Prelude-C-43C-43 " is not accessible in this context at:\xa;" e-5)))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 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 (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2537-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2538-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-0) (Strings-Prelude-C-43C-43 " context at:\xa;" e-5)))))))))))))))))))
+(define Error-Idris-case--10453-2456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
+(define Error-Idris-case--10259-2065 (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) (vector 1 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat arg-4 (+ 1 0))) (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "") (Extra-List-Data-elemAt 'erased arg-8 arg-4)) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 arg-5 #\ ) (Strings-Prelude-C-43C-43 (Error-Idris-n--10259-1957-repeatChar arg-0 arg-1 arg-2 arg-3 (Prelude-minus arg-7 arg-5) #\^) "\xa;"))))))))) (else (lambda (eta-0) (vector 1 (Error-Idris-n--10259-1958-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 (Error-Idris-n--10259-1956-extractRange arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-6 arg-8)))))))))
+(define Error-Idris-case--10272-1994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 l "\xa;")))))))))))
+(define Error-Idris-n--10453-3062-tshow (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5))))))))))))))
+(define Error-Idris-n--10453-2537-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
+(define Error-Idris-n--10453-2538-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
+(define Error-Idris-n--10453-2190-showPVar (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))) (Error-Idris-n--10453-2190-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-show_Show__Name arg-8))))))
+(define Error-Idris-n--10453-3707-showMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Name-Core-showSep "." (List-Data-reverse 'erased arg-4))))
+(define Error-Idris-n--10453-3263-showHoles (lambda (arg-0 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\xa;" (Error-Idris-n--10453-3263-showHoles arg-0 arg-1 arg-2 arg-3 e-3)))))))))))))))
+(define Error-Idris-n--10259-1957-repeatChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-pack (Prelude-take 'erased arg-4 (Stream-Data-repeat 'erased arg-5)))))
+(define Error-Idris-n--10453-2821-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 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))) (let ((act-25 ((Error-Idris-perror arg-3 arg-2 arg-1 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-7 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 "If " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 e-7 "\xa;")))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "Possible error:\xa;\x9;" e-5))))))))))))))))
+(define Error-Idris-n--10259-1956-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Prelude-C-43_Num__Nat (Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7))))
+(define Error-Idris-n--10453-3130-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) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--10453-3130-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))
+(define Error-Idris-n--10453-2822-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--10453-2822-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
+(define Error-Idris-n--10259-1958-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-snd 'erased 'erased (Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (Prelude-C-43_Num__Nat e-2 (+ 1 0))) (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 l "\xa;")))))))))) (vector 0 arg-4 "") arg-5))))
+(define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 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 (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5))))))))))))))
+(define Error-Idris-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 (Resugar-Idris-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 (Syntax-Idris-show_Show__PTerm e-6)))))))))))))
+(define Error-Idris-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 (let ((act-25 (Normalise-Core-normaliseHoles 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))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 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 (Syntax-Idris-show_Show__PTerm e-6))))))))))))))
+(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 ""))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sr (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-1)))) (let ((sc (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-1)))) (let ((er (Prelude-cast_Cast__Int_Integer (Builtin-fst 'erased 'erased e-2)))) (let ((ec (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-0 eta-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))) ((Error-Idris-case--10259-2065 e-0 e-2 e-1 arg-0 sr sc er ec e-5 (Prelude-C-61C-61_Eq__Nat sr er)) eta-0)))))))))))))))))))
+(define Error-Idris-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))) (Error-Idris-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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Mismatch between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "\xa;at:\xa;" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't solve constraint between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 "\xa;at:\xa;" 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) (let ((act-24 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 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 ((Error-Idris-ploc arg-2 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--10453-2190-showPVar e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\xa;\x9;" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;at:\xa;" e-6))))))))))))))))))))))) ((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 ((Context-Core-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "When unifying " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " and " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;" 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))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 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 ((Error-Idris-ploc arg-2 e-28) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a valid impossible case at:\xa;" e-6)))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) 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 (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\xa;" e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Undefined name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " at:\xa;" e-5))))))))))))) ((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-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) 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 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is inaccessible since " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-202)) (Strings-Prelude-C-43C-43 " is not explicitly imported at:\xa;" e-5)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) 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 (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Prelude-C-43C-43 " is private at:\xa;" e-5))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) (Strings-Prelude-C-43C-43 " must be Type at:\xa;" 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 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Prelude-C-43C-43 " must be in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Prelude-C-43C-43 " at:\xa;" e-5)))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Error-Idris-ploc arg-2 e-41) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\xa;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-7)))))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) 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 ((Error-Idris-ploc arg-2 e-41) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering at:\xa;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;\x9;" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-205))))))))))))))))))))))))))))))) ((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 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\xa;\x9;" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__PartialReason e-46) (Strings-Prelude-C-43C-43 "\xa;at:\xa;" 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-49) (Strings-Prelude-C-43C-43 " at:\xa;" e-5)))))))))))))))) ((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))) (Error-Idris-case--10453-2572 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) e-52))))))) ((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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " so must be fully applied at:\xa;" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows, so must return a concrete type at:\xa;" e-6))))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Ambiguous name " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64) (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Context-Core-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 (Context-Core-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 ((Error-Idris-ploc arg-2 e-66) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) 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 ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration at:\xa;" (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-8)))))) (let ((act-28 (Context-Core-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 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 (Error-Idris-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 ((Error-Idris-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-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 (Strings-Prelude-C-43C-43 "Multiple solutions found in search of:\xa;\x9;" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;at:\xa;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" 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 ((Context-Core-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)) (Strings-Prelude-C-43C-43 " at:\xa;" e-7)))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--10453-2901 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--10453-2822-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for this record update at:\xa;" e-5)))))))))) ((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) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) 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 (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " is not part of a record type at:\xa;" e-5)))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) 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 (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-208) (Strings-Prelude-C-43C-43 " has no field " (Strings-Prelude-C-43C-43 e-82 (Strings-Prelude-C-43C-43 " at:\xa;" e-5)))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) (Strings-Prelude-C-43C-43 " is not a record type at:\xa;" e-5)))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) (Strings-Prelude-C-43C-43 " not compatible with other updates at:\xa;" 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))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-213) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-6)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 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 ((Error-Idris-ploc arg-2 e-89) 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 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-6))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 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))) (let ((act-25 ((Error-Idris-ploc arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-4)) e-91)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3062-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-5) (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " here at:\xa;" (Strings-Prelude-C-43C-43 e-6 "Try binding explicitly.")))))))))))))))))))))))) ((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))) (Error-Idris-case--10453-3195 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--10453-3130-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 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-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) (Strings-Prelude-C-43C-43 " at:\xa;" e-6)))))))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Unsolved holes:\xa;" (Error-Idris-n--10453-3263-showHoles e-112 arg-2 arg-1 arg-0 e-112)))))) ((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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) (Strings-Prelude-C-43C-43 " has been solved by unification\xa;" (Strings-Prelude-C-43C-43 "Result: " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-5) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-6) (Strings-Prelude-C-43C-43 " at:\xa;" e-7))))))))))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Non linear pattern " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-130) (Strings-Prelude-C-43C-43 " at:\xa;" e-5))))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-132) (Strings-Prelude-C-43C-43 " at:\xa;" e-5))))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "No type declaration for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-134) (Strings-Prelude-C-43C-43 " at:\xa;" e-5))))))))))))) ((38) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-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-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a function type at:\xa;" 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 (Error-Idris-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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at:\xa;" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not a rewrite rule type at:\xa;" 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 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " have differing numbers of arguments at:\xa;" e-6)))))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " require matching on different types at:\xa;" e-6)))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type to match in " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-6)))))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (Context-Core-full_HasNames__Name arg-5886 arg-5887))) (lambda (arg-5888) (lambda (arg-5889) (Context-Core-resolved_HasNames__Name arg-5888 arg-5889)))) e-215 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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " is not fully applied at:\xa;" e-6))))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 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 ((Context-Core-prettyName arg-0 e-151) 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))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) 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-7 (vector-ref sc6 1))) (vector 1 (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " at\xa;:" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-156) (Strings-Prelude-C-43C-43 ") at\xa;" 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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " as it has a polymorphic type at:\xa;" e-6)))))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-164 (Strings-Prelude-C-43C-43 " at\xa;" (Strings-Prelude-C-43C-43 e-5 "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 (Error-Idris-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 ((Error-Idris-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 (Strings-Prelude-C-43C-43 "Bad elaborator script " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at:\xa;" e-6)))))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 e-170 (Strings-Prelude-C-43C-43 " at:\xa;" e-5)))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-172 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-173))))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-175 e-177)))))) ((51) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found"))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Error-Idris-n--10453-3707-showMod e-180 arg-2 arg-1 arg-0 eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 "Internal error when resolving implicit laziness"))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "Error: " e-182))))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 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))) (vector 1 (Strings-Prelude-C-43C-43 "While processing type of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) 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 (Strings-Prelude-C-43C-43 "While processing constructor " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) 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 (Strings-Prelude-C-43C-43 "While processing left hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Prelude-C-43C-43 ":\xa;" e-6))))))))))))))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) 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 (Strings-Prelude-C-43C-43 "While processing right hand side of " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))))))))))))))))))))))
+(define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-3)) e-5)))))))))
+(define Error-Idris-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-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 (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-3)) e-5)))))))))
+(define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4))))))))))))
+(define Resugar-Idris-case--11687-5205 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
+(define Resugar-Idris-case--11691-5127 (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))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
+(define Resugar-Idris-case--10016-5024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11)))))))))))))))
+(define Resugar-Idris-case--10010-4842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-n--10010-4770-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
+(define Resugar-Idris-case--11031-4585 (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-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0))))))
+(define Resugar-Idris-case--9992-4531 (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 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) 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 (Resugar-Idris-showFullEnv arg-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 ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc4 e-2)) (let ((e-8 (vector-ref sc4 9))) e-8))) arg-0)))))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 argsC-39) eta-0)))))))))))))))))))
+(define Resugar-Idris-case--9989-4438 (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) (let ((ap (vector 9 arg-0 arg-4 arg-1 arg-2))) (Resugar-Idris-mkApp arg-6 arg-5 ap arg-3))) (else (Resugar-Idris-mkApp arg-6 arg-5 arg-4 arg-3))))))
+(define Resugar-Idris-case--9986-4198 (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) (Resugar-Idris-bracket arg-5 arg-4 (Resugar-Idris-startPrec) arg-8 eta-0))) (else (Resugar-Idris-mkOp arg-5 arg-8))))))
+(define Resugar-Idris-case--10386-3977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 39 arg-16 arg-15 arg-12 arg-14)) (else arg-17)))))
+(define Resugar-Idris-case--9986-3901 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-startPrec) arg-2)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
+(define Resugar-Idris-case--9986-3826 (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) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5))))))))
+(define Resugar-Idris-case--9986-3758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define Resugar-Idris-case--9986-3679 (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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) 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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0))))))
+(define Resugar-Idris-case--9986-3639 (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 (Resugar-Idris-toPRef arg-1 arg-0))))))
+(define Resugar-Idris-case--9950-3567 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0)))))))))
+(define Resugar-Idris-case--9614-3514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 ))))))
+(define Resugar-Idris-case--9629-3414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((35) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 35 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9629-3311 (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-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9614-3263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "Pair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 36 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--9629-3311 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-unbracket arg-4))) ((equal? sc0 "Equal") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 30 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--9629-3414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Resugar-Idris-sugarApp (Resugar-Idris-unbracket arg-4))))(else (vector 0 ))))))
+(define Resugar-Idris-case--9552-3197 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-1))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-1 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 ))))))
+(define Resugar-Idris-case--9457-3130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Resugar-Idris-case--9392-3106 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0)))))
+(define Resugar-Idris-case--9308-3004 (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) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4)))))))))
+(define Resugar-Idris-n--9392-3056-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0)))))
+(define Resugar-Idris-n--9986-3943-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)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (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)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (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)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((0) (let ((tm (vector 4 e-0 e-1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11) e-8 (vector 0 )) (vector 1 (vector 0 e-16 (vector 0 e-20 e-21) e-18 (vector 0 )) (vector 0 )))))) (Resugar-Idris-case--10386-3977 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 tm (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-11) (vector 1 "True")) (lambda () (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-21) (vector 1 "False")))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7))))(else arg-7))))))(else arg-7))))))))(else arg-7))))))(else arg-7)))))))(else arg-7)))))
+(define Resugar-Idris-n--10010-4770-mapPiInfo (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 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
+(define Resugar-Idris-n--11687-5123-cleanNode (lambda (arg-0 arg-1 arg-2) (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) (Prelude-map_Functor__IO 'erased 'erased (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 0 e-0 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (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 (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (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 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-9 e-5 e-11))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-12 e-13 e-5))))))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
+(define Resugar-Idris-n--11687-5122-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))) (Resugar-Idris-n--11687-5122-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
+(define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (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 Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0)))))
+(define Resugar-Idris-tyPrec (lambda () (+ 1 0)))
+(define Resugar-Idris-toPTypeDecl (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 0 e-0 e-1 "" e-5))))))))))))))
+(define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) 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 ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (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 ((Context-Core-lookupCtxtExact 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))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) 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-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 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-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Data-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) 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))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0))))))))))))
+(define Resugar-Idris-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 (Context-Core-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))) ((Resugar-Idris-case--9986-3639 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))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) 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 ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) 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))) (let ((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 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 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))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-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) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--9986-3943-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 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))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 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 (Resugar-Idris-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) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) 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 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-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 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) 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))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) 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))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0))))))))))
+(define Resugar-Idris-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 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1)))))))))
+(define Resugar-Idris-toPRecord (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (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 ((Resugar-Idris-n--10010-4770-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (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 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-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 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6)))))))))))))))))))))))
+(define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-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))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2))))))))
+(define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (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) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-2 e-5)))))))))))))))
+(define Resugar-Idris-toPField (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))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) 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 0 e-0 e-1 e-6 e-3 e-5)))))))))))))))))))))
+(define Resugar-Idris-toPDecl (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFnOpt arg-0 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 ((Resugar-Idris-toPTypeDecl arg-0 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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPData 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 (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) (Builtin-snd 'erased 'erased ntm)) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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 (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 3 e-11 e-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPRecord arg-0 arg-1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 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))) (vector 1 (vector 1 (vector 11 e-18 e-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-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 ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-24) 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 1 (vector 12 e-21 (Name-Core-show_Show__Name e-22) e-5 e-6))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 1 (vector 13 e-25 e-5)))))))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Resugar-Idris-toPData (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTypeDecl arg-0 arg-1 eta-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 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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 (vector 1 e-5 e-6 e-8))))))))))))))))
+(define Resugar-Idris-toPClause (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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))) (vector 1 (vector 0 e-0 e-5 e-6 (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) 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 2 e-8 e-5)))))))))))))))
+(define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) (Resugar-Idris-cleanPTerm arg-0 e-5 ext-0))))))))
+(define Resugar-Idris-sugarName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(implicit) " e-0))) ((3) (let ((e-2 (vector-ref sc0 1))) (Resugar-Idris-sugarName e-2))) ((4) (let ((e-4 (vector-ref sc0 1))) e-4))(else (Name-Core-show_Show__Name arg-0))))))
+(define Resugar-Idris-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-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-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Resugar-Idris-case--9614-3263 e-5 e-10 e-11 e-7 e-2 e-0 (Name-Core-nameRoot e-11)))))(else (vector 0 )))))))) ((0) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 1))) (let ((sc7 e-18)) (cond ((equal? sc7 "S") (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (vector 14 e-0 (vector 1 (Prelude-cast_Cast__Nat_Integer eta-0)))) (Resugar-Idris-extractNat (+ 1 0) e-2)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((sc3 e-22)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-23)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (let ((sc6 e-25)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased (vector 14 e-3 (vector 1 0))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9614-3514 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (vector 0 ))))))
+(define Resugar-Idris-sugarApp (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () arg-0) (Resugar-Idris-sugarAppM arg-0))))
+(define Resugar-Idris-startPrec (lambda () 0))
+(define Resugar-Idris-showImplicits (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-showFullEnv (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
+(define Resugar-Idris-resugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-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))) (Resugar-Idris-toCleanPTerm arg-1 arg-2 (Resugar-Idris-startPrec) e-5 ext-0))))))))
+(define Resugar-Idris-pterm (lambda (arg-0 arg-1 arg-2 ext-0) (Resugar-Idris-toCleanPTerm arg-0 arg-1 (Resugar-Idris-startPrec) arg-2 ext-0)))
+(define Resugar-Idris-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))) (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))) (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-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((tm (vector 7 e-0 (vector 7 e-3 (vector 0 e-6 e-7) e-5) e-2))) ((Resugar-Idris-case--9308-3004 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
+(define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 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))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0)))))))))))))))))))))))))))
+(define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-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 Resugar-Idris-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-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Prelude") (let ((sc4 e-13)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-15)) (cond ((equal? sc6 "Z") (Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 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-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-22)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((sc7 e-24)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))) ((14) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-25 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Nat arg-0 e-25))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 ))))))
+(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-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 ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--11687-5123-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0)))))))))))
+(define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-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))) ((Resugar-Idris-case--9457-3130 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0))))))))
+(define Resugar-Idris-argPrec (lambda () (Prelude-fromInteger_Num__Nat 1000)))
+(define Resugar-Idris-appPrec (lambda () (Prelude-fromInteger_Num__Nat 999)))
+(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--9392-3106 arg-1 arg-0 (Resugar-Idris-n--9392-3056-needed arg-1 arg-0 arg-1))))
+(define ProcessIdr-Idris-case--17172-3971 (lambda (arg-0 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 (eta-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 (Context-Core-getDirs 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 ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-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) 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 (Directory-Core-makeBuildDirectory arg-6 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 ((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))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5886) (lambda (arg-5887) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5886 arg-5887 eta-1)))) (lambda (arg-5888) (lambda (arg-5889) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5888 arg-5889 eta-1))))) (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1))))) arg-6 arg-4 e-9 arg-9 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 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" 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 (Metadata-Core-writeToTTM arg-6 arg-5 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 (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10)))))))
+(define ProcessIdr-Idris-case--17113-3945 (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-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessIdr-Idris-case--17089-3892 (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 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" 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 ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 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 ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--17172-3971 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 ))))))))))
+(define ProcessIdr-Idris-case--16573-3715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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-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))) (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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
+(define ProcessIdr-Idris-case--16573-3595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-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 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) 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 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))
+(define ProcessIdr-Idris-case--16414-3419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) 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 (UnifyState-Core-resetNextVar arg-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-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) 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 ((act-29 (Context-Core-setNS arg-8 arg-21 eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (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-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (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))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--16137-3273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Context-Core-setNS arg-8 arg-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 (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 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 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3404) (vector 0 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-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Bool arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Int arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Int arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Bool arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Bool arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Bool arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-781) (lambda (arg-782) (Prelude-compare_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Bool arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Bool arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Bool arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Bool arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Bool arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Bool arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Bool arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62C-61_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-max_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-min_Ord__String arg-793 arg-794)))) arg-791 arg-792)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__Int arg-791 arg-792)))) arg-789 arg-790)))) arg-787 arg-788)))) arg-13)) 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))) (let ((act-28 (UnifyState-Core-resetNextVar arg-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 ((act-29 (let ((sc7 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16573-3595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) 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 (Context-Core-setNS arg-8 arg-21 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 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-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 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-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-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (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))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (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 (vector 1 (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 ))))))))))))))))))))))))
+(define ProcessIdr-Idris-case--16137-3050 (lambda (arg-0 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 ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))
+(define ProcessIdr-Idris-case--16030-2919 (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))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5))))))))
+(define ProcessIdr-Idris-case--15991-2904 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16030-2919 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define ProcessIdr-Idris-case--15995-2874 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1)))))
+(define ProcessIdr-Idris-case--15853-2758 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 (vector 1 0)))))))))))
+(define ProcessIdr-Idris-case--15840-2739 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0)))))))
+(define ProcessIdr-Idris-case--15813-2716 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0)))))
+(define ProcessIdr-Idris-case--15612-2655 (lambda (arg-0 arg-1 arg-2 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))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9)))))))))))))
+(define ProcessIdr-Idris-case--15591-2508 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS 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-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 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 ((act-26 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 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 ((act-27 (let ((act-27 (unbox arg-2))) (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-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) 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 (Context-Core-getSession arg-3 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 ((sc9 (Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 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 (unbox arg-2))) (vector 1 act-30)))) (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 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (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-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (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 ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0)))))))
+(define ProcessIdr-Idris-case--15483-2406 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Core-readIFaceHash 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 0 (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 0 (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3)) e-5))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
+(define ProcessIdr-Idris-case--15211-2183 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 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 ((act-25 (let ((act-25 (unbox arg-8))) (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 ((act-26 (Context-Core-getNS arg-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-11 (vector-ref sc5 1))) (let ((act-27 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc7 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--15170-2147 (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))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-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)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-10 (vector-ref sc4 2))) (let ((act-25 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 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 ((act-26 (let ((act-26 (unbox arg-8))) (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 (Context-Core-getNS arg-8 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-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc9 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 )))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))
+(define ProcessIdr-Idris-case--15115-2114 (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 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-8 arg-4 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)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-1)))) (lambda (arg-2106) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-1)))) arg-8 arg-7 1 arg-4 arg-3 e-2 arg-1 arg-0 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-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-8))) (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 (Context-Core-getNS arg-8 eta-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-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Prelude-C-124C-124 reexp (lambda () arg-5)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 arg-5 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
+(define ProcessIdr-Idris-case--15013-2027 (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 1 arg-6 (vector 0 )))(else arg-8)))))
+(define ProcessIdr-Idris-case--14981-1977 (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 (ProcessDecls-TTImp-getTotalityErrors 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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--15013-2027 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5)))))))))))
+(define ProcessIdr-Idris-n--15991-2869-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--15995-2874 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
+(define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0)))))))
+(define ProcessIdr-Idris-readModule (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))) ((ProcessIdr-Idris-case--15115-2114 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__Bool arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Bool arg-432 arg-433)))) (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Bool arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__Bool arg-434 arg-435)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-434) (lambda (arg-435) (Prelude-C-61C-61_Eq__String arg-434 arg-435))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-436) (lambda (arg-437) (Prelude-C-47C-61_Eq__String arg-436 arg-437)))) arg-434 arg-435)))) arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
+(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-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-1 (vector-ref sc0 2))) e-1)) (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 (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (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 ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--16030-2919 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--15991-2869-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
+(define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-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 (Binary-Core-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 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0))))))))))))
+(define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2103) (lambda (arg-2105) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2103 arg-2105 eta-0)))) (lambda (arg-2106) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2106 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (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)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-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 (Context-Core-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 (Desugar-Idris-extendAs arg-2 e-8 e-8 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 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 m 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 (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 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 (Context-Core-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 (Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 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 (Context-Core-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 (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0)))))))))))
+(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-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 ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 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 (Context-Core-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 ((imps (ProcessIdr-Idris-case--16137-3050 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15))))) 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 ((act-30 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\xa;" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased 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 ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Old hashes from " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 ":\xa;" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) 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 ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-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 (ProcessIdr-Idris-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 ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--16137-3273 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__Int arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-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 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-432) (lambda (arg-433) (Prelude-C-61C-61_Eq__String arg-432 arg-433))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-434) (lambda (arg-435) (Prelude-C-47C-61_Eq__String arg-434 arg-435)))) arg-432 arg-433)))) (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__Int arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__Int arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-779) (lambda (arg-780) (Prelude-compare_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__Int arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__Int arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__Int arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62C-61_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__String arg-787 arg-788)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-max_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Int arg-787 arg-788)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-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 'erased 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-777) (lambda (arg-778) (Prelude-compare_Ord__String arg-777 arg-778))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-60_Ord__String arg-779 arg-780))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-62_Ord__String arg-781 arg-782))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-60C-61_Ord__String arg-783 arg-784))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-62C-61_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-max_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__String arg-789 arg-790)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__String arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__String arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__String arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__String arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-min_Ord__String arg-791 arg-792)))) arg-789 arg-790)))) (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Int arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Int arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Int arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Int arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-min_Ord__Int arg-789 arg-790)))) arg-787 arg-788)))) e-12)) (lambda () (Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0)))
+(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-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 (UnifyState-Core-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 (ProcessDecls-TTImp-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 (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (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))) (ProcessIdr-Idris-case--15013-2027 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))))))))))))))))))))
+(define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) 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 (err) (lambda (eta-0) (let ((act-24 (Unify-Core-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 err)))))))) ext-0)))
+(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-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 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Prelude-C-43C-43 "Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-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))) ((ProcessIdr-Idris-case--17172-3971 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 ))))))))))))))
+(define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )))))
+(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC))))))
+(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7328) (Hash-Core-hash_Hashable__String arg-7328)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__String arg-7328 arg-7329)))) arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__String arg-7327)) (lambda (arg-7330) (lambda (arg-7331) (Hash-Core-hashWithSalt_Hashable__String arg-7330 arg-7331)))) arg-7328 arg-7329)))) 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 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-7327) (Hash-Core-hash_Hashable__Int arg-7327)) (lambda (arg-7328) (lambda (arg-7329) (Hash-Core-hashWithSalt_Hashable__Int arg-7328 arg-7329)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--15813-2716 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0))))))
+(define ProcessIdr-Idris-addImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-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 (ProcessIdr-Idris-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 (Context-Core-setNS arg-0 e-5 ext-0))))))))))))
+(define Parser-Idris-case--22391-20945 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
+(define Parser-Idris-case--22336-20903 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10))))))))))))
+(define Parser-Idris-case--21042-19543 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option")))))))
+(define Parser-Idris-case--9786-18982 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 1 arg-1 (List-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3)))))))
+(define Parser-Idris-case--20456-18935 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (List-Prelude-C-43C-43 'erased arg-8 e-2) e-3))))))
+(define Parser-Idris-case--20423-18874 (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 (vector 0 ) (vector 1 arg-5 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (Parser-Idris-case--20456-18935 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9786-18840-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
+(define Parser-Idris-case--9785-18747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Parser-Idris-case--19272-17899 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 arg-4 e-7)))))))))))
+(define Parser-Idris-case--19272-17857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))))
+(define Parser-Idris-case--19050-17434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
+(define Parser-Idris-case--16454-14525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--16452-14510-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
+(define Parser-Idris-case--15819-13850 (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 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 0 arg-1 arg-0) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3)))))))
+(define Parser-Idris-case--10340-12473 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable"))))))
+(define Parser-Idris-case--10328-11463 (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 3 arg-9 (vector 1 arg-3) arg-2 arg-5 arg-6) (Parser-Idris-buildDoLets arg-8 arg-7))) (else (vector 1 (vector 4 arg-9 (vector 0 arg-4 (vector 1 arg-3)) arg-5 arg-6 (vector 0 )) (Parser-Idris-buildDoLets arg-8 arg-7)))))))
+(define Parser-Idris-case--10318-10581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))))
+(define Parser-Idris-case--10311-9541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4))))))
+(define Parser-Idris-case--10304-8668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8686) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8696) (vector 7 1 (Parser-Idris-opExpr arg-2 arg-1 arg-0) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (vector 4 1 "= not allowed"))))))
+(define Parser-Idris-case--10594-8234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 1)))))
+(define Parser-Idris-case--10301-8188 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-8202) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8212) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here")))))))
+(define Parser-Idris-case--10301-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4)))))))
+(define Parser-Idris-case--9826-7678 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7693) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-case--9826-7654 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7669) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 )))))))))))
+(define Parser-Idris-case--9826-7630 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7645) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 )))))))))))
+(define Parser-Idris-case--9826-7610 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x))))))))))
+(define Parser-Idris-case--9826-7586 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7601) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9826-7562 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7577) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9826-7542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x))))))))))
+(define Parser-Idris-case--9826-7519 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x))))))))))
+(define Parser-Idris-case--9826-7498 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7511) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3)))))))))))
+(define Parser-Idris-case--9816-7355 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
+(define Parser-Idris-n--9786-18840-spanMap (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 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--20423-18874 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
+(define Parser-Idris-n--10303-8434-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 ))))))))
+(define Parser-Idris-n--10336-12180-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name))))))))
+(define Parser-Idris-n--15522-13697-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-13717) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
+(define Parser-Idris-n--22113-20644-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20653) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20661) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n))))))))))))))))
+(define Parser-Idris-n--22064-20588-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20597) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20605) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
+(define Parser-Idris-n--22018-20537-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20546) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-20554) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt)))))))))))))
+(define Parser-Idris-n--21971-20483-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20492) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20500) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
+(define Parser-Idris-n--21924-20430-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20439) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20447) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
+(define Parser-Idris-n--21879-20379-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20388) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20396) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
+(define Parser-Idris-n--21832-20326-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20335) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20343) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
+(define Parser-Idris-n--21794-20283-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20292) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20300) (vector 0 arg-1)))))))))
+(define Parser-Idris-n--22113-20643-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--22064-20587-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--22018-20536-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
+(define Parser-Idris-n--21971-20482-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21924-20429-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21879-20378-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21832-20325-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--21794-20282-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
+(define Parser-Idris-n--10303-8435-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8463) (vector 8 1 0 (vector 5 ) (lambda (_-8472) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-8494) (vector 0 ns))))))))))))))
+(define Parser-Idris-n--10345-13171-mkPi (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 arg-1 arg-3 arg-4) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) arg-5 (Parser-Idris-n--10345-13171-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
+(define Parser-Idris-n--10310-9321-mergePairs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 38 (vector 0 arg-3 arg-2 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (vector 36 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--10310-9321-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
+(define Parser-Idris-n--9786-18841-isClause (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 2))) (vector 1 e-1)))(else (vector 0 ))))))
+(define Parser-Idris-n--10336-12179-fieldName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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 Parser-Idris-n--19047-17398-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--19050-17434 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-17485) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) rig arg-2 n ty)) ns))))))))))))))))))))))
+(define Parser-Idris-n--16452-14510-drop (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))) (let ((e-3 (vector-ref sc0 2))) (Parser-Idris-case--16454-14525 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
+(define Parser-Idris-n--19590-17957-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17965) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-17981) (vector 0 n)))))))))))
+(define Parser-Idris-n--10317-10393-binderName (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-10407) (vector 0 "_"))))))))
+(define Parser-Idris-n--10325-11131-bindAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-2 e-6 (vector 1 ) e-10 e-11 (Parser-Idris-n--10325-11131-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
+(define Parser-Idris-n--10300-7941-applyExpImp (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-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))) (let ((e-6 (vector-ref sc1 2))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 9 (vector 0 arg-1 arg-3 arg-4) arg-5 e-5 e-6) e-3)))) (else (let ((e-7 (vector-ref sc1 1))) (Parser-Idris-n--10300-7941-applyExpImp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 8 (vector 0 arg-1 arg-3 arg-4) arg-5 e-7) e-3))))))))))))
+(define Parser-Idris-n--15522-13696-applyArgs (lambda (arg-0 arg-1 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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Parser-Idris-n--15522-13696-applyArgs arg-0 arg-1 arg-2 (vector 7 e-6 arg-3 e-7) e-3)))))))))))
+(define Parser-Idris-show_Show__CmdArg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") ((1) "<name>") ((2) "<expr>") ((3) "<decls>") ((4) "<number>") ((5) "<option>") ((6) "<filename>") (else "<module>")))))
+(define Parser-Idris-with_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-8522) (vector 8 1 0 (vector 5 ) (lambda (_-8531) (vector 7 0 (vector 9 0 0 (Parser-Idris-n--10303-8434-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--10303-8435-nameList arg-1 arg-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rhs) (vector 0 (vector 47 (vector 0 arg-0 start end) ns rhs)))))))))))))))))))
+(define ParseOpts-Parser-Idris-withOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Parser-Idris-withFlags (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-pragma "syntactic") (lambda () (lambda (_-13484) (vector 8 1 1 (Parser-Idris-withFlags) (lambda (fs) (vector 0 (vector 1 (vector 0 ) fs))))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-whereBlock (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-7710) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))
+(define Parser-Idris-visibility (lambda () (vector 9 0 1 (Parser-Idris-visOption) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-visOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-13357) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13365) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13345) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-13333) (vector 0 (vector 0 )))))))))))
+(define Parser-Idris-visOpt (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-Idris-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-Idris-fnDirectOpt arg-0) (lambda () (lambda (opt) (vector 0 (vector 1 opt)))))))))))
+(define Parser-Idris-validPatternVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-case--10340-12473 e-0 (Parser-Idris-lowerFirst e-0))))(else (vector 4 1 "Not a pattern variable"))))))
+(define Parser-Idris-usingDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-15966) (vector 8 1 0 (vector 5 ) (lambda (_-15975) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15984) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 1 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16021) (vector 0 (vector 1 (vector 1 x)))))))))) (lambda (n) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 n ty)))))))) (lambda (us) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16060) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 4 (vector 0 arg-0 start end-0) us (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))))
+(define Parser-Idris-typeExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-13220) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTermLoc (Builtin-snd 'erased 'erased eta-0)))) (List-Data-lastC-39 'erased rest)))) (lambda (end-0) (vector 0 (Parser-Idris-n--10345-13171-mkPi arg-2 arg-1 arg-0 start end-0 arg rest))))))))))) (lambda () (vector 0 arg))))))))))
+(define Parser-Idris-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-13419) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-13446) (vector 0 (vector 0 (vector 0 arg-0 start end) n doc ty))))))))))))))))))))))
+(define Parser-Idris-tuple (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Parser-Text-some 'erased 'erased (vector 7 0 (Source-Rule-Parser-symbol ",") (lambda () (lambda (_-9416) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (estart) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (el) (vector 0 (vector 0 estart el))))))))))) (lambda () (lambda (rest) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-9386) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 36 (vector 0 arg-0 arg-1 end) arg-3 (Parser-Idris-n--10310-9321-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-9355) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 arg-1 end) arg-3)))))))))))
+(define Parser-Idris-transformDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "transform") (lambda () (lambda (_-15559) (vector 7 0 (Source-Rule-Parser-strLit) (lambda () (lambda (n) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-15582) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rhs))) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) n lhs rhs)))))))))))))))))))))))
+(define Parser-Idris-totalityOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-14656) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-14643) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-14631) (vector 0 (vector 1 )))))))))))
+(define Parser-Idris-topDecl (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))))) (vector 7 1 (Parser-Idris-dataDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))) (vector 7 1 (Parser-Idris-claim arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (vector 7 1 (Parser-Idris-definition arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (Parser-Idris-fixDecl arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))) (vector 7 1 (Parser-Idris-ifaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))) (vector 7 1 (Parser-Idris-implDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))) (vector 7 1 (Parser-Idris-recordDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))) (vector 7 1 (Parser-Idris-namespaceDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))) (vector 7 1 (Parser-Idris-mutualDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))) (vector 7 1 (Parser-Idris-paramDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))) (vector 7 1 (Parser-Idris-usingDecls arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))) (vector 7 1 (Parser-Idris-runElabDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (vector 7 1 (Parser-Idris-transformDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 7 1 (Parser-Idris-directiveDecl arg-0 arg-1) (lambda () (lambda (d) (vector 0 (vector 1 d (vector 0 )))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (vector 1 "Expected CG directive" (lambda (x) (Parser-Idris-case--9785-18747 arg-1 arg-0 start x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda () (lambda (dstr) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (let ((cgrest (Strings-Data-span (lambda (eta-0) (Prelude-isAlphaNum eta-0)) dstr))) (vector 14 (vector 0 arg-0 start end) (vector 10 (Builtin-fst 'erased 'erased cgrest) (Parser-Idris-stripBraces (Strings-Data-trim (Builtin-snd 'erased 'erased cgrest)))))) (vector 0 )))))))))) (lambda () (vector 4 0 "Couldn't parse declaration")))))))))))))))))))))))))))))))))
+(define Parser-Idris-stripBraces (lambda (arg-0) (Prelude-pack (Parser-Idris-n--16452-14510-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--16452-14510-drop arg-0 #\} (List-Data-reverse 'erased (Prelude-unpack arg-0))))))))
+(define Parser-Idris-simplerExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-10209) (vector 8 1 0 (vector 5 ) (lambda (_-10218) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (expr) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc expr))) (lambda (end) (vector 0 (vector 22 (vector 0 arg-0 start end) (vector 1 x) expr))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-atom arg-0) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-binder arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))))) (Parser-Idris-record_ arg-0 arg-1) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-10136) (vector 8 1 0 (vector 5 ) (lambda (_-10145) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10170) (vector 0 (vector 23 (vector 0 arg-0 start end) e))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`(") (lambda () (lambda (_-10082) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10107) (vector 0 (vector 15 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`{{") (lambda () (lambda (_-10026) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}}") (lambda () (lambda (_-10052) (vector 0 (vector 16 (vector 0 arg-0 start end) n))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "`[") (lambda () (lambda (_-9960) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9987) (vector 0 (vector 17 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ns))))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "~") (lambda () (lambda (_-9914) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 18 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-9892) (Parser-Idris-bracketedExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-9870) (Parser-Idris-listExpr arg-0 start arg-1)))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-9824) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 33 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "[|") (lambda () (lambda (_-9767) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "|]") (lambda () (lambda (_-9791) (vector 0 (vector 34 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-9721) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) e)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-9665) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 46 (vector 0 arg-0 start end) lvl e)))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-simpleExpr (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-recField)) (lambda () (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 45 (vector 0 arg-0 start end) recFields))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simplerExpr arg-0 arg-1) (lambda () (lambda (root) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-recField)) (lambda (recFields) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((sc0 recFields)) (case (vector-ref sc0 0) ((0) root)(else (vector 44 (vector 0 arg-0 start end) root recFields))))))))))))))))))
+(define Parser-Idris-simpleData (lambda (arg-0 arg-1 arg-2 arg-3) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Source-Rule-Parser-name)) (lambda (params) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (tyend) (let ((tyfc (vector 0 arg-0 arg-1 tyend))) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-14029) (let ((conRetTy (Syntax-Idris-papply tyfc (vector 0 tyfc arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 tyfc eta-0)) params)))) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "|") (Parser-Idris-simpleCon arg-0 conRetTy arg-3)) (lambda () (lambda (cons) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc eta-0))) (List-Data-lastC-39 'erased cons)))) (lambda (end-0) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end-0) arg-2 (Parser-Idris-mkTyConType tyfc params) (vector 0 ) cons))))))))))))))))))))
+(define Parser-Idris-simpleCon (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (cdoc) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (cname) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr (Parser-Idris-plhs) arg-0 arg-2)) (lambda (params) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTermLoc (Parser-Idris-argTerm eta-0)))) (List-Data-lastC-39 'erased params)))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-13958) (vector 0 (let ((cfc (vector 0 arg-0 start end-0))) (vector 0 cfc cname cdoc (Parser-Idris-mkDataConType cfc arg-1 params)))))))))))))))))))))
+(define Parser-Idris-setVarOption (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "eval") (lambda () (lambda (_-19471) (vector 7 1 (Parser-Idris-parseMode) (lambda () (lambda (mode) (vector 0 (vector 3 mode)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-exactIdent "editor") (lambda () (lambda (_-19451) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (e) (vector 0 (vector 4 e)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "cg") (lambda () (lambda (_-19431) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (c) (vector 0 (vector 5 c))))))))))))))
+(define Parser-Idris-setOption (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "showimplicits") (lambda () (lambda (_-19536) (vector 0 (vector 0 arg-0))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "shownamespace") (lambda () (lambda (_-19524) (vector 0 (vector 1 arg-0))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "showtypes") (lambda () (lambda (_-19512) (vector 0 (vector 2 arg-0))))) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))))))))
+(define Parser-Idris-runParseCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Parser-Idris-replCmd e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-keyword e-1))) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-exactIdent e-2)))))))
+(define Parser-Idris-runElabDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-15635) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) tm))))))))))))))
+(define Parser-Idris-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-12326) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-12341) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 41 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
+(define Parser-Idris-replCmd (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 1 "Unrecognised command")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 9 0 0 (Source-Rule-Parser-exactIdent e-2) (lambda () (vector 9 0 0 (Source-Rule-Parser-symbol e-2) (lambda () (Parser-Idris-replCmd e-3))))))))))))
+(define Parser-Idris-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-12113) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-12122) (vector 8 1 0 (vector 5 ) (lambda (_-12131) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-12161) (vector 0 (vector 6 (vector 0 arg-0 start end) fs))))))))))))))))))))))
+(define Parser-Idris-recordParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-17811) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-17835) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-17695) (vector 8 1 0 (vector 5 ) (lambda (_-17704) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-17735) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-17786) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 25 (vector 0 arg-0 start end))))) (vector 0 ))))))))))))))))
+(define Parser-Idris-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-18034) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-18060) (vector 8 1 1 (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--19590-17957-ctor arg-1 arg-0 eta-0)) (lambda (eta-0) (Parser-Idris-fieldDecl arg-0 eta-0))) (lambda (dcflds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 8 (vector 0 arg-0 start end) vis n params (Builtin-fst 'erased 'erased dcflds) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Builtin-snd 'erased 'erased dcflds))))))))))))))))))))))))))))))
+(define Parser-Idris-progHdr (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-19263) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (vector 0 )))))))))))))))
+(define Parser-Idris-prog (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (vector 7 0 (Source-Rule-Parser-keyword "module") (lambda () (lambda (_-19159) (Source-Rule-Parser-namespacedIdent))))) (lambda (nspace) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0))) (lambda (imports) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 0 (vector 0 arg-0 start end) nspace imports doc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
+(define Parser-Idris-pnowith (lambda () (vector 0 0 1)))
+(define Parser-Idris-pnoeq (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
+(define Parser-Idris-plhs (lambda () (vector 0 1 1)))
+(define Parser-Idris-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-n--10317-10393-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10510) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10525) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 rig (vector 0 (vector 1 n) ty))) ns))))))))))))))))) (lambda () (Parser-Text-sepBy1 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-n--10317-10393-binderName arg-2 arg-1 arg-0) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10447) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))))))
+(define Parser-Idris-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-Idris-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params)))))))
+(define Parser-Idris-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-Idris-pibindAll arg-0 arg-1 e-3 arg-3)))))))))))))))
+(define Parser-Idris-pdef (lambda () (vector 0 0 0)))
+(define Parser-Idris-patAlt (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-12943) (Parser-Idris-caseAlt arg-0 arg-1))))))
+(define Parser-Idris-parserCommandsForHelp (lambda () (vector 1 (Parser-Idris-exprArgCmd (vector 0 (vector 1 "t" (vector 1 "type" (vector 0 )))) (lambda (eta-0) (vector 2 eta-0)) "Check the type of an expression") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "printdef" (vector 0 ))) (lambda (eta-0) (vector 3 eta-0)) "Show the definition of a function") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "s" (vector 1 "search" (vector 0 )))) (lambda (eta-0) (vector 11 eta-0)) "Search for values by type") (vector 1 (Parser-Idris-nameArgCmd (vector 2 "di") (lambda (eta-0) (vector 12 eta-0)) "Show debugging information for a name") (vector 1 (Parser-Idris-moduleArgCmd (vector 1 "module") (lambda (eta-0) (vector 6 eta-0)) "Import an extra module") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "q" (vector 1 "quit" (vector 1 "exit" (vector 0 ))))) (vector 23 ) "Exit the Idris system") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "cwd" (vector 0 ))) (vector 16 ) "Displays the current working directory") (vector 1 (Parser-Idris-optArgCmd (vector 2 "set") (lambda (eta-0) (vector 13 eta-0)) 0 "Set an option") (vector 1 (Parser-Idris-optArgCmd (vector 2 "unset") (lambda (eta-0) (vector 13 eta-0)) 1 "Unset an option") (vector 1 (Parser-Idris-compileArgsCmd (vector 0 (vector 1 "c" (vector 1 "compile" (vector 0 )))) (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "Compile to an executable") (vector 1 (Parser-Idris-exprArgCmd (vector 2 "exec") (lambda (eta-0) (vector 9 eta-0)) "Compile to an executable and run") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "r" (vector 1 "reload" (vector 0 )))) (vector 4 ) "Reload current file") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "e" (vector 1 "edit" (vector 0 )))) (vector 7 ) "Edit current file using $EDITOR or $VISUAL") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "miss" (vector 1 "missing" (vector 0 )))) (lambda (eta-0) (vector 17 eta-0)) "Show missing clauses") (vector 1 (Parser-Idris-nameArgCmd (vector 1 "total") (lambda (eta-0) (vector 18 eta-0)) "Check the totality of a name") (vector 1 (Parser-Idris-numberArgCmd (vector 0 (vector 1 "log" (vector 1 "logging" (vector 0 )))) (lambda (eta-0) (vector 19 eta-0)) "Set logging level") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "m" (vector 1 "metavars" (vector 0 )))) (vector 20 ) "Show remaining proof obligations (metavariables or holes)") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "version" (vector 0 ))) (vector 22 ) "Display the Idris version") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "?" (vector 1 "h" (vector 1 "help" (vector 0 ))))) (vector 10 ) "Display this help text") (vector 1 (Parser-Idris-declsArgCmd (vector 1 "let") (lambda (eta-0) (vector 0 eta-0)) "Define a new value") (vector 0 )))))))))))))))))))))))
+(define Parser-Idris-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-13633) (vector 6 (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-4) (lambda () (lambda (rhs) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Idris-whereBlock arg-1 arg-3)) (lambda (ws) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-13664) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 arg-2 end) arg-5 rhs ws))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-13560) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 8 1 0 (Parser-Idris-withFlags) (lambda (flags) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-13585) (vector 7 0 (Parser-Idris-bracketedExpr arg-1 wstart arg-4) (lambda () (lambda (wval) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-1 arg-2 end) arg-5 wval flags ws)))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-13538) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-13546) (vector 0 (vector 2 (vector 0 arg-1 arg-2 end) arg-5)))))))))))))))
+(define Parser-Idris-parseMode (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 1 (Source-Rule-Parser-exactIdent "typecheck") (lambda () (lambda (_-19406) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "tc") (lambda () (lambda (_-19394) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "normalise") (lambda () (lambda (_-19382) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-exactIdent "normalize") (lambda () (lambda (_-19370) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "execute") (lambda () (lambda (_-19358) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "exec") (lambda () (lambda (_-19346) (vector 0 (vector 2 )))))))))))))))))
+(define Parser-Idris-paramDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "parameters") (lambda () (lambda (_-15789) (vector 8 1 0 (vector 5 ) (lambda (_-15798) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15807) (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15834) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (ty) (vector 0 (vector 0 (vector 1 x) ty)))))))))))) (lambda (ps) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-15864) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 3 (vector 0 arg-0 start end-0) ps (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))))
+(define Parser-Idris-optArgCmd (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (Parser-Idris-n--22018-20536-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-3 (Parser-Idris-n--22018-20537-parse arg-3 arg-2 arg-1 arg-0))))))
+(define Parser-Idris-opExpr (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-appExpr arg-0 arg-1 arg-2) (lambda () (lambda (l) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 1)) (Parser-Idris-case--10304-8668 arg-2 arg-1 arg-0 start l (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8620) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (middle) (vector 7 1 (Parser-Idris-opExpr arg-0 arg-1 arg-2) (lambda () (lambda (r) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc r))) (lambda (end) (vector 0 (vector 26 (vector 0 arg-1 start end) op l r)))))))))))))) (lambda () (vector 0 l))))))))))))
+(define Parser-Idris-onoff (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "on") (lambda () (lambda (_-14575) (vector 0 0)))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "off") (lambda () (lambda (_-14563) (vector 0 1))))))))
+(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--22064-20587-names arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-2 (Parser-Idris-n--22064-20588-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-nonEmptyCommand (lambda () (Parser-Text-choice 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))) (Parser-Idris-parserCommandsForHelp)))))
+(define Parser-Idris-noArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21794-20282-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--21794-20283-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-namespaceHead (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-15432) (vector 8 1 0 (vector 5 ) (lambda (_-15441) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 ns)))))))))))
+(define Parser-Idris-namespaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Parser-Idris-namespaceHead) (lambda () (lambda (ns) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (ds) (vector 0 (vector 11 (vector 0 arg-0 start end) ns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))
+(define Parser-Idris-nameArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21832-20325-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--21832-20326-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-mutualDecls (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "mutual") (lambda () (lambda (_-15683) (vector 8 1 0 (vector 5 ) (lambda (_-15692) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased ds)))))) (lambda (end-0) (vector 0 (vector 9 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))))
+(define Parser-Idris-multiplicity (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-moduleArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21879-20378-names arg-2 arg-1 arg-0) (vector 0 (vector 7 ) (vector 0 arg-2 (Parser-Idris-n--21879-20379-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-mkTyConType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 21 arg-0)) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) (vector 21 arg-0) (Parser-Idris-mkTyConType arg-0 e-3))))))))
+(define Parser-Idris-mkDataConType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) e-4 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))) ((1) (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-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Parser-Idris-case--15819-13850 e-9 e-8 e-5 e-3 arg-1 arg-0 (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) e-5 e-6 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))))))) (else (vector 24 arg-0)))))))))))
+(define Parser-Idris-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Prelude-isLower (string-ref arg-0 0)))))))
+(define Parser-Idris-listRange (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 0 0 (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9146) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 43 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (y) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9106) (let ((fc (vector 0 arg-0 arg-1 end))) (vector 8 1 1 (Parser-Idris-getInitRange arg-3) (lambda (rstate) (vector 0 (vector 42 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate) y)))))))))))))))))
+(define Parser-Idris-listExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-2) (lambda () (lambda (ret) (let ((endRet (Syntax-Idris-getPTermLoc ret))) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-9246) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-doAct arg-0 arg-2)) (lambda () (lambda (conds) (vector 8 1 0 (vector 0 (FC-Core-endPos (Maybe-Data-fromMaybe 'erased (lambda () endRet) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Syntax-Idris-getLoc eta-0)) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased conds))))))) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9275) (vector 0 (vector 40 (vector 0 arg-0 arg-1 end) ret ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) conds)))))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda (xs) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "..") (lambda () (lambda (_-9226) (Parser-Idris-listRange arg-0 arg-1 arg-2 xs)))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-9211) (vector 0 (vector 35 (vector 0 arg-0 arg-1 end) xs)))))))))))))))
+(define Parser-Idris-let_ (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11648) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda () (lambda (res) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11665) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-buildLets arg-0 res scope)))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-11563) (vector 8 1 0 (vector 5 ) (lambda (_-11572) (vector 7 0 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "in") (lambda () (lambda (_-11589) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)) scope))))))))))))))))))))))))
+(define Parser-Idris-letBinder (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc pat))) (lambda (tyend) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (vector 0 arg-0 start tyend)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-11274) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11288) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 start (vector 0 end-0 (vector 0 rig (vector 0 pat (vector 0 ty (vector 0 val alts))))))))))))))))))))))))))))))))))
+(define Parser-Idris-lazy (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-13112) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-13068) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 10 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-13024) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-12980) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 0 (vector 12 (vector 0 arg-0 start end) tm))))))))))))))))))))
+(define Parser-Idris-lambdaCase (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-11802) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (endCase) (vector 7 1 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11818) (vector 8 1 1 (vector 5 ) (lambda (_-11827) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 0 (let ((fc (vector 0 arg-0 start end-0))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) alts))))))))))))))))))))))))))
+(define Parser-Idris-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-11165) (vector 7 0 (Parser-Idris-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11181) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-11190) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-n--10325-11131-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
+(define Parser-Idris-import_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "import") (lambda () (lambda (_-19031) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 1 (vector 7 1 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-19049) (vector 0 0))))) (lambda (reexp) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 ns (vector 7 0 (Source-Rule-Parser-exactIdent "as") (lambda () (lambda (_-19082) (Source-Rule-Parser-namespacedIdent))))) (lambda (nsAs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-19104) (vector 0 (vector 0 (vector 0 arg-0 start end) reexp ns nsAs))))))))))))))))))))
+(define Parser-Idris-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-11068) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11084) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-11093) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
+(define Parser-Idris-implicitArg (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-8329) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8390) (vector 8 1 0 (vector 5 ) (lambda (_-8399) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8415) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8369) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-8271) (vector 8 1 0 (vector 5 ) (lambda (_-8280) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8296) (vector 0 (vector 0 (vector 0 ) tm)))))))))))))))))
+(define Parser-Idris-implDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Source-Rule-Parser-keyword "implementation")) (lambda (_-17183) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-17202) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (iname) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-17219) (vector 0 (vector 1 iname)))))))))))) (lambda (iname) (vector 8 1 0 (Parser-Idris-implBinds arg-0 arg-1) (lambda (impls) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda (params) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-keyword "using") (lambda () (lambda (_-17282) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (names) (vector 0 names)))))))) (lambda (nusing) (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-17319) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))))))) (lambda (body) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17332) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) vis opts (vector 0 ) impls cons n params iname nusing (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) eta-0))) body)))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-implBinds (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-16666) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16699) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-16715) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-16724) (vector 8 1 1 (Parser-Idris-implBinds arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 n (vector 0 rig tm)) more)))))))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))
+(define Parser-Idris-ifaceParam (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16816) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16833) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16849) (vector 0 (vector 0 n tm))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 n (vector 25 (vector 0 arg-0 start end)))))))))))))))
+(define Parser-Idris-ifaceDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "interface") (lambda () (lambda (_-16914) (vector 8 1 0 (vector 5 ) (lambda (_-16923) (vector 8 1 0 (Parser-Idris-constraints arg-0 arg-1) (lambda (cons) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-ifaceParam arg-0 arg-1)) (lambda (params) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (vector 0 ) (vector 7 1 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-16966) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)))))) (lambda (det) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-16985) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17003) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n-0) (vector 0 (vector 1 n-0))))))))) (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (body) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased body)))))) (lambda (end-0) (vector 0 (vector 6 (vector 0 arg-0 start end-0) vis cons n doc params det dc (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) body)))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-if_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "if") (lambda () (lambda (_-12026) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (x) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "then") (lambda () (lambda (_-12041) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-commitKeyword arg-1 "else") (lambda () (lambda (_-12056) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12071) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 39 (vector 0 arg-0 start end) x t e))))))))))))))))))))))))))))
+(define Parser-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
+(define Parser-Idris-iOperator (lambda () (vector 9 0 0 (Source-Rule-Parser-operator) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7797) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7814) (vector 0 n))))))))))))))
+(define Parser-Idris-help (lambda () (vector 1 (vector 0 (vector 1 "<expr>" (vector 0 )) (vector 0 (vector 0 ) "Evaluate an expression")) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-0) (Strings-Prelude-C-43C-43 ":" arg-0)) e-2) (vector 0 e-6 e-10))))))))))) (Parser-Idris-parserCommandsForHelp)))))
+(define Parser-Idris-getVisibility (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) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-Idris-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-Idris-getVisibility arg-0 e-2))))))))
+(define Parser-Idris-getRight (lambda (arg-0 arg-1 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 Parser-Idris-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 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)"))))))
+(define Parser-Idris-getInitRange (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 e-1 (vector 0 )))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 0 (vector 0 e-1 (vector 1 e-5))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax")))))))(else (vector 4 0 "Invalid list range syntax"))))))
+(define Parser-Idris-gadtData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-14362) (vector 8 1 0 (vector 5 ) (lambda (_-14371) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-4) (lambda () (lambda (ty) (Parser-Idris-dataBody arg-0 arg-1 arg-2 arg-3 arg-4 ty)))))))))))
+(define Parser-Idris-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-10941) (vector 8 1 0 (vector 5 ) (lambda (_-10950) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 24 nfc)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-10990) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
+(define Parser-Idris-fnOpt (lambda () (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 0 (vector 7 x))))))))
+(define Parser-Idris-fnDirectOpt (lambda (arg-0) (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-16379) (vector 0 (vector 0 (vector 2 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-16365) (vector 0 (vector 0 (vector 3 1)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))))) (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-16351) (vector 0 (vector 0 (vector 3 0)))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))))) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-16324) (vector 8 1 1 (vector 5 ) (lambda (_-16333) (vector 0 (vector 0 (vector 0 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))))) (vector 7 1 (Source-Rule-Parser-pragma "tcinline") (lambda () (lambda (_-16297) (vector 8 1 1 (vector 5 ) (lambda (_-16306) (vector 0 (vector 0 (vector 1 )))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-16283) (vector 0 (vector 0 (vector 4 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) (vector 7 1 (Source-Rule-Parser-pragma "macro") (lambda () (lambda (_-16268) (vector 0 (vector 0 (vector 8 )))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "spec") (lambda () (lambda (_-16240) (vector 8 1 1 (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda (ns) (vector 0 (vector 0 (vector 9 ns)))))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "foreign") (lambda () (lambda (_-16214) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 eta-0))) (lambda (cs) (vector 0 (vector 1 cs)))))))))))))))))))))))))
+(define Parser-Idris-fixDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-fix) (lambda () (lambda (fixity) (vector 8 1 0 (vector 5 ) (lambda (_-18312) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (prec) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-iOperator)) (lambda () (lambda (ops) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 10 (vector 0 arg-0 start end) fixity (Prelude-fromInteger_Num__Nat prec) eta-0)) ops)))))))))))))))))))
+(define Parser-Idris-fix (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-keyword "infixl") (lambda () (lambda (_-15420) (vector 0 (vector 0 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Source-Rule-Parser-keyword "infixr") (lambda () (lambda (_-15408) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "infix") (lambda () (lambda (_-15396) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "prefix") (lambda () (lambda (_-15384) (vector 0 (vector 3 )))))))))))))
+(define Parser-Idris-fieldDecl (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-17587) (vector 8 1 0 (vector 5 ) (lambda (_-17596) (vector 7 0 (Parser-Idris-n--19047-17398-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-17614) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17622) (vector 0 fs)))))))))))))))) (lambda () (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-n--19047-17398-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17559) (vector 0 fs))))))))))))
+(define Parser-Idris-field (lambda (arg-0 arg-1) (vector 7 0 (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Prelude-C-124C-124 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 1)) eta-2 eta-3))))) (lambda (eta-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Parser-Idris-n--10336-12179-fieldName arg-1 arg-0 eta-1)) eta-0)) (vector 8 (Prelude-C-124C-124 1 (lambda () 0)) 1 (vector 8 1 0 (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (Parser-Text-many 'erased 'erased (Parser-Idris-n--10336-12180-recFieldCompat arg-1 arg-0)))))) (lambda () (lambda (path) (let ((sc0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))))) (cond ((equal? sc0 1) (vector 8 1 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12261) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12247) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))) (else (vector 7 0 (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-12261) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12247) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))))))
+(define Parser-Idris-extractNames (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-1 (vector-ref sc0 1))) (vector 1 e-1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (vector 0 ))))))))
+(define Parser-Idris-extension (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "ElabReflection") (lambda () (lambda (_-14606) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "Borrowing") (lambda () (lambda (_-14594) (vector 0 (vector 1 )))))))))
+(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21924-20429-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--21924-20430-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-expr (lambda (ext-0 ext-1 ext-2) (Parser-Idris-typeExpr ext-0 ext-1 ext-2)))
+(define Parser-Idris-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10661) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10677) (vector 7 0 (Parser-Idris-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
+(define Parser-Idris-eval (lambda () (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm)))))))
+(define ParseOpts-Parser-Idris-eqOK (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Parser-Idris-editCmd (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "typeat" (vector 0 ))) (lambda () (lambda (_-20199) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 0 line col n)))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "cs" (vector 0 ))) (lambda () (lambda (_-20120) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20139) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (col) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 upd line col n)))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ac" (vector 0 ))) (lambda () (lambda (_-20053) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20072) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ps" (vector 1 "proofsearch" (vector 0 )))) (lambda () (lambda (_-19984) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-20003) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 1))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "psall" (vector 0 ))) (lambda () (lambda (_-19912) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19931) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 upd line n (vector 0 ) 0))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "gd" (vector 0 ))) (lambda () (lambda (_-19845) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19864) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-replCmd (vector 1 "ml" (vector 1 "makelemma" (vector 0 )))) (lambda () (lambda (_-19778) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19797) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 upd line n))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Parser-Idris-replCmd (vector 1 "mc" (vector 1 "makecase" (vector 0 )))) (lambda () (lambda (_-19708) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19727) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 upd line n))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-replCmd (vector 1 "mw" (vector 1 "makewith" (vector 0 )))) (lambda () (lambda (_-19638) (vector 8 1 0 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-symbol "!") (lambda () (lambda (_-19657) (vector 0 0))))) (lambda (upd) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (line) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 upd line n))))))))))))) (lambda () (vector 4 0 "Unrecognised command")))))))))))))))))))))
+(define Parser-Idris-dpair (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-8821) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 0 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc ty))) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8845) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rest))) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) (vector 0 (vector 0 arg-0 arg-1 loc) (vector 1 x)) ty rest))))))))))))))))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (l) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (loc) (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-8768) (vector 7 1 (vector 9 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2))) (lambda () (lambda (rest) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rest))) (lambda (end) (vector 0 (vector 37 (vector 0 arg-0 arg-1 end) l (vector 24 (vector 0 arg-0 arg-1 end)) rest)))))))))))))))))))
+(define Parser-Idris-doBlock (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "do") (lambda () (lambda (_-12388) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-0 eta-0))) (lambda (actions) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased actions)))))) (lambda (end-0) (vector 0 (vector 32 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) actions))))))))))))))))
+(define Parser-Idris-doAct (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Idris-validPatternVar n) (lambda (_-12851) (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12861) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc val))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12884) (vector 0 (vector 1 (vector 1 (vector 0 arg-0 start end) n val) (vector 0 )))))))))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-12802) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12818) (vector 0 (Parser-Idris-buildDoLets arg-0 res))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-124C-124 1 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-12718) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0))) (lambda (res) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPDeclLoc eta-0))) (Prelude-join_Monad__Maybe 'erased (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (List-Data-lastC-39 'erased eta-0)) (List-Data-lastC-39 'erased res)))))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12750) (vector 0 (vector 1 (vector 5 (vector 0 arg-0 start end-0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) res)) (vector 0 )))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-12664) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (rule) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rule))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12687) (vector 0 (vector 1 (vector 6 (vector 0 arg-0 start end) rule) (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (e) (vector 9 1 (Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12625) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc e))) (lambda (end) (vector 0 (vector 1 (vector 0 (vector 0 arg-0 start end) e) (vector 0 ))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12545) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPClauseLoc eta-0))) (List-Data-lastC-39 'erased alts)))) (lambda (end-0) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-12584) (vector 0 (vector 1 (vector 2 (vector 0 arg-0 start end-0) e val alts) (vector 0 ))))))))))))))))))))))))))))))))))
+(define Parser-Idris-directiveDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 9 0 (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 1 (Parser-Idris-directive arg-0 arg-1) (lambda () (lambda (d) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 14 (vector 0 arg-0 start end) d))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "runElab") (lambda () (lambda (_-18396) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc tm))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-18419) (vector 0 (vector 5 (vector 0 arg-0 start end) tm))))))))))))))))))
+(define Parser-Idris-directive (lambda (arg-0 arg-1) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "hide") (lambda () (lambda (_-15333) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15349) (vector 0 (vector 0 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-15298) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15314) (vector 0 (vector 1 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_lazy") (lambda () (lambda (_-15267) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15282) (vector 0 (vector 2 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "unbound_implicits") (lambda () (lambda (_-15236) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15251) (vector 0 (vector 3 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "undotted_record_projections") (lambda () (lambda (_-15205) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15220) (vector 0 (vector 16 b)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "ambiguity_depth") (lambda () (lambda (_-15170) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15186) (vector 0 (vector 4 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "auto_implicit_depth") (lambda () (lambda (_-15135) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (dpt) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15151) (vector 0 (vector 17 (Prelude-fromInteger_Num__Nat dpt))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "pair") (lambda () (lambda (_-15082) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (ty) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (f) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (s) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15114) (vector 0 (vector 5 ty f s)))))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "rewrite") (lambda () (lambda (_-15039) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (eq) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (rw) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15063) (vector 0 (vector 6 eq rw))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "integerLit") (lambda () (lambda (_-15006) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15022) (vector 0 (vector 7 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))))) (vector 7 0 (Source-Rule-Parser-pragma "stringLit") (lambda () (lambda (_-14973) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14989) (vector 0 (vector 8 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-pragma "charLit") (lambda () (lambda (_-14940) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14956) (vector 0 (vector 9 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-pragma "name") (lambda () (lambda (_-14894) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14922) (vector 0 (vector 11 n ns))))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 0 (Source-Rule-Parser-pragma "start") (lambda () (lambda (_-14863) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14878) (vector 0 (vector 12 e)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 0 (Source-Rule-Parser-pragma "allow_overloads") (lambda () (lambda (_-14830) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14846) (vector 0 (vector 13 n)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-pragma "language") (lambda () (lambda (_-14799) (vector 7 1 (Parser-Idris-extension) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14814) (vector 0 (vector 14 e)))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "default") (lambda () (lambda (_-14768) (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (tot) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14783) (vector 0 (vector 15 tot))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 7 1 (Parser-Idris-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPClauseLoc nd))) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) (vector 1 nd (vector 0 )))))))))))))))
+(define Parser-Idris-defaultImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10834) (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10842) (vector 8 1 0 (vector 5 ) (lambda (_-10851) (vector 7 0 (Parser-Idris-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10874) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10883) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 3 t) binders scope)))))))))))))))))))))))))))))))
+(define Parser-Idris-declsArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21971-20482-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--21971-20483-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-dataOpt (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-14195) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-14183) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-14158) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "external") (lambda () (lambda (_-14146) (vector 0 (vector 3 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "noNewtype") (lambda () (lambda (_-14134) (vector 0 (vector 4 )))))))))))))))
+(define Parser-Idris-dataDeclBody (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-14411) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 9 0 0 (Parser-Idris-simpleData arg-0 start n arg-1) (lambda () (Parser-Idris-gadtData arg-0 col start n arg-1)))))))))))))))
+(define Parser-Idris-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Idris-visibility) (lambda (vis) (vector 7 1 (Parser-Idris-dataDeclBody arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPDataDeclLoc dat))) (lambda (end-0) (vector 0 (vector 2 (vector 0 arg-0 start end-0) vis dat)))))))))))))))))
+(define Parser-Idris-dataBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 9 1 0 (vector 8 1 1 (Source-Rule-Parser-atEndIndent arg-4) (lambda (_-14331) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 arg-2 end) arg-3 arg-5)))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-14220) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-14239) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-14260) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc eta-0))) (List-Data-lastC-39 'erased cs)))) (lambda (end-0) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end-0) arg-3 arg-5 opts cs)))))))))))))))))
+(define Parser-Idris-continueWith (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7781) (Source-Rule-Parser-symbol arg-1)))))
+(define Parser-Idris-constraints (lambda (arg-0 arg-1) (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 1)) (vector 7 0 (Parser-Idris-appExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-16623) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 0 ) tm) more)))))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-16535) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16552) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (tm) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-16568) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-16577) (vector 8 1 1 (Parser-Idris-constraints arg-0 arg-1) (lambda (more) (vector 0 (vector 1 (vector 0 (vector 1 n) tm) more)))))))))))))))))))))) (lambda () (vector 0 (vector 0 ))))))))
+(define Parser-Idris-compileArgsCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--22113-20643-names arg-2 arg-1 arg-0) (vector 0 (vector 6 ) (vector 0 arg-2 (Parser-Idris-n--22113-20644-parse arg-2 arg-1 arg-0))))))
+(define Parser-Idris-commitKeyword (lambda (arg-0 arg-1) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1)) (lambda (_-7746) (vector 7 1 (Source-Rule-Parser-keyword arg-1) (lambda () (lambda (_-7754) (Source-Rule-Parser-mustContinue arg-0 (vector 0 )))))))))
+(define Parser-Idris-command (lambda () (vector 9 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-21044) (vector 0 (vector 24 )))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)))) (Parser-Idris-nonEmptyCommand) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (vector 7 1 (Source-Rule-Parser-symbol ":?") (lambda () (lambda (_-21031) (vector 0 (vector 10 ))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-21009) (vector 7 1 (Parser-Idris-editCmd) (lambda () (lambda (cmd) (vector 0 (vector 21 cmd)))))))) (lambda () (Parser-Idris-eval)))))))))))
+(define Parser-Idris-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Parser-Idris-case--9786-18982 e-5 e-4 e-3 (Parser-Idris-n--9786-18840-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--9786-18841-isClause e-5 e-4 e-3 eta-0)) e-3))))) ((11) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (vector 1 (vector 11 e-6 e-7 (Parser-Idris-collectDefs e-8)) (Parser-Idris-collectDefs e-3)))))) ((9) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 1 (vector 9 e-9 (Parser-Idris-collectDefs e-10)) (Parser-Idris-collectDefs e-3)))))(else (vector 1 e-2 (Parser-Idris-collectDefs e-3))))))))))))
+(define Parser-Idris-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-n--15522-13697-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-Idris-ifThenElse 'erased (Prelude-C-47C-61_Eq__Nat arg-0 (List-Data-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS arg-0 arg-1 start col arg-2 (Parser-Idris-n--15522-13696-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))))
+(define Parser-Idris-claim (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 "" (Source-Rule-Parser-documentation)) (lambda (doc) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0)) (lambda (visOpts) (vector 8 1 0 (Parser-Idris-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-Idris-getRight 'erased 'erased eta-0)) visOpts))) (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rig) (vector 7 1 (Parser-Idris-tyDecl arg-0 arg-1) (lambda () (lambda (cl) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTypeDeclLoc cl))) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) rig vis opts cl))))))))))))))))))))))
+(define Parser-Idris-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-11712) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Parser-Idris-commitKeyword arg-1 "of") (lambda () (lambda (_-11727) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (vector 0 (Maybe-Data-fromMaybe 'erased (lambda () end) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (FC-Core-endPos eta-0)) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Syntax-Idris-getPClauseLoc eta-0)) (List-Data-lastC-39 'erased alts))))) (lambda (end-0) (vector 0 (vector 4 (vector 0 arg-0 start end-0) scr alts)))))))))))))))))))))
+(define Parser-Idris-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11962) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-2 (vector 0 )) (lambda (_-11971) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc rhs))) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11994) (vector 0 (vector 0 (vector 0 arg-0 arg-1 end) arg-3 rhs (vector 0 ))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-11939) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11947) (vector 0 (vector 2 (vector 0 arg-0 arg-1 end) arg-3)))))))))))))
+(define Parser-Idris-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1) (lambda () (lambda (lhs) (Parser-Idris-caseRHS arg-0 start arg-1 lhs))))))))
+(define Parser-Idris-buildLets (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 3 fc e-14 e-18 e-22 e-26 (Parser-Idris-buildLets arg-0 e-3 arg-2) e-27)))))))))))))))))))))))))))
+(define Parser-Idris-buildDoLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((sc7 e-19)) (case (vector-ref sc7 0) ((0) (let ((e-33 (vector-ref sc7 1))) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-37 (vector-ref sc8 1))) (let ((e-38 (vector-ref sc8 2))) (let ((sc9 e-38)) (case (vector-ref sc9 0) ((0) (let ((fc (vector 0 arg-0 e-6 e-10))) (Parser-Idris-case--10328-11463 e-6 e-10 e-14 e-30 e-28 e-33 e-37 e-3 arg-0 fc (Parser-Idris-lowerFirst e-30))))(else (let ((sc9 e-19)) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-23)) (let ((e-26 (vector-ref sc10 1))) (let ((e-27 (vector-ref sc10 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((sc9 e-23)) (let ((e-26 (vector-ref sc9 1))) (let ((e-27 (vector-ref sc9 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((sc8 e-23)) (let ((e-26 (vector-ref sc8 1))) (let ((e-27 (vector-ref sc8 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3))))))))))))))(else (let ((sc6 e-19)) (let ((e-22 (vector-ref sc6 1))) (let ((e-23 (vector-ref sc6 2))) (let ((sc7 e-23)) (let ((e-26 (vector-ref sc7 1))) (let ((e-27 (vector-ref sc7 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))(else (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (let ((fc (vector 0 arg-0 e-6 e-10))) (vector 1 (vector 4 fc e-18 e-22 e-26 e-27) (Parser-Idris-buildDoLets arg-0 e-3)))))))))))))))))))))))))))))))
+(define Parser-Idris-bracketedExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8984) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 arg-1 end) op e))))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-8947) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 38 (vector 0 arg-0 arg-1 end)))))))) (lambda () (vector 9 0 0 (vector 7 0 (Parser-Idris-dpair arg-0 arg-1 arg-2) (lambda () (lambda (p) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8933) (vector 0 p))))))) (lambda () (vector 7 0 (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2) (lambda () (lambda (e) (vector 9 0 0 (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 8 1 0 (Common-Rule-Parser-endLocation (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9032) (vector 0 (vector 29 (vector 0 arg-0 arg-1 end) e op)))))))))) (lambda () (Parser-Idris-tuple arg-0 arg-1 arg-2 e))))))))))))))
+(define Parser-Idris-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-Idris-let_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-defaultImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-Idris-explicitPi arg-0 arg-1) (lambda () (Parser-Idris-lam arg-0 arg-1)))))))))))))))
+(define Parser-Idris-bindSymbol (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10637) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10622) (vector 0 (vector 2 )))))))))
+(define Parser-Idris-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (rigc) (vector 7 1 (Parser-Idris-simpleExpr arg-0 arg-2) (lambda () (lambda (pat) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 25 (vector 0 arg-0 arg-1 arg-1)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10363) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-Idris-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 pat ty)))))))))))))))
+(define Parser-Idris-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-10735) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-10743) (vector 8 1 0 (vector 5 ) (lambda (_-10752) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10768) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10777) (vector 7 1 (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc scope))) (lambda (end) (vector 0 (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
+(define Parser-Idris-atom (lambda (arg-0) (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-7511) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 0 (vector 0 (vector 0 arg-0 e-2 e-3) x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-7577) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-7601) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 0 (vector 20 (vector 0 arg-0 e-2 e-3) 1 x)))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "MkWorld") (lambda () (lambda (_-7645) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 ))))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "World") (lambda () (lambda (_-7669) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 ))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-position (vector "Parser.Lexer.Source.Token" )) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-7693) (vector 0 (vector 13 (vector 0 arg-0 e-2 e-3) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Parser-Idris-argTerm (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 2))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define Parser-Idris-argExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8146) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (arg) (let ((sc0 arg)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg)))))))))) (lambda () (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-2) (lambda (_-8122) (vector 7 1 (Parser-Idris-implicitArg arg-1 arg-2) (lambda () (lambda (arg) (vector 0 (vector 1 (Builtin-fst 'erased 'erased arg) (Builtin-snd 'erased 'erased arg)))))))) (Parser-Idris-case--10301-8188 arg-2 arg-1 arg-0 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))
+(define Parser-Idris-appExpr (lambda (arg-0 arg-1 arg-2) (vector 9 0 0 (Parser-Idris-case_ arg-1 arg-2) (lambda () (vector 9 0 0 (Parser-Idris-lambdaCase arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-lazy arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-if_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-with_ arg-1 arg-2) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (Parser-Idris-doBlock arg-1 arg-2) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-Idris-simpleExpr arg-1 arg-2) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr arg-0 arg-1 arg-2)) (lambda (args) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc (Maybe-Data-fromMaybe 'erased (lambda () f) (Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Parser-Idris-argTerm eta-0)) (List-Data-lastC-39 'erased args)))))) (lambda (end) (vector 0 (Parser-Idris-n--10300-7941-applyExpImp arg-2 arg-1 arg-0 start end f args))))))))))) (lambda () (vector 9 (Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Idris-iOperator) (lambda () (lambda (op) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-2) (lambda () (lambda (arg) (vector 8 1 1 (vector 0 (FC-Core-endPos (Syntax-Idris-getPTermLoc arg))) (lambda (end) (vector 0 (vector 27 (vector 0 arg-1 start end) op arg)))))))))))) (lambda () (vector 4 1 "Expected 'case', 'if', 'do', application or operator expression")))))))))))))))))))
+(define Desugar-Idris-case--13265-11939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11959) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-5 arg-1 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12005) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-5 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-5 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-12039) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-5 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12068) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-5 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12096) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-5 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12124) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-5 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12152) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-5 arg-1 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12180) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-5 arg-1 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12208) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-5 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12236) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-5 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12264) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-5 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12292) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-5 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12320) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-5 arg-1 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12348) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12379) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-5 arg-1 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12408) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-5 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption 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 (vector 1 (vector 0 )))))))))))))
+(define Desugar-Idris-case--13265-11880 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-8 arg-7 arg-5 arg-6 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) arg-0 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 1 (vector 6 arg-3 (vector 1 arg-2) e-3 e-5) (vector 0 ))))))))))))))
+(define Desugar-Idris-case--13265-11758 (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-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 0 (StringMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 e-2 e-3 e-4 e-5))))))))))
+(define Desugar-Idris-case--13265-11698 (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-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 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5))))))))))
+(define Desugar-Idris-case--18860-11571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) e-11))))))))
+(define Desugar-Idris-case--18413-11507 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-11 (vector-ref sc3 2))) e-11))))))) arg-11))) (else (vector 0 ))))))
+(define Desugar-Idris-case--18706-11446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 1 (vector 4 arg-5 (vector 1 (Name-Core-nameRoot arg-3)) arg-4 (vector 0 arg-5 arg-3 arg-18 arg-22 arg-20)) (vector 0 )))))
+(define Desugar-Idris-case--18616-11393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((conname (Prelude-maybe 'erased 'erased (lambda () (Desugar-Idris-n--13265-10992-mkConName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-3)) (lambda () (lambda (eta-0) eta-0)) arg-1))) (lambda (eta-0) (Desugar-Idris-case--18706-11446 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 conname conname eta-0)))))
+(define Desugar-Idris-case--18467-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 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Desugar-Idris-desugarField arg-10 arg-9 arg-8 arg-7 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--13265-10991-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) 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))) ((Desugar-Idris-case--18616-11393 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5) ext-0))))))))
+(define Desugar-Idris-case--18467-11254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))))
+(define Desugar-Idris-case--18413-11208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (BindImplicits-TTImp-doBind arg-16 e-11)))))))))))))) arg-11))) (lambda (eta-0) (Desugar-Idris-case--18467-11319 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 paramsb paramsb eta-0)))))
+(define Desugar-Idris-case--18367-11167 (lambda (arg-0 arg-1 arg-2 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 (Context-Core-isUnboundImplicits 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 ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-6 (List-Prelude-C-43C-43 'erased arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2))) (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-11 (vector-ref sc4 2))) e-11))))))) arg-11))) (else (vector 0 )))))) ((Desugar-Idris-case--18413-11208 arg-0 arg-1 arg-2 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 bnames bnames) ext-0)))))))))
+(define Desugar-Idris-case--13265-11131 (lambda (arg-0 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 ((fnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--13265-10991-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0)) arg-0))) (lambda (eta-0) (Desugar-Idris-case--18367-11167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 fnames fnames eta-0)))))
+(define Desugar-Idris-case--13265-11066 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-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))) (let ((act-25 ((Desugar-Idris-n--13265-10993-mapDesugarPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-6 e-10) 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5))))))))))))))))))))))))))
+(define Desugar-Idris-case--17532-10857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 ))))))
+(define Desugar-Idris-case--17723-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ext-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (b) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-15 arg-14 arg-13 arg-12 arg-11 eta-1)) b) 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 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) 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 1 (vector 8 (lambda (vars-10811) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-10811 arg-14 arg-13 arg-15 arg-12 arg-10 arg-9 arg-16 arg-7 env nest arg-26 arg-28 arg-4 arg-25 arg-2 arg-1 e-5))))) (vector 0 ))))))))))
+(define Desugar-Idris-case--17723-10663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))))
+(define Desugar-Idris-case--17532-10597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (BindImplicits-TTImp-doBind arg-24 e-3)))))) arg-19))) (lambda (eta-0) (Desugar-Idris-case--17723-10732 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 consb consb eta-0)))))
+(define Desugar-Idris-case--17532-10524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind arg-24 e-7)))))))))))
+(define Desugar-Idris-case--17456-10455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 (Context-Core-isUnboundImplicits arg-14 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bnames (let ((sc1 e-5)) (cond ((equal? sc1 0) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-19)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames 0 arg-11 (vector 0 ) eta-0))) arg-21))) (else (vector 0 )))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind bnames eta-0)) arg-21))) (let ((isb (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (vector 0 e-2 (vector 0 e-6 (BindImplicits-TTImp-doBind bnames e-7)))))))))) arg-17))) ((Desugar-Idris-case--17532-10597 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-5 bnames paramsb isb isb) ext-0)))))))))))
+(define Desugar-Idris-case--17306-10397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 eta-0 eta-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))) (Desugar-Idris-case--17456-10455 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5 ext-0))))))))
+(define Desugar-Idris-case--17306-10337 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))))
+(define Desugar-Idris-case--13265-10284 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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 (vector 0 e-2 e-5)))))))))))) 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))) (Desugar-Idris-case--17306-10397 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5 ext-0))))))))
+(define Desugar-Idris-case--13265-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) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)))))))))))))))))
+(define Desugar-Idris-case--13265-9824 (lambda (arg-0 arg-1 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-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))) (vector 0 e-0 e-1 e-2 e-3 arg-9 e-5)))))))))
+(define Desugar-Idris-case--13265-9792 (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)) (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))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-5)))))))))
+(define Desugar-Idris-case--13244-9001 (lambda (arg-0 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-6) arg-2 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 1 arg-4 e-3 e-5 arg-1 arg-11)))))))))))))
+(define Desugar-Idris-case--15774-8900 (lambda (arg-0 arg-1 arg-2 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) ((0) arg-14)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
+(define Desugar-Idris-case--13244-8857 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-9 arg-8 arg-6 arg-7 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-5) arg-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))) (vector 1 (vector 0 arg-3 e-3 (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) e-5)(else (vector 5 arg-3 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))))))))))))))
+(define Desugar-Idris-case--13228-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-12 arg-13 arg-11 arg-9 arg-10 arg-8 arg-7 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-12 arg-11 arg-10 arg-9 arg-7 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-7))) (let ((act-26 ((Desugar-Idris-expandDo arg-12 arg-11 arg-10 arg-9 arg-8 psC-39 arg-6 arg-5) 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-13))) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)) (vector 4 arg-4 e-5 arg-15 (vector 1 (vector 0 arg-4 e-3 e-7) e-6)))))))))))))))))))))))))))))))
+(define Desugar-Idris-case--13228-8349 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-11 arg-10 arg-8 arg-9 arg-7 arg-6 arg-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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-11 arg-10 arg-9 arg-8 arg-6 0 eta-1)) arg-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 ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-6))) (let ((act-26 ((Desugar-Idris-expandDo arg-11 arg-10 arg-9 arg-8 arg-7 psC-39 arg-5 arg-4) 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 8 arg-3 (vector 8 arg-3 (vector 0 arg-3 (vector 1 ">>=")) e-5) (vector 2 arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 4 arg-3 (vector 0 arg-3 (vector 2 "_" 0)) (vector 31 arg-3 1) (vector 1 (vector 0 arg-3 e-3 e-7) e-6)))))))))))))))))))))))))))
+(define Desugar-Idris-case--13228-8231 (lambda (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) ((4) (vector 0 arg-1 (vector 1 "Unit")))(else (vector 31 arg-1 1))))))
+(define Desugar-Idris-case--13210-8019 (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)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFrom")) arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 7 arg-2 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "rangeFromThen")) arg-1) e-2))))))))
+(define Desugar-Idris-case--13210-7961 (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-1)) (case (vector-ref sc0 0) ((0) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromTo")) arg-2) arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (vector 7 arg-3 (vector 7 arg-3 (vector 7 arg-3 (vector 0 arg-3 (vector 1 "rangeFromThenTo")) arg-2) e-2) arg-0))))))))
+(define Desugar-Idris-case--13210-7636 (lambda (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 arg-11 (vector 0 arg-1 arg-9)) e-1)))))))
+(define Desugar-Idris-case--13210-7529 (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-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 0 e-0 e-1 e-2 (vector 1 (vector 1 arg-0) e-3) e-4 e-5))))))))))
+(define Desugar-Idris-case--13210-7384 (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) (vector 1 (vector 27 arg-1 (vector 7 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 7 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7329 (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) (vector 1 (vector 27 arg-1 (vector 6 arg-0))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 6 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7264 (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) (vector 1 (vector 12 arg-1 (vector 2 (vector 27 arg-1 (vector 1 arg-0))) (vector 1 (vector 27 arg-1 (vector 1 arg-0)) (vector 1 (vector 27 arg-1 (vector 0 arg-0)) (vector 0 ))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 27 arg-1 (vector 1 arg-0)))))))))))
+(define Desugar-Idris-case--13210-7170 (lambda (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) (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 2 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 arg-2 (vector 2 "arg" 0)) (vector 24 arg-2) (vector 26 arg-2 arg-1 (vector 0 arg-2 (vector 2 "arg" 0)) arg-0)))) (else (Desugar-Idris-desugarB arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 (vector 27 arg-2 arg-1 arg-0)))))))
+(define Desugar-Idris-case--12853-6367 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-5 "' is not a prefix operator"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-3 arg-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))) (vector 1 (vector 1 (vector 0 arg-2 arg-1 (vector 3 e-2)) e-5))))))))))))))
+(define Desugar-Idris-case--12877-6227 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "Unknown operator '" (Strings-Prelude-C-43C-43 arg-6 "'"))) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 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))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-n--12853-6185-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))))))))))))))
+(define Desugar-Idris-case--12853-6202 (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) (Desugar-Idris-case--12877-6227 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Prelude-C-43C-43 "'" (Strings-Prelude-C-43C-43 arg-6 "' is a prefix operator"))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-4 arg-0) 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-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-mkPrec e-5 e-6)) e-7)))))))))))))))))))))
+(define Desugar-Idris-case--12798-6160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 1))) e-11)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-10 (vector-ref sc1 2))) e-10)) e-1) (ANameMap-Data-mergeAs 'erased arg-2 arg-1 (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 3))) e-9)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-8 (vector-ref sc1 4))) e-8)) e-3) e-4 e-5))))))))))
+(define Desugar-Idris-n--13210-7914-toPure (lambda (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 (vector 7 arg-2 (vector 0 arg-2 (vector 1 "pure")) arg-10))))
+(define Desugar-Idris-n--13265-9418-toIDef (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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-0 e-5 (vector 1 (vector 0 e-0 e-1 e-2) (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 ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 2 e-3 e-8 (vector 1 (vector 1 e-3 e-4 e-5 e-6 e-7) (vector 0 )))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 2 e-8 e-5 (vector 1 (vector 2 e-8 e-9) (vector 0 )))))))))))))))))
+(define Desugar-Idris-n--13265-9857-pairToCons (lambda (arg-0 arg-1 arg-2 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) ((36) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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) (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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)))))(else (vector 1 arg-14 (vector 0 )))))))
+(define Desugar-Idris-n--13259-9220-mkRecType (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 21 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-5 e-10 e-14 (vector 1 e-6) e-15 (Desugar-Idris-n--13259-9220-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))))))
+(define Desugar-Idris-n--13265-10992-mkConName (lambda (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) (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))) (vector 0 e-0 (vector 4 e-2 (vector 2 (Strings-Prelude-C-43C-43 "__mk" e-2) 0)))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0))))))))(else (vector 4 (Name-Core-show_Show__Name arg-11) (vector 2 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-11)) 0)))))))
+(define Desugar-Idris-n--13265-10993-mapDesugarPiInfo (lambda (arg-0 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) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-11 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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
+(define Desugar-Idris-n--13210-7913-guard (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (vector 7 e-0 (vector 0 e-0 (vector 1 "guard")) e-1)))))(else arg-10)))))
+(define Desugar-Idris-n--13265-9417-getFn (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 2))) (lambda (eta-0) (vector 1 e-1)))) ((8) (let ((e-3 (vector-ref sc0 2))) (Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Desugar-Idris-n--13265-9417-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-7) " is not a function application")) eta-0)))))))
+(define Desugar-Idris-n--13265-10991-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) (let ((sc0 arg-11)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define Desugar-Idris-n--13265-9858-expandConstraint (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-5) e-3) (vector 0 )))) (else (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (vector 0 ) x)) (Desugar-Idris-n--13265-9857-pairToCons arg-0 arg-1 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 Desugar-Idris-n--12853-6185-backtickPrec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 2 (+ 1 0))))
+(define Desugar-Idris-toTokList (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((26) (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))) (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 ((op (Name-Core-nameRoot e-1))) ((Desugar-Idris-case--12853-6202 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 1))) e-10)))) eta-0))))))))))))) ((27) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (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-7 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-5))) ((Desugar-Idris-case--12853-6367 e-6 e-5 e-4 arg-0 e-7 op (StringMap-Data-lookup 'erased op (let ((sc2 e-7)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-1) (vector 0 )))))))))
+(define Desugar-Idris-pairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "Pair"))))
+(define BangData-Desugar-Idris-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Desugar-Idris-mkpairname (lambda () (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "MkPair"))))
+(define Desugar-Idris-mkdpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "MkDPair"))))
+(define Desugar-Idris-mkPrec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 arg-1)) ((1) (vector 1 arg-1)) ((2) (vector 2 arg-1)) (else (vector 3 arg-1))))))
+(define Desugar-Idris-initBangs (lambda () (vector 0 0 (vector 0 ))))
+(define Desugar-Idris-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3))))))
+(define Desugar-Idris-idiomise (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (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 arg-0 (vector 8 arg-0 (vector 0 arg-0 (vector 1 "<*>")) (Desugar-Idris-idiomise e-0 e-1)) e-2)))))(else (vector 8 arg-0 (vector 0 arg-0 (vector 1 "pure")) arg-1))))))
+(define Desugar-Idris-getDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (let ((e-76 (vector-ref sc0 5))) (let ((e-77 (vector-ref sc0 6))) (let ((e-78 (vector-ref sc0 7))) (let ((e-79 (vector-ref sc0 8))) (let ((e-80 (vector-ref sc0 9))) (let ((e-81 (vector-ref sc0 10))) (let ((e-82 (vector-ref sc0 11))) (vector 1 (vector 7 e-72 e-73 e-74 arg-0 e-76 e-77 e-78 e-79 e-80 e-81 e-82))))))))))))) ((11) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (let ((e-85 (vector-ref sc0 3))) (vector 1 (vector 11 e-83 e-84 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-85)))))))(else (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 arg-1)) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (vector 1 (vector 2 e-11 e-12 (vector 1 e-35 e-36 e-37)))))))(else (vector 0 )))))))) ((6) (vector 1 arg-1)) ((8) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (let ((e-26 (vector-ref sc1 4))) (let ((e-27 (vector-ref sc1 5))) (let ((e-28 (vector-ref sc1 6))) (vector 1 (vector 2 e-23 e-24 (vector 1 e-23 e-25 (Desugar-Idris-n--13259-9220-mkRecType e-27 e-28 e-26 e-25 e-24 e-23 arg-1 e-26))))))))))) ((10) (vector 1 arg-1)) ((14) (vector 1 arg-1))(else (vector 0 ))))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((2) (let ((e-47 (vector-ref sc1 3))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (vector 1 arg-1))(else (vector 1 arg-1)))))) ((6) (vector 0 )) ((8) (vector 1 arg-1)) ((10) (vector 0 )) ((14) (vector 0 ))(else (vector 1 arg-1)))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 3 e-0 e-1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-2))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 4 e-3 e-4 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-5)))))))(else (let ((sc0 arg-0)) (vector 1 arg-1)))))))))))))
+(define Desugar-Idris-extendAs (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-6 (vector-ref sc1 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-12 (vector-ref sc2 1))) e-12)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-11 (vector-ref sc2 2))) e-11)) e-1) (ANameMap-Data-mergeAs 'erased arg-1 arg-2 (let ((sc2 arg-3)) (let ((e-10 (vector-ref sc2 3))) e-10)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc2 arg-3)) (let ((e-9 (vector-ref sc2 4))) e-9)) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))))
+(define Desugar-Idris-expandList (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 arg-7 (vector 1 "Nil"))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-2) 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 ((act-25 ((Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-7 (vector 1 "::")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))))))))
+(define Desugar-Idris-expandDo (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Do block cannot be empty") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-29 eta-0)))(else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((ty (let ((sc5 e-6)) (case (vector-ref sc5 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-5 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)) (let ((e-7 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (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 ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) eta-0))) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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))) (vector 1 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((e-17 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 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-7 (vector-ref sc5 1))) (let ((act-27 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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-8 (vector-ref sc6 1))) (let ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox e-5))) (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 ((e-9 (vector-ref sc7 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc8 e-9)) (let ((e-1 (vector-ref sc8 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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-6 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 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-7 (vector-ref sc5 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (let ((e-9 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc8 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc9 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc10 act-30)) (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-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc11 act-31)) (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))) (vector 1 (Desugar-Idris-bindBangs (let ((sc12 e-13)) (let ((e-1 (vector-ref sc12 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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))) (vector 1 (vector 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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))) (vector 1 (vector 13 e-25 e-6 e-5))))))))))))))))))))))))))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Syntax-Idris-getLoc e-2) "Last statement in do block must be an expression") eta-0)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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 ((ty (let ((sc4 e-6)) (case (vector-ref sc4 0) ((4) (vector 0 e-4 (vector 1 "Unit")))(else (vector 31 e-4 1)))))) (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-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (vector 1 (vector 8 e-4 (vector 8 e-4 (vector 0 e-4 (vector 1 ">>=")) e-6) (vector 2 e-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ty e-7)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 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 ((act-25 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-9 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 (vector 8 e-6 (vector 0 e-6 (vector 1 ">>=")) e-5) (vector 2 e-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-7) (vector 31 e-6 1) e-9)))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 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 (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (BindImplicits-TTImp-bindNames arg-1 1 e-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 (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-12) 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))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-28 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) 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 (vector 8 e-9 (vector 8 e-9 (vector 0 e-9 (vector 1 ">>=")) e-8) (vector 2 e-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 31 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13)))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((e-17 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-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 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) 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 ((bind (vector 3 e-13 e-15 e-14 e-7 e-6 e-8))) (let ((act-28 (let ((act-28 (unbox 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 ((e-9 (vector-ref sc6 1))) (vector 1 (Desugar-Idris-bindBangs (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1)) bind))))))))))))))))))))))))))))))))))) ((4) (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) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 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 ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-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 (BindImplicits-TTImp-bindNames arg-1 1 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-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (let ((e-9 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-28 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc7 act-28)) (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-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-5 0 eta-1)) e-22) eta-0))) (let ((sc8 act-29)) (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 ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-30 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc9 act-30)) (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))) (let ((act-31 (let ((act-31 (unbox e-5))) (vector 1 act-31)))) (let ((sc10 act-31)) (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 (Desugar-Idris-bindBangs (let ((sc11 e-13)) (let ((e-1 (vector-ref sc11 2))) e-1)) (vector 4 e-18 e-10 e-7 (vector 1 (vector 0 e-18 e-4 e-12) e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-5 eta-1)) e-24) 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 5 e-23 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)))))))))))))))) (else (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 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 13 e-25 e-6 e-5)))))))))))))))))))))))))))))))
+(define Desugar-Idris-dpairname (lambda () (vector 0 (vector 1 "DPair" (vector 1 "Builtin" (vector 0 ))) (vector 1 "DPair"))))
+(define Desugar-Idris-desugarUpdate (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) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 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 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 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 (vector 1 e-2 e-5)))))))))))))))
+(define Desugar-Idris-desugarType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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))) (vector 1 (vector 0 e-0 e-1 e-7))))))))))))))))))))))))
+(define Desugar-Idris-desugarTree (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))) (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)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((sc2 e-14)) (cond ((equal? sc2 "=") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-2 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "===")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-2 (vector 1 "~=~")) (vector 1 e-6 (vector 1 e-7 (vector 0 )))) (vector 0 ))))))))))))))))) ((equal? sc2 "$") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-2 e-6 e-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-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))) (vector 1 (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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 ((Desugar-Idris-desugarTree 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 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) 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))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (cond ((equal? sc2 "-") (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-5 (vector-ref sc3 1))) (vector 1 (vector 8 e-8 (vector 0 e-8 (vector 1 "negate")) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarTree 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))) (vector 1 (vector 8 e-8 (vector 0 e-8 e-9) e-5))))))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-13)))))))
+(define Desugar-Idris-desugarFnOpt (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) (vector 1 e-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))))))))
+(define Desugar-Idris-desugarField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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))) (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 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 eta-1 eta-2))) e-2) 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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc4 e-5)) (let ((e-9 (vector-ref sc4 5))) e-9)) arg-4 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 (vector 0 e-0 e-1 e-6 e-3 e-8)))))))))))))))))))))))))))))))
+(define Desugar-Idris-desugarDecl (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))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 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 ((Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 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 1 (vector 0 e-0 e-1 e-2 e-5 e-6) (vector 0 )))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 1 eta-1)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--13265-9418-toIDef e-6 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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-8 (vector-ref sc2 1))) (vector 1 (Parser-TTImp-collectDefs 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 ((Desugar-Idris-desugarData 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))) (vector 1 (vector 1 (vector 1 e-7 e-8 e-5) (vector 0 ))))))))))))) ((3) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) eta-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 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-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-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((pnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-11)) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind pnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (vector 1 (vector 1 (vector 3 e-10 paramsb ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (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 ((oldu (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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 (BindImplicits-TTImp-bindTypeNames arg-1 oldu arg-4 e-6 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 (vector 0 (Builtin-fst 'erased 'erased ntm) e-7)))))))))))))) 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))) (let ((act-26 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased e-6 oldu) 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 (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-15) 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-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 ((act-29 (let ((act-29 (set-box! arg-0 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (vector 0 e-0 e-1 e-2 e-3 oldu e-10)))))))))) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))))))))))))))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-16 "Reflection not implemented yet") eta-0)))) ((6) (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 ((e-23 (vector-ref sc0 6))) (let ((e-24 (vector-ref sc0 7))) (let ((e-25 (vector-ref sc0 8))) (let ((e-26 (vector-ref sc0 9))) (let ((cons ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--13265-9858-expandConstraint e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) e-20))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased arg-4 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23)) (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-5))))))))) cons) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 (Builtin-snd 'erased 'erased ntm) 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))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased ntm) e-6))))))))) 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))) (let ((mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS eta-1)) (Syntax-Idris-definedIn e-26)))) (let ((act-26 (Context-Core-isUnboundImplicits arg-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 ((bnames (Desugar-Idris-ifThenElse 'erased e-7 (lambda () (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Utils-TTImp-findBindableNames 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) (vector 0 ) eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)))) (lambda () (vector 0 ))))) (let ((paramsb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-6))) (let ((consb (Prelude-map_Functor__List 'erased 'erased (lambda (ntm) (vector 0 (Builtin-fst 'erased 'erased ntm) (BindImplicits-TTImp-doBind bnames (Builtin-snd 'erased 'erased ntm)))) e-5))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased arg-4 (List-Prelude-C-43C-43 'erased mnames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) e-23))) eta-1)) e-26) 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 1 (vector 8 (lambda (vars-10004) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-10004 arg-1 arg-2 arg-0 arg-3 e-18 e-19 env nest consb e-21 paramsb e-24 e-25 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8) eta-1)))))) (vector 0 ))))))))))))))))))))))))))))))))))))))) ((7) (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 ((e-32 (vector-ref sc0 6))) (let ((e-33 (vector-ref sc0 7))) (let ((e-34 (vector-ref sc0 8))) (let ((e-35 (vector-ref sc0 9))) (let ((e-36 (vector-ref sc0 10))) (let ((e-37 (vector-ref sc0 11))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-8)))))))))))))))) 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))) (Desugar-Idris-case--13265-10284 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-6 eta-0)))))))))))))))))))))))) ((8) (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 ((e-42 (vector-ref sc0 5))) (let ((e-43 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-11 eta-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))) (let ((act-25 ((Desugar-Idris-n--13265-10993-mapDesugarPiInfo e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-10) eta-1))) (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))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-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))) ((Desugar-Idris-case--13265-11131 e-43 e-42 e-41 e-40 e-39 e-38 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-5) eta-0)))))))))))))) ((10) (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 ((sc1 e-45)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 e-0 (StringMap-Data-insert 'erased e-62 e-46 e-1) e-2 e-3 e-4 e-6))))))))))) (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 (let ((sc2 e-47)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (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-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (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-6 (vector-ref sc4 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0)))))))))(else (let ((sc1 e-47)) (case (vector-ref sc1 0) ((1) (let ((e-61 (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 (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-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 (StringMap-Data-insert 'erased e-61 (vector 0 e-45 e-46) e-0) e-1 e-2 e-3 e-4 e-6))))))))))) (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 (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-44 "Fixity declarations must be for unqualified names") eta-0))))))))))))) ((9) (let ((e-49 (vector-ref sc0 2))) (let ((mds (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 1 ) eta-0)) e-49) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 2 ) eta-0)) e-49)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) mds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))) ((11) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (vector 1 (vector 1 (vector 5 e-50 e-51 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))))))))))))) ((12) (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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))) (BindImplicits-TTImp-bindNames arg-1 1 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))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-56 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 1 (vector 6 e-53 (vector 1 e-54) e-3 e-6) (vector 0 )))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) 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))) (vector 1 (vector 1 (vector 7 e-57 e-5) (vector 0 )))))))))))) (else (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((sc1 e-60)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-11959) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-1 e-59 e-0 eta-1)))))) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 9 e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12005) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-1 e-2 eta-1)))))) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-1 e-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 (vector 1 (vector 1 (vector 8 (lambda (vars-12039) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-1 e-3 eta-1)))))) (vector 0 )))))))))) ((16) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12068) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-1 e-4 eta-1)))))) (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12096) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-1 e-5 eta-1)))))) (vector 0 )))))) ((17) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12124) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAutoImplicitLimit arg-1 e-6 eta-1)))))) (vector 0 )))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12152) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-1 e-59 e-7 e-8 e-9 eta-1)))))) (vector 0 )))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12180) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-1 e-59 e-10 e-11 eta-1)))))) (vector 0 ))))))) ((7) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12208) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-1 e-12 eta-1)))))) (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12236) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-1 e-13 eta-1)))))) (vector 0 )))))) ((9) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12264) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-1 e-14 eta-1)))))) (vector 0 )))))) ((10) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12292) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-1 e-15 e-16 eta-1)))))) (vector 0 ))))))) ((11) (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12320) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-1 e-59 e-17 e-18 eta-1)))))) (vector 0 ))))))) ((12) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12348) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))))) ((13) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12379) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-1 e-59 e-20 (vector 2 ) eta-1)))))) (vector 0 )))))) ((14) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 (lambda (vars-12408) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-1 e-21 eta-1)))))) (vector 0 )))))) (else (let ((e-22 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setDefaultTotalityOption arg-1 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 (vector 1 (vector 0 ))))))))))))))))))
+(define Desugar-Idris-desugarData (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))) (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 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 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 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 5))) e-8)) arg-4 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 (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-4) 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 (vector 0 e-0 e-1 e-7 e-3 e-8))))))))))))))))))))))))))))) (else (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 (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-8 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 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))) (let ((act-26 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 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-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-10))))))))))))))))))))))))))
+(define Desugar-Idris-desugarClause (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-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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) 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))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-1 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))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-6 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 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-7 arg-4) e-2 eta-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 0 e-0 e-4 (let ((sc5 e-5)) (case (vector-ref sc5 0) ((0) e-8)(else (vector 5 e-0 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-8)))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-9 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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-10 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 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-10 (vector-ref sc2 1))) (let ((sc3 e-10)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-6 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 (vector 1 e-4 e-3 e-11 e-7 e-9))))))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 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 (BindImplicits-TTImp-bindNames arg-1 arg-5 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 (vector 2 e-9 (Builtin-snd 'erased 'erased e-6)))))))))))))))))))))
+(define Desugar-Idris-desugarB (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) (vector 1 (vector 0 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))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((psC-39 (Prelude-maybe 'erased 'erased (lambda () arg-6) (lambda () (lambda (arg-8) (vector 1 arg-8 arg-6))) e-5))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 eta-1 eta-2))) e-4) 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) 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 ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 psC-39 e-7) 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 ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-3 e-8 e-5 e-9 e-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) ((0) (let ((e-134 (vector-ref sc1 2))) (let ((sc2 e-134)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-134 arg-6) e-13 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 e-134) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (vector 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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 0 )))))))))))))))))))))))))) ((24) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 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 2 e-8 e-9 e-5 (vector 0 ) e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 (vector 0 e-8 e-11 e-13 (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))) (vector 1 (vector 2 e-8 e-9 e-5 (vector 1 (vector 2 "lamc" 0)) e-6 (vector 4 e-8 (vector 0 e-8 (vector 2 "lamc" 0)) (vector 31 e-8 1) (vector 1 e-7 (vector 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))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-140 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-140 arg-6) e-19 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))) (vector 1 (vector 3 e-14 e-15 e-140 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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 4 e-14 e-5 e-6 e-7)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Desugar-Idris-desugarB 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) (vector 1 (vector 0 e-14 e-16 e-19 (vector 0 )) e-20)) 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-14 e-5 e-6 e-7))))))))))))))))))))))))))))) ((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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarClause arg-0 arg-2 arg-4 arg-3 arg-6 0 eta-1)) 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 (vector 31 e-21 1) e-6))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((psC-39 (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-25) arg-6))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 psC-39 eta-1)) 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))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 e-26 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-24 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-6)))))))))))))))))) ((7) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((6) (let ((e-143 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarUpdate arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 eta-1)) e-143) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) 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 7 e-27 e-5 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 8 e-27 e-5 e-6)))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-30 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-30 (vector 2 "rec" 0)) (vector 24 e-30) (vector 7 e-30 (vector 6 e-30 e-31) (vector 0 e-30 (vector 2 "rec" 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 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 10 e-32 e-5 e-6))))))))))))))))) ((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))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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 ((Desugar-Idris-desugarB 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 9 e-35 e-5 e-37 e-6)))))))))))))))))) ((10) (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 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 19 e-39 e-40 e-5)))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB 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))) (vector 1 (vector 20 e-42 e-5))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 21 e-44 e-5))))))))))) ((30) (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 ((Desugar-Idris-desugarB 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 12 e-46 (vector 0 ) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "===")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 (TTImp-TTImp-apply (vector 0 e-46 (vector 1 "~=~")) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 0 )))))))))))))))))))) ((31) (let ((e-50 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-50))) ((26) (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 ((Desugar-Idris-toTokList arg-0 (vector 26 e-51 e-52 e-53 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))) (let ((act-25 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0))))))))))))))))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-toTokList arg-0 (vector 27 e-55 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 (Shunting-Utils-parseOps 'erased 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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))) ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-6) eta-0)))))))))))))))) ((28) (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 (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))) ((Desugar-Idris-case--13210-7170 e-60 e-59 e-58 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-59) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))) eta-0))))))))))) ((29) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (let ((e-63 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-61 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-61 (vector 2 "arg" 0)) (vector 24 e-61) (vector 26 e-61 e-63 e-62 (vector 0 e-61 (vector 2 "arg" 0))))))))) ((13) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 11 e-64 e-65)))))) ((14) (let ((e-66 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 2))) (let ((sc1 e-67)) (case (vector-ref sc1 0) ((1) (let ((e-144 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromIntegerName arg-2 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) ((0) (vector 1 (vector 12 e-66 (vector 2 (vector 27 e-66 (vector 1 e-144))) (vector 1 (vector 27 e-66 (vector 1 e-144)) (vector 1 (vector 27 e-66 (vector 0 e-144)) (vector 0 )))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 1 e-144)))))))))))))))) ((6) (let ((e-145 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromStringName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 6 e-145)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 6 e-145)))))))))))))))) ((7) (let ((e-146 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-fromCharName arg-2 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) ((0) (vector 1 (vector 27 e-66 (vector 7 e-146)))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 (vector 8 e-66 (vector 0 e-66 e-2) (vector 27 e-66 (vector 7 e-146))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 27 e-66 e-67))))))))) ((15) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 22 e-68 e-5))))))))))) ((16) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 23 e-70 e-71)))))) ((17) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 arg-6 eta-1)) 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 24 e-72 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))) ((18) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 25 e-74 e-5))))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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 26 e-76 e-5))))))))))) ((20) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-79)) (cond ((equal? sc1 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 (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-6 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 e-80) e-3) e-4 e-6))))))))))) (vector 1 act-25)))))))) (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 (vector 1 (vector 29 e-78 e-80))))))))))) ((21) (let ((e-81 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 28 e-81))))) ((22) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 17 e-82 (vector 1 ) e-83 e-5)))))))))))) ((23) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 18 e-85 (vector 4 ) e-5))))))))))) ((24) (let ((e-87 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-87 0))))) ((25) (let ((e-88 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 31 e-88 1))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (Desugar-Idris-expandDo arg-0 arg-2 arg-4 arg-3 arg-5 arg-6 e-89 e-90)))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (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 ((bn (vector 2 "bind" (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (vector 0 (b+ e-0 1 63) (vector 1 (vector 0 bn (vector 0 e-91 e-5)) e-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 (vector 1 (vector 0 e-91 bn))))))))))))))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Desugar-Idris-idiomise e-93 e-5))))))))))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-95 e-96)))) ((36) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-6 (vector-ref sc2 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-mkpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))) (vector 1 (vector 12 e-97 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-97 (Desugar-Idris-pairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 pval (vector 0 ))))))))))))))))))))) ((37) (let ((e-100 (vector-ref sc0 1))) (let ((e-101 (vector-ref sc0 2))) (let ((e-102 (vector-ref sc0 3))) (let ((e-103 (vector-ref sc0 4))) (let ((sc1 e-101)) (case (vector-ref sc1 0) ((0) (let ((e-148 (vector-ref sc1 1))) (let ((e-149 (vector-ref sc1 2))) (let ((sc2 e-149)) (case (vector-ref sc2 0) ((1) (let ((e-150 (vector-ref sc2 1))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 ((pval (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 (vector 0 e-148 (vector 1 e-150)) (vector 1 e-5 (vector 0 )))))) (vector 1 (vector 12 e-100 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 (vector 31 e-148 1) (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) (vector 31 e-148 1) e-5) (vector 0 )))) (vector 1 pval (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-102) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-dpairname)) (vector 1 e-5 (vector 1 (vector 2 e-148 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-150)) e-5 e-6) (vector 0 )))))))))))))))))))))(else (let ((sc2 e-102)) (case (vector-ref sc2 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0)))))))))))(else (let ((sc1 e-102)) (case (vector-ref sc1 0) ((24) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) 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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-103) 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 (TTImp-TTImp-apply (vector 0 e-100 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-100 "Invalid dependent pair type") eta-0))))))))))))) ((38) (let ((e-104 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 12 e-104 (vector 2 (vector 0 e-104 (vector 1 "MkUnit"))) (vector 1 (vector 0 e-104 (vector 1 "Unit")) (vector 1 (vector 0 e-104 (vector 1 "MkUnit")) (vector 0 )))))))) ((39) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-108 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-106) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-26 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-108 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-105 e-5 (vector 0 e-105 (vector 1 "Bool")) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "True")) e-6) (vector 1 (vector 0 e-105 (vector 0 e-105 (vector 1 "False")) e-7) (vector 0 )))))))))))))))))))))))))) ((40) (let ((e-109 (vector-ref sc0 1))) (let ((e-110 (vector-ref sc0 2))) (let ((e-111 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 32 e-109 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--13210-7913-guard e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-111) (vector 1 (Desugar-Idris-n--13210-7914-toPure e-111 e-110 e-109 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-110) (vector 0 ))))))))) ((41) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-114 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (vector 13 e-112 e-5 e-6))))))))))))))))) ((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))) (let ((sc1 e-117)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromTo")) e-116) e-118))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-115 (vector 7 e-115 (vector 7 e-115 (vector 0 e-115 (vector 1 "rangeFromThenTo")) e-116) e-2) e-118))))))))))) ((43) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((sc1 e-121)) (case (vector-ref sc1 0) ((0) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFrom")) e-120))) (else (let ((e-2 (vector-ref sc1 1))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 7 e-119 (vector 7 e-119 (vector 0 e-119 (vector 1 "rangeFromThen")) e-120) e-2)))))))))) ((46) (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 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (vector 30 e-122 e-123 e-5)))))))))))) ((44) (let ((e-125 (vector-ref sc0 1))) (let ((e-126 (vector-ref sc0 2))) (let ((e-127 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-125 (vector 0 e-125 f) r))) e-126 e-127)))))) ((45) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-128 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-128 (vector 2 "rec" 0)) (vector 24 e-128) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-128 (vector 0 e-128 f) r))) (vector 0 e-128 (vector 2 "rec" 0)) e-129)))))) (else (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (let ((e-132 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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-130 e-131 e-5))))))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-132) eta-0))))))))))
+(define Desugar-Idris-desugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Desugar-Idris-desugarB arg-0 e-5 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 ((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 (Desugar-Idris-bindBangs (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-6)))))))))))))))))))
+(define Desugar-Idris-bindBangs (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))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (Desugar-Idris-bindBangs e-3 (vector 8 e-10 (vector 8 e-10 (vector 0 e-10 (vector 1 ">>=")) e-11) (vector 2 e-10 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) (vector 31 e-10 1) arg-1))))))))))))))))
+(define BangData-Desugar-Idris-bangNames (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define Shunting-Utils-case--2394-1265 (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))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-1)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))
+(define Shunting-Utils-case--2255-1010 (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) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-9 (vector 0 arg-3 arg-4 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 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-9 arg-6 arg-7 arg-8) eta-0))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 arg-4 arg-5)) arg-6))))))))
+(define Shunting-Utils-case--2062-890 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-3))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-5) arg-4))))))))
+(define Shunting-Utils-case--2062-821 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Prelude-C-43C-43 "Operator '" (Strings-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 arg-2))) "' is non-associative"))) eta-0))) (else (lambda (eta-0) (vector 1 (Prelude-C-62_Ord__Nat arg-3 (Shunting-Utils-getPrec arg-5)))))))))
+(define Shunting-Utils-n--2394-1166-sprec (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) e-7))))))
+(define Shunting-Utils-n--2394-1165-sop (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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
+(define Shunting-Utils-n--2394-1164-sloc (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) e-2))))))
+(define Shunting-Utils-shunt (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 arg-4 e-2) eta-0)))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 arg-4 e-10 e-11) 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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 arg-3 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11)) e-5) e-2) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (s) (lambda (eta-1) (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 (Shunting-Utils-n--2394-1164-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2394-1165-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2394-1166-sprec 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s)) eta-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 (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-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 ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 e-1))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))))))
+(define Shunting-Utils-processStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Shunting-Utils-higher 'erased arg-2 e-6 e-10 e-11 arg-5 arg-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 (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (let ((act-25 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 e-6 e-10 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 e-3 arg-5 arg-6) eta-0)))))) (else (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) e-3))))))))))))))))))))))))
+(define Shunting-Utils-parseOps (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Shunting.Out" ) (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))) ((Shunting-Utils-shunt 'erased 'erased arg-2 e-5 (vector 0 ) arg-3) ext-0))))))))
+(define Shunting-Utils-output (lambda (arg-0 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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-22 e-23 e-5) e-6))))(else (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))))))(else (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0)))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-2) arg-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Invalid input to shunting") eta-0))))))))))
+(define Shunting-Utils-isLAssoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0)(else 1)))))
+(define Shunting-Utils-higher (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) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (Shunting-Utils-case--2062-821 'erased arg-1 arg-3 e-1 arg-5 arg-6 arg-2 (Prelude-C-61C-61_Eq__Nat e-1 (Shunting-Utils-getPrec arg-6)))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Shunting-Utils-case--2062-890 'erased arg-1 arg-3 arg-5 e-0 arg-4 arg-2 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) e-0))))(else (lambda (eta-0) (vector 1 (Prelude-C-124C-124 (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (Shunting-Utils-getPrec arg-4) (Shunting-Utils-getPrec arg-6)) (lambda () (Shunting-Utils-isLAssoc arg-4))))))))))))))))))
+(define Shunting-Utils-getPrec (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define Shunting-Utils-emit (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))) (let ((act-25 ((Shunting-Utils-output 'erased 'erased e-5 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 (set-box! arg-2 e-6))) (vector 1 act-26))))))))))))))
+(define Interface-Elab-Idris-case--13406-2577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 0 e-14 (vector 0 e-6 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))))
+(define Interface-Elab-Idris-case--13430-2291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (vector 0 e-5 e-14)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-15 (Strings-Prelude-C-43C-43 "No method named " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-17) (Strings-Prelude-C-43C-43 " in interface " (Name-Core-show_Show__Name arg-4))))) eta-0)))))))
+(define Interface-Elab-Idris-case--13430-2074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ity (TTImp-TTImp-apply (vector 0 arg-15 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-15 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-3))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-24 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (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 n (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 0 arg-15 e-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19)) 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 ((dty (Utils-TTImp-substNames arg-6 e-5 e-3))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19) arg-6) (Interface-Elab-Idris-bindIFace arg-15 ity dty) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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 ((dtydecl (vector 0 arg-15 e-2 arg-9 (vector 0 ) (vector 0 arg-15 arg-21 e-6)))) (let ((act-27 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-21 eta-1)) arg-18))) (let ((act-28 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) 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 ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 arg-15 arg-21 csC-39)) eta-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 (vector 0 arg-17 arg-18))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-case--13760-1945 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-21 arg-22)) (else (vector 0 arg-21 arg-20))))))
+(define Interface-Elab-Idris-case--13280-1544 (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)) (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 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-5 arg-10 e-2) e-3 e-4 e-5))))))))))
+(define Interface-Elab-Idris-case--12734-1092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 )))))))
+(define Interface-Elab-Idris-case--12543-793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)) (else (vector 1 arg-18 arg-17 arg-16 arg-15 arg-14 (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-19 arg-13)))))))
+(define Interface-Elab-Idris-case--12181-639 (lambda (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) (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 0 )))) (else (vector 1 (vector 1 ) (vector 1 (vector 2 ) (vector 1 (vector 0 arg-1) (vector 0 )))))))))
+(define Interface-Elab-Idris-n--13280-1466-totMeth (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((treq (Interface-Elab-Idris-n--13280-1465-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 treq e-11)))))))))))))))))
+(define Interface-Elab-Idris-n--12503-779-stripParams (lambda (arg-0 arg-1 arg-2 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-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))) (Interface-Elab-Idris-case--12543-793 'erased 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-4 e-3 e-2 e-1 e-0 arg-13 (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) n arg-13))) e-3)))))))))(else arg-14)))))
+(define Interface-Elab-Idris-n--13428-1615-notData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 0 1 e-3)))))))
+(define Interface-Elab-Idris-n--13406-1580-nameCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (Strings-Prelude-C-43C-43 "__con" (Prelude-show_Show__Int arg-15))) e-7) (Interface-Elab-Idris-n--13406-1580-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-3)))))))))))
+(define Interface-Elab-Idris-n--12181-458-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) arg-13) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-9 e-10 arg-11 e-6 e-11 (Interface-Elab-Idris-n--12181-458-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 e-3 arg-13)))))))))))))))
+(define Interface-Elab-Idris-n--12734-979-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 2 arg-1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-2) (vector 31 arg-1 1) (Interface-Elab-Idris-n--12734-979-mkLam arg-0 arg-1 arg-2 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-3 arg-16)))))))))
+(define Interface-Elab-Idris-n--12734-981-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 1 (Interface-Elab-Idris-n--12734-980-bindName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15))))
+(define Interface-Elab-Idris-n--12181-455-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) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 e-2) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
+(define Interface-Elab-Idris-n--12734-978-getExplicitArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 3))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 2 "arg" arg-15) (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (b+ arg-15 1 63) e-5)))(else (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-0 arg-1 arg-2 arg-3 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)))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-n--13280-1465-findSetTotal (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--13280-1465-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))))
+(define Interface-Elab-Idris-n--13406-1582-elabMethods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethToplevel arg-6 arg-14 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) arg-16 arg-3 eta-0)) 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 ((fns ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Top level methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) fns))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-0)) fns) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-0) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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 (Context-Core-setFlag arg-14 arg-10 e-8 (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 ((act-29 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Context-Core-setFlag arg-14 arg-10 e-8 (vector 2 ) eta-0)))))))))))))))) arg-16) ext-0)))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1583-elabDefault (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((dn_in (vector 1 (Strings-Prelude-C-43C-43 "Default implementation of " (Name-Core-show_Show__Name e-10))))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-14 dn_in) 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))) (let ((act-25 ((Interface-Elab-Idris-case--13430-2291 arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 dn_in e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-10 arg-15)) 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 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-26 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc6 act-26)) (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 0 n (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 (vector 0 e-2 e-12) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15)) eta-0))) (let ((sc6 act-26)) (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))) (let ((dty (Utils-TTImp-substNames arg-6 e-12 e-4))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-14 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15) arg-6) (Interface-Elab-Idris-bindIFace e-2 ity dty) eta-0))) (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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-13))))) 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 ((dtydecl (vector 0 e-2 e-9 arg-9 (vector 0 ) (vector 0 e-2 e-5 e-13)))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) 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 ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 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-2 e-6 e-10 e-11 arg-15 e-5 eta-1)) e-11))) (let ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Default method body " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) csC-39))) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 (vector 2 e-2 e-5 csC-39)) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (vector 1 (vector 0 e-10 e-11))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1584-elabConstraintHints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((nconstraints (Interface-Elab-Idris-n--13406-1580-nameCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 0 arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-getConstraintHint arg-6 arg-14 arg-10 arg-8 arg-9 arg-4 arg-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) nconstraints) arg-16 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-fst 'erased 'erased eta-2)) arg-3) eta-1)) nconstraints) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraint hints from " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-5) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpDecl x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpDecl d-1 x-1)))) d-0 x-0))))) d 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 (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 eta-1)) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (Builtin-snd 'erased 'erased eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-27 ((Context-Core-inCurrentNS arg-14 n) 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))) (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-5)) eta-0))))))))))))))))))
+(define Interface-Elab-Idris-n--13406-1581-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 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) 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 ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Method declarations: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getMethDecl 'erased arg-6 arg-14 arg-8 arg-7 arg-3 arg-16 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (c) (vector 0 arg-10 (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13428-1615-notData arg-0 arg-1 arg-2 arg-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 'erased 'erased eta-0)) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Constraints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((Interface-Elab-Idris-mkIfaceData arg-6 arg-14 arg-10 arg-9 arg-8 e-7 arg-4 arg-15 arg-3 arg-2 e-5) 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 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-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 ((act-30 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making interface data type " (TTImp-TTImp-show_Show__ImpDecl e-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 ((act-31 (ProcessDecls-TTImp-processDecls arg-6 arg-14 arg-11 arg-13 arg-7 arg-8 (vector 1 e-9 (vector 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 (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-n--13043-1246-constName (lambda (arg-0 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 (Interface-Elab-Idris-n--13043-1245-bindName arg-0 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 Interface-Elab-Idris-n--13430-1920-changeNameTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Interface-Elab-Idris-case--13760-1945 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 e-0 arg-20 (Name-Core-C-61C-61_Eq__Name arg-17 e-1))))) ((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 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-8 (vector-ref sc0 4))) (vector 9 e-5 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) e-7 e-8))))))(else arg-21)))))
+(define Interface-Elab-Idris-n--13430-1921-changeName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1) 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))) (vector 1 e-3 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4) e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13430-1921-changeName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 eta-0)) e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Interface-Elab-Idris-n--13430-1920-changeNameTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-9)))))))))
+(define Interface-Elab-Idris-n--12181-456-bname (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 1 e-2) (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
+(define Interface-Elab-Idris-n--12734-976-bindPs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) arg-16) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-getFC e-7) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--12734-976-bindPs arg-0 arg-1 arg-2 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-3 arg-16))))))))))))
+(define Interface-Elab-Idris-n--13043-1245-bindName (lambda (arg-0 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--13043-1245-bindName 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)))(else (Name-Core-show_Show__Name arg-12))))))
+(define Interface-Elab-Idris-n--12734-980-bindName (lambda (arg-0 arg-1 arg-2 arg-3 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-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "__bind_" e-0))) ((0) (let ((e-2 (vector-ref sc0 2))) (Interface-Elab-Idris-n--12734-980-bindName arg-0 arg-1 arg-2 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-2)))(else (Name-Core-show_Show__Name arg-15))))))
+(define Interface-Elab-Idris-n--12181-457-bhere (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 e-6 (vector 15 (TTImp-TTImp-getFC e-7) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
+(define Interface-Elab-Idris-n--13430-1919-applyParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) arg-20) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (vector 9 arg-15 arg-20 (vector 1 (vector 1 e-4)) (vector 16 arg-15 e-4)) e-3)))(else (Interface-Elab-Idris-n--13430-1919-applyParams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3)))))))))))
+(define Interface-Elab-Idris-n--12734-977-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 0 arg-15 (vector 9 arg-1 (vector 0 arg-1 arg-15) (vector 1 (vector 1 "__con")) (vector 0 arg-1 (vector 1 "__con"))))))
+(define Interface-Elab-Idris-updateIfaceSyn (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13280-1466-totMeth arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 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 ((info (vector 0 arg-3 arg-4 arg-5 e-6 arg-7))) (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 (ANameMap-Data-addName 'erased arg-2 info e-2) e-3 e-4 e-7))))))))))) (vector 1 act-26)))))))))))))))
+(define Interface-Elab-Idris-namePis (lambda (arg-0 arg-1) (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 ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 2 ) (vector 1 (vector 2 "i_con" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 e-0 e-1 (vector 0 ) (vector 1 (vector 2 "i_imp" arg-0)) e-4 (Interface-Elab-Idris-namePis (b+ arg-0 1 63) e-5)))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5))))))(else (vector 1 e-0 e-1 e-2 e-3 e-4 (Interface-Elab-Idris-namePis arg-0 e-5)))))))))))) ((15) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (vector 15 e-6 e-7 (Interface-Elab-Idris-namePis arg-0 e-8))))))(else arg-1)))))
+(define Interface-Elab-Idris-mkIfaceData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((opts (Interface-Elab-Idris-case--12181-639 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (List-Data-isNil 'erased arg-9)))) (let ((retty (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((conty (Interface-Elab-Idris-n--12181-458-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 0 ) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-455-jname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-8) (Interface-Elab-Idris-n--12181-458-mkTy arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 (vector 1 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-457-bhere arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12181-456-bname arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-10)) retty)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) 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 ((con (vector 0 arg-2 arg-7 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-10) arg-0)) (Interface-Elab-Idris-mkDataTy arg-2 arg-8) 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 arg-2 arg-3 (vector 0 arg-2 arg-6 e-6 opts (vector 1 con (vector 0 ))))))))))))))))))))))
+(define Interface-Elab-Idris-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-mkDataTy arg-0 e-3))))))))))))
+(define Interface-Elab-Idris-mkCon (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-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-0 (vector 4 (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" e-2))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1))))))))))(else (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__mk" (Name-Core-show_Show__Name arg-1)))))))))
+(define Interface-Elab-Idris-getSig (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (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))) (vector 1 (vector 0 e-8 (vector 0 e-1 (vector 0 e-3 (vector 0 e-9 (vector 0 1 (Interface-Elab-Idris-namePis 0 e-10)))))))))))(else (vector 0 )))))))) ((1) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (vector 1 (vector 0 e-11 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 6 ) (vector 0 )) (vector 0 e-12 (vector 0 0 (Interface-Elab-Idris-namePis 0 e-13)))))))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-getMethToplevel (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((ity (TTImp-TTImp-apply (vector 0 e-2 arg-4) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 e-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-8))))) (let ((ty_constr (Interface-Elab-Idris-n--12734-976-bindPs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-8 (Utils-TTImp-substNames arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--12734-977-applyCon arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-0)) arg-7) e-19)))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (Interface-Elab-Idris-bindIFace e-2 ity ty_constr) 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 ((act-25 ((Context-Core-inCurrentNS arg-1 e-14) eta-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-8 (vector-ref sc6 1))) (let ((tydecl (vector 0 e-2 e-6 arg-3 (let ((sc7 e-18)) (cond ((equal? sc7 0) (vector 1 (vector 0 ) (vector 1 (vector 6 ) (vector 0 )))) (else (vector 1 (vector 0 ) (vector 0 ))))) (vector 0 e-2 e-8 e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 e-2 arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 e-2 0)) arg-6) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 e-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--12734-980-bindName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 eta-1)) arg-7)))))) (let ((argns (Interface-Elab-Idris-n--12734-978-getExplicitArgs arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 0 e-19))) (let ((fnclause (vector 0 e-2 (vector 9 e-2 (vector 0 e-2 e-8) (vector 1 (vector 1 "__con")) conapp) (Interface-Elab-Idris-n--12734-979-mkLam arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 argns (TTImp-TTImp-apply (vector 0 e-2 (Interface-Elab-Idris-n--12734-981-methName arg-1 e-2 e-6 e-10 e-14 e-18 e-19 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 e-14)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 e-2 eta-1)) argns)))))) (let ((fndef (vector 2 e-2 e-8 (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-getMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-2 (vector 0 ) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) (List-Prelude-C-43C-43 'erased arg-6 arg-1)) e-19 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 (vector 0 e-14 (vector 0 e-6 (Interface-Elab-Idris-n--12503-779-stripParams 'erased arg-2 e-2 e-6 e-10 e-14 e-18 e-19 arg-6 arg-5 arg-1 arg-4 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5) e-5)))))))))))))))))))))))))))
+(define Interface-Elab-Idris-getDefault (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))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) (vector 0 e-1 e-2))))))))(else (vector 0 ))))))
+(define Interface-Elab-Idris-getConstraintHint (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 ((ity (TTImp-TTImp-apply (vector 0 arg-2 arg-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-2 eta-0)) arg-9)))) (let ((fty (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 ) ity e-3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased arg-8 arg-0) fty 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 ((hintname (vector 4 (Strings-Prelude-C-43C-43 "Constraint " (TTImp-TTImp-show_Show__RawImp e-3)) (vector 1 (Strings-Prelude-C-43C-43 "__" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Prelude-C-43C-43 "_" (TTImp-TTImp-show_Show__RawImp e-3)))))))) (let ((tydecl (vector 0 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-4 (vector 1 (vector 0 ) (vector 1 (vector 2 1) (vector 0 ))) (vector 0 arg-2 hintname e-5)))) (let ((conapp (TTImp-TTImp-apply (vector 0 arg-2 arg-6) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--13043-1245-bindName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 eta-1)) arg-7)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 31 arg-2 0)) arg-8))))) (let ((fnclause (vector 0 arg-2 (vector 8 arg-2 (vector 0 arg-2 hintname) conapp) (vector 0 arg-2 (Interface-Elab-Idris-n--13043-1246-constName e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-0 arg-3 arg-2 arg-1 e-2))))) (let ((fndef (vector 2 arg-2 hintname (vector 1 fnclause (vector 0 ))))) (vector 1 (vector 0 hintname (vector 1 tydecl (vector 1 fndef (vector 0 )))))))))))))))))))))))
+(define Interface-Elab-Idris-elabInterface (lambda (arg-0 arg-1 arg-2 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 ((Context-Core-getFullName arg-1 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 ((conName_in (Prelude-maybe 'erased 'erased (lambda () (Interface-Elab-Idris-mkCon arg-5 e-5)) (lambda () (lambda (eta-0) eta-0)) arg-13))) (let ((act-25 ((Context-Core-inCurrentNS arg-1 conName_in) 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 ((meth_sigs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getSig eta-0)) arg-14))) (let ((meth_decls (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (vector 0 e-14 (vector 0 e-8 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))) meth_sigs))) (let ((meth_names (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) meth_decls))) (let ((defaults (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getDefault eta-0)) arg-14))) (let ((act-26 (Interface-Elab-Idris-n--13406-1581-elabAsData arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Interface-Elab-Idris-n--13406-1584-elabConstraintHints arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names) 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 (Interface-Elab-Idris-n--13406-1582-elabMethods arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13406-1583-elabDefault arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 meth_decls eta-0)) defaults) 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 ((Core-Core-traverse 'erased 'erased (lambda (mt) (lambda (eta-0) (let ((act-30 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) 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))) (vector 1 (vector 0 e-11 (Builtin-snd 'erased 'erased mt)))))))))) meth_decls) 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 ((Context-Core-inCurrentNS arg-1 e-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))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-12 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-11) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-9) e-11 e-10 ext-0)))))))))))))))))))))))))))))))))))))))))))))
+(define Interface-Elab-Idris-bindIFace (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-2)) (case (vector-ref sc1 0) ((0) (vector 1 e-0 e-1 (vector 0 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5))) ((2) (vector 1 e-0 e-1 (vector 2 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5)))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2)))))))))))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2))))))
+(define Implementation-Elab-Idris-case--15154-9428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-48)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Added defaults: body is " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-2))) 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Missing methods: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) 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 ((act-26 (let ((act-26 (unbox arg-17))) (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 ((e-7 (vector-ref sc3 1))) (let ((hs (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (let ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Open hints: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 1 arg-19 arg-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 ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-28 (Context-Core-checkUnambig arg-17 arg-13 n 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))) (Context-Core-addOpenHint arg-17 e-9 eta-1)))))))) arg-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 ((act-29 (let ((act-29 (unbox arg-17))) (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 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 ) arg-19 arg-46 arg-29 (let ((sc7 arg-23)) (let ((e-1 (vector-ref sc7 2))) e-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7277-mkTopMethDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 eta-1)) e-11)) 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 ((con (let ((sc9 arg-23)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-19) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-46))))) (let ((act-32 (let ((act-32 (unbox arg-17))) (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 (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-13 (vector 0 ) arg-27 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 ((e-14 (vector-ref sc10 1))) (let ((fldTys (Implementation-Elab-Idris-n--12847-7267-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-14))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Field types " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d) (lambda (x-2) (Name-Core-showPrec_Show__Name d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d x-4)))) x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-0) (lambda (x-2) (Name-Core-showPrec_Show__Name d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-0) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-0) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-4)))) x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-1) (lambda (x-2) (Name-Core-showPrec_Show__Name d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-1) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-1) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-4)))) x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Name-Core-show_Show__Name x-2)) (lambda (d-2) (lambda (x-2) (Name-Core-showPrec_Show__Name d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-2) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-2 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-2) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-4)))) x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-3)) (lambda (d-3) (lambda (x-3) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-3 x-3)))) (vector 0 (lambda (x-3) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-3) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-4)))) x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-4) (TTImp-TTImp-show_Show__RawImp x-4)) (lambda (d-4) (lambda (x-4) (TTImp-TTImp-showPrec_Show__RawImp d-4 x-4)))) d-3 x-3))))) d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x)))) fldTys))) 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 ((irhs (TTImp-TTImp-apply (vector 0 arg-13 con) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 11 arg-13 (Prelude-fromInteger_Num__Nat 500))) (let ((sc12 arg-23)) (let ((e-17 (vector-ref sc12 3))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7271-mkMethField arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-46 fldTys eta-1)) e-11))))) (let ((impFn (vector 2 arg-13 arg-19 (vector 1 (vector 0 arg-13 ilhs irhs) (vector 0 ))))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation record: " (TTImp-TTImp-show_Show__ImpDecl impFn))) 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 ((act-36 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (x) (lambda (eta-1) (Context-Core-addOpenHint arg-17 arg-19 eta-1)))) arg-2) eta-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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 5 ) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) (vector 1 impFn (vector 0 ))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 5 ) 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 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 3 ) eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 4 (vector 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 ((upds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7278-methNameUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased eta-1)) e-11))) (let ((act-42 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7282-updateBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 upds eta-1)) e-2) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation body: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-23))) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 eta-1)) e-23) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7283-addTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 upds eta-1)) (let ((sc22 arg-23)) (let ((e-26 (vector-ref sc22 4))) e-26))) eta-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 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 3 ) 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 ((act-47 (Context-Core-setOpenHints arg-17 hs 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 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-case--14682-9280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-44)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) 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 ((_-0 (vector 1 e-1))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-1 _-0 e-5 e-6 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-1))) (let ((sc3 arg-23)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 arg-23)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-42)) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-0)))))))
+(define Implementation-Elab-Idris-case--14682-9115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (cond ((equal? sc0 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-35)) (else (vector 0 ))))))
+(define Implementation-Elab-Idris-case--14596-8861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-5)))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) arg-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))) (let ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc2 arg-23)) (let ((e-6 (vector-ref sc2 2))) e-6))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc2 arg-23)) (let ((e-2 (vector-ref sc2 3))) e-2))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc2 arg-23)) (let ((e-3 (vector-ref sc2 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0))) "\xa;")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-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 ((act-27 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-28 (Context-Core-isUnboundImplicits arg-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 ((e-9 (vector-ref sc5 1))) (let ((paramBinds (let ((sc6 e-9)) (cond ((equal? sc6 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 (let ((sc7 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc7 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 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 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc8 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-31 (let ((act-31 (unbox arg-17))) (vector 1 act-31)))) (let ((sc9 act-31)) (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-32 (Context-Core-lookupTyExact arg-19 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) e-0)) eta-1))) (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 ((_-0 (vector 1 e-1))) (let ((sc11 e-13)) (case (vector-ref sc11 0) ((1) (let ((e-2 (vector-ref sc11 1))) (let ((act-33 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-2) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-34 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-14))) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-1 (vector 1 e-2))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 impsp e-5 e-6 e-7 e-8 opts initTy e-9 paramBinds impTy impTyDecl e-10 e-11 body_in e-12 e-2 _-1 e-14 e-15 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc14 arg-23)) (let ((e-3 (vector-ref sc14 4))) e-3))) (let ((sc14 arg-23)) (let ((e-4 (vector-ref sc14 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
+(define Implementation-Elab-Idris-case--14507-8800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-24)) (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 ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) e-1 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc4 arg-23)) (let ((e-8 (vector-ref sc4 2))) e-8))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc4 arg-23)) (let ((e-7 (vector-ref sc4 3))) e-7))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc4 arg-23)) (let ((e-3 (vector-ref sc4 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-23)) (let ((e-0 (vector-ref sc4 1))) e-0))) "\xa;")))))))))))) 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 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-2 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))) (let ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) 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 ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-29 (Context-Core-isUnboundImplicits arg-17 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 ((paramBinds (let ((sc8 e-10)) (cond ((equal? sc8 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) 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 ((e-11 (vector-ref sc8 1))) (let ((act-31 (let ((sc9 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc9 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (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 ((sc10 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc10 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-32 (let ((act-32 (unbox arg-17))) (vector 1 act-32)))) (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))) (let ((act-33 (Context-Core-lookupTyExact arg-19 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-1 (vector 1 e-2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((act-34 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-3) eta-1))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-35 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-15))) eta-1))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-2 (vector 1 e-3))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 _-0 e-2 _-1 impsp e-6 e-7 e-8 e-9 opts initTy e-10 paramBinds impTy impTyDecl e-11 e-12 body_in e-13 e-3 _-2 e-15 e-16 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc16 arg-23)) (let ((e-17 (vector-ref sc16 4))) e-17))) (let ((sc16 arg-23)) (let ((e-4 (vector-ref sc16 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc3 arg-23)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-22) eta-0)))))))
+(define Implementation-Elab-Idris-case--12847-8731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((cn (Builtin-fst 'erased 'erased e-1))) (let ((cdata (Builtin-snd 'erased 'erased e-1))) (lambda (eta-0) (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-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact cn (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-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))) (let ((act-26 (Context-Core-lookupTyExact (let ((sc5 cdata)) (let ((e-0 (vector-ref sc5 1))) e-0)) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) 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-7 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-3))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) (List-Prelude-C-43C-43 'erased ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) arg-3) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (TTImp-TTImp-findIBinds eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5)))))) (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name cn))) e-3 eta-0))) (let ((sc7 act-27)) (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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc8 cdata)) (let ((e-12 (vector-ref sc8 2))) e-12))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc8 cdata)) (let ((e-11 (vector-ref sc8 3))) e-11))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d x-3)))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) d x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d) (lambda (x-3) (Prelude-showPrec_Show__Bool d x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d x-3))))) x-2)) (lambda (d) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) d x-2))))) x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-0) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-0 x-3)))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) d-0 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-0) (lambda (x-3) (Prelude-showPrec_Show__Bool d-0 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-0) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-3))))) x-2)) (lambda (d-0) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) d-0 x-2))))) x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-1) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-1 x-3)))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) d-1 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-1) (lambda (x-3) (Prelude-showPrec_Show__Bool d-1 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-1) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-3))))) x-2)) (lambda (d-1) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) d-1 x-2))))) x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-2) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-2 x-3)))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (TT-Core-show_Show__TotalReq x-3)) (lambda (d-3) (lambda (x-3) (TT-Core-showPrec_Show__TotalReq d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc8 cdata)) (let ((e-10 (vector-ref sc8 4))) e-10))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc8 cdata)) (let ((e-0 (vector-ref sc8 1))) e-0))) "\xa;")))))))))))) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 eta-0))) (let ((sc9 act-29)) (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-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) eta-0))) (let ((sc10 act-30)) (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))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-31 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((paramBinds (let ((sc12 e-12)) (cond ((equal? sc12 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-32 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) eta-0))) (let ((sc12 act-32)) (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-33 (let ((sc13 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc13 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((sc14 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc14 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-17))) (vector 1 act-34)))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-15 (vector-ref sc15 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc15 1))) (let ((act-35 (Context-Core-lookupTyExact arg-19 (let ((sc16 e-15)) (let ((e-0 (vector-ref sc16 1))) e-0)) eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-16 (vector-ref sc16 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-4))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((1) (let ((e-17 (vector-ref sc17 1))) (let ((act-36 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-17) eta-1))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-18 (vector-ref sc18 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-37 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-18))) eta-1))) (let ((sc19 act-37)) (case (vector-ref sc19 0) ((0) (let ((e-19 (vector-ref sc19 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc19 1))) (let ((_-2 (vector 1 e-17))) ((Implementation-Elab-Idris-case--15154-9428 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-1 cn cdata e-5 e-3 _-0 e-4 _-1 impsp e-8 e-9 e-10 e-11 opts initTy e-12 paramBinds impTy impTyDecl e-13 e-14 body_in e-15 e-17 _-2 e-18 e-19 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc20 cdata)) (let ((e-21 (vector-ref sc20 4))) e-21))) (let ((sc20 cdata)) (let ((e-20 (vector-ref sc20 5))) e-20)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 cn) eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-4) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))
+(define Implementation-Elab-Idris-case--12887-8538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((rhs (vector 0 arg-13 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp rhs)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (UnifyState-Core-handleUnify 'erased arg-17 arg-16 (Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 (vector 6 arg-13 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-21) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-24)))) arg-26 rhs)) (lambda (err) (lambda (eta-1) (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Can't add transform " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-26) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp rhs) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Core-Core-show_Show__Error err))))))) eta-1))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Implementation-Elab-Idris-case--12883-8280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-19 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " is not a method of " (Name-Core-show_Show__Name arg-4)))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define Implementation-Elab-Idris-case--12880-8153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-3 arg-25) arg-24 arg-23 arg-22 arg-21 arg-20 arg-19) 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 1 e-2 e-5)))))))))))))
+(define Implementation-Elab-Idris-case--13270-7912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-29 (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 0 arg-13 arg-29) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-46))) (vector 0 )))))))
+(define Implementation-Elab-Idris-case--12879-7646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-28 e-2))) (let ((mbase (Implementation-Elab-Idris-n--12847-7274-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-26 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_in))))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase 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 ((act-25 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-29) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp 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))) (let ((act-26 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "    (initially " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) ")"))) 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 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-28))) 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 ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) 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 ((act-29 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Name updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0))))) d x)))) e-3))) 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 ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Param names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-24))) 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 ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) ibound))) 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 ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-26))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--13270-7912 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 e-2 e-3 mty_in mbase ibound e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ibinds (List-Data-isNil 'erased ibinds)))) (vector 1 (vector 0 (vector 0 arg-18 (vector 0 arg-29 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-5))))) methupdsC-39)))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-case--12656-7095 (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) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 arg-5 arg-8) arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((mupdates (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 9 arg-4 (vector 0 arg-4 n) (vector 1 (vector 1 "__con")) (vector 0 arg-4 arg-3)))) arg-2))) (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause (vector 0 ) mupdates eta-0)) e-2))) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-0 arg-1 arg-2 arg-3 arg-4 arg-8 arg-6 (vector 1 (vector 2 arg-4 arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-4 eta-0)) csC-39)) arg-7))))))))))
+(define Implementation-Elab-Idris-n--12847-7281-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) (let ((sc0 arg-19)) (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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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 0 e-0 e-5 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))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-8 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7281-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-1)) 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 1 e-3 e-8 e-5 e-6 e-9))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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 2 e-8 e-5)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7282-updateBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((2) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12847-7281-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (let ((act-25 ((Implementation-Elab-Idris-n--12847-7279-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) 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))) (vector 1 (vector 2 e-0 e-6 e-5)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-13 "Implementation body can only contain definitions") eta-0)))))))
+(define Implementation-Elab-Idris-n--12847-7280-updateApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7279-findMethName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) eta-0))) (let ((sc1 act-24)) (case (vector-ref 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))))))))))) ((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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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))) (vector 1 (vector 8 e-2 e-5 e-4)))))))))))) ((9) (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 ((Implementation-Elab-Idris-n--12847-7280-updateApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-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-9 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-8)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-19) "Invalid method definition") eta-0)))))))
+(define Implementation-Elab-Idris-n--12847-7276-topMethTypes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Implementation-Elab-Idris-n--12847-7275-topMethType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2) 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 ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((Implementation-Elab-Idris-n--12847-7276-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-4 arg-18) arg-19 arg-20 arg-21 arg-22 arg-23 e-3) eta-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))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7275-topMethType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Implementation-Elab-Idris-n--12847-7273-applyCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 eta-1 eta-2))) arg-23) 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-8 (vector-ref sc5 1))) (let ((updsC-39 e-8)) (let ((mty_in (Utils-TTImp-substNames arg-7 updsC-39 e-15))) ((Implementation-Elab-Idris-case--12879-7646 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-15 arg-23 arg-22 arg-21 arg-20 arg-19 arg-18 e-5 e-8 updsC-39 mty_in (State-Monad-Control-runState 'erased 'erased (BindImplicits-TTImp-renameIBinds arg-21 (TTImp-TTImp-findImplicits mty_in) mty_in) (vector 0 ))) eta-0))))))))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7277-mkTopMethDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () arg-11) (lambda () (lambda (t) (vector 1 (vector 7 t) arg-11))) e-18))) (vector 0 arg-13 e-14 arg-12 opts (vector 0 arg-13 e-6 e-19))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7271-mkMethField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((argns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Implementation-Elab-Idris-n--12875-7455-applyUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-10 e-14 e-18 e-19 arg-19 arg-18 eta-0)) (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) eta-0)) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Name-Core-dropNS e-2) arg-19))))) (let ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-18))) (Implementation-Elab-Idris-n--12847-7269-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 argns (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-13 (vector 0 arg-13 e-6) argns) (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 0 arg-13 (vector 1 (Name-Core-show_Show__Name n))))) imps))))))))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7269-mkLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 2 arg-13 e-10 e-11 (vector 1 e-6) (vector 31 arg-13 1) (Implementation-Elab-Idris-n--12847-7269-mkLam arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7278-methNameUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (vector 0 (vector 1 (Name-Core-nameRoot e-2)) e-6))))))))
+(define Implementation-Elab-Idris-n--12847-7272-methName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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)))(else (vector 4 (Name-Core-show_Show__Name arg-18) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) arg-2) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-3)))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7268-impsApply (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) arg-18) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12847-7268-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 9 arg-13 arg-18 (vector 1 e-6) e-7) e-3)))))))))))
+(define Implementation-Elab-Idris-n--12847-7267-getFieldArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (vector 1 (vector 0 e-2 (Implementation-Elab-Idris-n--12871-7294-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-1 e-8 e-7 e-6 e-2 e-4 'erased e-8)) (Implementation-Elab-Idris-n--12847-7267-getFieldArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased e-4))))))(else (vector 0 )))))))))(else (vector 0 ))))))
+(define Implementation-Elab-Idris-n--12871-7294-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (vector 0 e-6 (TT-Core-forgetDef 'erased 'erased e-7))) (Implementation-Elab-Idris-n--12871-7294-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 'erased arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 'erased e-4)))))(else (vector 0 ))))))))(else (vector 0 ))))))
+(define Implementation-Elab-Idris-n--12847-7279-findMethName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Implementation-Elab-Idris-case--12883-8280 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-19 arg-18 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) arg-20 arg-18))))
+(define Implementation-Elab-Idris-n--12650-7074-extendBody (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) (vector 0 arg-7 arg-5)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Implementation-Elab-Idris-case--12656-7095 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 arg-7 arg-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) e-2 arg-1)))))))))
+(define Implementation-Elab-Idris-n--12650-7075-dropGot (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) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 2))) (Implementation-Elab-Idris-n--12650-7075-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 e-5)) arg-5) e-3)))(else (Implementation-Elab-Idris-n--12650-7075-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
+(define Implementation-Elab-Idris-n--12847-7274-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 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-13 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-n--12847-7274-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 arg-19)))))))))))))))
+(define Implementation-Elab-Idris-n--12875-7455-applyUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 (vector 1 e-4) (vector 0 e-7 e-8))) (lambda () (lambda (nC-39) (vector 0 (vector 1 nC-39) (vector 0 e-7 e-8)))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
+(define Implementation-Elab-Idris-n--12847-7270-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 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) arg-19) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 8 arg-18 arg-19 (vector 0 arg-18 e-6)) e-3)) ((2) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) ((0) (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3)) (else (Implementation-Elab-Idris-n--12847-7270-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 arg-15 arg-16 arg-17 arg-18 (vector 9 arg-18 arg-19 (vector 1 e-6) (vector 0 arg-18 e-6)) e-3))))))))))))))))
+(define Implementation-Elab-Idris-n--12847-7273-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--12847-7272-methName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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)) ext-0))) (let ((sc0 act-24)) (case (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 (Name-Core-dropNS arg-19) (vector 0 arg-13 e-5))))))))))
+(define Implementation-Elab-Idris-n--12847-7283-addTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Adding transform for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-15) (Strings-Prelude-C-43C-43 "\xa;\x9;for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " in " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) arg-19))))))))) 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))) (let ((lhs (vector 9 arg-13 (vector 0 arg-13 e-2) (vector 1 (vector 1 "__con")) (vector 0 arg-13 arg-18)))) ((Implementation-Elab-Idris-case--12887-8538 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-14 e-10 e-6 e-2 e-15 arg-19 arg-18 e-5 lhs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (Name-Core-dropNS e-2) arg-19)) eta-0))))))))))))))))))))))
+(define Implementation-Elab-Idris-mkImpl (lambda (arg-0 arg-1 arg-2) (vector 4 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 " implementation at " (FC-Core-show_Show__FC arg-0))) (vector 1 (Strings-Prelude-C-43C-43 "__Impl_" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Prelude-C-43C-43 "_" (Name-Core-showSep "_" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) arg-2)))))))))
+(define Implementation-Elab-Idris-getMethImps (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar arg-0 arg-1 arg-2 e-8 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 ((Implementation-Elab-Idris-getMethImps (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 2 e-6 (vector 0 ) e-8) arg-2) e-4) eta-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))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Implementation-Elab-Idris-elabImplementation (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 ((impName_in (Prelude-maybe 'erased 'erased (lambda () (Implementation-Elab-Idris-mkImpl arg-5 arg-13 arg-14)) (lambda () (lambda (eta-0) eta-0)) arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 impName_in) 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-3))) (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))) ((Implementation-Elab-Idris-case--12847-8731 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 impName_in e-5 e-6 (ANameMap-Data-lookupName 'erased arg-13 (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) eta-0)))))))))))))))
+(define Implementation-Elab-Idris-bindImpls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-bindImpls arg-0 e-3 arg-2)))))))))))))))
+(define Implementation-Elab-Idris-bindConstraints (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-6 e-7 (Implementation-Elab-Idris-bindConstraints arg-0 arg-1 e-3 arg-3))))))))))))
+(define Implementation-Elab-Idris-addDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((missing (Implementation-Elab-Idris-n--12650-7075-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--12650-7074-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
+(define ModTree-Idris-case--14148-3335 (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 (Context-Core-clearCtxt 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 ((act-25 ((InitPrimitives-Core-addPrimitives arg-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 (let ((act-26 (set-box! arg-3 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttc" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-8) (Strings-Prelude-C-43C-43 " from " arg-0)))) 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 (ProcessIdr-Idris-readAsMain arg-5 arg-2 arg-4 e-8 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 (Directory-Core-getTTCFileName arg-5 arg-0 "ttm" 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 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String 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 ((act-32 (Metadata-Core-readFromTTM arg-3 e-11 eta-0))) (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 0 ))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))
+(define ModTree-Idris-case--14066-3263 (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) (ModTree-Idris-buildMods arg-7 arg-6 arg-5 arg-4 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-3) arg-2 arg-1))(else (lambda (eta-0) (vector 1 arg-8)))))))
+(define ModTree-Idris-case--13476-3137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-2))) (vector 1 arg-17 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-18)))))))))
+(define ModTree-Idris-case--13597-2892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))(else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-25) 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 (List-Prelude-C-43C-43 'erased arg-14 arg-25))))))))))))))))
+(define ModTree-Idris-case--13476-2820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-19)) (cond ((equal? sc0 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 arg-23 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (lambda (eta-0) (let ((act-24 (ProcessIdr-Idris-process arg-6 arg-21 arg-20 arg-5 arg-4 msg 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) arg-14) eta-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-14))))))))))(else (let ((act-25 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 (List-Prelude-C-43C-43 'erased arg-14 e-5))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-emitWarnings arg-6 arg-4 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 ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) 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 (vector 1 arg-14)))))))))))))))
+(define ModTree-Idris-case--13274-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) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ModTree-Idris-fnameModified arg-12 eta-1))) (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-5)))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) 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 ((act-25 (ModTree-Idris-fnameModified arg-11 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 ((Core-Core-traverse 'erased 'erased (lambda (f) (lambda (eta-1) (let ((act-26 (ModTree-Idris-fnameModified f eta-1))) (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 f e-7))))))))) e-3) 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 ((needsBuilding (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) 0) (else (let ((e-4 (vector-ref sc4 1))) ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (Prelude-C-62_Ord__Integer x e-4))) (vector 1 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-7))))))))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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 ((act-29 (let ((act-29 (set-box! arg-5 (Syntax-Idris-initSyntax)))) (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 ((showMod (Name-Core-showSep "." (List-Data-reverse 'erased (let ((sc7 arg-0)) (let ((e-1 (vector-ref sc7 2))) e-1)))))) (let ((sc7 needsBuilding)) (cond ((equal? sc7 0) (let ((msg (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-2) (Strings-Prelude-C-43C-43 "/" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": Building " (Strings-Prelude-C-43C-43 showMod (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 arg-11 ")"))))))))) (let ((act-30 (ProcessIdr-Idris-process arg-6 e-9 e-8 arg-5 arg-4 msg 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 ((e-11 (vector-ref sc8 1))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))(else (let ((act-31 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-11) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (List-Prelude-C-43C-43 'erased e-2 e-11)))))))))))))))))))) (else (let ((act-30 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPLCommon-Idris-emitError arg-6 arg-4 arg-5 eta-1 eta-2))) e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))))))))))))))))))))))))))))
+(define ModTree-Idris-case--13285-2616 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 arg-9 e-3)))))))
+(define ModTree-Idris-case--13285-2564 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-9 e-2) e-3))))))
+(define ModTree-Idris-case--13194-2472 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-2))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))))))
+(define ModTree-Idris-case--13181-2453 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (vector 1 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define ModTree-Idris-case--13054-2351 (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) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((ModTree-Idris-mkModTree arg-4 arg-5 arg-2 (vector 0 ) 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))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.DoneMod" ) (StringMap-Data-empty 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.BuildOrder" ) (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 ((act-27 ((ModTree-Idris-mkBuildMods e-6 e-7 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 ((act-28 (let ((act-28 (unbox e-7))) (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))) (vector 1 (List-Data-reverse 'erased e-9))))))))))))))))))))))))))))))))
+(define ModTree-Idris-case--12942-2225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkBuildMods arg-2 arg-1 eta-1)) (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-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 (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 (vector 1 (vector 0 arg-3 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) (let ((sc3 arg-0)) (let ((e-2 (vector-ref sc3 3))) e-2)))) 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 (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-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-2 (StringMap-Data-insert 'erased arg-3 (vector 0 ) e-8)))) (vector 1 act-28))))))))))))))))))))))))))
+(define ModTree-Idris-case--12739-2106 (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 (Directory-Core-nsToSource arg-4 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 ((act-25 (ProcessIdr-Idris-readHeader arg-4 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 ((imps (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-2 (vector-ref sc3 3))) e-2))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ModTree-Idris-mkModTree arg-4 arg-3 arg-2 (vector 1 arg-0 arg-1) eta-1)) imps) 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 ((mt (vector 0 arg-0 (vector 1 e-5) e-7))) (let ((act-27 (let ((act-27 (unbox arg-3))) (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 (let ((act-28 (set-box! arg-3 (vector 1 (vector 0 arg-0 mt) e-8)))) (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 (vector 1 mt))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2))))))))
+(define ModTree-Idris-case--12739-2053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((52) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))))
+(define ModTree-Idris-case--12725-2011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 52 (List-Prelude-C-43C-43 'erased arg-1 (vector 1 arg-0 (vector 0 )))) eta-0))) (else (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (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))) ((ModTree-Idris-case--12739-2106 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-0 e-5)) eta-1))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((52) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (vector 1 (vector 0 arg-0 (vector 0 ) (vector 0 )))))))) eta-0)))))))
+(define ModTree-Idris-n--13274-2534-getEithers (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) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (ModTree-Idris-case--13285-2564 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--13274-2534-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (ModTree-Idris-case--13285-2616 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--13274-2534-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
+(define ModTree-Idris-n--14325-3483-dropLater (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (ModTree-Idris-n--14325-3483-dropLater arg-0 arg-1 arg-2 arg-3 (List-Data-filter 'erased (lambda (x) (Prelude-C-47C-61_Eq__String (let ((sc1 x)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-3))))))))))
+(define ModTree-ModTree-Idris-sourceFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define ModTree-ModTree-Idris-nspace (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define ModTree-Idris-mkModTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (ModTree-Idris-case--12725-2011 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) arg-4 arg-3))))
+(define ModTree-Idris-mkBuildMods (lambda (arg-0 arg-1 arg-2) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (sf) (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))) ((ModTree-Idris-case--12942-2225 arg-2 arg-1 arg-0 sf e-5 (StringMap-Data-lookup 'erased sf e-5)) eta-0))))))))) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
+(define BuildMod-ModTree-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define ModTree-Idris-getBuildMods (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.AllMods" ) (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 ((act-25 (Context-Core-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 ((Directory-Core-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-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))) ((ModTree-Idris-case--13054-2351 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-430) (lambda (arg-431) (Prelude-C-61C-61_Eq__String arg-430 arg-431))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-432) (lambda (arg-433) (Prelude-C-47C-61_Eq__String arg-432 arg-433)))) arg-430 arg-431)))) e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-1 (vector-ref sc3 2))) e-1))) arg-3))) ext-0))))))))))))))))))
+(define ModTree-Idris-getAllBuildMods (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 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-2 arg-3 arg-4 e-2 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))) ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 arg-3 (List-Prelude-C-43C-43 'erased e-5 arg-4) e-3) eta-0))))))))))))))
+(define ModTree-Idris-fnameModified (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) ext-0)))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define ModTree-ModTree-Idris-deps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define BuildMod-ModTree-Idris-buildNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define ModTree-Idris-buildMods (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 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ModTree-Idris-buildMod arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 arg-3 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-4) arg-5 e-3) eta-0))(else (vector 1 e-5)))))))))))))))))
+(define ModTree-Idris-buildMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-clearCtxt 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 ((InitPrimitives-Core-addPrimitives 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 (Context-Core-lazyActive arg-0 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 (Context-Core-setUnboundImplicits arg-0 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 ((src (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-28 (Directory-Core-getTTCFileName arg-0 src "ttc" 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Directory-Core-nsToPath arg-0 arg-3 eta-0 eta-1))) (let ((sc5 arg-6)) (let ((e-2 (vector-ref sc5 3))) e-2))) 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))) ((ModTree-Idris-case--13274-2708 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 src e-9 e-10 (ModTree-Idris-n--13274-2534-getEithers arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 'erased e-10)) ext-0))))))))))))))))))))))))))))))))))
+(define BuildMod-ModTree-Idris-buildFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define ModTree-Idris-buildDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ModTree-Idris-getBuildMods arg-0 arg-4 (FC-Core-toplevelFC) (vector 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 ((ModTree-Idris-buildMods arg-0 arg-1 arg-4 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased e-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) ((0) (let ((act-26 (Context-Core-clearCtxt 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 ((act-27 ((InitPrimitives-Core-addPrimitives 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 ((act-28 (let ((act-28 (set-box! arg-2 (Metadata-Core-initMetadata)))) (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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttc" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-10) (Strings-Prelude-C-43C-43 " from " arg-5)))) 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 (ProcessIdr-Idris-readAsMain arg-0 arg-3 arg-1 e-10 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 (Directory-Core-getTTCFileName arg-0 arg-5 "ttm" 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 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Reloading " (Prelude-show_Show__String e-13))) 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 (Metadata-Core-readFromTTM arg-2 e-13 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))(else (vector 1 e-6))))))))))))))))
+(define ModTree-Idris-buildAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (vector 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 ((modsC-39 (ModTree-Idris-n--14325-3483-dropLater arg-3 arg-2 arg-1 arg-0 e-5))) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased modsC-39) modsC-39) ext-0)))))))))
+(define Holes-IDEMode-Idris-case--8999-3067 (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) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))(else (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (premise) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 premise)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 premise)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-tidy (let ((sc0 premise)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm (let ((sc0 premise)) (let ((e-1 (vector-ref sc0 2))) e-1))) "\xa;")))))) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 2))) e-1))))))))))))))
+(define Holes-IDEMode-Idris-case--8913-3027 (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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))
+(define Holes-IDEMode-Idris-case--8808-2978 (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 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))))))
+(define Holes-IDEMode-Idris-case--8822-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) (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)) (else (vector 1 arg-8 (Holes-IDEMode-Idris-n--8808-2895-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)))))))
+(define Holes-IDEMode-Idris-case--8653-2803 (lambda (arg-0 arg-1 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (vector 1 arg-13 e-2))))))))
+(define Holes-IDEMode-Idris-case--8563-2751 (lambda (arg-0 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 (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise arg-0 arg-8 arg-7 (TT-Core-binderType 'erased 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))) (Resugar-Idris-resugar arg-0 arg-10 arg-9 arg-7 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))) (let ((premise (vector 0 arg-2 e-5 (TT-Core-multiplicity 'erased arg-4) (Holes-IDEMode-Idris-n--8563-2697-implicitBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-4)))) (vector 1 (let ((sc2 arg-11)) (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 (vector 1 premise e-2))))))))))))))) (else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Holes-IDEMode-Idris-case--8458-2591 (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 Holes-IDEMode-Idris-case--8455-2570 (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))) (Holes-IDEMode-Idris-case--8458-2591 arg-0 e-3 e-4 e-5 e-6 e-2 (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))) ((0) (vector 1 0))(else (vector 0 ))))))
+(define Holes-IDEMode-Idris-n--8563-2697-implicitBind (lambda (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) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1)))))
+(define Holes-IDEMode-Idris-n--8808-2895-dropShadows (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 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Holes-IDEMode-Idris-case--8822-2917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Name-Core-C-61C-61_Eq__Name arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Name-Core-C-47C-61_Eq__Name arg-430 arg-431)))) (let ((sc1 e-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0))) e-3))))))))))
+(define HolePremise-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define HoleData-Holes-IDEMode-Idris-rf--type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
+(define HolePremise-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HoleData-Holes-IDEMode-Idris-rf--name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HolePremise-Holes-IDEMode-Idris-rf--multiplicity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define HolePremise-Holes-IDEMode-Idris-rf--isImplicit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define HoleData-Holes-IDEMode-Idris-rf--context (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
+(define Holes-IDEMode-Idris-tidy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) e-0))(else (Name-Core-show_Show__Name arg-0))))))
+(define Holes-IDEMode-Idris-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 Holes-IDEMode-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Holes-IDEMode-Idris-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))) ((Holes-IDEMode-Idris-case--8999-3067 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 Holes-IDEMode-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-248) (lambda (arg-249) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-248 arg-249))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-250) (lambda (arg-251) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-250 arg-251))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-428) (lambda (arg-429) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-430 arg-431))))) " 0 " " 1 " (lambda (eta-0) "   ") ext-0)))
+(define Holes-IDEMode-Idris-sexpPremise (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (Holes-IDEMode-Idris-showCount (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Holes-IDEMode-Idris-impBracket (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (Holes-IDEMode-Idris-tidy (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))))))
+(define Holes-IDEMode-Idris-sexpHole (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (vector 1 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpPremise eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (vector 1 (vector 0 (vector 1 (vector 1 (Syntax-Idris-show_Show__PTerm (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (vector 1 (vector 0 (vector 0 )) (vector 0 )))) (vector 0 )))))))
+(define HolePremise-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define HoleData-Holes-IDEMode-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
+(define Holes-IDEMode-Idris-isHole (lambda (arg-0) (Holes-IDEMode-Idris-case--8455-2570 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
+(define Holes-IDEMode-Idris-impBracket (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 arg-1 "}")))))))
+(define Holes-IDEMode-Idris-holeData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Holes-IDEMode-Idris-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 (Context-Core-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 (Holes-IDEMode-Idris-case--8808-2978 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 Holes-IDEMode-Idris-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 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))(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-8 (vector-ref sc1 2))) (Holes-IDEMode-Idris-extractHoleData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-0 (SubstEnv-TT-Core-subst arg-0 e-3 e-8 e-5))))(else (lambda (eta-0) (let ((act-24 ((Holes-IDEMode-Idris-extractHoleData (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 (vector 1 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))) ((Holes-IDEMode-Idris-case--8563-2751 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (Holes-IDEMode-Idris-showName e-3)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise 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))) (Resugar-Idris-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 (vector 0 ))))))))))))))))))
+(define MakeClause-IDEMode-Idris-case--2765-7426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Prelude-length e-2) e-3))))))
+(define MakeClause-IDEMode-Idris-case--2700-7412 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((isrc (MakeClause-IDEMode-Idris-case--2765-7426 arg-0 arg-1 e-2 e-3 (Strings-Data-span (lambda (eta-0) (Prelude-isSpace eta-0)) e-3)))) (let ((indent (Builtin-fst 'erased 'erased isrc))) (let ((src (Builtin-snd 'erased 'erased isrc))) (let ((lhs (Prelude-pack (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7353-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7354-mkWithPat arg-0 arg-1 e-2 indent lhs) "\xa;"))))))))))))
+(define MakeClause-IDEMode-Idris-case--2675-7338 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
+(define MakeClause-IDEMode-Idris-n--2700-7351-readLHS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 #\=) (vector 0 ))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (cond ((equal? sc3 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (cond ((equal? sc2 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 ))))))))(else (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 ((sc1 e-1)) (cond ((equal? sc1 #\() (vector 1 #\( (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2700-7351-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
+(define MakeClause-IDEMode-Idris-n--2700-7352-pref (lambda (arg-0 arg-1 arg-2 arg-3) (Unlit-Parser-relit arg-2 (Prelude-pack (List-Data-replicate 'erased arg-3 #\ )))))
+(define MakeClause-IDEMode-Idris-n--2700-7354-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7352-pref arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0)))) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 "| with_pat = ?" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-showRHSName arg-1) "_rhs"))))))
+(define MakeClause-IDEMode-Idris-n--2700-7353-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2700-7352-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
+(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2675-7338 arg-0 fn ((Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))) (Prelude-unpack fn))))))
+(define MakeClause-IDEMode-Idris-makeWith (lambda (arg-0 arg-1) (MakeClause-IDEMode-Idris-case--2700-7412 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
+(define CaseSplit-IDEMode-Idris-case--11445-2793 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-n--11317-2643-indent arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 0 arg-11) (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-16) (Strings-Prelude-C-43C-43 " " arg-16)) arg-12)) (Strings-Prelude-C-43C-43 " = ?" (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-fnName 1 arg-11) "_rhs"))))))))))))
+(define CaseSplit-IDEMode-Idris-case--11380-2761 (lambda (arg-0 arg-1 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))) (let ((_-0 (vector 1 e-1))) (CaseSplit-IDEMode-Idris-case--11445-2793 arg-0 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 _-0 (Unlit-Parser-isLitLine e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-case--11317-2702 (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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) 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-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-5 (vector 0 ) e-14) 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))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-4 arg-5 e-13 e-8) 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 ((act-26 (REPLOpts-Idris-getSourceLine arg-2 arg-1 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-11 (vector-ref sc6 1))) (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--11445-2793 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-9 e-13 e-14 _-0 e-7 e-8 e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-case--11288-2626 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))
+(define CaseSplit-IDEMode-Idris-case--11283-2613 (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) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))))))
+(define CaseSplit-IDEMode-Idris-case--11083-2486 (lambda (arg-0 arg-1 arg-2 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) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CaseSplit-IDEMode-Idris-showImpossible arg-5 arg-4 arg-3 eta-0 eta-1))) arg-13)) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-IDEMode-Idris-getReplaces arg-5 arg-4 arg-3 eta-1 eta-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 ((e-5 (vector-ref sc1 1))) (let ((stok (TokenLine-IDEMode-Idris-tokens arg-10))) (let ((act-25 (let ((act-25 (unbox arg-5))) (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 (Core-Core-newRef 'erased 'erased (vector "Idris.IDEMode.CaseSplit.UPD" ) (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))) ((CaseSplit-IDEMode-Idris-updateAll e-7 e-6 stok e-5) eta-0)))))))))))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--11046-2427 (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) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline (vector 1 e-2))) (CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 thisline valid bad (List-Data-isNil 'erased valid)))))))))))
+(define CaseSplit-IDEMode-Idris-case--10989-2399 (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-2 (vector-ref sc0 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-2) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-2))) (let ((sc1 thisline)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0))) (else (let ((e-3 (vector-ref sc1 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-0)) arg-2))) (let ((thisline-0 (vector 1 e-3))) (CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 _-0 e-3 thisline-0 valid bad (List-Data-isNil 'erased valid))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-7 e-5) eta-0))))))))
+(define CaseSplit-IDEMode-Idris-case--10951-2348 (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) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No file loaded") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((thisline (Extra-List-Data-elemAt 'erased (Strings-Data-lines e-3) (Prelude-cast_Cast__Int_Integer arg-1)))) (let ((_-0 (vector 1 e-3))) (let ((sc3 thisline)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "File too short!") eta-0)) (else (let ((e-4 (vector-ref sc3 1))) (let ((valid (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10951-2319-getValid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((bad (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (CaseSplit-IDEMode-Idris-n--10951-2320-getBad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-2))) (let ((thisline-0 (vector 1 e-4))) ((CaseSplit-IDEMode-Idris-case--11083-2486 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-4 thisline-0 valid bad (List-Data-isNil 'erased valid)) eta-0)))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-2 e-6) eta-0)))))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--10567-2132 (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) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 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))) (vector 1 (vector 1 (vector 1 arg-0) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-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 1 (vector 6 e-2) e-5))))))))))))))
+(define CaseSplit-IDEMode-Idris-case--10629-2034 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (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 ((sc3 e-5)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-3) (vector 1 (vector 4 ) e-6))) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7)))))))))))) ((5) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) 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-7 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))
+(define CaseSplit-IDEMode-Idris-case--10567-2006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 (List-Prelude-C-43C-43 'erased (vector 1 (vector 3 ) e-2) e-5))))))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 (vector 1 (vector 1 e-5) (vector 1 (vector 4 ) e-6))) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8)))))))))))) ((5) (lambda (eta-1) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-1))) (let ((sc5 act-24)) (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 (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))))))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0)))) eta-0)))))))
+(define CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (vector 0 (vector 0 ) (vector 1 (vector 4 ) e-3))) ((0) (Prelude-mapFst 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace arg-0 arg-1 arg-2 arg-3 e-3)))(else (Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased (lambda (arg-5) (vector 1 e-2 arg-5)) (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
+(define CaseSplit-IDEMode-Idris-n--11317-2643-indent (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Unlit-Parser-relit (vector 1 e-1) (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Prelude-max_Ord__Int 0 (Prelude-C-45_Neg__Int (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6)) 1))) #\ ))))) (else (Prelude-pack (List-Data-replicate 'erased (Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos arg-6))) #\ )))))))
+(define CaseSplit-IDEMode-Idris-n--10951-2319-getValid (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 e-1)))(else (vector 0 ))))))
+(define CaseSplit-IDEMode-Idris-n--10951-2320-getBad (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-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define CaseSplit-IDEMode-Idris-n--10502-1893-bracket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-4) ((35) arg-4) ((36) arg-4) ((38) arg-4) ((40) arg-4) ((14) arg-4)(else (vector 31 (FC-Core-emptyFC) arg-4))))))
+(define CaseSplit-IDEMode-Idris-updateCase (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))) ((CaseSplit-IDEMode-Idris-case--10951-2348 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
+(define CaseSplit-IDEMode-Idris-updateAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 e-2 arg-2) 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 ((act-25 ((CaseSplit-IDEMode-Idris-updateAll arg-0 arg-1 arg-2 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))) (vector 1 (vector 1 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-1) (TokenLine-IDEMode-Idris-toString eta-1))) e-5) e-6))))))))))))))))))))
+(define CaseSplit-IDEMode-Idris-toStrUpdate (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-3 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 (vector 1 (vector 0 e-4 (Syntax-Idris-show_Show__PTerm (CaseSplit-IDEMode-Idris-n--10502-1893-bracket e-4 e-3 arg-1 arg-0 e-5))) (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define CaseSplit-IDEMode-Idris-showImpossible (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Resugar-Idris-pterm 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 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))
+(define CaseSplit-IDEMode-Idris-getReplaces (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseSplit-IDEMode-Idris-toStrUpdate arg-0 arg-1 eta-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))) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3392 arg-3393))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))
+(define CaseSplit-IDEMode-Idris-getClause (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 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Prelude-C-45_Neg__Int arg-3 1) p))) 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 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getFullName arg-0 e-9) 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 ((e-11 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-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-12 (vector-ref sc7 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 e-13 e-12) ext-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-12 (vector-ref sc7 1))) (let ((act-28 (REPLOpts-Idris-getSourceLine arg-2 arg-3 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-15 (vector-ref sc8 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-14)))))) (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-2 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-2))) ((CaseSplit-IDEMode-Idris-case--11445-2793 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-13 e-14 _-0 e-11 e-12 e-2 _-1 (Unlit-Parser-isLitLine e-2)) ext-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))
+(define CaseSplit-IDEMode-Idris-fnName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-IDEMode-Idris-case--11283-2613 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (CaseSplit-IDEMode-Idris-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1))))))
+(define CaseSplit-IDEMode-Idris-doUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (CaseSplit-IDEMode-Idris-case--10567-2006 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--10567-1958-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--10567-2132 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-4 arg-2)))) ((2) (let ((e-5 (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-6 (vector-ref sc2 1))) (let ((act-25 (Utils-TTImp-uniqueName arg-1 e-6 e-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 (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (set-box! arg-0 (vector 1 e-7 e-6)))) (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 ((act-27 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) 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-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-7) e-9))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 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 (vector 1 e-2 e-5))))))))))))))))))
+(define TokenLine-IDEMode-Idris-case--1834-369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 6 arg-4) (vector 0 )))))))
+(define TokenLine-IDEMode-Idris-case--1829-339 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-5 (vector-ref sc3 5))) e-5))) e-2) (TokenLine-IDEMode-Idris-case--1834-369 arg-0 e-2 e-6 e-10 e-11 (Prelude-C-61C-61_Eq__String e-11 ""))))))))))))))
+(define TokenLine-IDEMode-Idris-tokens (lambda (arg-0) (TokenLine-IDEMode-Idris-case--1829-339 arg-0 (Core-Lexer-Text-lex 'erased (TokenLine-IDEMode-Idris-srcTokens) arg-0))))
+(define TokenLine-IDEMode-Idris-toString (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-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "?" e-2))) ((3) "{") ((4) "}") ((5) "=") (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
+(define TokenLine-IDEMode-Idris-srcTokens (lambda () (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (vector 1 eta-0))) (vector 1 (vector 0 (TokenLine-IDEMode-Idris-holeIdent) (lambda (x) (vector 2 (substring x 1 (string-length x))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 0 eta-0))) (vector 1 (vector 0 (Lexer-Text-is #\{) (lambda (eta-0) (vector 3 ))) (vector 1 (vector 0 (Lexer-Text-is #\}) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Lexer-Text-is #\=) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 6 eta-0))) (vector 0 ))))))))))
+(define TokenLine-IDEMode-Idris-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
+(define Gambit-Scheme-Compiler-case--10690-2624 (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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-1))) (vector 1 act-24))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Gambit-Scheme-Compiler-case--10563-2555 (lambda (arg-0 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 (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Gambit-Scheme-Compiler-case--10346-2411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Gambit-Scheme-Compiler-case--10152-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 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (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-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-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 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-11) (Strings-Prelude-C-43C-43 arg-12 (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-9)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\xa;"))))))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-case--10012-2020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--10012-1973-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-c-struct " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")\xa;")))))))))))))))))))))
+(define Gambit-Scheme-Compiler-case--9768-1759 (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) (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 0 e-7 ""))))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9768-1751-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-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-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 1 e-15) e-7))))))))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 (lambda (eta-1) (Gambit-Scheme-Compiler-n--9768-1751-fnWrapName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12 eta-1)) e-15 arg-3 arg-2 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 1 e-15) e-7)))))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Gambit-Scheme-Compiler-useCC arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Gambit-Scheme-Compiler-case--9723-1711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Gambit-Scheme-Compiler-case--9114-1586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet arg-9 arg-18) arg-15))(else (vector 0 arg-18 arg-15))))))
+(define Gambit-Scheme-Compiler-case--9132-1425 (lambda (arg-0 arg-1 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (vector 1 (vector 0 arg-11 arg-12 e-2 e-6 e-7)))))))))))))
+(define Gambit-Scheme-Compiler-case--9128-1220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Strings-Prelude-C-43C-43 " " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (i) (Strings-Prelude-C-43C-43 "farg-" (Prelude-show_Show__Integer i))) (Prelude-rangeFromTo_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2924) (lambda (arg-2925) (Prelude-div_Integral__Integer arg-2924 arg-2925))) (lambda (arg-2926) (lambda (arg-2927) (Prelude-mod_Integral__Integer arg-2926 arg-2927)))) (vector 0 (vector 0 (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Integer arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Integer arg-430 arg-431)))) (lambda (arg-775) (lambda (arg-776) (Prelude-compare_Ord__Integer arg-775 arg-776))) (lambda (arg-777) (lambda (arg-778) (Prelude-C-60_Ord__Integer arg-777 arg-778))) (lambda (arg-779) (lambda (arg-780) (Prelude-C-62_Ord__Integer arg-779 arg-780))) (lambda (arg-781) (lambda (arg-782) (Prelude-C-60C-61_Ord__Integer arg-781 arg-782))) (lambda (arg-783) (lambda (arg-784) (Prelude-C-62C-61_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-max_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-min_Ord__Integer arg-787 arg-788)))) (vector 0 (vector 0 (lambda (arg-2743) (lambda (arg-2744) (+ arg-2743 arg-2744))) (lambda (arg-2745) (lambda (arg-2746) (* arg-2745 arg-2746))) (lambda (arg-2747) arg-2747)) (lambda (arg-2797) (Prelude-negate_Neg__Integer arg-2797)) (lambda (arg-2798) (lambda (arg-2799) (Prelude-C-45_Neg__Integer arg-2798 arg-2799)))))) 0 (Prelude-C-45_Neg__Integer (List-Data-length 'erased arg-9) 1)))))) (else "")))))
+(define Gambit-Scheme-Compiler-case--8245-302 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Gambit-Scheme-Compiler-n--10012-1973-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1130-replaceChar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (Prelude-pack (List-Data-replaceOn 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Char arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Char arg-430 arg-431)))) arg-8 arg-9 (Prelude-unpack ext-0)))))
+(define Gambit-Scheme-Compiler-n--9114-1128-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1133-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Gambit-Scheme-Compiler-n--9114-1128-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
+(define Gambit-Scheme-Compiler-n--8879-951-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8879-951-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8879-951-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 "(function (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--8804-874-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Gambit-Scheme-Compiler-n--8804-874-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8804-874-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-cType arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cType arg-2 eta-1)) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) arg-3))) 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 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (*)(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " e-6) ")"))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9768-1751-fnWrapName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 arg-7 "-cFunWrap")))))
+(define Gambit-Scheme-Compiler-n--9114-1134-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--9114-1134-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-notWorld eta-1)) args)) 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 ((Gambit-Scheme-Compiler-cftySpec arg-5 arg-10) 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 0 (Gambit-Scheme-Compiler-n--9114-1133-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (vector 0 e-5 e-6))))))))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1131-buildCWrapperDefs (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-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 ((box (Strings-Prelude-C-43C-43 e-1 "-box"))) (let ((setBox (Strings-Prelude-C-43C-43 "\xa; (set-box! " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 ")")))))) (let ((cWrapName (Gambit-Scheme-Compiler-n--9114-1130-replaceChar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 #\- #\_ e-1))) (let ((boxDef (Strings-Prelude-C-43C-43 "\xa;(define " (Strings-Prelude-C-43C-43 box " (box #f))\xa;")))) (let ((args (Gambit-Scheme-Compiler-case--9128-1220 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4 e-3 e-2 e-1 e-0 box setBox cWrapName boxDef (Prelude-C-62_Ord__Nat (List-Data-length 'erased e-3) 0)))) (let ((cWrapDef (Strings-Prelude-C-43C-43 "\xa;(c-define " (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-3) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-4 (Strings-Prelude-C-43C-43 " \"" (Strings-Prelude-C-43C-43 cWrapName (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 " \"\"" (Strings-Prelude-C-43C-43 "\xa; ((unbox " (Strings-Prelude-C-43C-43 box (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 args (Strings-Prelude-C-43C-43 ")" "\xa;)\xa;"))))))))))))))))))))) (vector 0 setBox boxDef cWrapDef)))))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1132-buildCFunWrapDeclaration (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Strings-Prelude-C-43C-43 "\xa;(c-declare #<<c-declare-end\xa;" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " arg-10) (Strings-Prelude-C-43C-43 ");" "\xa;c-declare-end\xa;)\xa;")))))))))
+(define Gambit-Scheme-Compiler-n--9114-1135-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((arg (Common-Scheme-Compiler-schName e-2))) (let ((schemeWrap (arg-3 arg))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-n--9114-1134-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg (vector 1 e-4 (vector 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 schemeWrap (vector 1 (vector 0 arg schemeWrap e-8 e-10 e-9)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (Common-Scheme-Compiler-schName e-2) (vector 0 ))))))))))))
+(define Gambit-Scheme-Compiler-n--9114-1129-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Gambit-Scheme-Compiler-n--9114-1129-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--setBox (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--cWrapDef (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
 (define CWrapperDefs-Gambit-Scheme-Compiler-rf--boxDef (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
-(define Gambit-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-case--9434-1715 e-2 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Gambit-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-case--9768-1759 e-2 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Gambit-Scheme-Compiler-tySpec (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "Int") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "int")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "UTF-8-string")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "double")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "char")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Ptr"))) (lambda () (lambda (eta-0) (vector 1 "(pointer void)")))) (vector 0 )) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Unit"))) (lambda () (lambda (eta-0) (vector 1 "void")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "(pointer void)")))) (vector 0 ))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))
 (define Gambit-Scheme-Compiler-showGambitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Gambit-Scheme-Compiler-showGambitString e-3) eta-0))))(else (lambda (eta-0) ((Gambit-Scheme-Compiler-showGambitChar e-2) ((Gambit-Scheme-Compiler-showGambitString e-3) eta-0)))))))))))))
-(define Gambit-Scheme-Compiler-showGambitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Gambit-Scheme-Compiler-case--7930-285 arg-0 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32))))))))
+(define Gambit-Scheme-Compiler-showGambitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Gambit-Scheme-Compiler-case--8245-302 arg-0 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32))))))))
 (define Gambit-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
 (define Gambit-Scheme-Compiler-schHeader (lambda () "(declare (block)\xa;         (inlining-limit 450)\xa;         (standard-bindings)\xa;         (extended-bindings)\xa;         (not safe)\xa;         (optimize-dead-definitions))\xa;"))
-(define Gambit-Scheme-Compiler-schFgnDef (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))) (let ((argns (Gambit-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Gambit-Scheme-Compiler-mkStruct arg-2 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 ((Gambit-Scheme-Compiler-useCC arg-0 arg-1 arg-3 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (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-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc7 e-10)) (let ((e-36 (vector-ref sc7 1))) e-36)) arg-4) eta-0))) (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 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-11) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-9 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) ""))))))))
+(define Gambit-Scheme-Compiler-schFgnDef (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))) (let ((argns (Gambit-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Gambit-Scheme-Compiler-mkStruct arg-2 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 ((Gambit-Scheme-Compiler-useCC arg-0 arg-1 arg-3 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (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-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc7 e-10)) (let ((e-36 (vector-ref sc7 1))) e-36)) arg-4) eta-0))) (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 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-11) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-9 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) ""))))))))
 (define Gambit-Scheme-Compiler-notWorld (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Gambit-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Gambit-Scheme-Compiler-case--9678-1969 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-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 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Gambit-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Gambit-Scheme-Compiler-case--10012-2020 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-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 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Gambit-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Gambit-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Gambit-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
 (define Gambit-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "void") (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld arg-1))))))
 (define Gambit-Scheme-Compiler-getFgnCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Gambit-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 e-6 e-2 e-7)))))))))
 (define Gambit-Scheme-Compiler-getFArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 1) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-getFArgs e-13) eta-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-6 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-7 e-10) e-6)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))
 (define Gambit-Scheme-Compiler-gambitString (lambda (arg-0) (Prelude-strCons #\" ((Gambit-Scheme-Compiler-showGambitString (Prelude-unpack arg-0)) "\""))))
 (define Gambit-Scheme-Compiler-gambitPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((12) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((6) (let ((e-15 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Gambit-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-tySpec eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Gambit-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Gambit-Scheme-Compiler-gambitPrim eta-2 eta-3 eta-4)))) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitString eta-2)) 0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc11 1))) (vector 1 (Gambit-Scheme-Compiler-handleRet e-8 (Strings-Prelude-C-43C-43 "((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-15) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")"))))))))))))))))))))))))))))))))(else (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((12) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 e-43)) (case (vector-ref sc3 0) ((6) (let ((e-44 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-47 (vector-ref sc4 2))) (let ((sc5 e-47)) (case (vector-ref sc5 0) ((1) (let ((e-50 (vector-ref sc5 2))) (let ((sc6 e-50)) (case (vector-ref sc6 0) ((1) (let ((e-52 (vector-ref sc6 1))) (let ((e-53 (vector-ref sc6 2))) (let ((sc7 e-53)) (case (vector-ref sc7 0) ((1) (let ((e-55 (vector-ref sc7 1))) (let ((e-56 (vector-ref sc7 2))) (let ((sc8 e-55)) (case (vector-ref sc8 0) ((12) (let ((e-58 (vector-ref sc8 2))) (let ((sc9 e-58)) (case (vector-ref sc9 0) ((6) (let ((e-59 (vector-ref sc9 1))) (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-52) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-44 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-59 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-25)) (case (vector-ref sc11 0) ((1) (let ((e-28 (vector-ref sc11 2))) (let ((sc12 e-28)) (case (vector-ref sc12 0) ((1) (let ((e-31 (vector-ref sc12 2))) (let ((sc13 e-31)) (case (vector-ref sc13 0) ((1) (let ((e-34 (vector-ref sc13 2))) (let ((sc14 e-34)) (case (vector-ref sc14 0) ((1) (let ((e-37 (vector-ref sc14 2))) (let ((sc15 e-37)) (case (vector-ref sc15 0) ((1) (let ((e-40 (vector-ref sc15 2))) (let ((sc16 e-40)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-25)) (case (vector-ref sc10 0) ((1) (let ((e-28 (vector-ref sc10 2))) (let ((sc11 e-28)) (case (vector-ref sc11 0) ((1) (let ((e-31 (vector-ref sc11 2))) (let ((sc12 e-31)) (case (vector-ref sc12 0) ((1) (let ((e-34 (vector-ref sc12 2))) (let ((sc13 e-34)) (case (vector-ref sc13 0) ((1) (let ((e-37 (vector-ref sc13 2))) (let ((sc14 e-37)) (case (vector-ref sc14 0) ((1) (let ((e-40 (vector-ref sc14 2))) (let ((sc15 e-40)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-25)) (case (vector-ref sc9 0) ((1) (let ((e-28 (vector-ref sc9 2))) (let ((sc10 e-28)) (case (vector-ref sc10 0) ((1) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((1) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((1) (let ((e-37 (vector-ref sc12 2))) (let ((sc13 e-37)) (case (vector-ref sc13 0) ((1) (let ((e-40 (vector-ref sc13 2))) (let ((sc14 e-40)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((1) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((1) (let ((e-37 (vector-ref sc11 2))) (let ((sc12 e-37)) (case (vector-ref sc12 0) ((1) (let ((e-40 (vector-ref sc12 2))) (let ((sc13 e-40)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((1) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((1) (let ((e-37 (vector-ref sc10 2))) (let ((sc11 e-37)) (case (vector-ref sc11 0) ((1) (let ((e-40 (vector-ref sc11 2))) (let ((sc12 e-40)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-25)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-28)) (case (vector-ref sc7 0) ((1) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((1) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((1) (let ((e-37 (vector-ref sc9 2))) (let ((sc10 e-37)) (case (vector-ref sc10 0) ((1) (let ((e-40 (vector-ref sc10 2))) (let ((sc11 e-40)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((1) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((1) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((1) (let ((e-40 (vector-ref sc9 2))) (let ((sc10 e-40)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 2))) (let ((sc5 e-28)) (case (vector-ref sc5 0) ((1) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((1) (let ((e-37 (vector-ref sc7 2))) (let ((sc8 e-37)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 2))) (let ((sc9 e-40)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-25)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 2))) (let ((sc7 e-37)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-25)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 2))) (let ((sc4 e-31)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 2))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 1))) (let ((e-66 (vector-ref sc1 2))) (let ((sc2 e-65)) (case (vector-ref sc2 0) ((12) (let ((e-90 (vector-ref sc2 2))) (let ((sc3 e-90)) (case (vector-ref sc3 0) ((6) (let ((e-91 (vector-ref sc3 1))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((1) (let ((e-99 (vector-ref sc6 1))) (let ((e-100 (vector-ref sc6 2))) (let ((sc7 e-100)) (case (vector-ref sc7 0) ((1) (let ((e-102 (vector-ref sc7 1))) (let ((e-103 (vector-ref sc7 2))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((12) (let ((e-105 (vector-ref sc8 2))) (let ((sc9 e-105)) (case (vector-ref sc9 0) ((6) (let ((e-106 (vector-ref sc9 1))) (let ((sc10 e-103)) (case (vector-ref sc10 0) ((1) (let ((e-109 (vector-ref sc10 2))) (let ((sc11 e-109)) (case (vector-ref sc11 0) ((1) (let ((e-111 (vector-ref sc11 1))) (let ((e-112 (vector-ref sc11 2))) (let ((sc12 e-112)) (case (vector-ref sc12 0) ((1) (let ((e-115 (vector-ref sc12 2))) (let ((sc13 e-115)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-99) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) 0 e-111) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-91 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-106 (Strings-Prelude-C-43C-43 "-set! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-66)) (case (vector-ref sc13 0) ((1) (let ((e-69 (vector-ref sc13 2))) (let ((sc14 e-69)) (case (vector-ref sc14 0) ((1) (let ((e-72 (vector-ref sc14 2))) (let ((sc15 e-72)) (case (vector-ref sc15 0) ((1) (let ((e-75 (vector-ref sc15 2))) (let ((sc16 e-75)) (case (vector-ref sc16 0) ((1) (let ((e-78 (vector-ref sc16 2))) (let ((sc17 e-78)) (case (vector-ref sc17 0) ((1) (let ((e-81 (vector-ref sc17 2))) (let ((sc18 e-81)) (case (vector-ref sc18 0) ((1) (let ((e-84 (vector-ref sc18 2))) (let ((sc19 e-84)) (case (vector-ref sc19 0) ((1) (let ((e-87 (vector-ref sc19 2))) (let ((sc20 e-87)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-66)) (case (vector-ref sc12 0) ((1) (let ((e-69 (vector-ref sc12 2))) (let ((sc13 e-69)) (case (vector-ref sc13 0) ((1) (let ((e-72 (vector-ref sc13 2))) (let ((sc14 e-72)) (case (vector-ref sc14 0) ((1) (let ((e-75 (vector-ref sc14 2))) (let ((sc15 e-75)) (case (vector-ref sc15 0) ((1) (let ((e-78 (vector-ref sc15 2))) (let ((sc16 e-78)) (case (vector-ref sc16 0) ((1) (let ((e-81 (vector-ref sc16 2))) (let ((sc17 e-81)) (case (vector-ref sc17 0) ((1) (let ((e-84 (vector-ref sc17 2))) (let ((sc18 e-84)) (case (vector-ref sc18 0) ((1) (let ((e-87 (vector-ref sc18 2))) (let ((sc19 e-87)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-66)) (case (vector-ref sc11 0) ((1) (let ((e-69 (vector-ref sc11 2))) (let ((sc12 e-69)) (case (vector-ref sc12 0) ((1) (let ((e-72 (vector-ref sc12 2))) (let ((sc13 e-72)) (case (vector-ref sc13 0) ((1) (let ((e-75 (vector-ref sc13 2))) (let ((sc14 e-75)) (case (vector-ref sc14 0) ((1) (let ((e-78 (vector-ref sc14 2))) (let ((sc15 e-78)) (case (vector-ref sc15 0) ((1) (let ((e-81 (vector-ref sc15 2))) (let ((sc16 e-81)) (case (vector-ref sc16 0) ((1) (let ((e-84 (vector-ref sc16 2))) (let ((sc17 e-84)) (case (vector-ref sc17 0) ((1) (let ((e-87 (vector-ref sc17 2))) (let ((sc18 e-87)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-66)) (case (vector-ref sc10 0) ((1) (let ((e-69 (vector-ref sc10 2))) (let ((sc11 e-69)) (case (vector-ref sc11 0) ((1) (let ((e-72 (vector-ref sc11 2))) (let ((sc12 e-72)) (case (vector-ref sc12 0) ((1) (let ((e-75 (vector-ref sc12 2))) (let ((sc13 e-75)) (case (vector-ref sc13 0) ((1) (let ((e-78 (vector-ref sc13 2))) (let ((sc14 e-78)) (case (vector-ref sc14 0) ((1) (let ((e-81 (vector-ref sc14 2))) (let ((sc15 e-81)) (case (vector-ref sc15 0) ((1) (let ((e-84 (vector-ref sc15 2))) (let ((sc16 e-84)) (case (vector-ref sc16 0) ((1) (let ((e-87 (vector-ref sc16 2))) (let ((sc17 e-87)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((1) (let ((e-72 (vector-ref sc10 2))) (let ((sc11 e-72)) (case (vector-ref sc11 0) ((1) (let ((e-75 (vector-ref sc11 2))) (let ((sc12 e-75)) (case (vector-ref sc12 0) ((1) (let ((e-78 (vector-ref sc12 2))) (let ((sc13 e-78)) (case (vector-ref sc13 0) ((1) (let ((e-81 (vector-ref sc13 2))) (let ((sc14 e-81)) (case (vector-ref sc14 0) ((1) (let ((e-84 (vector-ref sc14 2))) (let ((sc15 e-84)) (case (vector-ref sc15 0) ((1) (let ((e-87 (vector-ref sc15 2))) (let ((sc16 e-87)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-66)) (case (vector-ref sc8 0) ((1) (let ((e-69 (vector-ref sc8 2))) (let ((sc9 e-69)) (case (vector-ref sc9 0) ((1) (let ((e-72 (vector-ref sc9 2))) (let ((sc10 e-72)) (case (vector-ref sc10 0) ((1) (let ((e-75 (vector-ref sc10 2))) (let ((sc11 e-75)) (case (vector-ref sc11 0) ((1) (let ((e-78 (vector-ref sc11 2))) (let ((sc12 e-78)) (case (vector-ref sc12 0) ((1) (let ((e-81 (vector-ref sc12 2))) (let ((sc13 e-81)) (case (vector-ref sc13 0) ((1) (let ((e-84 (vector-ref sc13 2))) (let ((sc14 e-84)) (case (vector-ref sc14 0) ((1) (let ((e-87 (vector-ref sc14 2))) (let ((sc15 e-87)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-66)) (case (vector-ref sc7 0) ((1) (let ((e-69 (vector-ref sc7 2))) (let ((sc8 e-69)) (case (vector-ref sc8 0) ((1) (let ((e-72 (vector-ref sc8 2))) (let ((sc9 e-72)) (case (vector-ref sc9 0) ((1) (let ((e-75 (vector-ref sc9 2))) (let ((sc10 e-75)) (case (vector-ref sc10 0) ((1) (let ((e-78 (vector-ref sc10 2))) (let ((sc11 e-78)) (case (vector-ref sc11 0) ((1) (let ((e-81 (vector-ref sc11 2))) (let ((sc12 e-81)) (case (vector-ref sc12 0) ((1) (let ((e-84 (vector-ref sc12 2))) (let ((sc13 e-84)) (case (vector-ref sc13 0) ((1) (let ((e-87 (vector-ref sc13 2))) (let ((sc14 e-87)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-66)) (case (vector-ref sc6 0) ((1) (let ((e-69 (vector-ref sc6 2))) (let ((sc7 e-69)) (case (vector-ref sc7 0) ((1) (let ((e-72 (vector-ref sc7 2))) (let ((sc8 e-72)) (case (vector-ref sc8 0) ((1) (let ((e-75 (vector-ref sc8 2))) (let ((sc9 e-75)) (case (vector-ref sc9 0) ((1) (let ((e-78 (vector-ref sc9 2))) (let ((sc10 e-78)) (case (vector-ref sc10 0) ((1) (let ((e-81 (vector-ref sc10 2))) (let ((sc11 e-81)) (case (vector-ref sc11 0) ((1) (let ((e-84 (vector-ref sc11 2))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((1) (let ((e-87 (vector-ref sc12 2))) (let ((sc13 e-87)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-66)) (case (vector-ref sc5 0) ((1) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((1) (let ((e-72 (vector-ref sc6 2))) (let ((sc7 e-72)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 2))) (let ((sc8 e-75)) (case (vector-ref sc8 0) ((1) (let ((e-78 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((1) (let ((e-81 (vector-ref sc9 2))) (let ((sc10 e-81)) (case (vector-ref sc10 0) ((1) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-84)) (case (vector-ref sc11 0) ((1) (let ((e-87 (vector-ref sc11 2))) (let ((sc12 e-87)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((1) (let ((e-72 (vector-ref sc5 2))) (let ((sc6 e-72)) (case (vector-ref sc6 0) ((1) (let ((e-75 (vector-ref sc6 2))) (let ((sc7 e-75)) (case (vector-ref sc7 0) ((1) (let ((e-78 (vector-ref sc7 2))) (let ((sc8 e-78)) (case (vector-ref sc8 0) ((1) (let ((e-81 (vector-ref sc8 2))) (let ((sc9 e-81)) (case (vector-ref sc9 0) ((1) (let ((e-84 (vector-ref sc9 2))) (let ((sc10 e-84)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 2))) (let ((sc11 e-87)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 2))) (let ((sc4 e-69)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 2))) (let ((sc5 e-72)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 2))) (let ((sc6 e-75)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 2))) (let ((sc7 e-78)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 2))) (let ((sc8 e-81)) (case (vector-ref sc8 0) ((1) (let ((e-84 (vector-ref sc8 2))) (let ((sc9 e-84)) (case (vector-ref sc9 0) ((1) (let ((e-87 (vector-ref sc9 2))) (let ((sc10 e-87)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-66)) (case (vector-ref sc2 0) ((1) (let ((e-69 (vector-ref sc2 2))) (let ((sc3 e-69)) (case (vector-ref sc3 0) ((1) (let ((e-72 (vector-ref sc3 2))) (let ((sc4 e-72)) (case (vector-ref sc4 0) ((1) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((1) (let ((e-87 (vector-ref sc8 2))) (let ((sc9 e-87)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"gambit\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))
-(define Gambit-Scheme-Compiler-findGSC (lambda (ext-0) (let ((act-24 (System-getEnv "GAMBIT_GSC" ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env gsc") act-24))))
-(define Gambit-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Gambit-Scheme-Compiler-compileExpr arg-0 arg-1 arg-2 "_tmpgambit") ext-0))) (let ((sc0 act-24)) (case (vector-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))) (Prelude-map_Functor__IO 'erased 'erased (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-25 (System-system e-1 eta-0))) (vector 1 act-25))) ext-0))) (else (vector 1 (vector 0 ))))))))))))
-(define Gambit-Scheme-Compiler-compileToSCM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Loaded" ) (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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Structs" ) (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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-getFgnCall arg-0 e-7 e-8 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-9) e-10)))) (let ((act-30 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "gambit/support.scm" 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 (Directory-Core-readDataFile arg-0 "gambit/foreign.scm" 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 ((scm (Name-Core-showSep "\xa;" (vector 1 (Gambit-Scheme-Compiler-schHeader) (vector 1 e-12 (vector 1 e-13 (vector 1 code (vector 1 e-11 (vector 0 ))))))))) (let ((act-33 (let ((act-33 (File-System-writeFile arg-2 scm 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-9))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((outn (Path-Utils-C-60C-47C-62 arg-1 (Path-Utils-C-60C-46C-62 arg-3 "scm")))) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-compileToSCM arg-0 arg-2 outn 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Directory-Core-findLibraryFile arg-0 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Path-Utils-C-60C-46C-62 arg-4 "a")) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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))) (let ((act-26 (let ((act-26 (Gambit-Scheme-Compiler-findGSC eta-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 ((cmd (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 " -exe -cc-options \"-Wno-implicit-function-declaration\" -ld-options \"" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 "\" " outn)))))) (let ((act-27 (let ((act-27 (System-system cmd eta-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))) ((Gambit-Scheme-Compiler-case--10202-2457 arg-3 arg-2 arg-1 arg-0 outn e-5 e-6 e-7 cmd e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0))))))))))))))))))))))))))
-(define Gambit-Scheme-Compiler-codegenGambit (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-compileExpr eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
-(define Gambit-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned-int"))) ((3) (lambda (eta-0) (vector 1 "UTF-8-string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "(pointer void)"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-1 "*/nonnull"))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8554-924-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Gambit-Scheme-Compiler-cType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((3) (lambda (eta-0) (vector 1 "char *"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void *"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cType arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "struct " e-1))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8481-849-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Gambit-Scheme-Compiler-cCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cftySpec arg-2 (Builtin-snd 'erased 'erased a))) 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 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--8787-1106-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cType arg-2 (Builtin-snd 'erased 'erased a))) 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 ((act-28 ((Gambit-Scheme-Compiler-cType arg-2 arg-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))) (let ((cWrapperDefs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--8787-1102-buildCWrapperDefs arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-7)))) (let ((cFunWrapDeclaration (Gambit-Scheme-Compiler-n--8787-1103-buildCFunWrapDeclaration arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-9 e-8))) (let ((wrapDeclarations (Strings-Prelude-C-43C-43 cFunWrapDeclaration (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-1 (vector-ref sc5 2))) e-1)))) cWrapperDefs) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-2 (vector-ref sc5 3))) e-2)))) cWrapperDefs))))) (let ((setBoxes ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) cWrapperDefs))) (let ((call (Strings-Prelude-C-43C-43 " ((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-7)) ")")))))))))) (let ((body (Strings-Prelude-C-43C-43 setBoxes (Strings-Prelude-C-43C-43 "\xa;" call)))) (vector 1 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet e-6 body) wrapDeclarations))(else (vector 0 body wrapDeclarations))))))))))))))))))))))))))))))))))))))
-(define Common-Scheme-Compiler-case--9329-2940 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
-(define Common-Scheme-Compiler-case--9216-2842 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
-(define Common-Scheme-Compiler-case--8906-2594 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#\\" (Prelude-cast_Cast__Char_String arg-1))) (else (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1)) ")")))))))
-(define Common-Scheme-Compiler-case--6625-292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-cast_Cast__Char_String arg-1)) (else (Strings-Prelude-C-43C-43 "C-" (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1))))))))
-(define Common-Scheme-Compiler-case--6587-269 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Common-Scheme-Compiler-firstExists arg-1))))))
-(define Common-Scheme-Compiler-n--9190-3346-showConstAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-5 1 63) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
-(define Common-Scheme-Compiler-n--9190-3223-showAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
-(define Common-Scheme-Compiler-n--6623-284-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--6625-292 arg-0 arg-1 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-61C-61_Eq__Char arg-1 #\_))))))
-(define Common-Scheme-Compiler-n--9187-2930-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9329-2940 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
-(define Common-Scheme-Compiler-n--9186-2832-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9216-2842 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
+(define Gambit-Scheme-Compiler-findGSC (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "GAMBIT_GSC") ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env gsc") act-24))))
+(define Gambit-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Gambit-Scheme-Compiler-compileExpr arg-0 arg-1 arg-1 arg-2 "_tmpgambit") ext-0))) (let ((sc0 act-24)) (case (vector-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))) (Prelude-map_Functor__IO 'erased 'erased (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-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-25))) ext-0))) (else (vector 1 (vector 0 ))))))))))))
+(define Gambit-Scheme-Compiler-compileToSCM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Loaded" ) (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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Structs" ) (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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-getFgnCall arg-0 e-7 e-8 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-gambitPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Gambit-Scheme-Compiler-gambitString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-9) e-10)))) (let ((act-30 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "gambit/support.scm" 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 (Directory-Core-readDataFile arg-0 "gambit/foreign.scm" 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 ((scm (Name-Core-showSep "\xa;" (vector 1 (Gambit-Scheme-Compiler-schHeader) (vector 1 e-12 (vector 1 e-13 (vector 1 code (vector 1 e-11 (vector 0 ))))))))) (let ((act-33 (let ((act-33 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 scm) 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-9))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((srcPath (Path-Utils-C-60C-47C-62 arg-1 (Path-Utils-C-60C-46C-62 arg-4 "scm")))) (let ((execPath (Path-Utils-C-60C-47C-62 arg-2 arg-4))) (lambda (eta-0) (let ((act-24 (Gambit-Scheme-Compiler-compileToSCM arg-0 arg-3 srcPath 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Directory-Core-findLibraryFile arg-0 eta-1 eta-2))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (Path-Utils-C-60C-46C-62 arg-5 "a")) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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))) (let ((act-26 (let ((act-26 (Gambit-Scheme-Compiler-findGSC eta-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 ((cmd (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 " -exe -cc-options \"-Wno-implicit-function-declaration\" -ld-options \"" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 "\" -o \"" (Strings-Prelude-C-43C-43 execPath (Strings-Prelude-C-43C-43 "\" \"" (Strings-Prelude-C-43C-43 srcPath "\""))))))))) (let ((act-27 (let ((act-27 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmd) eta-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))) ((Gambit-Scheme-Compiler-case--10563-2555 arg-4 arg-3 arg-2 arg-1 arg-0 srcPath execPath e-5 e-6 e-7 cmd e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))
+(define Gambit-Scheme-Compiler-codegenGambit (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Gambit-Scheme-Compiler-compileExpr eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Gambit-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned-int"))) ((3) (lambda (eta-0) (vector 1 "UTF-8-string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "(pointer void)"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 e-1 "*/nonnull"))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8879-951-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Gambit-Scheme-Compiler-cType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((3) (lambda (eta-0) (vector 1 "char *"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void *"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cType arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "struct " e-1))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--8804-874-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Gambit-Scheme-Compiler-cCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cftySpec arg-2 (Builtin-snd 'erased 'erased a))) 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 ((Gambit-Scheme-Compiler-cftySpec arg-2 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 ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--9114-1135-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cType arg-2 (Builtin-snd 'erased 'erased a))) 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 ((act-28 ((Gambit-Scheme-Compiler-cType arg-2 arg-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))) (let ((cWrapperDefs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--9114-1131-buildCWrapperDefs arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-7)))) (let ((cFunWrapDeclaration (Gambit-Scheme-Compiler-n--9114-1132-buildCFunWrapDeclaration arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-9 e-8))) (let ((wrapDeclarations (Strings-Prelude-C-43C-43 cFunWrapDeclaration (Strings-Prelude-C-43C-43 ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-1 (vector-ref sc5 2))) e-1)))) cWrapperDefs) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-2 (vector-ref sc5 3))) e-2)))) cWrapperDefs))))) (let ((setBoxes ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (let ((sc5 eta-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) cWrapperDefs))) (let ((call (Strings-Prelude-C-43C-43 " ((c-lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-7)) ")")))))))))) (let ((body (Strings-Prelude-C-43C-43 setBoxes (Strings-Prelude-C-43C-43 "\xa;" call)))) (vector 1 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (vector 0 (Gambit-Scheme-Compiler-handleRet e-6 body) wrapDeclarations))(else (vector 0 body wrapDeclarations))))))))))))))))))))))))))))))))))))))
+(define Common-Scheme-Compiler-case--9568-2952 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
+(define Common-Scheme-Compiler-case--9454-2853 (lambda (arg-0 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) (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName arg-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 arg-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int arg-11) (Strings-Prelude-C-43C-43 "))) " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-11 1 63) arg-9 arg-10))))))
+(define Common-Scheme-Compiler-case--9144-2605 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#\\" (Prelude-cast_Cast__Char_String arg-1))) (else (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1)) ")")))))))
+(define Common-Scheme-Compiler-case--6861-301 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Prelude-cast_Cast__Char_String arg-1)) (else (Strings-Prelude-C-43C-43 "C-" (Prelude-show_Show__Int (Prelude-cast_Cast__Char_Int arg-1))))))))
+(define Common-Scheme-Compiler-case--6823-278 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Common-Scheme-Compiler-firstExists arg-1))))))
+(define Common-Scheme-Compiler-n--9428-3385-showConstAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-5 1 63) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-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))) (vector 1 (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " e-7)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
+(define Common-Scheme-Compiler-n--9428-3253-showAlts (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 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-5 1 63) arg-6 e-2) 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 ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (vector 1 (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))))))))))))))))))))))))
+(define Common-Scheme-Compiler-n--6859-293-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--6861-301 arg-0 arg-1 (Prelude-C-124C-124 (Prelude-isAlphaNum arg-1) (lambda () (Prelude-C-61C-61_Eq__Char arg-1 #\_))))))
+(define Common-Scheme-Compiler-n--9425-2942-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9568-2952 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
+(define Common-Scheme-Compiler-n--9424-2843-bindArgs (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) arg-10) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Scheme-Compiler-case--9454-2853 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 arg-10 arg-8 (Common-Scheme-Compiler-used e-2 arg-2)))))))))
 (define Common-Scheme-Compiler-show_Show__ExtPrim (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "CCall") ((1) "SchemeCall") ((2) "NewIORef") ((3) "ReadIORef") ((4) "WriteIORef") ((5) "NewArray") ((6) "ArrayGet") ((7) "ArraySet") ((8) "GetField") ((9) "SetField") ((10) "VoidElim") ((11) "SysOS") ((12) "SysCodegen") ((13) "OnCollect") ((14) "OnCollectAny") (else (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unknown " (Name-Core-show_Show__Name e-0))))))))
 (define Common-Scheme-Compiler-usedConst (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-1)))))
 (define Common-Scheme-Compiler-usedCon (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) (Common-Scheme-Compiler-used arg-0 e-3)))))
 (define Common-Scheme-Compiler-used (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-C-61C-61_Eq__Name arg-0 e-1))) ((1) 1) ((2) (let ((e-6 (vector-ref sc0 3))) (Common-Scheme-Compiler-used arg-0 e-6))) ((3) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-9) (lambda () (Common-Scheme-Compiler-used arg-0 e-10)))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-12) (lambda () (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-13))))))) ((5) (let ((e-17 (vector-ref sc0 4))) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-17)))) ((6) (let ((e-21 (vector-ref sc0 3))) (Extra-Bool-Data-anyTrue ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-21))))) ((7) (let ((e-24 (vector-ref sc0 3))) (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-26))) ((9) (let ((e-28 (vector-ref sc0 2))) (Common-Scheme-Compiler-used arg-0 e-28))) ((10) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-30) (lambda () (Prelude-C-124C-124 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-usedCon arg-0 eta-0)) e-31)) (lambda () (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0))) e-32))))))))) ((11) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (Prelude-C-124C-124 (Common-Scheme-Compiler-used arg-0 e-34) (lambda () (Prelude-C-124C-124 (Extra-Bool-Data-anyTrue (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-usedConst arg-0 eta-0)) e-35)) (lambda () (Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) (Common-Scheme-Compiler-used arg-0 eta-0))) e-36)))))))))(else 1)))))
 (define Common-Scheme-Compiler-toPrim (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__schemeCall"))) (lambda () (vector 1 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__cCall"))) (lambda () (vector 0 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__newIORef"))) (lambda () (vector 2 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__readIORef"))) (lambda () (vector 3 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__writeIORef"))) (lambda () (vector 4 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__newArray"))) (lambda () (vector 5 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__arrayGet"))) (lambda () (vector 6 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__arraySet"))) (lambda () (vector 7 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__getField"))) (lambda () (vector 8 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__setField"))) (lambda () (vector 9 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "void"))) (lambda () (vector 10 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__os"))) (lambda () (vector 11 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__codegen"))) (lambda () (vector 12 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__onCollect"))) (lambda () (vector 13 ))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-1 (vector 1 "prim__onCollectAny"))) (lambda () (vector 14 ))) (vector 0 )))))))))))))))) (vector 15 arg-0))))(else (vector 15 arg-0))))))
 (define Common-Scheme-Compiler-showTag (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))) (Prelude-show_Show__Int e-1))) (else (arg-1 (Name-Core-show_Show__Name arg-2)))))))
-(define Common-Scheme-Compiler-schString (lambda (arg-0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--6623-284-okchar arg-0 eta-0))) (Prelude-unpack arg-0))))
+(define Common-Scheme-Compiler-schString (lambda (arg-0) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--6859-293-okchar arg-0 eta-0))) (Prelude-unpack arg-0))))
 (define Common-Scheme-Compiler-schOp (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 e-0)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((1) (let ((e-33 (vector-ref sc3 1))) (let ((e-34 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-29 (vector 1 e-33 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 e-43)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-38 (vector 1 e-42 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((e-48 (vector-ref sc2 2))) (let ((sc3 e-48)) (case (vector-ref sc3 0) ((1) (let ((e-51 (vector-ref sc3 1))) (let ((e-52 (vector-ref sc3 2))) (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-47 (vector 1 e-51 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-56 (vector-ref sc2 1))) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 e-57)) (case (vector-ref sc3 0) ((1) (let ((e-60 (vector-ref sc3 1))) (let ((e-61 (vector-ref sc3 2))) (let ((sc4 e-61)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-56 (vector 1 e-60 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-65 (vector-ref sc2 1))) (let ((e-66 (vector-ref sc2 2))) (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 1))) (let ((e-70 (vector-ref sc3 2))) (let ((sc4 e-70)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b+" (vector 1 e-65 (vector 1 e-69 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (let ((e-24 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-21)) (let ((e-24 (vector-ref sc3 1))) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-21)) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (Common-Scheme-Compiler-op "+" (vector 1 e-20 (vector 1 e-24 (vector 0 )))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-83 (vector-ref sc2 1))) (let ((e-84 (vector-ref sc2 2))) (let ((sc3 e-84)) (case (vector-ref sc3 0) ((1) (let ((e-87 (vector-ref sc3 1))) (let ((e-88 (vector-ref sc3 2))) (let ((sc4 e-88)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-83 (vector 1 e-87 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-92 (vector-ref sc2 1))) (let ((e-93 (vector-ref sc2 2))) (let ((sc3 e-93)) (case (vector-ref sc3 0) ((1) (let ((e-96 (vector-ref sc3 1))) (let ((e-97 (vector-ref sc3 2))) (let ((sc4 e-97)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-92 (vector 1 e-96 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-101 (vector-ref sc2 1))) (let ((e-102 (vector-ref sc2 2))) (let ((sc3 e-102)) (case (vector-ref sc3 0) ((1) (let ((e-105 (vector-ref sc3 1))) (let ((e-106 (vector-ref sc3 2))) (let ((sc4 e-106)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-101 (vector 1 e-105 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-110 (vector-ref sc2 1))) (let ((e-111 (vector-ref sc2 2))) (let ((sc3 e-111)) (case (vector-ref sc3 0) ((1) (let ((e-114 (vector-ref sc3 1))) (let ((e-115 (vector-ref sc3 2))) (let ((sc4 e-115)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-110 (vector 1 e-114 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-119 (vector-ref sc2 1))) (let ((e-120 (vector-ref sc2 2))) (let ((sc3 e-120)) (case (vector-ref sc3 0) ((1) (let ((e-123 (vector-ref sc3 1))) (let ((e-124 (vector-ref sc3 2))) (let ((sc4 e-124)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b-" (vector 1 e-119 (vector 1 e-123 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (let ((e-78 (vector-ref sc5 1))) (let ((e-79 (vector-ref sc5 2))) (let ((sc6 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((sc4 e-75)) (let ((e-78 (vector-ref sc4 1))) (let ((e-79 (vector-ref sc4 2))) (let ((sc5 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (let ((e-78 (vector-ref sc3 1))) (let ((e-79 (vector-ref sc3 2))) (let ((sc4 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((sc2 e-75)) (let ((e-78 (vector-ref sc2 1))) (let ((e-79 (vector-ref sc2 2))) (let ((sc3 e-79)) (Common-Scheme-Compiler-op "-" (vector 1 e-74 (vector 1 e-78 (vector 0 )))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-137 (vector-ref sc2 1))) (let ((e-138 (vector-ref sc2 2))) (let ((sc3 e-138)) (case (vector-ref sc3 0) ((1) (let ((e-141 (vector-ref sc3 1))) (let ((e-142 (vector-ref sc3 2))) (let ((sc4 e-142)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-137 (vector 1 e-141 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-146 (vector-ref sc2 1))) (let ((e-147 (vector-ref sc2 2))) (let ((sc3 e-147)) (case (vector-ref sc3 0) ((1) (let ((e-150 (vector-ref sc3 1))) (let ((e-151 (vector-ref sc3 2))) (let ((sc4 e-151)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-146 (vector 1 e-150 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (let ((sc3 e-156)) (case (vector-ref sc3 0) ((1) (let ((e-159 (vector-ref sc3 1))) (let ((e-160 (vector-ref sc3 2))) (let ((sc4 e-160)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-155 (vector 1 e-159 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-164 (vector-ref sc2 1))) (let ((e-165 (vector-ref sc2 2))) (let ((sc3 e-165)) (case (vector-ref sc3 0) ((1) (let ((e-168 (vector-ref sc3 1))) (let ((e-169 (vector-ref sc3 2))) (let ((sc4 e-169)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-164 (vector 1 e-168 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-173 (vector-ref sc2 1))) (let ((e-174 (vector-ref sc2 2))) (let ((sc3 e-174)) (case (vector-ref sc3 0) ((1) (let ((e-177 (vector-ref sc3 1))) (let ((e-178 (vector-ref sc3 2))) (let ((sc4 e-178)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b*" (vector 1 e-173 (vector 1 e-177 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (let ((e-132 (vector-ref sc5 1))) (let ((e-133 (vector-ref sc5 2))) (let ((sc6 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-128 (vector-ref sc3 1))) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (let ((e-132 (vector-ref sc4 1))) (let ((e-133 (vector-ref sc4 2))) (let ((sc5 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (let ((e-132 (vector-ref sc3 1))) (let ((e-133 (vector-ref sc3 2))) (let ((sc4 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-128 (vector-ref sc1 1))) (let ((e-129 (vector-ref sc1 2))) (let ((sc2 e-129)) (let ((e-132 (vector-ref sc2 1))) (let ((e-133 (vector-ref sc2 2))) (let ((sc3 e-133)) (Common-Scheme-Compiler-op "*" (vector 1 e-128 (vector 1 e-132 (vector 0 )))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-191 (vector-ref sc2 1))) (let ((e-192 (vector-ref sc2 2))) (let ((sc3 e-192)) (case (vector-ref sc3 0) ((1) (let ((e-195 (vector-ref sc3 1))) (let ((e-196 (vector-ref sc3 2))) (let ((sc4 e-196)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-191 (vector 1 e-195 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-200 (vector-ref sc2 1))) (let ((e-201 (vector-ref sc2 2))) (let ((sc3 e-201)) (case (vector-ref sc3 0) ((1) (let ((e-204 (vector-ref sc3 1))) (let ((e-205 (vector-ref sc3 2))) (let ((sc4 e-205)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-200 (vector 1 e-204 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-209 (vector-ref sc2 1))) (let ((e-210 (vector-ref sc2 2))) (let ((sc3 e-210)) (case (vector-ref sc3 0) ((1) (let ((e-213 (vector-ref sc3 1))) (let ((e-214 (vector-ref sc3 2))) (let ((sc4 e-214)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-209 (vector 1 e-213 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-218 (vector-ref sc2 1))) (let ((e-219 (vector-ref sc2 2))) (let ((sc3 e-219)) (case (vector-ref sc3 0) ((1) (let ((e-222 (vector-ref sc3 1))) (let ((e-223 (vector-ref sc3 2))) (let ((sc4 e-223)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-218 (vector 1 e-222 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-227 (vector-ref sc2 1))) (let ((e-228 (vector-ref sc2 2))) (let ((sc3 e-228)) (case (vector-ref sc3 0) ((1) (let ((e-231 (vector-ref sc3 1))) (let ((e-232 (vector-ref sc3 2))) (let ((sc4 e-232)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "b/" (vector 1 e-227 (vector 1 e-231 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 ))))))))))))))) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-236 (vector-ref sc2 1))) (let ((e-237 (vector-ref sc2 2))) (let ((sc3 e-237)) (case (vector-ref sc3 0) ((1) (let ((e-240 (vector-ref sc3 1))) (let ((e-241 (vector-ref sc3 2))) (let ((sc4 e-241)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "quotient" (vector 1 e-236 (vector 1 e-240 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (let ((e-186 (vector-ref sc5 1))) (let ((e-187 (vector-ref sc5 2))) (let ((sc6 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (let ((e-186 (vector-ref sc4 1))) (let ((e-187 (vector-ref sc4 2))) (let ((sc5 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-182 (vector-ref sc2 1))) (let ((e-183 (vector-ref sc2 2))) (let ((sc3 e-183)) (let ((e-186 (vector-ref sc3 1))) (let ((e-187 (vector-ref sc3 2))) (let ((sc4 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-182 (vector-ref sc1 1))) (let ((e-183 (vector-ref sc1 2))) (let ((sc2 e-183)) (let ((e-186 (vector-ref sc2 1))) (let ((e-187 (vector-ref sc2 2))) (let ((sc3 e-187)) (Common-Scheme-Compiler-op "/" (vector 1 e-182 (vector 1 e-186 (vector 0 )))))))))))))))) ((4) (let ((sc1 arg-2)) (let ((e-245 (vector-ref sc1 1))) (let ((e-246 (vector-ref sc1 2))) (let ((sc2 e-246)) (let ((e-249 (vector-ref sc2 1))) (let ((e-250 (vector-ref sc2 2))) (let ((sc3 e-250)) (Common-Scheme-Compiler-op "remainder" (vector 1 e-245 (vector 1 e-249 (vector 0 )))))))))))) ((5) (let ((sc1 arg-2)) (let ((e-254 (vector-ref sc1 1))) (let ((e-255 (vector-ref sc1 2))) (let ((sc2 e-255)) (Common-Scheme-Compiler-op "-" (vector 1 e-254 (vector 0 )))))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-268 (vector-ref sc2 1))) (let ((e-269 (vector-ref sc2 2))) (let ((sc3 e-269)) (case (vector-ref sc3 0) ((1) (let ((e-272 (vector-ref sc3 1))) (let ((e-273 (vector-ref sc3 2))) (let ((sc4 e-273)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-268 (vector 1 e-272 (vector 1 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((12) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-277 (vector-ref sc2 1))) (let ((e-278 (vector-ref sc2 2))) (let ((sc3 e-278)) (case (vector-ref sc3 0) ((1) (let ((e-281 (vector-ref sc3 1))) (let ((e-282 (vector-ref sc3 2))) (let ((sc4 e-282)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-277 (vector 1 e-281 (vector 1 "8" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((13) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-286 (vector-ref sc2 1))) (let ((e-287 (vector-ref sc2 2))) (let ((sc3 e-287)) (case (vector-ref sc3 0) ((1) (let ((e-290 (vector-ref sc3 1))) (let ((e-291 (vector-ref sc3 2))) (let ((sc4 e-291)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-286 (vector 1 e-290 (vector 1 "16" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((14) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-295 (vector-ref sc2 1))) (let ((e-296 (vector-ref sc2 2))) (let ((sc3 e-296)) (case (vector-ref sc3 0) ((1) (let ((e-299 (vector-ref sc3 1))) (let ((e-300 (vector-ref sc3 2))) (let ((sc4 e-300)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-295 (vector 1 e-299 (vector 1 "32" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 ))))))))))))))) ((15) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-304 (vector-ref sc2 1))) (let ((e-305 (vector-ref sc2 2))) (let ((sc3 e-305)) (case (vector-ref sc3 0) ((1) (let ((e-308 (vector-ref sc3 1))) (let ((e-309 (vector-ref sc3 2))) (let ((sc4 e-309)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "blodwen-bits-shl" (vector 1 e-304 (vector 1 e-308 (vector 1 "64" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-259 (vector-ref sc4 1))) (let ((e-260 (vector-ref sc4 2))) (let ((sc5 e-260)) (let ((e-263 (vector-ref sc5 1))) (let ((e-264 (vector-ref sc5 2))) (let ((sc6 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-259 (vector-ref sc3 1))) (let ((e-260 (vector-ref sc3 2))) (let ((sc4 e-260)) (let ((e-263 (vector-ref sc4 1))) (let ((e-264 (vector-ref sc4 2))) (let ((sc5 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-259 (vector-ref sc1 1))) (let ((e-260 (vector-ref sc1 2))) (let ((sc2 e-260)) (let ((e-263 (vector-ref sc2 1))) (let ((e-264 (vector-ref sc2 2))) (let ((sc3 e-264)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))))))))))))) ((7) (let ((sc1 arg-2)) (let ((e-313 (vector-ref sc1 1))) (let ((e-314 (vector-ref sc1 2))) (let ((sc2 e-314)) (let ((e-317 (vector-ref sc2 1))) (let ((e-318 (vector-ref sc2 2))) (let ((sc3 e-318)) (Common-Scheme-Compiler-op "blodwen-shr" (vector 1 e-313 (vector 1 e-317 (vector 0 )))))))))))) ((8) (let ((sc1 arg-2)) (let ((e-322 (vector-ref sc1 1))) (let ((e-323 (vector-ref sc1 2))) (let ((sc2 e-323)) (let ((e-326 (vector-ref sc2 1))) (let ((e-327 (vector-ref sc2 2))) (let ((sc3 e-327)) (Common-Scheme-Compiler-op "blodwen-and" (vector 1 e-322 (vector 1 e-326 (vector 0 )))))))))))) ((9) (let ((sc1 arg-2)) (let ((e-331 (vector-ref sc1 1))) (let ((e-332 (vector-ref sc1 2))) (let ((sc2 e-332)) (let ((e-335 (vector-ref sc2 1))) (let ((e-336 (vector-ref sc2 2))) (let ((sc3 e-336)) (Common-Scheme-Compiler-op "blodwen-or" (vector 1 e-331 (vector 1 e-335 (vector 0 )))))))))))) ((10) (let ((sc1 arg-2)) (let ((e-340 (vector-ref sc1 1))) (let ((e-341 (vector-ref sc1 2))) (let ((sc2 e-341)) (let ((e-344 (vector-ref sc2 1))) (let ((e-345 (vector-ref sc2 2))) (let ((sc3 e-345)) (Common-Scheme-Compiler-op "blodwen-xor" (vector 1 e-340 (vector 1 e-344 (vector 0 )))))))))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-358 (vector-ref sc2 1))) (let ((e-359 (vector-ref sc2 2))) (let ((sc3 e-359)) (case (vector-ref sc3 0) ((1) (let ((e-362 (vector-ref sc3 1))) (let ((e-363 (vector-ref sc3 2))) (let ((sc4 e-363)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<?" (vector 1 e-358 (vector 1 e-362 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-349 (vector-ref sc4 1))) (let ((e-350 (vector-ref sc4 2))) (let ((sc5 e-350)) (let ((e-353 (vector-ref sc5 1))) (let ((e-354 (vector-ref sc5 2))) (let ((sc6 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-349 (vector-ref sc3 1))) (let ((e-350 (vector-ref sc3 2))) (let ((sc4 e-350)) (let ((e-353 (vector-ref sc4 1))) (let ((e-354 (vector-ref sc4 2))) (let ((sc5 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-349 (vector-ref sc2 1))) (let ((e-350 (vector-ref sc2 2))) (let ((sc3 e-350)) (let ((e-353 (vector-ref sc3 1))) (let ((e-354 (vector-ref sc3 2))) (let ((sc4 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-367 (vector-ref sc2 1))) (let ((e-368 (vector-ref sc2 2))) (let ((sc3 e-368)) (case (vector-ref sc3 0) ((1) (let ((e-371 (vector-ref sc3 1))) (let ((e-372 (vector-ref sc3 2))) (let ((sc4 e-372)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<?" (vector 1 e-367 (vector 1 e-371 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-349 (vector-ref sc4 1))) (let ((e-350 (vector-ref sc4 2))) (let ((sc5 e-350)) (let ((e-353 (vector-ref sc5 1))) (let ((e-354 (vector-ref sc5 2))) (let ((sc6 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-349 (vector-ref sc3 1))) (let ((e-350 (vector-ref sc3 2))) (let ((sc4 e-350)) (let ((e-353 (vector-ref sc4 1))) (let ((e-354 (vector-ref sc4 2))) (let ((sc5 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-349 (vector-ref sc2 1))) (let ((e-350 (vector-ref sc2 2))) (let ((sc3 e-350)) (let ((e-353 (vector-ref sc3 1))) (let ((e-354 (vector-ref sc3 2))) (let ((sc4 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-349 (vector-ref sc1 1))) (let ((e-350 (vector-ref sc1 2))) (let ((sc2 e-350)) (let ((e-353 (vector-ref sc2 1))) (let ((e-354 (vector-ref sc2 2))) (let ((sc3 e-354)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-349 (vector 1 e-353 (vector 0 )))))))))))))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-385 (vector-ref sc2 1))) (let ((e-386 (vector-ref sc2 2))) (let ((sc3 e-386)) (case (vector-ref sc3 0) ((1) (let ((e-389 (vector-ref sc3 1))) (let ((e-390 (vector-ref sc3 2))) (let ((sc4 e-390)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<=?" (vector 1 e-385 (vector 1 e-389 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-376 (vector-ref sc4 1))) (let ((e-377 (vector-ref sc4 2))) (let ((sc5 e-377)) (let ((e-380 (vector-ref sc5 1))) (let ((e-381 (vector-ref sc5 2))) (let ((sc6 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-376 (vector-ref sc3 1))) (let ((e-377 (vector-ref sc3 2))) (let ((sc4 e-377)) (let ((e-380 (vector-ref sc4 1))) (let ((e-381 (vector-ref sc4 2))) (let ((sc5 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-376 (vector-ref sc2 1))) (let ((e-377 (vector-ref sc2 2))) (let ((sc3 e-377)) (let ((e-380 (vector-ref sc3 1))) (let ((e-381 (vector-ref sc3 2))) (let ((sc4 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-394 (vector-ref sc2 1))) (let ((e-395 (vector-ref sc2 2))) (let ((sc3 e-395)) (case (vector-ref sc3 0) ((1) (let ((e-398 (vector-ref sc3 1))) (let ((e-399 (vector-ref sc3 2))) (let ((sc4 e-399)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<=?" (vector 1 e-394 (vector 1 e-398 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-376 (vector-ref sc4 1))) (let ((e-377 (vector-ref sc4 2))) (let ((sc5 e-377)) (let ((e-380 (vector-ref sc5 1))) (let ((e-381 (vector-ref sc5 2))) (let ((sc6 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-376 (vector-ref sc3 1))) (let ((e-377 (vector-ref sc3 2))) (let ((sc4 e-377)) (let ((e-380 (vector-ref sc4 1))) (let ((e-381 (vector-ref sc4 2))) (let ((sc5 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-376 (vector-ref sc2 1))) (let ((e-377 (vector-ref sc2 2))) (let ((sc3 e-377)) (let ((e-380 (vector-ref sc3 1))) (let ((e-381 (vector-ref sc3 2))) (let ((sc4 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-376 (vector-ref sc1 1))) (let ((e-377 (vector-ref sc1 2))) (let ((sc2 e-377)) (let ((e-380 (vector-ref sc2 1))) (let ((e-381 (vector-ref sc2 2))) (let ((sc3 e-381)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-376 (vector 1 e-380 (vector 0 )))))))))))))))) ((13) (let ((e-13 (vector-ref sc0 1))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-412 (vector-ref sc2 1))) (let ((e-413 (vector-ref sc2 2))) (let ((sc3 e-413)) (case (vector-ref sc3 0) ((1) (let ((e-416 (vector-ref sc3 1))) (let ((e-417 (vector-ref sc3 2))) (let ((sc4 e-417)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char=?" (vector 1 e-412 (vector 1 e-416 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-403 (vector-ref sc4 1))) (let ((e-404 (vector-ref sc4 2))) (let ((sc5 e-404)) (let ((e-407 (vector-ref sc5 1))) (let ((e-408 (vector-ref sc5 2))) (let ((sc6 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-403 (vector-ref sc3 1))) (let ((e-404 (vector-ref sc3 2))) (let ((sc4 e-404)) (let ((e-407 (vector-ref sc4 1))) (let ((e-408 (vector-ref sc4 2))) (let ((sc5 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-403 (vector-ref sc2 1))) (let ((e-404 (vector-ref sc2 2))) (let ((sc3 e-404)) (let ((e-407 (vector-ref sc3 1))) (let ((e-408 (vector-ref sc3 2))) (let ((sc4 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-421 (vector-ref sc2 1))) (let ((e-422 (vector-ref sc2 2))) (let ((sc3 e-422)) (case (vector-ref sc3 0) ((1) (let ((e-425 (vector-ref sc3 1))) (let ((e-426 (vector-ref sc3 2))) (let ((sc4 e-426)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string=?" (vector 1 e-421 (vector 1 e-425 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-403 (vector-ref sc4 1))) (let ((e-404 (vector-ref sc4 2))) (let ((sc5 e-404)) (let ((e-407 (vector-ref sc5 1))) (let ((e-408 (vector-ref sc5 2))) (let ((sc6 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-403 (vector-ref sc3 1))) (let ((e-404 (vector-ref sc3 2))) (let ((sc4 e-404)) (let ((e-407 (vector-ref sc4 1))) (let ((e-408 (vector-ref sc4 2))) (let ((sc5 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-403 (vector-ref sc2 1))) (let ((e-404 (vector-ref sc2 2))) (let ((sc3 e-404)) (let ((e-407 (vector-ref sc3 1))) (let ((e-408 (vector-ref sc3 2))) (let ((sc4 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-403 (vector-ref sc1 1))) (let ((e-404 (vector-ref sc1 2))) (let ((sc2 e-404)) (let ((e-407 (vector-ref sc2 1))) (let ((e-408 (vector-ref sc2 2))) (let ((sc3 e-408)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-403 (vector 1 e-407 (vector 0 )))))))))))))))) ((14) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-439 (vector-ref sc2 1))) (let ((e-440 (vector-ref sc2 2))) (let ((sc3 e-440)) (case (vector-ref sc3 0) ((1) (let ((e-443 (vector-ref sc3 1))) (let ((e-444 (vector-ref sc3 2))) (let ((sc4 e-444)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char>=?" (vector 1 e-439 (vector 1 e-443 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-430 (vector-ref sc4 1))) (let ((e-431 (vector-ref sc4 2))) (let ((sc5 e-431)) (let ((e-434 (vector-ref sc5 1))) (let ((e-435 (vector-ref sc5 2))) (let ((sc6 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-430 (vector-ref sc3 1))) (let ((e-431 (vector-ref sc3 2))) (let ((sc4 e-431)) (let ((e-434 (vector-ref sc4 1))) (let ((e-435 (vector-ref sc4 2))) (let ((sc5 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-430 (vector-ref sc2 1))) (let ((e-431 (vector-ref sc2 2))) (let ((sc3 e-431)) (let ((e-434 (vector-ref sc3 1))) (let ((e-435 (vector-ref sc3 2))) (let ((sc4 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-448 (vector-ref sc2 1))) (let ((e-449 (vector-ref sc2 2))) (let ((sc3 e-449)) (case (vector-ref sc3 0) ((1) (let ((e-452 (vector-ref sc3 1))) (let ((e-453 (vector-ref sc3 2))) (let ((sc4 e-453)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string>=?" (vector 1 e-448 (vector 1 e-452 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-430 (vector-ref sc4 1))) (let ((e-431 (vector-ref sc4 2))) (let ((sc5 e-431)) (let ((e-434 (vector-ref sc5 1))) (let ((e-435 (vector-ref sc5 2))) (let ((sc6 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-430 (vector-ref sc3 1))) (let ((e-431 (vector-ref sc3 2))) (let ((sc4 e-431)) (let ((e-434 (vector-ref sc4 1))) (let ((e-435 (vector-ref sc4 2))) (let ((sc5 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-430 (vector-ref sc2 1))) (let ((e-431 (vector-ref sc2 2))) (let ((sc3 e-431)) (let ((e-434 (vector-ref sc3 1))) (let ((e-435 (vector-ref sc3 2))) (let ((sc4 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-430 (vector-ref sc1 1))) (let ((e-431 (vector-ref sc1 2))) (let ((sc2 e-431)) (let ((e-434 (vector-ref sc2 1))) (let ((e-435 (vector-ref sc2 2))) (let ((sc3 e-435)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-430 (vector 1 e-434 (vector 0 )))))))))))))))) ((15) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((17) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-466 (vector-ref sc2 1))) (let ((e-467 (vector-ref sc2 2))) (let ((sc3 e-467)) (case (vector-ref sc3 0) ((1) (let ((e-470 (vector-ref sc3 1))) (let ((e-471 (vector-ref sc3 2))) (let ((sc4 e-471)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char>?" (vector 1 e-466 (vector 1 e-470 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-457 (vector-ref sc4 1))) (let ((e-458 (vector-ref sc4 2))) (let ((sc5 e-458)) (let ((e-461 (vector-ref sc5 1))) (let ((e-462 (vector-ref sc5 2))) (let ((sc6 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-457 (vector-ref sc3 1))) (let ((e-458 (vector-ref sc3 2))) (let ((sc4 e-458)) (let ((e-461 (vector-ref sc4 1))) (let ((e-462 (vector-ref sc4 2))) (let ((sc5 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-457 (vector-ref sc2 1))) (let ((e-458 (vector-ref sc2 2))) (let ((sc3 e-458)) (let ((e-461 (vector-ref sc3 1))) (let ((e-462 (vector-ref sc3 2))) (let ((sc4 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 ))))))))))))))) ((16) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-475 (vector-ref sc2 1))) (let ((e-476 (vector-ref sc2 2))) (let ((sc3 e-476)) (case (vector-ref sc3 0) ((1) (let ((e-479 (vector-ref sc3 1))) (let ((e-480 (vector-ref sc3 2))) (let ((sc4 e-480)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string>?" (vector 1 e-475 (vector 1 e-479 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-457 (vector-ref sc4 1))) (let ((e-458 (vector-ref sc4 2))) (let ((sc5 e-458)) (let ((e-461 (vector-ref sc5 1))) (let ((e-462 (vector-ref sc5 2))) (let ((sc6 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-457 (vector-ref sc3 1))) (let ((e-458 (vector-ref sc3 2))) (let ((sc4 e-458)) (let ((e-461 (vector-ref sc4 1))) (let ((e-462 (vector-ref sc4 2))) (let ((sc5 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-457 (vector-ref sc2 1))) (let ((e-458 (vector-ref sc2 2))) (let ((sc3 e-458)) (let ((e-461 (vector-ref sc3 1))) (let ((e-462 (vector-ref sc3 2))) (let ((sc4 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-457 (vector-ref sc1 1))) (let ((e-458 (vector-ref sc1 2))) (let ((sc2 e-458)) (let ((e-461 (vector-ref sc2 1))) (let ((e-462 (vector-ref sc2 2))) (let ((sc3 e-462)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-457 (vector 1 e-461 (vector 0 )))))))))))))))) ((16) (let ((sc1 arg-2)) (let ((e-484 (vector-ref sc1 1))) (let ((e-485 (vector-ref sc1 2))) (let ((sc2 e-485)) (Common-Scheme-Compiler-op "string-length" (vector 1 e-484 (vector 0 )))))))) ((17) (let ((sc1 arg-2)) (let ((e-489 (vector-ref sc1 1))) (let ((e-490 (vector-ref sc1 2))) (let ((sc2 e-490)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-489 (vector 1 "0" (vector 0 ))))))))) ((18) (let ((sc1 arg-2)) (let ((e-494 (vector-ref sc1 1))) (let ((e-495 (vector-ref sc1 2))) (let ((sc2 e-495)) (Common-Scheme-Compiler-op "substring" (vector 1 e-494 (vector 1 "1" (vector 1 (Common-Scheme-Compiler-op "string-length" (vector 1 e-494 (vector 0 ))) (vector 0 )))))))))) ((19) (let ((sc1 arg-2)) (let ((e-499 (vector-ref sc1 1))) (let ((e-500 (vector-ref sc1 2))) (let ((sc2 e-500)) (let ((e-503 (vector-ref sc2 1))) (let ((e-504 (vector-ref sc2 2))) (let ((sc3 e-504)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-499 (vector 1 e-503 (vector 0 )))))))))))) ((20) (let ((sc1 arg-2)) (let ((e-508 (vector-ref sc1 1))) (let ((e-509 (vector-ref sc1 2))) (let ((sc2 e-509)) (let ((e-512 (vector-ref sc2 1))) (let ((e-513 (vector-ref sc2 2))) (let ((sc3 e-513)) (Common-Scheme-Compiler-op "string-cons" (vector 1 e-508 (vector 1 e-512 (vector 0 )))))))))))) ((21) (let ((sc1 arg-2)) (let ((e-517 (vector-ref sc1 1))) (let ((e-518 (vector-ref sc1 2))) (let ((sc2 e-518)) (let ((e-521 (vector-ref sc2 1))) (let ((e-522 (vector-ref sc2 2))) (let ((sc3 e-522)) (Common-Scheme-Compiler-op "string-append" (vector 1 e-517 (vector 1 e-521 (vector 0 )))))))))))) ((22) (let ((sc1 arg-2)) (let ((e-526 (vector-ref sc1 1))) (let ((e-527 (vector-ref sc1 2))) (let ((sc2 e-527)) (Common-Scheme-Compiler-op "string-reverse" (vector 1 e-526 (vector 0 )))))))) ((23) (let ((sc1 arg-2)) (let ((e-531 (vector-ref sc1 1))) (let ((e-532 (vector-ref sc1 2))) (let ((sc2 e-532)) (let ((e-535 (vector-ref sc2 1))) (let ((e-536 (vector-ref sc2 2))) (let ((sc3 e-536)) (let ((e-539 (vector-ref sc3 1))) (let ((e-540 (vector-ref sc3 2))) (let ((sc4 e-540)) (Common-Scheme-Compiler-op "string-substr" (vector 1 e-531 (vector 1 e-535 (vector 1 e-539 (vector 0 )))))))))))))))) ((24) (let ((sc1 arg-2)) (let ((e-544 (vector-ref sc1 1))) (let ((e-545 (vector-ref sc1 2))) (let ((sc2 e-545)) (Common-Scheme-Compiler-op "exp" (vector 1 e-544 (vector 0 )))))))) ((25) (let ((sc1 arg-2)) (let ((e-549 (vector-ref sc1 1))) (let ((e-550 (vector-ref sc1 2))) (let ((sc2 e-550)) (Common-Scheme-Compiler-op "log" (vector 1 e-549 (vector 0 )))))))) ((26) (let ((sc1 arg-2)) (let ((e-554 (vector-ref sc1 1))) (let ((e-555 (vector-ref sc1 2))) (let ((sc2 e-555)) (Common-Scheme-Compiler-op "sin" (vector 1 e-554 (vector 0 )))))))) ((27) (let ((sc1 arg-2)) (let ((e-559 (vector-ref sc1 1))) (let ((e-560 (vector-ref sc1 2))) (let ((sc2 e-560)) (Common-Scheme-Compiler-op "cos" (vector 1 e-559 (vector 0 )))))))) ((28) (let ((sc1 arg-2)) (let ((e-564 (vector-ref sc1 1))) (let ((e-565 (vector-ref sc1 2))) (let ((sc2 e-565)) (Common-Scheme-Compiler-op "tan" (vector 1 e-564 (vector 0 )))))))) ((29) (let ((sc1 arg-2)) (let ((e-569 (vector-ref sc1 1))) (let ((e-570 (vector-ref sc1 2))) (let ((sc2 e-570)) (Common-Scheme-Compiler-op "asin" (vector 1 e-569 (vector 0 )))))))) ((30) (let ((sc1 arg-2)) (let ((e-574 (vector-ref sc1 1))) (let ((e-575 (vector-ref sc1 2))) (let ((sc2 e-575)) (Common-Scheme-Compiler-op "acos" (vector 1 e-574 (vector 0 )))))))) ((31) (let ((sc1 arg-2)) (let ((e-579 (vector-ref sc1 1))) (let ((e-580 (vector-ref sc1 2))) (let ((sc2 e-580)) (Common-Scheme-Compiler-op "atan" (vector 1 e-579 (vector 0 )))))))) ((32) (let ((sc1 arg-2)) (let ((e-584 (vector-ref sc1 1))) (let ((e-585 (vector-ref sc1 2))) (let ((sc2 e-585)) (Common-Scheme-Compiler-op "sqrt" (vector 1 e-584 (vector 0 )))))))) ((33) (let ((sc1 arg-2)) (let ((e-589 (vector-ref sc1 1))) (let ((e-590 (vector-ref sc1 2))) (let ((sc2 e-590)) (Common-Scheme-Compiler-op "floor" (vector 1 e-589 (vector 0 )))))))) ((34) (let ((sc1 arg-2)) (let ((e-594 (vector-ref sc1 1))) (let ((e-595 (vector-ref sc1 2))) (let ((sc2 e-595)) (Common-Scheme-Compiler-op "ceiling" (vector 1 e-594 (vector 0 )))))))) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((10) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-604 (vector-ref sc3 1))) (let ((e-605 (vector-ref sc3 2))) (let ((sc4 e-605)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-604 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-609 (vector-ref sc3 1))) (let ((e-610 (vector-ref sc3 2))) (let ((sc4 e-610)) (case (vector-ref sc4 0) ((0) e-609)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-614 (vector-ref sc3 1))) (let ((e-615 (vector-ref sc3 2))) (let ((sc4 e-615)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact->inexact" (vector 1 e-614 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((17) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-619 (vector-ref sc3 1))) (let ((e-620 (vector-ref sc3 2))) (let ((sc4 e-620)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-int-char" (vector 1 e-619 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-624 (vector-ref sc3 1))) (let ((e-625 (vector-ref sc3 2))) (let ((sc4 e-625)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-624 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-629 (vector-ref sc3 1))) (let ((e-630 (vector-ref sc3 2))) (let ((sc4 e-630)) (case (vector-ref sc4 0) ((0) e-629)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((12) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-634 (vector-ref sc3 1))) (let ((e-635 (vector-ref sc3 2))) (let ((sc4 e-635)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits8" (vector 1 e-634 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((13) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-639 (vector-ref sc3 1))) (let ((e-640 (vector-ref sc3 2))) (let ((sc4 e-640)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits16" (vector 1 e-639 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((14) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-644 (vector-ref sc3 1))) (let ((e-645 (vector-ref sc3 2))) (let ((sc4 e-645)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits32" (vector 1 e-644 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((15) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-649 (vector-ref sc3 1))) (let ((e-650 (vector-ref sc3 2))) (let ((sc4 e-650)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "integer->bits64" (vector 1 e-649 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-654 (vector-ref sc3 1))) (let ((e-655 (vector-ref sc3 2))) (let ((sc4 e-655)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact->inexact" (vector 1 e-654 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((12) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-659 (vector-ref sc3 1))) (let ((e-660 (vector-ref sc3 2))) (let ((sc4 e-660)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-659 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-664 (vector-ref sc3 1))) (let ((e-665 (vector-ref sc3 2))) (let ((sc4 e-665)) (case (vector-ref sc4 0) ((0) e-664)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-669 (vector-ref sc3 1))) (let ((e-670 (vector-ref sc3 2))) (let ((sc4 e-670)) (case (vector-ref sc4 0) ((0) e-669)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((13) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-674 (vector-ref sc3 1))) (let ((e-675 (vector-ref sc3 2))) (let ((sc4 e-675)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-674 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-679 (vector-ref sc3 1))) (let ((e-680 (vector-ref sc3 2))) (let ((sc4 e-680)) (case (vector-ref sc4 0) ((0) e-679)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-684 (vector-ref sc3 1))) (let ((e-685 (vector-ref sc3 2))) (let ((sc4 e-685)) (case (vector-ref sc4 0) ((0) e-684)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((14) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-689 (vector-ref sc3 1))) (let ((e-690 (vector-ref sc3 2))) (let ((sc4 e-690)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-689 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-694 (vector-ref sc3 1))) (let ((e-695 (vector-ref sc3 2))) (let ((sc4 e-695)) (case (vector-ref sc4 0) ((0) e-694)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-699 (vector-ref sc3 1))) (let ((e-700 (vector-ref sc3 2))) (let ((sc4 e-700)) (case (vector-ref sc4 0) ((0) e-699)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((15) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-704 (vector-ref sc3 1))) (let ((e-705 (vector-ref sc3 2))) (let ((sc4 e-705)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-704 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-709 (vector-ref sc3 1))) (let ((e-710 (vector-ref sc3 2))) (let ((sc4 e-710)) (case (vector-ref sc4 0) ((0) e-709)(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-714 (vector-ref sc3 1))) (let ((e-715 (vector-ref sc3 2))) (let ((sc4 e-715)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-714 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-719 (vector-ref sc3 1))) (let ((e-720 (vector-ref sc3 2))) (let ((sc4 e-720)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-719 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-724 (vector-ref sc3 1))) (let ((e-725 (vector-ref sc3 2))) (let ((sc4 e-725)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-724 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((17) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((16) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-729 (vector-ref sc3 1))) (let ((e-730 (vector-ref sc3 2))) (let ((sc4 e-730)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "string" (vector 1 e-729 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-734 (vector-ref sc3 1))) (let ((e-735 (vector-ref sc3 2))) (let ((sc4 e-735)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "char->integer" (vector 1 e-734 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-739 (vector-ref sc3 1))) (let ((e-740 (vector-ref sc3 2))) (let ((sc4 e-740)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "char->integer" (vector 1 e-739 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((16) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((11) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-744 (vector-ref sc3 1))) (let ((e-745 (vector-ref sc3 2))) (let ((sc4 e-745)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-744 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((10) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-749 (vector-ref sc3 1))) (let ((e-750 (vector-ref sc3 2))) (let ((sc4 e-750)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-749 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))) ((18) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-754 (vector-ref sc3 1))) (let ((e-755 (vector-ref sc3 2))) (let ((sc4 e-755)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-double" (vector 1 e-754 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-600 (vector-ref sc4 2))) (let ((sc5 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))))(else (let ((sc3 arg-2)) (let ((e-600 (vector-ref sc3 2))) (let ((sc4 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc2 arg-2)) (let ((e-600 (vector-ref sc2 2))) (let ((sc3 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")")))))))))))(else (let ((sc1 arg-2)) (let ((e-600 (vector-ref sc1 2))) (let ((sc2 e-600)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit \"Invalid cast " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Prelude-C-43C-43 "->" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-17) "\")"))))))))))))) ((36) (let ((sc1 arg-2)) (let ((e-760 (vector-ref sc1 2))) (let ((sc2 e-760)) (let ((e-764 (vector-ref sc2 2))) (let ((sc3 e-764)) (let ((e-767 (vector-ref sc3 1))) (let ((e-768 (vector-ref sc3 2))) (let ((sc4 e-768)) e-767))))))))) (else (let ((sc1 arg-2)) (let ((e-773 (vector-ref sc1 2))) (let ((sc2 e-773)) (let ((e-776 (vector-ref sc2 1))) (let ((e-777 (vector-ref sc2 2))) (let ((sc3 e-777)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit (string-append \"ERROR: \" " (Strings-Prelude-C-43C-43 e-776 "))")))))))))))))
 (define Common-Scheme-Compiler-schName (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))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "-" e-0) (Strings-Prelude-C-43C-43 "-" (Common-Scheme-Compiler-schName e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (Common-Scheme-Compiler-schString e-2))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schString e-3) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-4)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "pat--" (Common-Scheme-Compiler-schName e-5)))) ((4) (let ((e-8 (vector-ref sc0 2))) (Common-Scheme-Compiler-schName e-8))) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "rf--" (Common-Scheme-Compiler-schString e-9)))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 "n--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-19) (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 "-" (Common-Scheme-Compiler-schName e-11)))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-13))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "with--" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-14) (Strings-Prelude-C-43C-43 "-" (Prelude-show_Show__Int e-15))))))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "fn--" (Prelude-show_Show__Int e-16))))))))
 (define Common-Scheme-Compiler-schExtCommon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((12) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-18 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc8 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply " (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))(else (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc11 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc10 act-25)) (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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))))))(else (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc9 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-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-7 (vector-ref sc7 1))) (let ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-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-10 (vector-ref sc8 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))))(else (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc6 act-24)) (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 ((act-25 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc7 act-25)) (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 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(apply (eval (string->symbol " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-10 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((2) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-26 (vector-ref sc1 2))) (let ((sc2 e-26)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (let ((sc3 e-29)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 2))) (let ((sc4 e-32)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-28) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(box " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((3) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-38) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(unbox " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((1) (let ((e-51 (vector-ref sc3 1))) (let ((e-52 (vector-ref sc3 2))) (let ((sc4 e-52)) (case (vector-ref sc4 0) ((1) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-48) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-51) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(set-box! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((5) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 2))) (let ((sc2 e-59)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (let ((sc3 e-62)) (case (vector-ref sc3 0) ((1) (let ((e-64 (vector-ref sc3 1))) (let ((e-65 (vector-ref sc3 2))) (let ((sc4 e-65)) (case (vector-ref sc4 0) ((1) (let ((e-68 (vector-ref sc4 2))) (let ((sc5 e-68)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-61) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-64) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(make-vector " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((6) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((1) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((sc3 e-75)) (case (vector-ref sc3 0) ((1) (let ((e-77 (vector-ref sc3 1))) (let ((e-78 (vector-ref sc3 2))) (let ((sc4 e-78)) (case (vector-ref sc4 0) ((1) (let ((e-81 (vector-ref sc4 2))) (let ((sc5 e-81)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-74) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-77) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(vector-ref " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((7) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-85 (vector-ref sc1 2))) (let ((sc2 e-85)) (case (vector-ref sc2 0) ((1) (let ((e-87 (vector-ref sc2 1))) (let ((e-88 (vector-ref sc2 2))) (let ((sc3 e-88)) (case (vector-ref sc3 0) ((1) (let ((e-90 (vector-ref sc3 1))) (let ((e-91 (vector-ref sc3 2))) (let ((sc4 e-91)) (case (vector-ref sc4 0) ((1) (let ((e-93 (vector-ref sc4 1))) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-87) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-90) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-93) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(vector-set! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-101 (vector-ref sc1 2))) (let ((sc2 e-101)) (case (vector-ref sc2 0) ((1) (let ((e-104 (vector-ref sc2 2))) (let ((sc3 e-104)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "(display \"Error: Executed 'void'\")")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "(blodwen-os)")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))) ((15) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't compile unknown external primitive " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Badly formed external primitive " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-show_Show__ExtPrim arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) arg-4))))) eta-0)))))))
-(define Common-Scheme-Compiler-schExp (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))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-1))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-3))))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")")))))))))))))))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Common-Scheme-Compiler-schConstructor arg-1 e-15 e-16 e-5)))))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased 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))) (vector 1 (Common-Scheme-Compiler-schOp 'erased e-20 e-5))))))))))) ((7) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (((arg-0 arg-2) (Common-Scheme-Compiler-toPrim e-23)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((9) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "(lambda () " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((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))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 "'erased"))) (lambda () (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))) ((1) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-2 1 63) n e-46) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))(else (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))(else (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))))(else (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3223-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))")))))))))))))))))))))))))))))))))))))) ((11) (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 e-36)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-34) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9190-3346-showConstAlts arg-0 arg-1 e-35 e-34 e-33 arg-2 n e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-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 ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-5) "))"))))))))))))))))))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schConstant arg-1 e-38))))) ((13) (lambda (eta-0) (vector 1 "'erased"))) (else (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(blodwen-error-quit " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))))))))))
+(define Common-Scheme-Compiler-schExp (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))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-1))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-3))))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-7 ")")))))))))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) 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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-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 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) ")")))))))))))))))))))))) ((5) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Common-Scheme-Compiler-schConstructor arg-1 e-15 e-16 e-5)))))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased 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))) (vector 1 (Common-Scheme-Compiler-schOp 'erased e-20 e-5))))))))))) ((7) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (((arg-0 arg-2) (Common-Scheme-Compiler-toPrim e-23)) e-24)))) ((8) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((9) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "(lambda () " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))) ((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))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 "'erased"))) (lambda () (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")")))))))))))))))))))) ((1) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((sc2 e-47)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (b+ arg-2 1 63) n e-46) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))(else (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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))) (vector 1 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))(else (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))"))))))))))))))))))))))))))))))))))))(else (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-30) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3253-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-6)))))))))) e-32) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-31) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (case (vector-ref " (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " 0) " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-6) "))")))))))))))))))))))))))))))))))))))))) ((11) (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 e-36)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) e-34) 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 ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-25 ((Common-Scheme-Compiler-n--9428-3385-showConstAlts arg-0 arg-1 e-35 e-34 e-33 arg-2 n e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 e-6 "))"))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) 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))) (vector 1 (vector 1 e-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 ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (b+ arg-2 1 63) 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))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (b+ arg-2 1 63) n eta-1)) e-35) 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 (Strings-Prelude-C-43C-43 "(let ((" (Strings-Prelude-C-43C-43 n (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")) (cond " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schCaseDef e-5) "))"))))))))))))))))))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schConstant arg-1 e-38))))) ((13) (lambda (eta-0) (vector 1 "'erased"))) (else (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(blodwen-error-quit " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))))))))))
 (define Common-Scheme-Compiler-schDef (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))) (lambda (eta-0) (let ((act-24 ((Context-Core-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))) (let ((act-25 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 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))) (vector 1 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schArglist e-0) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 "))\xa;"))))))))))))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) 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 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 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))) (vector 1 (Strings-Prelude-C-43C-43 "(define (" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-5) (Strings-Prelude-C-43C-43 " . any-args) " (Strings-Prelude-C-43C-43 e-6 ")\xa;")))))))))))))))))) ((2) (lambda (eta-0) (vector 1 ""))) (else (lambda (eta-0) (vector 1 "")))))))
 (define Common-Scheme-Compiler-schConstructor (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))) (Strings-Prelude-C-43C-43 "(vector " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-1) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " arg-3) ")")))))) (else (Strings-Prelude-C-43C-43 "(vector " (Strings-Prelude-C-43C-43 (arg-0 (Name-Core-show_Show__Name arg-1)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " arg-3) ")")))))))))
-(define Common-Scheme-Compiler-schConstant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (arg-0 e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Common-Scheme-Compiler-case--8906-2594 arg-0 e-7 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 32) (lambda () (Prelude-C-60_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 127)))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "#f") ((10) "#t") ((11) "#t") ((12) "#t") ((13) "#t") ((14) "#t") ((15) "#t") ((16) "#t") ((17) "#t") ((18) "#t") (else "#t")))))
+(define Common-Scheme-Compiler-schConstant (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (arg-0 e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Common-Scheme-Compiler-case--9144-2605 arg-0 e-7 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 32) (lambda () (Prelude-C-60_Ord__Int (Prelude-cast_Cast__Char_Int e-7) 127)))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Prelude-show_Show__Double e-8))) ((9) "#f") ((10) "#t") ((11) "#t") ((12) "#t") ((13) "#t") ((14) "#t") ((15) "#t") ((16) "#t") ((17) "#t") ((18) "#t") (else "#t")))))
 (define Common-Scheme-Compiler-schConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-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 ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Prelude-C-43C-43 "((equal? " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schConstant arg-1 e-0) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))))))
-(define Common-Scheme-Compiler-schConUncheckedAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Common-Scheme-Compiler-n--9187-2930-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5)))))))))))))))
-(define Common-Scheme-Compiler-schConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-showTag arg-0 arg-1 e-0 e-1) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9186-2832-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5) ")"))))))))))))))))))
+(define Common-Scheme-Compiler-schConUncheckedAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Common-Scheme-Compiler-n--9425-2942-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5)))))))))))))))
+(define Common-Scheme-Compiler-schConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (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))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 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 (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-showTag arg-0 arg-1 e-0 e-1) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-n--9424-2843-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5) ")"))))))))))))))))))
 (define Common-Scheme-Compiler-schCaseDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-2 ")"))))))))
 (define Common-Scheme-Compiler-schArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-3 e-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))) (let ((act-25 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased arg-3 e-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))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))))
 (define Common-Scheme-Compiler-schArglist (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Scheme-Compiler-schName e-2))(else (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-schArglist e-3)))))))))))))
@@ -7273,395 +7357,408 @@
 (define Common-Scheme-Compiler-getScheme (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (Common-Scheme-Compiler-schDef arg-1 arg-2 arg-0 e-2 e-7))))))))
 (define Common-Scheme-Compiler-firstExists (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Common-Compiler-exists e-2 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 e-2)) (else ((Common-Scheme-Compiler-firstExists e-3) eta-0)))))))))))))
 (define Common-Scheme-Compiler-boolop (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(or (and " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-op arg-0 arg-1) " 1) 0)"))))
-(define Racket-Scheme-Compiler-case--11157-2962 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-1 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
-(define Racket-Scheme-Compiler-case--10506-2851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-24 (System-system (Strings-Prelude-C-43C-43 arg-16 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-14 (Strings-Prelude-C-43C-43 " " arg-13)))) eta-1))) (vector 1 act-24))) eta-0))) (else (lambda (eta-0) (vector 1 0)))))))
-(define Racket-Scheme-Compiler-case--10695-2730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0)))))))
-(define Racket-Scheme-Compiler-case--10695-2609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-4)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))))
-(define Racket-Scheme-Compiler-case--10618-2565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))) (else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0))))))))))
-(define Racket-Scheme-Compiler-case--10506-2502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--10618-2565 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 outShRel (Info-System-isWindows)) eta-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 (File-System-chmodRaw outShRel 493 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 (vector 1 outShRel))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Racket-Scheme-Compiler-case--10506-2429 (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) ".exe") (else "")))))
-(define Racket-Scheme-Compiler-case--10487-2407 (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 ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10506-2429 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (lambda (eta-0) (let ((act-24 (Racket-Scheme-Compiler-compileToRKT arg-3 arg-6 arg-1 outRktAbs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Racket-Scheme-Compiler-findRacoExe 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 (let ((act-26 (Racket-Scheme-Compiler-findRacket 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 ((act-27 (let ((sc4 arg-4)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-27 (System-system (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (vector 1 act-27))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10506-2502 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Racket-Scheme-Compiler-case--10397-2333 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10384-2310 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10337-2267 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--10112-2146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-0 493 eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Racket-Scheme-Compiler-case--9850-1856 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-13) (Strings-Prelude-C-43C-43 arg-14 e-2)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-11)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9716-1718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9716-1675-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-cstruct _" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;\x9;" e-6) "))\xa;")))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9479-1473 (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) (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Racket-Scheme-Compiler-case--9434-1428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Racket-Scheme-Compiler-case--8967-1333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-handleRet e-0 arg-18)))(else arg-18)))))
-(define Racket-Scheme-Compiler-case--8967-1232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-8 (vector 1 arg-3 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 (vector 1 (Strings-Prelude-C-43C-43 "(define-" (Strings-Prelude-C-43C-43 arg-11 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " (_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-14)) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 arg-15 "))\xa;")))))))))))))))))))
-(define Racket-Scheme-Compiler-case--9072-1184 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 (vector 1 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))
-(define Racket-Scheme-Compiler-case--8967-1108 (lambda (arg-0 arg-1 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 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 (vector 1 arg-11 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 ((act-25 ((Common-Compiler-locate arg-7 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) e-3)) eta-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 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--8783-1013 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--8967-1108 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 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 arg-9)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (a) (lambda (eta-1) (let ((act-25 ((Racket-Scheme-Compiler-cftySpec arg-4 (Builtin-snd 'erased 'erased a)) 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 (vector 0 a e-6))))))))) arg-1) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-0) 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 ((Racket-Scheme-Compiler-case--8967-1232 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 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-3 arg-10)) 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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--8783-873-useArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) 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 ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 e-5 e-8) (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((11) (let ((e-0 (vector-ref sc6 1))) (Racket-Scheme-Compiler-handleRet e-0 call)))(else call)))))))))))))))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-case--8692-777 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 "")))))
-(define Racket-Scheme-Compiler-case--8688-753 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 "" "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-case--8692-777 arg-0 e-2 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) arg-0)))(else (vector 0 (Builtin-fst 'erased 'erased (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) e-2)) (Strings-Prelude-C-43C-43 "'(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__String eta-0)) e-3)) " #f)")))))))))))))
-(define Racket-Scheme-Compiler-case--8220-334 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\u" (Racket-Scheme-Compiler-n--8220-283-pad arg-0 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)))) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Racket-Scheme-Compiler-case--8224-292 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 1 (+ 1 0)))) (Prelude-length arg-1)) #\0)) arg-1)) (else arg-1)))))
-(define Racket-Scheme-Compiler-n--8783-873-useArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Racket-Scheme-Compiler-n--8783-872-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5))))(else (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-rktToC e-3 (Common-Scheme-Compiler-schName e-2))))))))))))
-(define Racket-Scheme-Compiler-n--9716-1675-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
-(define Racket-Scheme-Compiler-n--8220-283-pad (lambda (arg-0 arg-1) (Racket-Scheme-Compiler-case--8224-292 arg-0 arg-1 (Nat-Data-isLTE (Prelude-length arg-1) (+ 1 (+ 1 (+ 1 (+ 1 0))))))))
-(define Racket-Scheme-Compiler-n--8783-871-notWorld (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) ((9) 1)(else 0)))))
-(define Racket-Scheme-Compiler-n--8783-868-mkNs (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 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))(else (vector 1 (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-9)) e-2)) (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3))))))))))))
-(define Racket-Scheme-Compiler-n--8783-870-mkFun (lambda (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 ((argns (Racket-Scheme-Compiler-n--8783-868-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns))) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 argns) ")")))))))
-(define Racket-Scheme-Compiler-n--8601-702-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Racket-Scheme-Compiler-n--8601-702-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--8601-702-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased arg-3)) 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 (Strings-Prelude-C-43C-43 "(_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
-(define Racket-Scheme-Compiler-n--8783-872-callback (lambda (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8783-872-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-0 arg-10) e-1))))(else (let ((args (List-Data-reverse 'erased arg-10))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--8783-871-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) args)) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 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 (vector 1 (Racket-Scheme-Compiler-n--8783-870-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)))))))))))))))))
-(define Racket-Scheme-Compiler-n--8783-869-applyLams (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) arg-9) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--8783-869-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-cToRkt e-10 e-9) ")")))) e-3)))))))))))))))
-(define Racket-Scheme-Compiler-useCC (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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Racket-Scheme-Compiler-case--9479-1473 e-2 e-3 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Racket-Scheme-Compiler-case--11614-3124 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
+(define Racket-Scheme-Compiler-case--10920-3004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Build racket") (lambda (eta-1) (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-24 (arg-3664 eta-2))) ((arg-3665 act-24) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-17 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-15 (Strings-Prelude-C-43C-43 " " arg-14))))) eta-1))) (vector 1 act-24))) eta-0))) (else (lambda (eta-0) (vector 1 0)))))))
+(define Racket-Scheme-Compiler-case--11126-2877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-20 arg-6 arg-13 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12 eta-0)))))))
+(define Racket-Scheme-Compiler-case--11126-2750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-5)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-20 arg-6 arg-13)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12))))))
+(define Racket-Scheme-Compiler-case--11044-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) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-20 arg-6 arg-13)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12))))) (else (let ((sc1 arg-5)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-20 arg-6 arg-13 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-18 " ") arg-20 arg-6 arg-12 eta-0))))))))))
+(define Racket-Scheme-Compiler-case--10920-2637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (let ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--11044-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-14 arg-15 arg-16 arg-17 arg-18 arg-19 outShRel (Info-System-isWindows)) eta-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 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) 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 (vector 1 outShRel))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Racket-Scheme-Compiler-case--10920-2553 (lambda (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) ".exe") (else "")))))
+(define Racket-Scheme-Compiler-case--10895-2529 (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))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10920-2553 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (lambda (eta-0) (let ((act-24 (Racket-Scheme-Compiler-compileToRKT arg-4 arg-7 arg-1 outRktAbs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 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 (Racket-Scheme-Compiler-findRacoExe 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 (let ((act-26 (Racket-Scheme-Compiler-findRacket 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 ((act-27 (let ((sc4 arg-5)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-4 (lambda () "Build racket") (lambda (eta-1) (let ((act-27 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-27 (arg-3664 eta-2))) ((arg-3665 act-27) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs))))) eta-1))) (vector 1 act-27))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10920-2637 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Racket-Scheme-Compiler-case--10801-2450 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10784-2423 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10733-2376 (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)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10494-2250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 493) eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Racket-Scheme-Compiler-case--10169-1888 (lambda (arg-0 arg-1 arg-2 arg-3 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-13) (Strings-Prelude-C-43C-43 arg-14 e-2)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-11)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--10029-1740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--10029-1693-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-cstruct _" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;\x9;" e-6) "))\xa;")))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9792-1490 (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) (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Racket-Scheme-Compiler-useCC arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Racket-Scheme-Compiler-case--9747-1445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Racket-Scheme-Compiler-case--9272-1352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-0)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-handleRet e-0 arg-18)))(else arg-18)))))
+(define Racket-Scheme-Compiler-case--9272-1250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-8 (vector 1 arg-3 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 (vector 1 (Strings-Prelude-C-43C-43 "(define-" (Strings-Prelude-C-43C-43 arg-11 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " (_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-14)) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 arg-15 "))\xa;")))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9383-1201 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 (vector 1 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))
+(define Racket-Scheme-Compiler-case--9272-1123 (lambda (arg-0 arg-1 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 ""))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 (vector 1 arg-11 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 ((act-25 ((Common-Compiler-locate arg-7 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-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) e-3)) eta-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 (Racket-Scheme-Compiler-loadlib arg-11 arg-12))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--9084-1017 (lambda (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-case--9272-1123 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 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 arg-9)) 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (a) (lambda (eta-1) (let ((act-25 ((Racket-Scheme-Compiler-cftySpec arg-4 (Builtin-snd 'erased 'erased a)) 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 (vector 0 a e-6))))))))) arg-1) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-0) 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 ((Racket-Scheme-Compiler-case--9272-1250 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 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-3 arg-10)) 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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9084-871-useArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) 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 ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 e-5 e-8) (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((11) (let ((e-0 (vector-ref sc6 1))) (Racket-Scheme-Compiler-handleRet e-0 call)))(else call)))))))))))))))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-case--8991-774 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2 "")))))
+(define Racket-Scheme-Compiler-case--8987-749 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 "" "")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-case--8991-774 arg-0 e-2 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) arg-0)))(else (vector 0 (Builtin-fst 'erased 'erased (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) e-2)) (Strings-Prelude-C-43C-43 "'(" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__String eta-0)) e-3)) " #f)")))))))))))))
+(define Racket-Scheme-Compiler-case--8541-318 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\u" (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)))) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Racket-Scheme-Compiler-n--9084-871-useArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Racket-Scheme-Compiler-n--9084-870-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5))))(else (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-rktToC e-3 (Common-Scheme-Compiler-schName e-2))))))))))))
+(define Racket-Scheme-Compiler-n--10029-1693-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-869-notWorld (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) ((9) 1)(else 0)))))
+(define Racket-Scheme-Compiler-n--9084-866-mkNs (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 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3)))(else (vector 1 (vector 1 (vector 0 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-9)) e-2)) (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3))))))))))))
+(define Racket-Scheme-Compiler-n--9084-868-mkFun (lambda (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 ((argns (Racket-Scheme-Compiler-n--9084-866-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns))) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 argns) ")")))))))
+(define Racket-Scheme-Compiler-n--8898-696-funTySpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((9) (Racket-Scheme-Compiler-n--8898-696-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--8898-696-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-cftySpec arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased arg-3)) 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 (Strings-Prelude-C-43C-43 "(_fun " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 " -> " (Strings-Prelude-C-43C-43 e-5 ")")))))))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-870-callback (lambda (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--9084-870-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 1 e-0 arg-10) e-1))))(else (let ((args (List-Data-reverse 'erased arg-10))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--9084-869-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) args)) 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 ((Racket-Scheme-Compiler-cftySpec arg-4 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 (vector 1 (Racket-Scheme-Compiler-n--9084-868-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)))))))))))))))))
+(define Racket-Scheme-Compiler-n--9084-867-applyLams (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) arg-9) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--9084-867-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-cToRkt e-10 e-9) ")")))) e-3)))))))))))))))
+(define Racket-Scheme-Compiler-useCC (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) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Racket-Scheme-Compiler-case--9792-1490 e-2 e-3 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Racket-Scheme-Compiler-startRacketWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 ))))))))))))))))))
 (define Racket-Scheme-Compiler-startRacketCmd (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-1 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-2 "\" %*"))) (vector 0 ))))))))
 (define Racket-Scheme-Compiler-startRacket (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export LD_LIBRARY_PATH=\"$LD_LIBRARY_PATH:`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\"\"")) (vector 1 (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\"`dirname \"$DIR\"`\"/\"" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\""))) (vector 0 ))))))))))))))))))
 (define Racket-Scheme-Compiler-showRacketString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Racket-Scheme-Compiler-showRacketString e-3) eta-0))))(else (lambda (eta-0) ((Racket-Scheme-Compiler-showRacketChar e-2) ((Racket-Scheme-Compiler-showRacketString e-3) eta-0)))))))))))))
-(define Racket-Scheme-Compiler-showRacketChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Racket-Scheme-Compiler-case--8220-334 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
+(define Racket-Scheme-Compiler-showRacketChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Racket-Scheme-Compiler-case--8541-318 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
 (define Racket-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
 (define Racket-Scheme-Compiler-schHeader (lambda (arg-0) (Strings-Prelude-C-43C-43 "#lang racket/base\xa;" (Strings-Prelude-C-43C-43 "(require racket/math)\xa;" (Strings-Prelude-C-43C-43 "(require racket/system)\xa;" (Strings-Prelude-C-43C-43 "(require rnrs/bytevectors-6)\xa;" (Strings-Prelude-C-43C-43 "(require rnrs/io/ports-6)\xa;" (Strings-Prelude-C-43C-43 "(require srfi/19)\xa;" (Strings-Prelude-C-43C-43 "(require ffi/unsafe ffi/unsafe/define)\xa;" (Strings-Prelude-C-43C-43 arg-0 "(let ()\xa;"))))))))))
 (define Racket-Scheme-Compiler-schFooter (lambda () ") (collect-garbage)"))
-(define Racket-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Racket-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-3 eta-1)) 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))) (let ((act-25 ((Racket-Scheme-Compiler-mkStruct arg-3 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 ((Racket-Scheme-Compiler-useCC arg-0 arg-1 arg-2 arg-4 arg-5 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 e-4)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
+(define Racket-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Racket-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-3 eta-1)) 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))) (let ((act-25 ((Racket-Scheme-Compiler-mkStruct arg-3 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 ((Racket-Scheme-Compiler-useCC arg-0 arg-1 arg-2 arg-4 arg-5 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-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))) (vector 1 (vector 0 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 e-4)) (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
 (define Racket-Scheme-Compiler-rktToC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (Strings-Prelude-C-43C-43 "(char->integer " (Strings-Prelude-C-43C-43 arg-1 ")")))(else arg-1)))))
 (define Racket-Scheme-Compiler-racketString (lambda (arg-0) (Prelude-strCons #\" ((Racket-Scheme-Compiler-showRacketString (Prelude-unpack arg-0)) "\""))))
 (define Racket-Scheme-Compiler-racketPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't compile C FFI calls to Racket yet") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((12) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((6) (let ((e-34 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-37)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((1) (let ((e-42 (vector-ref sc6 1))) (let ((e-43 (vector-ref sc6 2))) (let ((sc7 e-43)) (case (vector-ref sc7 0) ((1) (let ((e-45 (vector-ref sc7 1))) (let ((e-46 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((12) (let ((e-48 (vector-ref sc8 2))) (let ((sc9 e-48)) (case (vector-ref sc9 0) ((6) (let ((e-49 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((1) (let ((e-52 (vector-ref sc10 2))) (let ((sc11 e-52)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-42) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-34 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-49 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-18 (vector-ref sc11 2))) (let ((sc12 e-18)) (case (vector-ref sc12 0) ((1) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((1) (let ((e-24 (vector-ref sc13 2))) (let ((sc14 e-24)) (case (vector-ref sc14 0) ((1) (let ((e-27 (vector-ref sc14 2))) (let ((sc15 e-27)) (case (vector-ref sc15 0) ((1) (let ((e-30 (vector-ref sc15 2))) (let ((sc16 e-30)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-15)) (case (vector-ref sc10 0) ((1) (let ((e-18 (vector-ref sc10 2))) (let ((sc11 e-18)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((1) (let ((e-24 (vector-ref sc12 2))) (let ((sc13 e-24)) (case (vector-ref sc13 0) ((1) (let ((e-27 (vector-ref sc13 2))) (let ((sc14 e-27)) (case (vector-ref sc14 0) ((1) (let ((e-30 (vector-ref sc14 2))) (let ((sc15 e-30)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-15)) (case (vector-ref sc9 0) ((1) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((1) (let ((e-24 (vector-ref sc11 2))) (let ((sc12 e-24)) (case (vector-ref sc12 0) ((1) (let ((e-27 (vector-ref sc12 2))) (let ((sc13 e-27)) (case (vector-ref sc13 0) ((1) (let ((e-30 (vector-ref sc13 2))) (let ((sc14 e-30)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-15)) (case (vector-ref sc8 0) ((1) (let ((e-18 (vector-ref sc8 2))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((1) (let ((e-24 (vector-ref sc10 2))) (let ((sc11 e-24)) (case (vector-ref sc11 0) ((1) (let ((e-27 (vector-ref sc11 2))) (let ((sc12 e-27)) (case (vector-ref sc12 0) ((1) (let ((e-30 (vector-ref sc12 2))) (let ((sc13 e-30)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((1) (let ((e-24 (vector-ref sc9 2))) (let ((sc10 e-24)) (case (vector-ref sc10 0) ((1) (let ((e-27 (vector-ref sc10 2))) (let ((sc11 e-27)) (case (vector-ref sc11 0) ((1) (let ((e-30 (vector-ref sc11 2))) (let ((sc12 e-30)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((1) (let ((e-24 (vector-ref sc8 2))) (let ((sc9 e-24)) (case (vector-ref sc9 0) ((1) (let ((e-27 (vector-ref sc9 2))) (let ((sc10 e-27)) (case (vector-ref sc10 0) ((1) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-30)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-15)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 2))) (let ((sc8 e-24)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 2))) (let ((sc9 e-27)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-30)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 2))) (let ((sc7 e-24)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 2))) (let ((sc8 e-27)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 2))) (let ((sc6 e-24)) (case (vector-ref sc6 0) ((1) (let ((e-27 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-18 (vector-ref sc2 2))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 2))) (let ((sc6 e-27)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((sc2 e-55)) (case (vector-ref sc2 0) ((12) (let ((e-80 (vector-ref sc2 2))) (let ((sc3 e-80)) (case (vector-ref sc3 0) ((6) (let ((e-81 (vector-ref sc3 1))) (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-84 (vector-ref sc4 2))) (let ((sc5 e-84)) (case (vector-ref sc5 0) ((1) (let ((e-87 (vector-ref sc5 2))) (let ((sc6 e-87)) (case (vector-ref sc6 0) ((1) (let ((e-89 (vector-ref sc6 1))) (let ((e-90 (vector-ref sc6 2))) (let ((sc7 e-90)) (case (vector-ref sc7 0) ((1) (let ((e-92 (vector-ref sc7 1))) (let ((e-93 (vector-ref sc7 2))) (let ((sc8 e-92)) (case (vector-ref sc8 0) ((12) (let ((e-95 (vector-ref sc8 2))) (let ((sc9 e-95)) (case (vector-ref sc9 0) ((6) (let ((e-96 (vector-ref sc9 1))) (let ((sc10 e-93)) (case (vector-ref sc10 0) ((1) (let ((e-99 (vector-ref sc10 2))) (let ((sc11 e-99)) (case (vector-ref sc11 0) ((1) (let ((e-101 (vector-ref sc11 1))) (let ((e-102 (vector-ref sc11 2))) (let ((sc12 e-102)) (case (vector-ref sc12 0) ((1) (let ((e-105 (vector-ref sc12 2))) (let ((sc13 e-105)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-89) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-101) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(set-" (Strings-Prelude-C-43C-43 e-81 (Strings-Prelude-C-43C-43 "-" (Strings-Prelude-C-43C-43 e-96 (Strings-Prelude-C-43C-43 "! " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-56)) (case (vector-ref sc13 0) ((1) (let ((e-59 (vector-ref sc13 2))) (let ((sc14 e-59)) (case (vector-ref sc14 0) ((1) (let ((e-62 (vector-ref sc14 2))) (let ((sc15 e-62)) (case (vector-ref sc15 0) ((1) (let ((e-65 (vector-ref sc15 2))) (let ((sc16 e-65)) (case (vector-ref sc16 0) ((1) (let ((e-68 (vector-ref sc16 2))) (let ((sc17 e-68)) (case (vector-ref sc17 0) ((1) (let ((e-71 (vector-ref sc17 2))) (let ((sc18 e-71)) (case (vector-ref sc18 0) ((1) (let ((e-74 (vector-ref sc18 2))) (let ((sc19 e-74)) (case (vector-ref sc19 0) ((1) (let ((e-77 (vector-ref sc19 2))) (let ((sc20 e-77)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-56)) (case (vector-ref sc12 0) ((1) (let ((e-59 (vector-ref sc12 2))) (let ((sc13 e-59)) (case (vector-ref sc13 0) ((1) (let ((e-62 (vector-ref sc13 2))) (let ((sc14 e-62)) (case (vector-ref sc14 0) ((1) (let ((e-65 (vector-ref sc14 2))) (let ((sc15 e-65)) (case (vector-ref sc15 0) ((1) (let ((e-68 (vector-ref sc15 2))) (let ((sc16 e-68)) (case (vector-ref sc16 0) ((1) (let ((e-71 (vector-ref sc16 2))) (let ((sc17 e-71)) (case (vector-ref sc17 0) ((1) (let ((e-74 (vector-ref sc17 2))) (let ((sc18 e-74)) (case (vector-ref sc18 0) ((1) (let ((e-77 (vector-ref sc18 2))) (let ((sc19 e-77)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-56)) (case (vector-ref sc11 0) ((1) (let ((e-59 (vector-ref sc11 2))) (let ((sc12 e-59)) (case (vector-ref sc12 0) ((1) (let ((e-62 (vector-ref sc12 2))) (let ((sc13 e-62)) (case (vector-ref sc13 0) ((1) (let ((e-65 (vector-ref sc13 2))) (let ((sc14 e-65)) (case (vector-ref sc14 0) ((1) (let ((e-68 (vector-ref sc14 2))) (let ((sc15 e-68)) (case (vector-ref sc15 0) ((1) (let ((e-71 (vector-ref sc15 2))) (let ((sc16 e-71)) (case (vector-ref sc16 0) ((1) (let ((e-74 (vector-ref sc16 2))) (let ((sc17 e-74)) (case (vector-ref sc17 0) ((1) (let ((e-77 (vector-ref sc17 2))) (let ((sc18 e-77)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-59 (vector-ref sc10 2))) (let ((sc11 e-59)) (case (vector-ref sc11 0) ((1) (let ((e-62 (vector-ref sc11 2))) (let ((sc12 e-62)) (case (vector-ref sc12 0) ((1) (let ((e-65 (vector-ref sc12 2))) (let ((sc13 e-65)) (case (vector-ref sc13 0) ((1) (let ((e-68 (vector-ref sc13 2))) (let ((sc14 e-68)) (case (vector-ref sc14 0) ((1) (let ((e-71 (vector-ref sc14 2))) (let ((sc15 e-71)) (case (vector-ref sc15 0) ((1) (let ((e-74 (vector-ref sc15 2))) (let ((sc16 e-74)) (case (vector-ref sc16 0) ((1) (let ((e-77 (vector-ref sc16 2))) (let ((sc17 e-77)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-56)) (case (vector-ref sc9 0) ((1) (let ((e-59 (vector-ref sc9 2))) (let ((sc10 e-59)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((1) (let ((e-65 (vector-ref sc11 2))) (let ((sc12 e-65)) (case (vector-ref sc12 0) ((1) (let ((e-68 (vector-ref sc12 2))) (let ((sc13 e-68)) (case (vector-ref sc13 0) ((1) (let ((e-71 (vector-ref sc13 2))) (let ((sc14 e-71)) (case (vector-ref sc14 0) ((1) (let ((e-74 (vector-ref sc14 2))) (let ((sc15 e-74)) (case (vector-ref sc15 0) ((1) (let ((e-77 (vector-ref sc15 2))) (let ((sc16 e-77)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-56)) (case (vector-ref sc8 0) ((1) (let ((e-59 (vector-ref sc8 2))) (let ((sc9 e-59)) (case (vector-ref sc9 0) ((1) (let ((e-62 (vector-ref sc9 2))) (let ((sc10 e-62)) (case (vector-ref sc10 0) ((1) (let ((e-65 (vector-ref sc10 2))) (let ((sc11 e-65)) (case (vector-ref sc11 0) ((1) (let ((e-68 (vector-ref sc11 2))) (let ((sc12 e-68)) (case (vector-ref sc12 0) ((1) (let ((e-71 (vector-ref sc12 2))) (let ((sc13 e-71)) (case (vector-ref sc13 0) ((1) (let ((e-74 (vector-ref sc13 2))) (let ((sc14 e-74)) (case (vector-ref sc14 0) ((1) (let ((e-77 (vector-ref sc14 2))) (let ((sc15 e-77)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-56)) (case (vector-ref sc7 0) ((1) (let ((e-59 (vector-ref sc7 2))) (let ((sc8 e-59)) (case (vector-ref sc8 0) ((1) (let ((e-62 (vector-ref sc8 2))) (let ((sc9 e-62)) (case (vector-ref sc9 0) ((1) (let ((e-65 (vector-ref sc9 2))) (let ((sc10 e-65)) (case (vector-ref sc10 0) ((1) (let ((e-68 (vector-ref sc10 2))) (let ((sc11 e-68)) (case (vector-ref sc11 0) ((1) (let ((e-71 (vector-ref sc11 2))) (let ((sc12 e-71)) (case (vector-ref sc12 0) ((1) (let ((e-74 (vector-ref sc12 2))) (let ((sc13 e-74)) (case (vector-ref sc13 0) ((1) (let ((e-77 (vector-ref sc13 2))) (let ((sc14 e-77)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 2))) (let ((sc7 e-59)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 2))) (let ((sc8 e-62)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 2))) (let ((sc9 e-65)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 2))) (let ((sc10 e-68)) (case (vector-ref sc10 0) ((1) (let ((e-71 (vector-ref sc10 2))) (let ((sc11 e-71)) (case (vector-ref sc11 0) ((1) (let ((e-74 (vector-ref sc11 2))) (let ((sc12 e-74)) (case (vector-ref sc12 0) ((1) (let ((e-77 (vector-ref sc12 2))) (let ((sc13 e-77)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-56)) (case (vector-ref sc5 0) ((1) (let ((e-59 (vector-ref sc5 2))) (let ((sc6 e-59)) (case (vector-ref sc6 0) ((1) (let ((e-62 (vector-ref sc6 2))) (let ((sc7 e-62)) (case (vector-ref sc7 0) ((1) (let ((e-65 (vector-ref sc7 2))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((1) (let ((e-68 (vector-ref sc8 2))) (let ((sc9 e-68)) (case (vector-ref sc9 0) ((1) (let ((e-71 (vector-ref sc9 2))) (let ((sc10 e-71)) (case (vector-ref sc10 0) ((1) (let ((e-74 (vector-ref sc10 2))) (let ((sc11 e-74)) (case (vector-ref sc11 0) ((1) (let ((e-77 (vector-ref sc11 2))) (let ((sc12 e-77)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-56)) (case (vector-ref sc4 0) ((1) (let ((e-59 (vector-ref sc4 2))) (let ((sc5 e-59)) (case (vector-ref sc5 0) ((1) (let ((e-62 (vector-ref sc5 2))) (let ((sc6 e-62)) (case (vector-ref sc6 0) ((1) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-65)) (case (vector-ref sc7 0) ((1) (let ((e-68 (vector-ref sc7 2))) (let ((sc8 e-68)) (case (vector-ref sc8 0) ((1) (let ((e-71 (vector-ref sc8 2))) (let ((sc9 e-71)) (case (vector-ref sc9 0) ((1) (let ((e-74 (vector-ref sc9 2))) (let ((sc10 e-74)) (case (vector-ref sc10 0) ((1) (let ((e-77 (vector-ref sc10 2))) (let ((sc11 e-77)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-56)) (case (vector-ref sc3 0) ((1) (let ((e-59 (vector-ref sc3 2))) (let ((sc4 e-59)) (case (vector-ref sc4 0) ((1) (let ((e-62 (vector-ref sc4 2))) (let ((sc5 e-62)) (case (vector-ref sc5 0) ((1) (let ((e-65 (vector-ref sc5 2))) (let ((sc6 e-65)) (case (vector-ref sc6 0) ((1) (let ((e-68 (vector-ref sc6 2))) (let ((sc7 e-68)) (case (vector-ref sc7 0) ((1) (let ((e-71 (vector-ref sc7 2))) (let ((sc8 e-71)) (case (vector-ref sc8 0) ((1) (let ((e-74 (vector-ref sc8 2))) (let ((sc9 e-74)) (case (vector-ref sc9 0) ((1) (let ((e-77 (vector-ref sc9 2))) (let ((sc10 e-77)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-56)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 2))) (let ((sc3 e-59)) (case (vector-ref sc3 0) ((1) (let ((e-62 (vector-ref sc3 2))) (let ((sc4 e-62)) (case (vector-ref sc4 0) ((1) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((1) (let ((e-74 (vector-ref sc7 2))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((1) (let ((e-77 (vector-ref sc8 2))) (let ((sc9 e-77)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"racket\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((13) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-110 (vector-ref sc1 2))) (let ((sc2 e-110)) (case (vector-ref sc2 0) ((1) (let ((e-112 (vector-ref sc2 1))) (let ((e-113 (vector-ref sc2 2))) (let ((sc3 e-113)) (case (vector-ref sc3 0) ((1) (let ((e-115 (vector-ref sc3 1))) (let ((e-116 (vector-ref sc3 2))) (let ((sc4 e-116)) (case (vector-ref sc4 0) ((1) (let ((e-119 (vector-ref sc4 2))) (let ((sc5 e-119)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-112) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-115) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))) ((14) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-122 (vector-ref sc1 1))) (let ((e-123 (vector-ref sc1 2))) (let ((sc2 e-123)) (case (vector-ref sc2 0) ((1) (let ((e-125 (vector-ref sc2 1))) (let ((e-126 (vector-ref sc2 2))) (let ((sc3 e-126)) (case (vector-ref sc3 0) ((1) (let ((e-129 (vector-ref sc3 2))) (let ((sc4 e-129)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-122) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) 0 e-125) eta-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-6 (vector-ref sc6 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))
-(define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Racket-Scheme-Compiler-case--9716-1718 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-mkStruct arg-0 e-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 ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Racket-Scheme-Compiler-case--10029-1740 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Racket-Scheme-Compiler-mkStruct arg-0 e-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 ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Racket-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Racket-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Racket-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
-(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3) 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)) (let ((act-25 (let ((act-25 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
-(define Racket-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 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))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
+(define Racket-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3)) 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)) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3)) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
+(define Racket-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 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))) (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))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0))))))))))))
 (define Racket-Scheme-Compiler-loadlib (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(define-ffi-definer define-" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " (ffi-lib \"" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\" " (Strings-Prelude-C-43C-43 arg-1 "))\xa;"))))))))
 (define Racket-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld (Racket-Scheme-Compiler-cToRkt arg-0 arg-1)))))))
-(define Racket-Scheme-Compiler-getLibVers (lambda (arg-0) (Racket-Scheme-Compiler-case--8688-753 arg-0 (Strings-Data-words arg-0))))
+(define Racket-Scheme-Compiler-getLibVers (lambda (arg-0) (Racket-Scheme-Compiler-case--8987-749 arg-0 (Strings-Data-words arg-0))))
 (define Racket-Scheme-Compiler-getFgnCall (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 ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Racket-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 arg-3 arg-4 e-6 e-2 e-7)))))))))
-(define Racket-Scheme-Compiler-findRacoExe (lambda (ext-0) (let ((act-24 (System-getEnv "RACKET_RACO" ext-0))) (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env raco") act-24) " exe"))))
-(define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-24 (System-getEnv "RACKET" ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-24))))
-(define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 (System-system 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
-(define Racket-Scheme-Compiler-compileToRKT (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-0 (vector 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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (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 ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Racket-Scheme-Compiler-getFgnCall e-7 arg-0 e-8 e-9 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-10) e-11)))) (let ((act-31 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "racket/support.rkt" 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 ((scm (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-schHeader ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-10))) (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 "(void " (Strings-Prelude-C-43C-43 e-12 (Strings-Prelude-C-43C-43 ")\xa;" (Racket-Scheme-Compiler-schFooter))))))))) (let ((act-33 (let ((act-33 (File-System-writeFile arg-3 scm 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (let ((act-34 (let ((act-34 (File-System-chmodRaw arg-3 493 ext-0))) (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 (vector 1 (vector 0 ))))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-2 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 (Directory-System-currentDir 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10506-2429 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outBinFile)))) (let ((act-26 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-3 outRktAbs 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 (let ((act-27 (Racket-Scheme-Compiler-findRacoExe 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (Racket-Scheme-Compiler-findRacket eta-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 ((act-29 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-29 (System-system (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (vector 1 act-29))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10506-2502 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
-(define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
-(define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "_void"))) ((1) (lambda (eta-0) (vector 1 "_int"))) ((2) (lambda (eta-0) (vector 1 "_uint"))) ((3) (lambda (eta-0) (vector 1 "_string/utf-8"))) ((4) (lambda (eta-0) (vector 1 "_double"))) ((5) (lambda (eta-0) (vector 1 "_int8"))) ((6) (lambda (eta-0) (vector 1 "_pointer"))) ((7) (lambda (eta-0) (vector 1 "_pointer"))) ((8) (lambda (eta-0) (vector 1 "_bytes"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer")))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8601-702-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
+(define Racket-Scheme-Compiler-findRacoExe (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "RACKET_RACO") ext-0))) (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env raco") act-24) " exe"))))
+(define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "RACKET") ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-24))))
+(define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
+(define Racket-Scheme-Compiler-compileToRKT (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Common-Compiler-getCompileData arg-0 (vector 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 ((ndefs (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (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 ((act-26 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) 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 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (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 ((act-28 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (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 ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Racket-Scheme-Compiler-getFgnCall e-7 arg-0 e-8 e-9 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-racketPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Racket-Scheme-Compiler-racketString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-10) e-11)))) (let ((act-31 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) 0 ctm) 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 (Directory-Core-readDataFile arg-0 "racket/support.rkt" 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 ((scm (Strings-Prelude-C-43C-43 (Racket-Scheme-Compiler-schHeader ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-10))) (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 "(void " (Strings-Prelude-C-43C-43 e-12 (Strings-Prelude-C-43C-43 ")\xa;" (Racket-Scheme-Compiler-schFooter))))))))) (let ((act-33 (let ((act-33 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-33 (arg-3664 eta-0))) ((arg-3665 act-33) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 scm) 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((sc11 e-2)) (let ((act-34 (let ((act-34 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-34 (arg-3664 eta-0))) ((arg-3665 act-34) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 493) ext-0))) (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 (vector 1 (vector 0 ))))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-5 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-3 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--10920-2553 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Info-System-isWindows))))) (let ((outRktFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "rkt")))) (let ((outBinFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 ext)))) (let ((outRktAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outRktFile)))) (let ((outBinAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outBinFile)))) (let ((act-26 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-4 outRktAbs 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 (let ((act-27 (Racket-Scheme-Compiler-findRacoExe 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 (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (Racket-Scheme-Compiler-findRacket eta-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 ((act-29 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-29 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-2)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-2) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-2) (let ((act-17 (arg-3503 eta-2))) (let ((act-16 (arg-3505 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-2) (let ((act-29 (arg-3664 eta-2))) ((arg-3665 act-29) eta-2))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-2) (let ((act-51 (arg-3667 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs))))) eta-1))) (vector 1 act-29))) eta-0)) (else (vector 1 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 ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--10920-2637 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
+(define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "_void"))) ((1) (lambda (eta-0) (vector 1 "_int"))) ((2) (lambda (eta-0) (vector 1 "_uint"))) ((3) (lambda (eta-0) (vector 1 "_string/utf-8"))) ((4) (lambda (eta-0) (vector 1 "_double"))) ((5) (lambda (eta-0) (vector 1 "_int8"))) ((6) (lambda (eta-0) (vector 1 "_pointer"))) ((7) (lambda (eta-0) (vector 1 "_pointer"))) ((8) (lambda (eta-0) (vector 1 "_bytes"))) ((11) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((12) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer")))))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--8898-696-funTySpec e-4 e-3 arg-0 (vector 1 e-3 (vector 0 )) e-4))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
 (define Racket-Scheme-Compiler-cToRkt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (Strings-Prelude-C-43C-43 "(integer->char " (Strings-Prelude-C-43C-43 arg-1 ")")))(else arg-1)))))
-(define Racket-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-0) (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 (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))) ((Racket-Scheme-Compiler-case--8783-1013 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-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-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))) ((Racket-Scheme-Compiler-case--8783-1013 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0)))))))))))))))))
-(define Chez-Scheme-Compiler-case--10723-2912 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-1 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
-(define Chez-Scheme-Compiler-case--10431-2812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
-(define Chez-Scheme-Compiler-case--10431-2703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
-(define Chez-Scheme-Compiler-case--10367-2662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Chez-Scheme-Compiler-makeShWindows arg-14 arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))))) (else (lambda (eta-0) (Chez-Scheme-Compiler-makeSh arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))) eta-0)))))))
-(define Chez-Scheme-Compiler-case--10348-2598 (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 ((outSsFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 arg-5 (Path-Utils-C-60C-46C-62 arg-0 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Chez-Scheme-Compiler-findChez 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 (Chez-Scheme-Compiler-compileToSS arg-3 arg-6 arg-1 outSsAbs 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 (Context-Core-logTime 'erased arg-3 (lambda () "Make SO") (let ((sc3 arg-4)) (cond ((equal? sc3 0) (Chez-Scheme-Compiler-compileToSO arg-3 e-5 arg-6 outSsAbs)) (else (lambda (eta-1) (vector 1 (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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (let ((act-27 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10367-2662 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-5 e-6 e-7 outShRel (Info-System-isWindows)) 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 (let ((act-28 (File-System-chmodRaw outShRel 493 eta-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 (vector 1 (vector 1 outShRel))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Chez-Scheme-Compiler-case--10258-2524 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10245-2501 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-2 (Chez-Scheme-Compiler-startChezWinSh arg-3 arg-1 arg-0) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10204-2462 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--10125-2395 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-4 493 eta-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 ((act-25 (let ((act-25 (System-system (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 arg-4 "\""))) eta-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 (vector 1 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--9862-2255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-chmodRaw arg-0 493 eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
-(define Chez-Scheme-Compiler-case--9606-1942 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-12) (Strings-Prelude-C-43C-43 arg-13 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-10)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--9472-1806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9472-1763-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-ftype " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (struct\xa;\x9;" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;\x9;" e-6) "))\xa;")))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--9252-1575 (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) (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
-(define Chez-Scheme-Compiler-case--9207-1531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
-(define Chez-Scheme-Compiler-case--8803-1459 (lambda (arg-0 arg-1 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-0)) (case (vector-ref sc0 0) ((11) (Chez-Scheme-Compiler-handleRet arg-11 arg-13))(else arg-13)))))
-(define Chez-Scheme-Compiler-case--9017-1405 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 ((act-25 (let ((act-25 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;")))))))))))))))))
-(define Chez-Scheme-Compiler-case--8803-1356 (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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 ((Common-Compiler-locate arg-7 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-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 ((act-26 (let ((act-26 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;")))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-case--8090-452 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
-(define Chez-Scheme-Compiler-case--8050-418 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#!" (Strings-Prelude-C-43C-43 arg-1 " --script\xa;\xa;"))) (else "")))))
-(define Chez-Scheme-Compiler-case--7983-327 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-2) arg-2)))) (else (vector 0 ))))))
-(define Chez-Scheme-Compiler-case--7961-314 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) e-1))) (else (lambda (eta-0) (Chez-Scheme-Compiler-pathLookup eta-0)))))))
-(define Chez-Scheme-Compiler-n--9472-1763-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1180-notWorld (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) ((9) 1)(else 0)))))
-(define Chez-Scheme-Compiler-n--8803-1176-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1179-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Chez-Scheme-Compiler-n--8803-1176-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
-(define Chez-Scheme-Compiler-n--7979-323-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--7983-327 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
-(define Chez-Scheme-Compiler-n--8023-366-escape (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" arg-2))) ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ arg-2)))(else (vector 1 arg-1 arg-2))))))
-(define Chez-Scheme-Compiler-n--8803-1181-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Chez-Scheme-Compiler-n--8803-1181-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1180-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) args)) 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 ((Chez-Scheme-Compiler-cftySpec arg-4 arg-10) 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 (Strings-Prelude-C-43C-43 "(let ([c-code (foreign-callable #f " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--8803-1179-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")])" " (lock-object c-code) (foreign-callable-entry-point c-code))")))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-n--8803-1182-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Chez-Scheme-Compiler-n--8803-1181-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5)))) ((7) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(car " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) ")")))))(else (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-2)))))))))))
-(define Chez-Scheme-Compiler-n--8803-1177-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Chez-Scheme-Compiler-n--8803-1177-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
-(define Chez-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Chez-Scheme-Compiler-case--9252-1575 e-2 e-3 arg-6 arg-5 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
+(define Racket-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-0) (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 (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))) ((Racket-Scheme-Compiler-case--9084-1017 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "Can't return Buffer from a foreign function") eta-0)))(else (lambda (eta-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-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))) ((Racket-Scheme-Compiler-case--9084-1017 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Racket-Scheme-Compiler-getLibVers arg-6)) eta-0)))))))))))))))))
+(define Chez-Scheme-Compiler-case--11166-3064 (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))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) 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 (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
+(define Chez-Scheme-Compiler-case--10857-2957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) arg-12) (else arg-11)))))
+(define Chez-Scheme-Compiler-case--10857-2842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-5)) (cond ((equal? sc0 0) arg-12) (else arg-11)))))
+(define Chez-Scheme-Compiler-case--10785-2799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Chez-Scheme-Compiler-makeShWindows arg-15 arg-18 arg-6 (let ((sc1 arg-5)) (cond ((equal? sc1 0) arg-12) (else arg-11))))) (else (lambda (eta-0) (Chez-Scheme-Compiler-makeSh arg-18 arg-6 (let ((sc1 arg-5)) (cond ((equal? sc1 0) arg-12) (else arg-11))) eta-0)))))))
+(define Chez-Scheme-Compiler-case--10760-2728 (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))) (let ((outSsFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 arg-6 (Path-Utils-C-60C-46C-62 arg-0 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Chez-Scheme-Compiler-findChez 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 (Chez-Scheme-Compiler-compileToSS arg-4 arg-7 arg-1 outSsAbs 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 (Context-Core-logTime 'erased arg-4 (lambda () "Make SO") (let ((sc3 arg-5)) (cond ((equal? sc3 0) (Chez-Scheme-Compiler-compileToSO arg-4 e-5 arg-7 outSsAbs)) (else (lambda (eta-1) (vector 1 (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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-0))) (let ((act-27 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10785-2799 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-5 e-6 e-7 outShRel (Info-System-isWindows)) 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 (let ((act-28 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) eta-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 (vector 1 (vector 1 outShRel))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Chez-Scheme-Compiler-case--10666-2649 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10649-2622 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2 (Chez-Scheme-Compiler-startChezWinSh arg-3 arg-1 arg-0)) eta-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 ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-6) eta-0)))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10604-2579 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10517-2504 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4 493) eta-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 ((act-25 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 arg-4 "\"")))) eta-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 (vector 1 (vector 0 )))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--10237-2359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 493) eta-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 (vector 1 (vector 0 )))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))
+(define Chez-Scheme-Compiler-case--9948-2001 (lambda (arg-0 arg-1 arg-2 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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((Context-Core-full_HasNames__Name (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-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))) (vector 1 (vector 0 e-2 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-12) (Strings-Prelude-C-43C-43 arg-13 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-6) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) arg-10)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--9808-1855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 arg-1 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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9808-1808-showFld arg-0 arg-1 arg-2 eta-1)) 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))) (vector 1 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) arg-3) (Strings-Prelude-C-43C-43 "(define-ftype " (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " (struct\xa;\x9;" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;\x9;" e-6) "))\xa;")))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--9588-1619 (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) (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)) ((1) (let ((e-2 (vector-ref sc0 1))) (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 ((sc2 e-5)) (cond ((equal? sc2 "scheme") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-schemeCall arg-4 e-8 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) arg-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 (let ((e-7 (vector-ref sc5 1))) (vector 1 (vector 0 "" e-7)))))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))) ((equal? sc2 "C") (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-12 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2)) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2)))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))(else (Chez-Scheme-Compiler-useCC arg-7 arg-6 arg-5 arg-4 arg-1 arg-3 arg-2))))))
+(define Chez-Scheme-Compiler-case--9543-1575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld arg-4))))(else (lambda (eta-0) (vector 1 arg-4)))))))
+(define Chez-Scheme-Compiler-case--9130-1503 (lambda (arg-0 arg-1 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-0)) (case (vector-ref sc0 0) ((11) (Chez-Scheme-Compiler-handleRet arg-11 arg-13))(else arg-13)))))
+(define Chez-Scheme-Compiler-case--9357-1454 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-2) 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 ((act-25 (let ((act-25 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;")))))))))))))))))
+(define Chez-Scheme-Compiler-case--9130-1404 (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) (vector 1 ""))) (else (lambda (eta-0) (let ((act-24 ((Common-Compiler-locate arg-7 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 ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Common-Compiler-copyLib (vector 0 (Path-Utils-C-60C-47C-62 arg-5 e-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 ((act-26 (let ((act-26 (set-box! arg-6 (vector 1 arg-2 arg-8)))) (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 (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;")))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-case--8405-469 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\x" (Strings-Prelude-C-43C-43 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)) ";")) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
+(define Chez-Scheme-Compiler-case--8365-435 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 "#!" (Strings-Prelude-C-43C-43 arg-1 " --script\xa;\xa;"))) (else "")))))
+(define Chez-Scheme-Compiler-case--8298-344 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (Strings-Data-trim (Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Prelude-length arg-2) arg-2)))) (else (vector 0 ))))))
+(define Chez-Scheme-Compiler-case--8274-331 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) e-1))) (else (lambda (eta-0) (Chez-Scheme-Compiler-pathLookup eta-0)))))))
+(define Chez-Scheme-Compiler-n--9808-1808-showFld (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-cftySpec (FC-Core-emptyFC) 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 (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1209-notWorld (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) ((9) 1)(else 0)))))
+(define Chez-Scheme-Compiler-n--9130-1205-mkNs (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 ) (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-8))) (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1208-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((argns (Chez-Scheme-Compiler-n--9130-1205-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 0 arg-8))) (Strings-Prelude-C-43C-43 "(lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) argns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 argns) ")")))))))
+(define Chez-Scheme-Compiler-n--8294-340-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--8298-344 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
+(define Chez-Scheme-Compiler-n--8338-383-escape (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 #\") (vector 1 #\\ (vector 1 #\" arg-2))) ((equal? sc0 #\\) (vector 1 #\\ (vector 1 #\\ arg-2)))(else (vector 1 arg-1 arg-2))))))
+(define Chez-Scheme-Compiler-n--9130-1210-callback (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) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Chez-Scheme-Compiler-n--9130-1210-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-0 arg-9) e-1))))(else (let ((args (List-Data-reverse 'erased arg-9))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1209-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) args)) 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 ((Chez-Scheme-Compiler-cftySpec arg-4 arg-10) 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 (Strings-Prelude-C-43C-43 "(let ([c-code (foreign-callable #f " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--9130-1208-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 args arg-10 arg-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-5) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 ")])" " (lock-object c-code) (foreign-callable-entry-point c-code))")))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-n--9130-1211-buildArg (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((10) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Chez-Scheme-Compiler-n--9130-1210-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5)))) ((7) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(car " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-2) ")")))))(else (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-schName e-2)))))))))))
+(define Chez-Scheme-Compiler-n--9130-1206-applyLams (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) arg-8) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Chez-Scheme-Compiler-n--9130-1206-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
+(define Chez-Scheme-Compiler-useCC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "No recognised foreign calling convention") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Chez-Scheme-Compiler-case--9588-1619 e-2 e-3 arg-6 arg-5 arg-3 arg-2 arg-1 arg-0 (Common-Compiler-parseCC e-2)))))))))
 (define Chez-Scheme-Compiler-tySpec (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 "Int") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "int")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "string")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "double")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 "char")))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (case (vector-ref sc3 0) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Ptr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "GCPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Buffer"))) (lambda () (lambda (eta-0) (vector 1 "u8*")))) (vector 0 )))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0))))))) ((0) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "Unit"))) (lambda () (lambda (eta-0) (vector 1 "void")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "GCAnyPtr"))) (lambda () (lambda (eta-0) (vector 1 "void*")))) (vector 0 )))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " to foreign function"))) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp arg-0) " to foreign function"))) eta-0)))))))
-(define Chez-Scheme-Compiler-startChezWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "CHEZ=$(cygpath \"" (Strings-Prelude-C-43C-43 arg-0 "\")")) (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 "$CHEZ --script \"$(dirname \"$DIR\")/" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\"")) (vector 0 )))))))))))))))))))
+(define Chez-Scheme-Compiler-startChezWinSh (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "DIR=\"`realpath \"$0\"`\"" (vector 1 (Strings-Prelude-C-43C-43 "CHEZ=$(cygpath \"" (Strings-Prelude-C-43C-43 arg-0 "\")")) (vector 1 (Strings-Prelude-C-43C-43 "export PATH=\"`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-1 "\":$PATH\"")) (vector 1 (Strings-Prelude-C-43C-43 "$CHEZ --script \"$(dirname \"$DIR\")/" (Strings-Prelude-C-43C-43 arg-2 "\" \"$@\"")) (vector 0 )))))))))
 (define Chez-Scheme-Compiler-startChezCmd (lambda (arg-0 arg-1 arg-2) (Strings-Data-unlines (vector 1 "@echo off" (vector 1 "set APPDIR=%~dp0" (vector 1 (Strings-Prelude-C-43C-43 "set PATH=%APPDIR%\\" (Strings-Prelude-C-43C-43 arg-1 ";%PATH%")) (vector 1 (Strings-Prelude-C-43C-43 "\"" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 "\" --script \"%APPDIR%/" (Strings-Prelude-C-43C-43 arg-2 "\" %*")))) (vector 0 ))))))))
 (define Chez-Scheme-Compiler-startChez (lambda (arg-0 arg-1) (Strings-Data-unlines (vector 1 "#!/bin/sh" (vector 1 "" (vector 1 "case `uname -s` in            " (vector 1 "    OpenBSD|FreeBSD|NetBSD)   " (vector 1 "        DIR=\"`grealpath $0`\"" (vector 1 "        ;;                    " (vector 1 "                              " (vector 1 "    *)                        " (vector 1 "        DIR=\"`realpath $0`\" " (vector 1 "        ;;                    " (vector 1 "esac                          " (vector 1 "" (vector 1 (Strings-Prelude-C-43C-43 "export LD_LIBRARY_PATH=\"$LD_LIBRARY_PATH:`dirname \"$DIR\"`/\"" (Strings-Prelude-C-43C-43 arg-0 "\"\"")) (vector 1 (Strings-Prelude-C-43C-43 "\"`dirname \"$DIR\"`\"/\"" (Strings-Prelude-C-43C-43 arg-1 "\" \"$@\"")) (vector 0 ))))))))))))))))))
 (define Chez-Scheme-Compiler-showChezString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Prelude-C-43C-43 "\\\"" ((Chez-Scheme-Compiler-showChezString e-3) eta-0))))(else (lambda (eta-0) ((Chez-Scheme-Compiler-showChezChar e-2) ((Chez-Scheme-Compiler-showChezString e-3) eta-0)))))))))))))
-(define Chez-Scheme-Compiler-showChezChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Chez-Scheme-Compiler-case--8090-452 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
+(define Chez-Scheme-Compiler-showChezChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Chez-Scheme-Compiler-case--8405-469 arg-0 (Prelude-C-124C-124 (Prelude-C-60_Ord__Char arg-0 (Prelude-chr 32)) (lambda () (Prelude-C-62_Ord__Char arg-0 (Prelude-chr 126))))))))))
 (define Chez-Scheme-Compiler-schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (let ((call (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-schName eta-0)) arg-2)) ")")))))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (lambda (eta-0) (vector 1 (Common-Scheme-Compiler-mkWorld call))))(else (lambda (eta-0) (vector 1 call))))))))
-(define Chez-Scheme-Compiler-schHeader (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-case--8050-418 arg-1 arg-0 (Prelude-C-47C-61_Eq__String (Info-System-os) "windows")) (Strings-Prelude-C-43C-43 "(import (chezscheme))\xa;" (Strings-Prelude-C-43C-43 "(case (machine-type)\xa;" (Strings-Prelude-C-43C-43 "  [(i3le ti3le a6le ta6le) (load-shared-object \"libc.so.6\")]\xa;" (Strings-Prelude-C-43C-43 "  [(i3osx ti3osx a6osx ta6osx) (load-shared-object \"libc.dylib\")]\xa;" (Strings-Prelude-C-43C-43 "  [(i3nt ti3nt a6nt ta6nt) (load-shared-object \"msvcrt.dll\")" (Strings-Prelude-C-43C-43 "                           (load-shared-object \"ws2_32.dll\")]\xa;" (Strings-Prelude-C-43C-43 "  [else (load-shared-object \"libc.so\")])\xa;\xa;" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString x) "\")"))) arg-1)) (Strings-Prelude-C-43C-43 "\xa;\xa;" "(let ()\xa;"))))))))))))
+(define Chez-Scheme-Compiler-schHeader (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-case--8365-435 arg-1 arg-0 (Prelude-C-47C-61_Eq__String (Info-System-os) "windows")) (Strings-Prelude-C-43C-43 "(import (chezscheme))\xa;" (Strings-Prelude-C-43C-43 "(case (machine-type)\xa;" (Strings-Prelude-C-43C-43 "  [(i3le ti3le a6le ta6le) (load-shared-object \"libc.so.6\")]\xa;" (Strings-Prelude-C-43C-43 "  [(i3osx ti3osx a6osx ta6osx) (load-shared-object \"libc.dylib\")]\xa;" (Strings-Prelude-C-43C-43 "  [(i3nt ti3nt a6nt ta6nt) (load-shared-object \"msvcrt.dll\")" (Strings-Prelude-C-43C-43 "                           (load-shared-object \"ws2_32.dll\")]\xa;" (Strings-Prelude-C-43C-43 "  [else (load-shared-object \"libc.so\")])\xa;\xa;" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString x) "\")"))) arg-1)) (Strings-Prelude-C-43C-43 "\xa;\xa;" "(let ()\xa;"))))))))))))
 (define Chez-Scheme-Compiler-schFooter (lambda () "(collect 4)\xa;(blodwen-run-finalisers))\xa;"))
-(define Chez-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Chez-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Chez-Scheme-Compiler-mkStruct arg-2 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 ((Chez-Scheme-Compiler-useCC arg-0 arg-1 arg-3 arg-4 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-5) 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))) (vector 1 (vector 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
-(define Chez-Scheme-Compiler-pathLookup (lambda (ext-0) (let ((act-24 (System-getEnv "PATH" ext-0))) (let ((pathList (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 (Path-Utils-pathSeparator))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin:/usr/local/bin") act-24)))) (let ((candidates (Prelude-C-62C-62C-61_Monad__List 'erased 'erased pathList (lambda (p) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (vector 1 "chez" (vector 1 "chezscheme9.5" (vector 1 "scheme" (vector 1 "scheme.exe" (vector 0 ))))) (lambda (x) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 "/" x))))))))) (let ((act-25 ((Common-Scheme-Compiler-firstExists candidates) ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env scheme") act-25)))))))
-(define Chez-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Chez-Scheme-Compiler-case--9472-1806 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-mkStruct arg-0 e-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 ((Chez-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
+(define Chez-Scheme-Compiler-schFgnDef (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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((argns (Chez-Scheme-Compiler-mkArgs 0 e-1))) (let ((allargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) argns))) (let ((useargns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) argns)))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-2 eta-1)) 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))) (let ((act-25 ((Chez-Scheme-Compiler-mkStruct arg-2 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 ((Chez-Scheme-Compiler-useCC arg-0 arg-1 arg-3 arg-4 e-0 (List-Data-zip 'erased 'erased useargns e-1) e-2) 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 ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (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-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-5) 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))) (vector 1 (vector 0 e-4 (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) e-5) (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "(define " (Strings-Prelude-C-43C-43 (Common-Scheme-Compiler-schName e-9) (Strings-Prelude-C-43C-43 " (lambda (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schName eta-1)) allargns)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;"))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 "" ""))))))))
+(define Chez-Scheme-Compiler-pathLookup (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "PATH") ext-0))) (let ((pathList (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 (Path-Utils-pathSeparator))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin:/usr/local/bin") act-24)))) (let ((candidates (Prelude-C-62C-62C-61_Monad__List 'erased 'erased pathList (lambda (p) (Prelude-C-62C-62C-61_Monad__List 'erased 'erased (vector 1 "chez" (vector 1 "chezscheme9.5" (vector 1 "scheme" (vector 1 "scheme.exe" (vector 0 ))))) (lambda (x) (Prelude-pure_Applicative__List 'erased (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 "/" x))))))))) (let ((act-25 ((Common-Scheme-Compiler-firstExists candidates) ext-0))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env scheme") act-25)))))))
+(define Chez-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((12) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) 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 (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))) ((Chez-Scheme-Compiler-case--9808-1855 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-0 e-6)) eta-0))))))))))))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-mkStruct arg-0 e-2))) ((10) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-mkStruct arg-0 e-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 ((Chez-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (vector 1 "")))))))
 (define Chez-Scheme-Compiler-mkArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 (vector 2 "farg" arg-0) 1) (Chez-Scheme-Compiler-mkArgs arg-0 e-3)))(else (vector 1 (vector 0 (vector 2 "farg" arg-0) 0) (Chez-Scheme-Compiler-mkArgs (b+ arg-0 1 63) e-3))))))))))))
-(define Chez-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile cmdFile (Chez-Scheme-Compiler-startChezCmd arg-0 arg-2 arg-3) 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)) (let ((act-25 (let ((act-25 (File-System-writeFile arg-1 (Chez-Scheme-Compiler-startChezWinSh arg-0 arg-2 arg-3) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
-(define Chez-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (File-System-writeFile arg-0 (Chez-Scheme-Compiler-startChez arg-1 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 ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
+(define Chez-Scheme-Compiler-makeShWindows (lambda (arg-0 arg-1 arg-2 arg-3) (let ((cmdFile (Strings-Prelude-C-43C-43 arg-1 ".cmd"))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) cmdFile (Chez-Scheme-Compiler-startChezCmd arg-0 arg-2 arg-3)) 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)) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1 (Chez-Scheme-Compiler-startChezWinSh arg-0 arg-2 arg-3)) eta-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) (let ((e-3 (vector-ref sc4 1))) (let ((sc5 e-3)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) eta-0))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 cmdFile e-6) eta-0))))))))))))))
+(define Chez-Scheme-Compiler-makeSh (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0 (Chez-Scheme-Compiler-startChez arg-1 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 ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0))))))))))))
 (define Chez-Scheme-Compiler-handleRet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 "void") (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " " (Common-Scheme-Compiler-mkWorld (Common-Scheme-Compiler-schConstructor (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) (vector 1 "") (vector 1 0) (vector 0 ))))))(else (Common-Scheme-Compiler-mkWorld arg-1))))))
 (define Chez-Scheme-Compiler-getFgnCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Chez-Scheme-Compiler-schFgnDef arg-0 arg-1 arg-2 arg-3 e-6 e-2 e-7)))))))))
 (define Chez-Scheme-Compiler-getFArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc2 1) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-getFArgs e-13) eta-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-6 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-7 e-10) e-6)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (NamedCExp-CompileExpr-Core-getFC arg-0) (Strings-Prelude-C-43C-43 "Badly formed c call argument list " (CompileExpr-Core-show_Show__NamedCExp arg-0))) eta-0)))))))
-(define Chez-Scheme-Compiler-findLibs (lambda (arg-0 arg-1) (let ((libs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-n--7979-323-isLib arg-1 arg-0 (Strings-Data-trim eta-0))) arg-1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Compiler-locate arg-0 eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) libs)))))
-(define Chez-Scheme-Compiler-findChez (lambda (ext-0) (let ((act-24 (System-getEnv "CHEZ" ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (Chez-Scheme-Compiler-pathLookup ext-0)))))))
-(define Chez-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Chez-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpchez") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 (System-system 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
-(define Chez-Scheme-Compiler-escapeString (lambda (arg-0) (Prelude-pack (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Chez-Scheme-Compiler-n--8023-366-escape arg-0 eta-0 eta-1))) (vector 0 ) (Prelude-unpack arg-0)))))
-(define Chez-Scheme-Compiler-compileToSS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirectives arg-0 (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 ((act-25 ((Chez-Scheme-Compiler-findLibs 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))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-copyLib eta-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 (let ((act-27 (Common-Compiler-getCompileData arg-0 (vector 0 ) 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))) (let ((ndefs (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (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 ((act-29 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Loaded" ) (vector 1 "libc" (vector 1 "libc 6" (vector 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 ((act-30 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Structs" ) (vector 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 ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-getFgnCall arg-0 e-10 e-11 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-12) e-13)))) (let ((act-33 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) 0 ctm) 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 (let ((act-34 (Chez-Scheme-Compiler-findChez ext-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (Directory-Core-readDataFile arg-0 "chez/support.ss" 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 ((scm (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-schHeader e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)) (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-12)) (Strings-Prelude-C-43C-43 "(collect-request-handler (lambda () (collect) (blodwen-run-finalisers)))\xa;" (Strings-Prelude-C-43C-43 e-14 (Chez-Scheme-Compiler-schFooter))))))))) (let ((act-36 (let ((act-36 (File-System-writeFile arg-3 scm ext-0))) (vector 1 act-36)))) (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 ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-2 (vector-ref sc13 1))) (let ((sc14 e-2)) (let ((act-37 (let ((act-37 (File-System-chmodRaw arg-3 493 ext-0))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))) (else (let ((e-18 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-18) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Chez-Scheme-Compiler-compileToSO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((tmpFileAbs (Path-Utils-C-60C-47C-62 arg-2 "compileChez"))) (let ((build (Strings-Prelude-C-43C-43 "(parameterize ([optimize-level 3]) (compile-program " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) "))")))) (lambda (eta-0) (let ((act-24 (let ((act-24 (File-System-writeFile tmpFileAbs build 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)) (let ((act-25 (let ((act-25 (File-System-chmodRaw tmpFileAbs 493 eta-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 ((act-26 (let ((act-26 (System-system (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 tmpFileAbs "\""))) eta-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 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 tmpFileAbs e-6) eta-0)))))))))))))))
-(define Chez-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-2 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 (Directory-System-currentDir 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((outSsFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-4 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-2 outSoFile)))) (let ((act-26 (let ((act-26 (Chez-Scheme-Compiler-findChez 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 ((act-27 (Chez-Scheme-Compiler-compileToSS arg-1 appDirGen arg-3 outSsAbs 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 (Context-Core-logTime 'erased arg-1 (lambda () "Make SO") (let ((sc5 arg-0)) (cond ((equal? sc5 0) (Chez-Scheme-Compiler-compileToSO arg-1 e-7 appDirGen outSsAbs)) (else (lambda (eta-1) (vector 1 (vector 0 )))))) 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 ((outShRel (Path-Utils-C-60C-47C-62 arg-2 arg-4))) (let ((act-29 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10367-2662 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-7 e-8 e-9 outShRel (Info-System-isWindows)) 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 (File-System-chmodRaw outShRel 493 eta-0))) (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 (vector 1 (vector 1 outShRel)))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
-(define Chez-Scheme-Compiler-codegenChez (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
+(define Chez-Scheme-Compiler-findLibs (lambda (arg-0 arg-1) (let ((libs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-n--8294-340-isLib arg-1 arg-0 (Strings-Data-trim eta-0))) arg-1))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Compiler-locate arg-0 eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) libs)))))
+(define Chez-Scheme-Compiler-findChez (lambda (ext-0) (let ((act-24 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "CHEZ") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) (else (Chez-Scheme-Compiler-pathLookup ext-0)))))))
+(define Chez-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Chez-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-1 arg-2 "_tmpchez") ext-0))) (let ((sc0 act-24)) (case (vector-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 (let ((act-25 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) 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 (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") ext-0)))))))))))
+(define Chez-Scheme-Compiler-escapeString (lambda (arg-0) (Prelude-pack (Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Chez-Scheme-Compiler-n--8338-383-escape arg-0 eta-0 eta-1))) (vector 0 ) (Prelude-unpack arg-0)))))
+(define Chez-Scheme-Compiler-compileToSS (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirectives arg-0 (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 ((act-25 ((Chez-Scheme-Compiler-findLibs 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))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-copyLib eta-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 (let ((act-27 (Common-Compiler-getCompileData arg-0 (vector 0 ) 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))) (let ((ndefs (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 2))) e-1)))) (let ((ctm (CompileExpr-Core-forget (vector 0 ) (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (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 ((act-29 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Loaded" ) (vector 1 "libc" (vector 1 "libc 6" (vector 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 ((act-30 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Structs" ) (vector 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 ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-getFgnCall arg-0 e-10 e-11 arg-1 eta-0)) ndefs) 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Common-Scheme-Compiler-getScheme arg-0 (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) eta-0)) ndefs) 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 ((code (Strings-Data-fastAppend (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-12) e-13)))) (let ((act-33 ((Common-Scheme-Compiler-schExp (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) 0 ctm) 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 (let ((act-34 (Chez-Scheme-Compiler-findChez ext-0))) (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 ((e-15 (vector-ref sc10 1))) (let ((act-35 (Directory-Core-readDataFile arg-0 "chez/support.ss" 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 ((scm (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-schHeader e-15 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)) (Strings-Prelude-C-43C-43 e-16 (Strings-Prelude-C-43C-43 code (Strings-Prelude-C-43C-43 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-12)) (Strings-Prelude-C-43C-43 "(collect-request-handler (lambda () (collect) (blodwen-run-finalisers)))\xa;" (Strings-Prelude-C-43C-43 e-14 (Chez-Scheme-Compiler-schFooter))))))))) (let ((act-36 (let ((act-36 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-36 (arg-3664 eta-0))) ((arg-3665 act-36) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 scm) ext-0))) (vector 1 act-36)))) (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 ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-2 (vector-ref sc13 1))) (let ((sc14 e-2)) (let ((act-37 (let ((act-37 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-37 (arg-3664 eta-0))) ((arg-3665 act-37) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-3 493) ext-0))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (vector 0 e-3))) (else (vector 1 (vector 0 ))))))))) (else (let ((e-18 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-18) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Chez-Scheme-Compiler-compileToSO (lambda (arg-0 arg-1 arg-2 arg-3) (let ((tmpFileAbs (Path-Utils-C-60C-47C-62 arg-2 "compileChez"))) (let ((build (Strings-Prelude-C-43C-43 "(parameterize ([optimize-level 3] [compile-file-message #f]) (compile-program " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) "))")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) tmpFileAbs build) 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)) (let ((act-25 (let ((act-25 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) tmpFileAbs 493) eta-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 ((act-26 (let ((act-26 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 tmpFileAbs "\"")))) eta-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 (vector 0 ))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 tmpFileAbs e-6) eta-0)))))))))))))))
+(define Chez-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-5 "_app"))) (let ((appDirGen (Path-Utils-C-60C-47C-62 arg-3 appDirRel))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll appDirGen) 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 ((act-25 (let ((act-25 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((outSsFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "ss")))) (let ((outSoFile (Path-Utils-C-60C-47C-62 appDirRel (Path-Utils-C-60C-46C-62 arg-5 "so")))) (let ((outSsAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outSsFile)))) (let ((outSoAbs (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-3 outSoFile)))) (let ((act-26 (let ((act-26 (Chez-Scheme-Compiler-findChez 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 ((act-27 (Chez-Scheme-Compiler-compileToSS arg-1 appDirGen arg-4 outSsAbs 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 (Context-Core-logTime 'erased arg-1 (lambda () "Make SO") (let ((sc5 arg-0)) (cond ((equal? sc5 0) (Chez-Scheme-Compiler-compileToSO arg-1 e-7 appDirGen outSsAbs)) (else (lambda (eta-1) (vector 1 (vector 0 )))))) 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 ((outShRel (Path-Utils-C-60C-47C-62 arg-3 arg-5))) (let ((act-29 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--10785-2799 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-7 e-8 e-9 outShRel (Info-System-isWindows)) 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 ((File-System-chmodRaw 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-30 (arg-3664 eta-1))) ((arg-3665 act-30) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) outShRel 493) eta-0))) (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 (vector 1 (vector 1 outShRel)))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
+(define Chez-Scheme-Compiler-codegenChez (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Chez-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3 eta-4)))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
 (define Chez-Scheme-Compiler-chezString (lambda (arg-0) (Prelude-strCons #\" ((Chez-Scheme-Compiler-showChezString (Prelude-unpack arg-0)) "\""))))
 (define Chez-Scheme-Compiler-chezExtPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((12) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((6) (let ((e-15 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((e-18 (vector-ref sc5 2))) (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 ((Chez-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-tySpec eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Chez-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schExp (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Chez-Scheme-Compiler-chezExtPrim eta-2 eta-3 eta-4)))) (lambda (eta-2) (Chez-Scheme-Compiler-chezString eta-2)) 0 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc11 1))) (vector 1 (Chez-Scheme-Compiler-handleRet e-8 (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-15) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")"))))))))))))))))))))))))))))))))(else (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad ffi call\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((8) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((12) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 e-43)) (case (vector-ref sc3 0) ((6) (let ((e-44 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-47 (vector-ref sc4 2))) (let ((sc5 e-47)) (case (vector-ref sc5 0) ((1) (let ((e-50 (vector-ref sc5 2))) (let ((sc6 e-50)) (case (vector-ref sc6 0) ((1) (let ((e-52 (vector-ref sc6 1))) (let ((e-53 (vector-ref sc6 2))) (let ((sc7 e-53)) (case (vector-ref sc7 0) ((1) (let ((e-55 (vector-ref sc7 1))) (let ((e-56 (vector-ref sc7 2))) (let ((sc8 e-55)) (case (vector-ref sc8 0) ((12) (let ((e-58 (vector-ref sc8 2))) (let ((sc9 e-58)) (case (vector-ref sc9 0) ((6) (let ((e-59 (vector-ref sc9 1))) (let ((sc10 e-56)) (case (vector-ref sc10 0) ((1) (let ((e-62 (vector-ref sc10 2))) (let ((sc11 e-62)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-52) eta-0))) (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))) (vector 1 (Strings-Prelude-C-43C-43 "(ftype-ref " (Strings-Prelude-C-43C-43 e-44 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-59 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))))))(else (let ((sc11 e-25)) (case (vector-ref sc11 0) ((1) (let ((e-28 (vector-ref sc11 2))) (let ((sc12 e-28)) (case (vector-ref sc12 0) ((1) (let ((e-31 (vector-ref sc12 2))) (let ((sc13 e-31)) (case (vector-ref sc13 0) ((1) (let ((e-34 (vector-ref sc13 2))) (let ((sc14 e-34)) (case (vector-ref sc14 0) ((1) (let ((e-37 (vector-ref sc14 2))) (let ((sc15 e-37)) (case (vector-ref sc15 0) ((1) (let ((e-40 (vector-ref sc15 2))) (let ((sc16 e-40)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-25)) (case (vector-ref sc10 0) ((1) (let ((e-28 (vector-ref sc10 2))) (let ((sc11 e-28)) (case (vector-ref sc11 0) ((1) (let ((e-31 (vector-ref sc11 2))) (let ((sc12 e-31)) (case (vector-ref sc12 0) ((1) (let ((e-34 (vector-ref sc12 2))) (let ((sc13 e-34)) (case (vector-ref sc13 0) ((1) (let ((e-37 (vector-ref sc13 2))) (let ((sc14 e-37)) (case (vector-ref sc14 0) ((1) (let ((e-40 (vector-ref sc14 2))) (let ((sc15 e-40)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-25)) (case (vector-ref sc9 0) ((1) (let ((e-28 (vector-ref sc9 2))) (let ((sc10 e-28)) (case (vector-ref sc10 0) ((1) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((1) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((1) (let ((e-37 (vector-ref sc12 2))) (let ((sc13 e-37)) (case (vector-ref sc13 0) ((1) (let ((e-40 (vector-ref sc13 2))) (let ((sc14 e-40)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((1) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((1) (let ((e-37 (vector-ref sc11 2))) (let ((sc12 e-37)) (case (vector-ref sc12 0) ((1) (let ((e-40 (vector-ref sc12 2))) (let ((sc13 e-40)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((1) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((1) (let ((e-37 (vector-ref sc10 2))) (let ((sc11 e-37)) (case (vector-ref sc11 0) ((1) (let ((e-40 (vector-ref sc11 2))) (let ((sc12 e-40)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-25)) (case (vector-ref sc6 0) ((1) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-28)) (case (vector-ref sc7 0) ((1) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((1) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((1) (let ((e-37 (vector-ref sc9 2))) (let ((sc10 e-37)) (case (vector-ref sc10 0) ((1) (let ((e-40 (vector-ref sc10 2))) (let ((sc11 e-40)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((1) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((1) (let ((e-37 (vector-ref sc8 2))) (let ((sc9 e-37)) (case (vector-ref sc9 0) ((1) (let ((e-40 (vector-ref sc9 2))) (let ((sc10 e-40)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-25)) (case (vector-ref sc4 0) ((1) (let ((e-28 (vector-ref sc4 2))) (let ((sc5 e-28)) (case (vector-ref sc5 0) ((1) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((1) (let ((e-37 (vector-ref sc7 2))) (let ((sc8 e-37)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 2))) (let ((sc9 e-40)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-25)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 2))) (let ((sc7 e-37)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-25)) (case (vector-ref sc2 0) ((1) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((1) (let ((e-31 (vector-ref sc3 2))) (let ((sc4 e-31)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 2))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad getField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((9) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 1))) (let ((e-66 (vector-ref sc1 2))) (let ((sc2 e-65)) (case (vector-ref sc2 0) ((12) (let ((e-90 (vector-ref sc2 2))) (let ((sc3 e-90)) (case (vector-ref sc3 0) ((6) (let ((e-91 (vector-ref sc3 1))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-94 (vector-ref sc4 2))) (let ((sc5 e-94)) (case (vector-ref sc5 0) ((1) (let ((e-97 (vector-ref sc5 2))) (let ((sc6 e-97)) (case (vector-ref sc6 0) ((1) (let ((e-99 (vector-ref sc6 1))) (let ((e-100 (vector-ref sc6 2))) (let ((sc7 e-100)) (case (vector-ref sc7 0) ((1) (let ((e-102 (vector-ref sc7 1))) (let ((e-103 (vector-ref sc7 2))) (let ((sc8 e-102)) (case (vector-ref sc8 0) ((12) (let ((e-105 (vector-ref sc8 2))) (let ((sc9 e-105)) (case (vector-ref sc9 0) ((6) (let ((e-106 (vector-ref sc9 1))) (let ((sc10 e-103)) (case (vector-ref sc10 0) ((1) (let ((e-109 (vector-ref sc10 2))) (let ((sc11 e-109)) (case (vector-ref sc11 0) ((1) (let ((e-111 (vector-ref sc11 1))) (let ((e-112 (vector-ref sc11 2))) (let ((sc12 e-112)) (case (vector-ref sc12 0) ((1) (let ((e-115 (vector-ref sc12 2))) (let ((sc13 e-115)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-99) eta-0))) (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 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-111) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(ftype-set! " (Strings-Prelude-C-43C-43 e-91 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 e-106 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))))))(else (let ((sc13 e-66)) (case (vector-ref sc13 0) ((1) (let ((e-69 (vector-ref sc13 2))) (let ((sc14 e-69)) (case (vector-ref sc14 0) ((1) (let ((e-72 (vector-ref sc14 2))) (let ((sc15 e-72)) (case (vector-ref sc15 0) ((1) (let ((e-75 (vector-ref sc15 2))) (let ((sc16 e-75)) (case (vector-ref sc16 0) ((1) (let ((e-78 (vector-ref sc16 2))) (let ((sc17 e-78)) (case (vector-ref sc17 0) ((1) (let ((e-81 (vector-ref sc17 2))) (let ((sc18 e-81)) (case (vector-ref sc18 0) ((1) (let ((e-84 (vector-ref sc18 2))) (let ((sc19 e-84)) (case (vector-ref sc19 0) ((1) (let ((e-87 (vector-ref sc19 2))) (let ((sc20 e-87)) (case (vector-ref sc20 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc12 e-66)) (case (vector-ref sc12 0) ((1) (let ((e-69 (vector-ref sc12 2))) (let ((sc13 e-69)) (case (vector-ref sc13 0) ((1) (let ((e-72 (vector-ref sc13 2))) (let ((sc14 e-72)) (case (vector-ref sc14 0) ((1) (let ((e-75 (vector-ref sc14 2))) (let ((sc15 e-75)) (case (vector-ref sc15 0) ((1) (let ((e-78 (vector-ref sc15 2))) (let ((sc16 e-78)) (case (vector-ref sc16 0) ((1) (let ((e-81 (vector-ref sc16 2))) (let ((sc17 e-81)) (case (vector-ref sc17 0) ((1) (let ((e-84 (vector-ref sc17 2))) (let ((sc18 e-84)) (case (vector-ref sc18 0) ((1) (let ((e-87 (vector-ref sc18 2))) (let ((sc19 e-87)) (case (vector-ref sc19 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc11 e-66)) (case (vector-ref sc11 0) ((1) (let ((e-69 (vector-ref sc11 2))) (let ((sc12 e-69)) (case (vector-ref sc12 0) ((1) (let ((e-72 (vector-ref sc12 2))) (let ((sc13 e-72)) (case (vector-ref sc13 0) ((1) (let ((e-75 (vector-ref sc13 2))) (let ((sc14 e-75)) (case (vector-ref sc14 0) ((1) (let ((e-78 (vector-ref sc14 2))) (let ((sc15 e-78)) (case (vector-ref sc15 0) ((1) (let ((e-81 (vector-ref sc15 2))) (let ((sc16 e-81)) (case (vector-ref sc16 0) ((1) (let ((e-84 (vector-ref sc16 2))) (let ((sc17 e-84)) (case (vector-ref sc17 0) ((1) (let ((e-87 (vector-ref sc17 2))) (let ((sc18 e-87)) (case (vector-ref sc18 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc10 e-66)) (case (vector-ref sc10 0) ((1) (let ((e-69 (vector-ref sc10 2))) (let ((sc11 e-69)) (case (vector-ref sc11 0) ((1) (let ((e-72 (vector-ref sc11 2))) (let ((sc12 e-72)) (case (vector-ref sc12 0) ((1) (let ((e-75 (vector-ref sc12 2))) (let ((sc13 e-75)) (case (vector-ref sc13 0) ((1) (let ((e-78 (vector-ref sc13 2))) (let ((sc14 e-78)) (case (vector-ref sc14 0) ((1) (let ((e-81 (vector-ref sc14 2))) (let ((sc15 e-81)) (case (vector-ref sc15 0) ((1) (let ((e-84 (vector-ref sc15 2))) (let ((sc16 e-84)) (case (vector-ref sc16 0) ((1) (let ((e-87 (vector-ref sc16 2))) (let ((sc17 e-87)) (case (vector-ref sc17 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((1) (let ((e-72 (vector-ref sc10 2))) (let ((sc11 e-72)) (case (vector-ref sc11 0) ((1) (let ((e-75 (vector-ref sc11 2))) (let ((sc12 e-75)) (case (vector-ref sc12 0) ((1) (let ((e-78 (vector-ref sc12 2))) (let ((sc13 e-78)) (case (vector-ref sc13 0) ((1) (let ((e-81 (vector-ref sc13 2))) (let ((sc14 e-81)) (case (vector-ref sc14 0) ((1) (let ((e-84 (vector-ref sc14 2))) (let ((sc15 e-84)) (case (vector-ref sc15 0) ((1) (let ((e-87 (vector-ref sc15 2))) (let ((sc16 e-87)) (case (vector-ref sc16 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc8 e-66)) (case (vector-ref sc8 0) ((1) (let ((e-69 (vector-ref sc8 2))) (let ((sc9 e-69)) (case (vector-ref sc9 0) ((1) (let ((e-72 (vector-ref sc9 2))) (let ((sc10 e-72)) (case (vector-ref sc10 0) ((1) (let ((e-75 (vector-ref sc10 2))) (let ((sc11 e-75)) (case (vector-ref sc11 0) ((1) (let ((e-78 (vector-ref sc11 2))) (let ((sc12 e-78)) (case (vector-ref sc12 0) ((1) (let ((e-81 (vector-ref sc12 2))) (let ((sc13 e-81)) (case (vector-ref sc13 0) ((1) (let ((e-84 (vector-ref sc13 2))) (let ((sc14 e-84)) (case (vector-ref sc14 0) ((1) (let ((e-87 (vector-ref sc14 2))) (let ((sc15 e-87)) (case (vector-ref sc15 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc7 e-66)) (case (vector-ref sc7 0) ((1) (let ((e-69 (vector-ref sc7 2))) (let ((sc8 e-69)) (case (vector-ref sc8 0) ((1) (let ((e-72 (vector-ref sc8 2))) (let ((sc9 e-72)) (case (vector-ref sc9 0) ((1) (let ((e-75 (vector-ref sc9 2))) (let ((sc10 e-75)) (case (vector-ref sc10 0) ((1) (let ((e-78 (vector-ref sc10 2))) (let ((sc11 e-78)) (case (vector-ref sc11 0) ((1) (let ((e-81 (vector-ref sc11 2))) (let ((sc12 e-81)) (case (vector-ref sc12 0) ((1) (let ((e-84 (vector-ref sc12 2))) (let ((sc13 e-84)) (case (vector-ref sc13 0) ((1) (let ((e-87 (vector-ref sc13 2))) (let ((sc14 e-87)) (case (vector-ref sc14 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (let ((sc6 e-66)) (case (vector-ref sc6 0) ((1) (let ((e-69 (vector-ref sc6 2))) (let ((sc7 e-69)) (case (vector-ref sc7 0) ((1) (let ((e-72 (vector-ref sc7 2))) (let ((sc8 e-72)) (case (vector-ref sc8 0) ((1) (let ((e-75 (vector-ref sc8 2))) (let ((sc9 e-75)) (case (vector-ref sc9 0) ((1) (let ((e-78 (vector-ref sc9 2))) (let ((sc10 e-78)) (case (vector-ref sc10 0) ((1) (let ((e-81 (vector-ref sc10 2))) (let ((sc11 e-81)) (case (vector-ref sc11 0) ((1) (let ((e-84 (vector-ref sc11 2))) (let ((sc12 e-84)) (case (vector-ref sc12 0) ((1) (let ((e-87 (vector-ref sc12 2))) (let ((sc13 e-87)) (case (vector-ref sc13 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc5 e-66)) (case (vector-ref sc5 0) ((1) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((1) (let ((e-72 (vector-ref sc6 2))) (let ((sc7 e-72)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 2))) (let ((sc8 e-75)) (case (vector-ref sc8 0) ((1) (let ((e-78 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((1) (let ((e-81 (vector-ref sc9 2))) (let ((sc10 e-81)) (case (vector-ref sc10 0) ((1) (let ((e-84 (vector-ref sc10 2))) (let ((sc11 e-84)) (case (vector-ref sc11 0) ((1) (let ((e-87 (vector-ref sc11 2))) (let ((sc12 e-87)) (case (vector-ref sc12 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc4 e-66)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((1) (let ((e-72 (vector-ref sc5 2))) (let ((sc6 e-72)) (case (vector-ref sc6 0) ((1) (let ((e-75 (vector-ref sc6 2))) (let ((sc7 e-75)) (case (vector-ref sc7 0) ((1) (let ((e-78 (vector-ref sc7 2))) (let ((sc8 e-78)) (case (vector-ref sc8 0) ((1) (let ((e-81 (vector-ref sc8 2))) (let ((sc9 e-81)) (case (vector-ref sc9 0) ((1) (let ((e-84 (vector-ref sc9 2))) (let ((sc10 e-84)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 2))) (let ((sc11 e-87)) (case (vector-ref sc11 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc3 e-66)) (case (vector-ref sc3 0) ((1) (let ((e-69 (vector-ref sc3 2))) (let ((sc4 e-69)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 2))) (let ((sc5 e-72)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 2))) (let ((sc6 e-75)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 2))) (let ((sc7 e-78)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 2))) (let ((sc8 e-81)) (case (vector-ref sc8 0) ((1) (let ((e-84 (vector-ref sc8 2))) (let ((sc9 e-84)) (case (vector-ref sc9 0) ((1) (let ((e-87 (vector-ref sc9 2))) (let ((sc10 e-87)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))))(else (let ((sc2 e-66)) (case (vector-ref sc2 0) ((1) (let ((e-69 (vector-ref sc2 2))) (let ((sc3 e-69)) (case (vector-ref sc3 0) ((1) (let ((e-72 (vector-ref sc3 2))) (let ((sc4 e-72)) (case (vector-ref sc4 0) ((1) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((1) (let ((e-87 (vector-ref sc8 2))) (let ((sc9 e-87)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (vector 1 "(error \"bad setField\")")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((12) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 "\"chez\"")))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((13) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-120 (vector-ref sc1 2))) (let ((sc2 e-120)) (case (vector-ref sc2 0) ((1) (let ((e-122 (vector-ref sc2 1))) (let ((e-123 (vector-ref sc2 2))) (let ((sc3 e-123)) (case (vector-ref sc3 0) ((1) (let ((e-125 (vector-ref sc3 1))) (let ((e-126 (vector-ref sc3 2))) (let ((sc4 e-126)) (case (vector-ref sc4 0) ((1) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-122) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-125) 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))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))) ((14) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-132 (vector-ref sc1 1))) (let ((e-133 (vector-ref sc1 2))) (let ((sc2 e-133)) (case (vector-ref sc2 0) ((1) (let ((e-135 (vector-ref sc2 1))) (let ((e-136 (vector-ref sc2 2))) (let ((sc3 e-136)) (case (vector-ref sc3 0) ((1) (let ((e-139 (vector-ref sc3 2))) (let ((sc4 e-139)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-132) 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))) (let ((act-25 ((Common-Scheme-Compiler-schExp (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-chezExtPrim eta-1 eta-2 eta-3)))) (lambda (eta-1) (Chez-Scheme-Compiler-chezString eta-1)) 0 e-135) eta-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-6 (vector-ref sc6 1))) (vector 1 (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(blodwen-register-object " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")"))))))))))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))
 (define Chez-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 "void"))) ((1) (lambda (eta-0) (vector 1 "int"))) ((2) (lambda (eta-0) (vector 1 "unsigned"))) ((3) (lambda (eta-0) (vector 1 "string"))) ((4) (lambda (eta-0) (vector 1 "double"))) ((5) (lambda (eta-0) (vector 1 "char"))) ((6) (lambda (eta-0) (vector 1 "void*"))) ((7) (lambda (eta-0) (vector 1 "void*"))) ((8) (lambda (eta-0) (vector 1 "u8*"))) ((10) (lambda (eta-0) (vector 1 "void*"))) ((11) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-cftySpec arg-0 e-2))) ((12) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Prelude-C-43C-43 "(* " (Strings-Prelude-C-43C-43 e-3 ")"))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 (Strings-Prelude-C-43C-43 "Can't pass argument of type " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType arg-1) " to foreign function"))) eta-0)))))))
-(define Chez-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Chez-Scheme-Compiler-case--8803-1356 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) arg-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 ((Chez-Scheme-Compiler-cftySpec arg-3 arg-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1182-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) arg-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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call))))))))))))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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))) (let ((act-25 ((Chez-Scheme-Compiler-case--8803-1356 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) 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))) (let ((act-27 ((Chez-Scheme-Compiler-cftySpec arg-3 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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--8803-1182-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call)))))))))))))))))))))))))))))))))))))
-(define CommandLine-Idris-case--2983-1365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) "localhost") (else arg-2)))))
-(define CommandLine-Idris-case--2961-1334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((port (Maybe-Data-fromMaybe 'erased (lambda () 38398) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (CommandLine-Idris-portPart e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2849) (lambda (arg-2850) (b+ arg-2849 arg-2850 63))) (lambda (arg-2851) (lambda (arg-2852) (b* arg-2851 arg-2852 63))) (lambda (arg-2853) arg-2853)) eta-0)))))) (let ((host (CommandLine-Idris-case--2983-1365 arg-0 arg-1 e-2 e-3 port (Prelude-C-61C-61_Eq__String e-2 "")))) (vector 0 host port))))))))
-(define CommandLine-Idris-case--2942-1301 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (substring arg-0 1 (string-length arg-0))))))))
-(define CommandLine-Idris-case--2915-1278 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (CommandLine-Idris-getOpts e-2))))(else (lambda (eta-0) (vector 0 "Invalid command line")))))))
-(define CommandLine-Idris-case--2869-1246 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-1 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls)))))))))
-(define CommandLine-Idris-case--2799-1209 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (CommandLine-Idris-findMatch arg-1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
-(define CommandLine-Idris-case--2747-1132 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-processArgs arg-0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))) (lambda (args) (vector 1 (vector 1 args))))) (else (vector 1 (vector 0 )))))))
-(define CommandLine-Idris-n--2665-1042-showSep (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-1 (CommandLine-Idris-n--2665-1042-showSep arg-0 arg-1 e-3)))))))))))))
+(define Chez-Scheme-Compiler-cCall (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) ((11) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Chez-Scheme-Compiler-case--9130-1404 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) arg-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 ((Chez-Scheme-Compiler-cftySpec arg-3 arg-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 ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1211-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) arg-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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call))))))))))))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return GCPtr from a foreign function") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't return Buffer from a foreign function") 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))) (let ((act-25 ((Chez-Scheme-Compiler-case--9130-1404 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) 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))) (let ((act-27 ((Chez-Scheme-Compiler-cftySpec arg-3 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))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--9130-1211-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) 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 ((call (Strings-Prelude-C-43C-43 "((foreign-procedure #f " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-7) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-9) ")")))))))))) (vector 1 (vector 0 e-6 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((11) (Chez-Scheme-Compiler-handleRet e-8 call))(else call)))))))))))))))))))))))))))))))))))))
+(define CommandLine-Idris-case--3542-1977 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (CommandLine-Idris-getOpts e-2))))(else (lambda (eta-0) (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-case--3495-1941 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-1 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls)))))))))
+(define CommandLine-Idris-case--3425-1903 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (CommandLine-Idris-findMatch arg-1 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2)))))))
+(define CommandLine-Idris-case--3373-1825 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-processArgs arg-0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))) (lambda (args) (vector 1 (vector 1 args))))) (else (vector 1 (vector 0 )))))))
+(define CommandLine-Idris-case--3199-1734 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (lambda (acc) (Prelude-max_Ord__Nat acc (Prelude-length e-2)))))))
+(define CommandLine-Idris-case--2215-714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) "localhost") (else arg-2)))))
+(define CommandLine-Idris-case--2163-683 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((port (Maybe-Data-fromMaybe 'erased (lambda () 38398) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (CommandLine-Idris-n--2163-647-portPart arg-0 arg-1 e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2743) (lambda (arg-2744) (b+ arg-2743 arg-2744 63))) (lambda (arg-2745) (lambda (arg-2746) (b* arg-2745 arg-2746 63))) (lambda (arg-2747) arg-2747)) eta-0)))))) (let ((host (CommandLine-Idris-case--2215-714 arg-0 arg-1 e-2 e-3 port (Prelude-C-61C-61_Eq__String e-2 "")))) (vector 0 host port))))))))
+(define CommandLine-Idris-case--2178-655 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (substring arg-2 1 (string-length arg-2))))))))
+(define CommandLine-Idris-n--3199-1649-showSep (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 arg-1 (CommandLine-Idris-n--3199-1649-showSep arg-0 arg-1 e-3)))))))))))))
+(define CommandLine-Idris-n--2163-647-portPart (lambda (arg-0 arg-1 arg-2) (CommandLine-Idris-case--2178-655 arg-0 arg-1 arg-2 (Prelude-C-61C-61_Eq__String arg-2 ""))))
+(define CommandLine-Idris-n--3199-1651-optUsage (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (h) (Strings-Prelude-C-43C-43 "  " (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (Prelude-C-43_Num__Nat arg-1 (+ 1 (+ 1 0))) (Prelude-length e-2)) #\ )) (Strings-Prelude-C-43C-43 h "\xa;")))))) e-3))))))
+(define CommandLine-Idris-n--3199-1650-optShow (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-3 (vector-ref sc0 4))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (vector 0 "" (vector 1 "")))(else (vector 0 (Strings-Prelude-C-43C-43 (CommandLine-Idris-n--3199-1649-showSep arg-0 ", " e-0) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--3199-1649-showSep arg-0 " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CommandLine-Idris-show_Show__OptType eta-0)) e-1)))) e-3))))))))))
+(define CommandLine-Idris-show_Show__OptType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 e-0 ">")))) (else (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-1 "]"))))))))
+(define CommandLine-Idris-showPrec_Show__OptType (lambda (arg-0 arg-1) (CommandLine-Idris-show_Show__OptType arg-1)))
+(define CommandLine-Idris-__Impl_Show_OptType (lambda () (vector 0 (lambda (x) (CommandLine-Idris-show_Show__OptType x)) (lambda (d) (lambda (x) (CommandLine-Idris-showPrec_Show__OptType d x))))))
 (define CommandLine-Idris-versionMsg (lambda () (Strings-Prelude-C-43C-43 "Idris 2, version " (Version-Idris-showVersion 0 (Version-Idris-version)))))
-(define CommandLine-Idris-usage (lambda () (Strings-Prelude-C-43C-43 (CommandLine-Idris-versionMsg) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Usage: idris2 [options] [input file]\xa;\xa;" (Strings-Prelude-C-43C-43 "Available options:\xa;" ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-optUsage eta-0))) (CommandLine-Idris-options))))))))
-(define CommandLine-Idris-processArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 0 (Strings-Prelude-C-43C-43 "Missing argument <" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "> for flag " arg-0))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-7 (arg-3 e-6))))))))))))))
-(define CommandLine-Idris-portPart (lambda (arg-0) (CommandLine-Idris-case--2942-1301 arg-0 (Prelude-C-61C-61_Eq__String arg-0 ""))))
+(define CommandLine-Idris-usage (lambda () (Strings-Prelude-C-43C-43 (CommandLine-Idris-versionMsg) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Usage: idris2 [options] [input file]\xa;\xa;" (Strings-Prelude-C-43C-43 "Available options:\xa;" (CommandLine-Idris-optsUsage (CommandLine-Idris-options))))))))
+(define CommandLine-Idris-showDefault (lambda (arg-0 arg-1 arg-2) (Strings-Prelude-C-43C-43 "(default " (Strings-Prelude-C-43C-43 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-2))) ")"))))
+(define CommandLine-Idris-processArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (vector 0 (Strings-Prelude-C-43C-43 "Missing required argument " (Strings-Prelude-C-43C-43 (CommandLine-Idris-show_Show__OptType e-2) (Strings-Prelude-C-43C-43 " for flag " arg-0))))) (else (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-9 (arg-3 e-8)))))))) (else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (CommandLine-Idris-processArgs arg-0 e-3 (vector 0 ) (arg-3 (vector 0 )))) (else (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-13 (arg-3 (Maybe-Data-toMaybe 'erased (Prelude-not (Strings-Data-isPrefixOf "-" e-12)) (lambda () e-12)))))))))))))))))))
 (define CommandLine-Idris-parseOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 )))(else (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-findMatch arg-0 arg-1) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-parseOpts arg-0 e-3) (lambda (cls) (vector 1 (List-Prelude-C-43C-43 'erased e-2 cls))))))))))))))
-(define CommandLine-Idris-options (lambda () (vector 1 (vector 0 (vector 1 "--check" (vector 1 "-c" (vector 0 ))) (vector 0 ) (vector 1 (vector 0 ) (vector 0 )) (vector 1 "Exit after checking source file")) (vector 1 (vector 0 (vector 1 "--output" (vector 1 "-o" (vector 0 ))) (vector 1 "file" (vector 0 )) (lambda (f) (vector 1 (vector 1 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Specify output file")) (vector 1 (vector 0 (vector 1 "--exec" (vector 1 "-x" (vector 0 ))) (vector 1 "name" (vector 0 )) (lambda (f) (vector 1 (vector 2 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Execute function after checking source file")) (vector 1 (vector 0 (vector 1 "--no-prelude" (vector 0 )) (vector 0 ) (vector 1 (vector 4 ) (vector 0 )) (vector 1 "Don't implicitly import Prelude")) (vector 1 (vector 0 (vector 1 "--codegen" (vector 1 "--cg" (vector 0 ))) (vector 1 "backend" (vector 0 )) (lambda (f) (vector 1 (vector 3 f) (vector 0 ))) (vector 1 "Set code generator (default chez)")) (vector 1 (vector 0 (vector 1 "--package" (vector 1 "-p" (vector 0 ))) (vector 1 "package" (vector 0 )) (lambda (f) (vector 1 (vector 11 f) (vector 0 ))) (vector 1 "Add a package as a dependency")) (vector 1 (vector 0 (vector 1 "--ide-mode" (vector 0 )) (vector 0 ) (vector 1 (vector 15 ) (vector 0 )) (vector 1 "Run the REPL with machine-readable syntax")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket" (vector 0 )) (vector 0 ) (vector 1 (vector 16 "localhost:38398") (vector 0 )) (vector 1 "Run the ide socket mode on default host and port (localhost:38398)")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket-with" (vector 0 )) (vector 1 "host:port" (vector 0 )) (lambda (hp) (vector 1 (vector 16 hp) (vector 0 ))) (vector 1 "Run the ide socket mode on given host and port")) (vector 1 (vector 0 (vector 1 "--prefix" (vector 0 )) (vector 0 ) (vector 1 (vector 5 ) (vector 0 )) (vector 1 "Show installation prefix")) (vector 1 (vector 0 (vector 1 "--paths" (vector 0 )) (vector 0 ) (vector 1 (vector 27 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--build" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 0 ) f) (vector 0 ))) (vector 1 "Build modules/executable for the given package")) (vector 1 (vector 0 (vector 1 "--install" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 1 ) f) (vector 0 ))) (vector 1 "Install the given package")) (vector 1 (vector 0 (vector 1 "--clean" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 2 ) f) (vector 0 ))) (vector 1 "Clean intermediate files/executables for the given package")) (vector 1 (vector 0 (vector 1 "--repl" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 3 ) f) (vector 0 ))) (vector 1 "Build the given package and launch a REPL instance.")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 13 (vector 0 )) (vector 0 )) (vector 1 "Show library directory")) (vector 1 (vector 0 (vector 1 "--no-banner" (vector 0 )) (vector 0 ) (vector 1 (vector 8 ) (vector 0 )) (vector 1 "Suppress the banner")) (vector 1 (vector 0 (vector 1 "--quiet" (vector 1 "-q" (vector 0 ))) (vector 0 ) (vector 1 (vector 9 ) (vector 0 )) (vector 1 "Quiet mode; display fewer messages")) (vector 1 (vector 0 (vector 1 "--verbose" (vector 0 )) (vector 0 ) (vector 1 (vector 10 ) (vector 0 )) (vector 1 "Verbose mode (default)")) (vector 1 (vector 0 (vector 1 "--version" (vector 1 "-v" (vector 0 ))) (vector 0 ) (vector 1 (vector 6 ) (vector 0 )) (vector 1 "Display version string")) (vector 1 (vector 0 (vector 1 "--help" (vector 1 "-h" (vector 1 "-?" (vector 0 )))) (vector 0 ) (vector 1 (vector 7 ) (vector 0 )) (vector 1 "Display help text")) (vector 1 (vector 0 (vector 1 "--timing" (vector 0 )) (vector 0 ) (vector 1 (vector 25 ) (vector 0 )) (vector 1 "Display timing logs")) (vector 1 (vector 0 (vector 1 "--find-ipkg" (vector 0 )) (vector 0 ) (vector 1 (vector 24 ) (vector 0 )) (vector 1 "Find and use an .ipkg file in a parent directory")) (vector 1 (vector 0 (vector 1 "--client" (vector 0 )) (vector 1 "REPL command" (vector 0 )) (lambda (f) (vector 1 (vector 23 f) (vector 0 ))) (vector 1 "Run a REPL command then quit immediately")) (vector 1 (vector 0 (vector 1 "--yaffle" (vector 1 "--ttimp" (vector 0 ))) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 17 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--ttm" (vector 0 )) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 18 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpcases" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 19 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumplifted" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 20 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpanf" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 21 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpvmcode" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 22 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 26 ) (vector 0 )) (vector 0 )) (vector 0 ))))))))))))))))))))))))))))))))))
-(define CommandLine-Idris-optUsage (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (h) (Strings-Prelude-C-43C-43 "  " (let ((optshow (Strings-Prelude-C-43C-43 (CommandLine-Idris-n--2665-1042-showSep arg-0 "," (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--2665-1042-showSep arg-0 " " (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 x ">"))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))) (Strings-Prelude-C-43C-43 optshow (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 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)))))))))))))))))))))))))) (Prelude-length optshow)) #\ )) (Strings-Prelude-C-43C-43 h "\xa;"))))))) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
-(define CommandLine-Idris-matchFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CommandLine-Idris-case--2747-1132 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__String arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__String arg-650 arg-651)))) e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
-(define CommandLine-Idris-ideSocketModeHostPort (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 "localhost" 38398)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--2961-1334 e-3 e-4 (Strings-Data-break (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\:)) e-4))))(else (CommandLine-Idris-ideSocketModeHostPort e-3)))))))))))
-(define OptDesc-CommandLine-Idris-help (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
+(define CommandLine-Idris-optsUsage (lambda (arg-0) (let ((optsShow (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CommandLine-Idris-n--3199-1650-optShow arg-0 eta-0)) arg-0))) (let ((maxOpt (Prelude-foldr_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (lambda (acc) (Prelude-max_Ord__Nat acc (Prelude-length e-2)))))) (Prelude-fromInteger_Num__Nat 0) optsShow))) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-n--3199-1651-optUsage arg-0 maxOpt eta-0))) optsShow)))))
+(define CommandLine-Idris-options (lambda () (vector 1 (vector 0 (vector 1 "--check" (vector 1 "-c" (vector 0 ))) (vector 0 ) (vector 1 (vector 0 ) (vector 0 )) (vector 1 "Exit after checking source file")) (vector 1 (vector 0 (vector 1 "--output" (vector 1 "-o" (vector 0 ))) (vector 1 (vector 0 "file") (vector 0 )) (lambda (f) (vector 1 (vector 1 f) (vector 1 (vector 12 ) (vector 0 )))) (vector 1 "Specify output file")) (vector 1 (vector 0 (vector 1 "--exec" (vector 1 "-x" (vector 0 ))) (vector 1 (vector 0 "name") (vector 0 )) (lambda (f) (vector 1 (vector 2 f) (vector 1 (vector 12 ) (vector 0 )))) (vector 1 "Execute function after checking source file")) (vector 1 (vector 0 (vector 1 "--no-prelude" (vector 0 )) (vector 0 ) (vector 1 (vector 4 ) (vector 0 )) (vector 1 "Don't implicitly import Prelude")) (vector 1 (vector 0 (vector 1 "--codegen" (vector 1 "--cg" (vector 0 ))) (vector 1 (vector 0 "backend") (vector 0 )) (lambda (f) (vector 1 (vector 3 f) (vector 0 ))) (vector 1 (Strings-Prelude-C-43C-43 "Set code generator " (CommandLine-Idris-showDefault 'erased (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x)))) (let ((sc0 (Options-Core-defaultSession))) (let ((e-3 (vector-ref sc0 4))) e-3)))))) (vector 1 (vector 0 (vector 1 "--package" (vector 1 "-p" (vector 0 ))) (vector 1 (vector 0 "package") (vector 0 )) (lambda (f) (vector 1 (vector 14 f) (vector 0 ))) (vector 1 "Add a package as a dependency")) (vector 1 (vector 0 (vector 1 "--source-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 5 d) (vector 0 ))) (vector 1 "Set source directory")) (vector 1 (vector 0 (vector 1 "--build-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 6 d) (vector 0 ))) (vector 1 "Set build directory")) (vector 1 (vector 0 (vector 1 "--output-dir" (vector 0 )) (vector 1 (vector 0 "dir") (vector 0 )) (lambda (d) (vector 1 (vector 7 d) (vector 0 ))) (vector 1 "Set output directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--prefix" (vector 0 )) (vector 0 ) (vector 1 (vector 8 ) (vector 0 )) (vector 1 "Show installation prefix")) (vector 1 (vector 0 (vector 1 "--paths" (vector 0 )) (vector 0 ) (vector 1 (vector 30 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 16 (vector 0 )) (vector 0 )) (vector 1 "Show library directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--build" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 0 ) f) (vector 0 ))) (vector 1 "Build modules/executable for the given package")) (vector 1 (vector 0 (vector 1 "--install" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 1 ) f) (vector 0 ))) (vector 1 "Install the given package")) (vector 1 (vector 0 (vector 1 "--clean" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 2 ) f) (vector 0 ))) (vector 1 "Clean intermediate files/executables for the given package")) (vector 1 (vector 0 (vector 1 "--repl" (vector 0 )) (vector 1 (vector 0 "package file") (vector 0 )) (lambda (f) (vector 1 (vector 15 (vector 3 ) f) (vector 0 ))) (vector 1 "Build the given package and launch a REPL instance.")) (vector 1 (vector 0 (vector 1 "--find-ipkg" (vector 0 )) (vector 0 ) (vector 1 (vector 27 ) (vector 0 )) (vector 1 "Find and use an .ipkg file in a parent directory")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--ide-mode" (vector 0 )) (vector 0 ) (vector 1 (vector 18 ) (vector 0 )) (vector 1 "Run the REPL with machine-readable syntax")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket" (vector 0 )) (vector 1 (vector 1 "host:port") (vector 0 )) (lambda (hp) (vector 1 (vector 19 (Maybe-Data-fromMaybe 'erased (lambda () (CommandLine-Idris-formatSocketAddress (CommandLine-Idris-ideSocketModeAddress (vector 0 )))) hp)) (vector 0 ))) (vector 1 (Strings-Prelude-C-43C-43 "Run the ide socket mode on given host and port " (CommandLine-Idris-showDefault 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (CommandLine-Idris-formatSocketAddress (CommandLine-Idris-ideSocketModeAddress (vector 0 ))))))) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--client" (vector 0 )) (vector 1 (vector 0 "REPL command") (vector 0 )) (lambda (f) (vector 1 (vector 26 f) (vector 0 ))) (vector 1 "Run a REPL command then quit immediately")) (vector 1 (vector 0 (vector 1 "--timing" (vector 0 )) (vector 0 ) (vector 1 (vector 28 ) (vector 0 )) (vector 1 "Display timing logs")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--no-banner" (vector 0 )) (vector 0 ) (vector 1 (vector 11 ) (vector 0 )) (vector 1 "Suppress the banner")) (vector 1 (vector 0 (vector 1 "--quiet" (vector 1 "-q" (vector 0 ))) (vector 0 ) (vector 1 (vector 12 ) (vector 0 )) (vector 1 "Quiet mode; display fewer messages")) (vector 1 (vector 0 (vector 1 "--verbose" (vector 0 )) (vector 0 ) (vector 1 (vector 13 ) (vector 0 )) (vector 1 "Verbose mode (default)")) (vector 1 (CommandLine-Idris-optSeparator) (vector 1 (vector 0 (vector 1 "--version" (vector 1 "-v" (vector 0 ))) (vector 0 ) (vector 1 (vector 9 ) (vector 0 )) (vector 1 "Display version string")) (vector 1 (vector 0 (vector 1 "--help" (vector 1 "-h" (vector 1 "-?" (vector 0 )))) (vector 0 ) (vector 1 (vector 10 ) (vector 0 )) (vector 1 "Display help text")) (vector 1 (vector 0 (vector 1 "--yaffle" (vector 1 "--ttimp" (vector 0 ))) (vector 1 (vector 0 "ttimp file") (vector 0 )) (lambda (f) (vector 1 (vector 20 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--ttm" (vector 0 )) (vector 1 (vector 0 "ttimp file") (vector 0 )) (lambda (f) (vector 1 (vector 21 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpcases" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 22 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumplifted" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 23 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpanf" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 24 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpvmcode" (vector 0 )) (vector 1 (vector 0 "output file") (vector 0 )) (lambda (f) (vector 1 (vector 25 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 29 ) (vector 0 )) (vector 0 )) (vector 0 ))))))))))))))))))))))))))))))))))))))))))
+(define CommandLine-Idris-optSeparator (lambda () (vector 0 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
+(define CommandLine-Idris-matchFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CommandLine-Idris-case--3373-1825 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__String arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__String arg-430 arg-431)))) e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
+(define CommandLine-Idris-ideSocketModeAddress (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 "localhost" 38398)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--2163-683 e-3 e-4 (Strings-Data-break (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\:)) e-4))))(else (CommandLine-Idris-ideSocketModeAddress e-3)))))))))))
 (define CommandLine-Idris-getOpts (lambda (arg-0) (CommandLine-Idris-parseOpts (CommandLine-Idris-options) arg-0)))
-(define CommandLine-Idris-getCmdOpts (lambda (ext-0) (let ((act-24 (System-getArgs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (CommandLine-Idris-getOpts e-2)))(else (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-getCmdOpts (lambda (ext-0) (let ((act-24 ((System-getArgs 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (CommandLine-Idris-getOpts e-2)))(else (vector 0 "Invalid command line")))))))
+(define CommandLine-Idris-formatSocketAddress (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int e-3))))))))
 (define OptDesc-CommandLine-Idris-flags (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
-(define CommandLine-Idris-findMatch (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) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 14 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4))))))))))))))
+(define CommandLine-Idris-findMatch (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) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 17 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4))))))))))))))
 (define OptDesc-CommandLine-Idris-argdescs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define OptDesc-CommandLine-Idris-action (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Package-Idris-case--19020-6451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-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))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-17) e-3 e-4 e-5 e-6))))))))))
-(define Package-Idris-case--18963-6344 (lambda (arg-0 arg-1 arg-2 arg-3 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-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-25 (unbox arg-1))) (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 ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))
-(define Package-Idris-case--18903-6295 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 ((act-26 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) 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 ((act-27 ((Package-Idris-n--18836-6176-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) 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 ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-3))) (let ((act-28 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (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-12 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13))))))))))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))))))
-(define Package-Idris-case--18836-6235 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir e-5 eta-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 ((act-25 (Context-Core-setWorkingDir arg-2 e-5 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 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6284) (vector 0 desc))))))) eta-0))) (vector 1 act-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-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-27 (Package-Idris-addFields arg-2 e-12 (Package-Idris-initPkgDesc e-13) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Context-Core-setSourceDir arg-2 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-29 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) eta-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 ((Package-Idris-n--18836-6176-loadDependencies arg-0 arg-1 arg-2 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((sc12 arg-0)) (case (vector-ref sc12 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-31 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (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 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (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 (set-box! arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((2) (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-13) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-12) e-12) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
-(define Package-Idris-case--18739-6109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Package-Idris-errorMsg) 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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 arg-4 arg-5 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 (vector 1 0)))))))))))
-(define Package-Idris-case--18703-6091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-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-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-2)) (cond ((equal? sc3 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 e-8 e-9 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))))))
-(define Package-Idris-case--18487-6054 (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))) (vector 0 e-0 e-1 0))))))
-(define Package-Idris-case--18487-6034 (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))) (vector 0 e-0 (vector 1 (vector 26 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-6013 (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))) (vector 0 e-0 (vector 1 (vector 22 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5992 (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))) (vector 0 e-0 (vector 1 (vector 20 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5971 (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))) (vector 0 e-0 (vector 1 (vector 19 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5952 (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))) (vector 0 e-0 (vector 1 (vector 25 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5933 (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))) (vector 0 e-0 (vector 1 (vector 10 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5914 (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))) (vector 0 e-0 (vector 1 (vector 9 ) e-1) e-2)))))))
-(define Package-Idris-case--18487-5893 (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))) (vector 0 e-0 (vector 1 (vector 3 arg-0) e-1) e-2)))))))
-(define Package-Idris-case--18487-5870 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 1 (vector 0 arg-1 arg-0)) e-1 e-2))))))
-(define Package-Idris-case--18142-5661 (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) (lambda (eta-0) (Package-Idris-install arg-4 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Package-Idris-case--18142-5584 (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) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
-(define Package-Idris-case--18108-5555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (vector 1 (vector 0 )))(else (let ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-install arg-5 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-5 arg-3 arg-9 arg-0 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-5 arg-3 arg-9 arg-0 eta-0)))))))
-(define Package-Idris-case--18033-5529 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-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))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (let ((act-25 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 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-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 )))(else (let ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))) ((1) (let ((act-25 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 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-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-5 arg-3 e-5 arg-0 eta-0))(else (let ((act-26 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-5 arg-0 eta-0)) (else (Package-Idris-runRepl arg-5 arg-3 e-5 arg-0 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-5) e-5) eta-0)))))))))))
-(define Package-Idris-case--18021-5454 (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) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Packages must have an '.ipkg' extension: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-1) ".")) 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 ((act-25 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Package-Parser-parseFile 'erased arg-1 (vector 7 0 (Package-Idris-parsePkgDesc arg-1) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-5518) (vector 0 desc))))))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-8) 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-6 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((0) (let ((act-26 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 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-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-27 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-27))))))))))) ((1) (let ((act-26 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 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-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (Package-Idris-install arg-5 arg-3 e-6 arg-0 eta-0))(else (let ((act-27 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-27))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-6 arg-0 eta-0)) (else (Package-Idris-runRepl arg-5 arg-3 e-6 arg-0 eta-0)))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-6) e-6) eta-0)))))))))))))))))))
-(define Package-Idris-case--17612-5314 (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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2)))))))))
-(define Package-Idris-case--17612-5155 (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-1 (vector-ref sc0 1))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 arg-5 "ttc")))) (let ((execdir (Path-Utils-C-60C-47C-62 e-1 arg-6))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-11) (vector 1 v arg-11))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-9))) (lambda (eta-0) (let ((act-24 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--17612-5051-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--17612-5052-deleteBin arg-0 arg-1 arg-2 arg-3 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-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 (Package-Idris-n--17612-5051-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir (vector 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 execdir e) eta-1)))) (let ((sc3 arg-1)) (let ((e-13 (vector-ref sc3 14))) 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 ((Package-Idris-runScript (let ((sc4 arg-1)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Package-Idris-case--17619-5063 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-4) eta-0))) (vector 1 act-24)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Package-Idris-case--17502-4976 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17495-4945-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))))))))))))))))))))
-(define Package-Idris-case--17150-4634 (lambda (arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-1)) 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 (let ((act-25 (Directory-System-changeDir arg-8 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 ((Package-Idris-runScript (let ((sc3 arg-1)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
-(define Package-Idris-case--17107-4597 (lambda (arg-0 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) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)) arg-7) 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 ((act-26 (let ((act-26 (Directory-System-changeDir arg-8 eta-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 ((Package-Idris-runScript (let ((sc5 arg-1)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
-(define Package-Idris-case--17069-4564 (lambda (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) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 (let ((act-25 (Directory-System-changeDir (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-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)) (cond ((equal? sc4 0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)) arg-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (Directory-System-changeDir arg-8 eta-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc7 arg-1)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-10)) eta-0)))))))
-(define Package-Idris-case--17022-4535 (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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 arg-4)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Directory-System-changeDir installPrefix 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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 ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-26 (let ((act-26 (Directory-System-changeDir (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (vector 1 act-26)))) (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))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 arg-5) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1)) arg-7) 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 ((act-28 (let ((act-28 (Directory-System-changeDir e-1 eta-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc9 arg-1)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
-(define Package-Idris-case--16841-4377 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0)))))))
-(define Package-Idris-case--16803-4332 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-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 ((act-25 (let ((act-25 (Package-Idris-copyFile arg-8 arg-10 eta-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) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0)))))))
-(define Package-Idris-case--16765-4275 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
-(define Package-Idris-case--16572-4155 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-4 arg-3 arg-2 mainn e-6 arg-12 eta-0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0)))))))
-(define Package-Idris-case--16525-4096 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--16572-4155 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 (let ((sc1 arg-1)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))))
-(define Package-Idris-case--16461-4058 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 ))) ((Package-Idris-case--16525-4096 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) 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 ((act-25 ((Package-Idris-runScript (let ((sc2 arg-1)) (let ((e-17 (vector-ref sc2 18))) 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 (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
-(define Package-Idris-case--16354-3910 (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))) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-preOptions arg-3 arg-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 (vector 1 (vector 0 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0))))))))
-(define Package-Idris-case--16151-3831 (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)) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))
-(define Package-Idris-case--15237-3682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0)))))))))))))))))))))))))))
-(define Package-Idris-case--15237-3637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (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 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (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))) (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 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-3019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))
-(define Package-Idris-case--15237-2900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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 ((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))) (vector 0 e-0 arg-0 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)))))))))))))))))))))))))
-(define Package-Idris-n--16151-3702-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToSource arg-2 e-2 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 (vector 0 e-3 e-5)))))))))))))
-(define Package-Idris-n--14828-2406-strField (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 0 (Package-Rule-Parser-exactProperty arg-2) (lambda () (lambda (_-2430) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2441) (vector 7 1 (Package-Rule-Parser-stringLit) (lambda () (lambda (str) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 ((arg-1 (vector 0 arg-0 start end)) str)))))))))))))))))
-(define Package-Idris-n--18836-6176-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0)))
-(define Package-Idris-n--17495-4945-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (These-Data-bifold 'erased arg-1 e-5))))))) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17495-4945-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6))))))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0)))
-(define Package-Idris-n--16151-3703-go (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 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))) ((Package-Idris-n--16151-3703-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
-(define Package-Idris-n--17612-5051-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-joinPath arg-5)) ext-0)))
-(define Package-Idris-n--17612-5052-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((ttFile (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-C-60C-47C-62 (Path-Utils-joinPath arg-5) arg-6)))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttc") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Package-Idris-n--17612-5050-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttm") eta-0)))))))))
-(define Package-Idris-n--17612-5050-delete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (File-System-removeFile arg-4 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 ((sc2 e-2)) (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-4) ext-0))) (vector 1 act-25))))) (else (vector 1 (vector 0 ))))))))))))
+(define Package-Idris-case--20524-7327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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)) (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))) (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 (vector 1 arg-18) e-3 e-4 e-5 e-6 e-7 e-8))))))))))))
+(define Package-Idris-case--20455-7211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-2))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-25 (unbox arg-1))) (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 ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-9 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-10 e-9 e-7 e-8))))))))))))) (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 (vector 1 (vector 1 srcC-39)))))))))))))))))))))))
+(define Package-Idris-case--20387-7144 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-2 eta-1 eta-2)))) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 17))) e-16))) 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 ((act-26 (Context-Core-setOutputDir arg-2 (let ((sc4 e-5)) (let ((e-17 (vector-ref sc4 18))) e-17)) 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 ((act-27 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 15))) e-14))) 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 ((act-28 ((Package-Idris-n--20319-7014-loadDependencies arg-0 arg-1 arg-2 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 11))) e-24))) 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 ((sc7 arg-0)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc7 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 arg-5 e-3))) (let ((act-29 (REPLOpts-Idris-setSource arg-1 srcC-39 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 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (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-31 (let ((act-31 (set-box! arg-1 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-17 (vector-ref sc10 6))) (let ((e-16 (vector-ref sc10 7))) (let ((e-15 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 9))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-18 e-4 e-17 e-16 e-15 e-14))))))))))))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-4 e-5) e-5) eta-0)))))))))))
+(define Package-Idris-case--20319-7074 (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5) eta-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 ((act-25 (Context-Core-setWorkingDir arg-2 e-5 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 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-7133) (vector 0 desc))))))) eta-0))) (vector 1 act-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-11 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((sc7 e-2)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-27 (Package-Idris-addFields arg-2 e-12 (Package-Idris-initPkgDesc e-13) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-2 eta-1 eta-2)))) (let ((sc9 e-14)) (let ((e-16 (vector-ref sc9 17))) e-16))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setOutputDir arg-2 (let ((sc10 e-14)) (let ((e-17 (vector-ref sc10 18))) e-17)) eta-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 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc11 e-14)) (let ((e-26 (vector-ref sc11 15))) e-26))) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-n--20319-7014-loadDependencies arg-0 arg-1 arg-2 (let ((sc12 e-14)) (let ((e-31 (vector-ref sc12 11))) e-31))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((sc13 arg-0)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc13 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-32 (REPLOpts-Idris-setSource arg-1 srcC-39 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 ((act-33 (let ((act-33 (unbox arg-1))) (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 ((act-34 (let ((act-34 (set-box! arg-1 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) (let ((e-27 (vector-ref sc16 2))) (let ((e-25 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-23 (vector-ref sc16 7))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (vector 0 e-0 e-27 (vector 1 srcC-39) e-25 e-4 e-24 e-23 e-22 e-21))))))))))))) (vector 1 act-34)))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((2) (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-13) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-12) e-12) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
+(define Package-Idris-case--20217-6942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) 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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 arg-4 arg-5 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 (vector 1 0)))))))))))
+(define Package-Idris-case--20179-6924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-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-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-2)) (cond ((equal? sc3 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (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 (vector 1 0))))))) (else (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-3 arg-2 arg-1 e-8 e-9 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (vector 1 1)))))))))))
+(define Package-Idris-case--19909-6885 (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))) (vector 0 e-0 e-1 0))))))
+(define Package-Idris-case--19909-6862 (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))) (vector 0 e-0 (vector 1 (vector 7 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6840 (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))) (vector 0 e-0 (vector 1 (vector 6 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6818 (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))) (vector 0 e-0 (vector 1 (vector 3 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6798 (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))) (vector 0 e-0 (vector 1 (vector 29 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6776 (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))) (vector 0 e-0 (vector 1 (vector 25 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6754 (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))) (vector 0 e-0 (vector 1 (vector 23 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6732 (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))) (vector 0 e-0 (vector 1 (vector 22 arg-0) e-1) e-2)))))))
+(define Package-Idris-case--19909-6712 (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))) (vector 0 e-0 (vector 1 (vector 28 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6692 (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))) (vector 0 e-0 (vector 1 (vector 13 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6672 (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))) (vector 0 e-0 (vector 1 (vector 12 ) e-1) e-2)))))))
+(define Package-Idris-case--19909-6649 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 1 (vector 0 arg-1 arg-0)) e-1 e-2))))))
+(define Package-Idris-case--19431-6461 (lambda (arg-0 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) (Package-Idris-runRepl arg-4 arg-3 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19431-6345 (lambda (arg-0 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) (Package-Idris-install arg-4 arg-2 arg-8 arg-0 eta-0)))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19431-6253 (lambda (arg-0 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) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
+(define Package-Idris-case--19383-6219 (lambda (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-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (vector 1 (vector 0 )))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-install arg-5 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-5 arg-3 arg-9 arg-0 eta-0))) (else (lambda (eta-0) (let ((act-24 (Package-Idris-build arg-5 arg-4 arg-3 arg-9 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) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 arg-9 arg-0 eta-0))(else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))))))
+(define Package-Idris-case--19301-6176 (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-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-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))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-5 eta-1 eta-2)))) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 17))) e-16))) 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 ((act-26 (Context-Core-setOutputDir arg-5 (let ((sc4 e-5)) (let ((e-17 (vector-ref sc4 18))) e-17)) 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 ((sc5 arg-2)) (case (vector-ref sc5 0) ((0) (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28))))))))))) ((1) (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Package-Idris-install arg-5 arg-3 e-5 arg-0 eta-0))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-5 arg-0 eta-0)) (else (let ((act-27 (Package-Idris-build arg-5 arg-4 arg-3 e-5 arg-0 eta-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-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 e-5 arg-0 eta-0))(else (let ((act-28 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-28)))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-5) e-5) eta-0)))))))))))
+(define Package-Idris-case--19289-6094 (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) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Packages must have an '.ipkg' extension: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-1) "."))) 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 ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Package-Parser-parseFile 'erased arg-1 (vector 7 0 (Package-Idris-parsePkgDesc arg-1) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6165) (vector 0 desc))))))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 (Package-Idris-addFields arg-5 e-9 (Package-Idris-initPkgDesc e-8) 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-6 (vector-ref sc4 1))) (let ((act-26 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setBuildDir arg-5 eta-1 eta-2)))) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-setOutputDir arg-5 (let ((sc6 e-6)) (let ((e-17 (vector-ref sc6 18))) e-17)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((sc7 arg-2)) (case (vector-ref sc7 0) ((0) (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 0 )))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))) ((1) (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Package-Idris-install arg-5 arg-3 e-6 arg-0 eta-0))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))) ((2) (Package-Idris-clean arg-5 arg-3 e-6 arg-0 eta-0)) (else (let ((act-28 (Package-Idris-build arg-5 arg-4 arg-3 e-6 arg-0 eta-0))) (let ((sc8 act-28)) (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))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Package-Idris-runRepl arg-5 arg-4 arg-3 e-6 arg-0 eta-0))(else (let ((act-29 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-29 (arg-3664 eta-1))) ((arg-3665 act-29) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-29))))))))))))))))))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-11) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc arg-1 e-6) e-6) eta-0)))))))))))))))))))
+(define Package-Idris-case--18883-5962 (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 (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 0 e-3 e-2)))))))))
+(define Package-Idris-case--18883-5807 (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 ((d (let ((sc1 (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0)))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 (let ((sc1 d)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc")))) (let ((outputdir (Path-Utils-C-60C-47C-62 e-1 (Options-Core-outputDirWithDefault d)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-9) (vector 1 v arg-9))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-7))) (lambda (eta-0) (let ((act-24 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--18883-5692-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--18883-5693-deleteBin arg-0 arg-1 arg-2 arg-3 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-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 (Package-Idris-n--18883-5692-deleteFolder arg-0 arg-1 arg-2 arg-3 builddir (vector 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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 outputdir e) eta-1)))) (let ((sc3 arg-1)) (let ((e-13 (vector-ref sc3 14))) 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 ((Package-Idris-runScript (let ((sc4 arg-1)) (let ((e-23 (vector-ref sc4 24))) e-23))) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Package-Idris-case--18890-5708 (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 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Removed: " arg-4)) eta-0))) (vector 1 act-24)))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Package-Idris-case--18769-5614 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-6 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18762-5579-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 arg-8) e-5)))) e-6)))))))))))))))))))))
+(define Package-Idris-case--18409-5263 (lambda (arg-0 arg-1 arg-2 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-1)) 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 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) 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 ((Package-Idris-runScript (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 22))) e-21))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
+(define Package-Idris-case--18365-5223 (lambda (arg-0 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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)) arg-7) 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 ((act-26 (let ((act-26 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) eta-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 ((Package-Idris-runScript (let ((sc5 arg-1)) (let ((e-21 (vector-ref sc5 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
+(define Package-Idris-case--18323-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) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) 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 ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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)) (cond ((equal? sc4 0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Path-Utils-C-60C-47C-62 arg-8 arg-5) (Path-Utils-C-60C-47C-62 arg-10 (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)) arg-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-27 (arg-3664 eta-1))) ((arg-3665 act-27) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-8) eta-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc7 arg-1)) (let ((e-21 (vector-ref sc7 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " arg-10)) eta-0)))))))
+(define Package-Idris-case--18269-5156 (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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 arg-4)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) installPrefix) 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 ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-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 ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-26 (let ((act-26 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (vector 1 act-26)))) (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))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-3 (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 arg-5) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1)) arg-7) 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 ((act-28 (let ((act-28 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-28 (arg-3664 eta-1))) ((arg-3665 act-28) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) eta-0))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc9 arg-1)) (let ((e-21 (vector-ref sc9 22))) e-21))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-1)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc5 arg-1)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
+(define Package-Idris-case--18084-4991 (lambda (arg-0 arg-1 arg-2 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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0)))))))
+(define Package-Idris-case--18045-4942 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-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 ((act-25 (let ((act-25 (Package-Idris-copyFile arg-8 arg-10 eta-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) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9)))) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased arg-1)))) eta-0)))))))
+(define Package-Idris-case--18007-4884 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
+(define Package-Idris-case--17820-4769 (lambda (arg-0 arg-1 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))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((mainName (vector 0 e-5 (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-4 arg-3 arg-2 mainName e-6 arg-12 eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (FC-Core-emptyFC) "No main module given") eta-0)))))))
+(define Package-Idris-case--17771-4710 (lambda (arg-0 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) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--17820-4769 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 (let ((sc1 arg-1)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))))
+(define Package-Idris-case--17700-4668 (lambda (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) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 ))) ((Package-Idris-case--17771-4710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 _-0 (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) 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 ((act-25 ((Package-Idris-runScript (let ((sc2 arg-1)) (let ((e-19 (vector-ref sc2 20))) 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 (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))
+(define Package-Idris-case--17590-4505 (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))) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-preOptions arg-3 arg-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 (vector 1 (vector 0 ))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-0 e-5) eta-0))))))))
+(define Package-Idris-case--17372-4421 (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)) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (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 e-20 e-21 e-22 (vector 1 (vector 0 arg-1 arg-0)))))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-23 (vector-ref sc0 24))) (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 e-20 e-21 (vector 1 (vector 0 arg-1 arg-0)) e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 e-20 (vector 1 (vector 0 arg-1 arg-0)) e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-4024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 arg-0) e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 arg-0) e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (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 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (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 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (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))) (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 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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-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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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 ((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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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-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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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))) (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))) (vector 0 e-0 e-1 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-case--16324-3353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (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 ((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))) (vector 0 e-0 arg-0 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)))))))))))))))))))))))))))
+(define Package-Idris-n--17372-4279-toSource (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToSource arg-2 e-2 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 (vector 0 e-3 e-5)))))))))))))
+(define Package-Idris-n--15880-2820-strField (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 0 (Package-Rule-Parser-exactProperty arg-2) (lambda () (lambda (_-2846) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2859) (vector 7 1 (Package-Rule-Parser-stringLit) (lambda () (lambda (str) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 ((arg-1 (vector 0 arg-0 start end)) str)))))))))))))))))
+(define Package-Idris-n--20319-7014-loadDependencies (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-2 eta-0 eta-1))) ext-0)))
+(define Package-Idris-n--18762-5579-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (Prelude-map_Functor__IO 'erased 'erased (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 (These-Data-bifold 'erased arg-1 e-5))))))) (Package-Idris-bitraverseC 'erased 'erased 'erased 'erased (arg-3 arg-5) (lambda (sm) ((Package-Idris-foldlC 'erased 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (x) (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ksC-39 (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 ))))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18762-5579-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 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))) (let ((act-25 ((arg-4 ksC-39) 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 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) ((e-1 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) ((e-8 x) e-5)))) e-6))))))))))))))))))))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))) (StringMap-Data-toList 'erased sm))) arg-6) ext-0)))
+(define Package-Idris-n--17372-4280-go (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) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 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))) ((Package-Idris-n--17372-4280-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
+(define Package-Idris-n--18883-5692-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-joinPath arg-5)) ext-0)))
+(define Package-Idris-n--18883-5693-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((ttFile (Path-Utils-C-60C-47C-62 arg-4 (Path-Utils-C-60C-47C-62 (Path-Utils-joinPath arg-5) arg-6)))) (lambda (eta-0) (let ((act-24 (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttc") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Package-Idris-n--18883-5691-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttm") eta-0)))))))))
+(define Package-Idris-n--18883-5691-delete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 ((File-System-removeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-4) 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 ((sc2 e-2)) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Removed: " arg-4)) ext-0))) (vector 1 act-25))))) (else (vector 1 (vector 0 ))))))))))))
 (define Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 )))
 (define Package-Idris-__Impl_Semigroup_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (ext-0 ext-1) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 ext-0 ext-1)))
-(define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41))))
+(define Package-Idris-__Impl_Monoid_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41))))
 (define Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (vector 0 )))
 (define PkgDesc-Package-Idris-sourcedir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
-(define Package-Idris-runScript (lambda (arg-0) (let ((sc0 arg-0)) (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (System-system e-6 eta-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-7 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__Int e-7 0))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-5 "Script failed") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))
-(define Package-Idris-runRepl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Package-Idris-addDeps 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 ((act-25 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc1 arg-2)) (let ((e-14 (vector-ref sc1 15))) e-14))) 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 ((SetOptions-Idris-preOptions 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 (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Not implemented") ext-0)))))))))))))))
-(define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-4 e-5 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 0)))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-3) 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-10 e-9 e-1) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-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))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((sc3 e-0)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-4)) (cond ((equal? sc5 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) 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)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-2)) (cond ((equal? sc4 0) (let ((act-25 (let ((act-25 (PrimIO-putStrLn (Package-Idris-errorMsg) eta-0))) (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 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))) (else (vector 1 1)))))))))))))))))))
-(define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Package-Idris-case--18021-5454 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-not (Strings-Data-isSuffixOf ".ipkg" arg-4)))))
-(define Package-Idris-processOptions (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--16354-3910 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6))))))))))))
-(define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
-(define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
-(define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
-(define PkgDesc-Package-Idris-postinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
-(define PkgDesc-Package-Idris-postclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
-(define PkgDesc-Package-Idris-postbuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
-(define Package-Idris-parsePkgDesc (lambda (arg-0) (vector 7 0 (Package-Rule-Parser-exactProperty "package") (lambda () (lambda (_-2832) (vector 7 1 (Package-Rule-Parser-packageName) (lambda () (lambda (name) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Package-Idris-field arg-0)) (lambda (fields) (vector 0 (vector 0 name fields))))))))))))
+(define Package-Idris-runScript (lambda (arg-0) (let ((sc0 arg-0)) (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-6) eta-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-7 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__Int e-7 0))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-5 "Script failed") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))
+(define Package-Idris-runRepl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) 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))) (REPL-Idris-repl arg-0 e-5 arg-1 e-6 arg-2 ext-0)))))))))))))
+(define Package-Idris-processPackageOpts (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-4 e-5 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 0)))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-3) 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 ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-10 e-9 e-1) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) arg-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))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((sc3 e-0)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-4)) (cond ((equal? sc5 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (vector 1 0))))))))))))) (else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Package-Idris-filterPackageOpts (vector 0 (vector 0 ) (vector 0 ) 1) 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)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-2)) (cond ((equal? sc4 0) (let ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Package-Idris-errorMsg)) eta-0))) (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 0)))))) (else (let ((act-25 ((Package-Idris-processPackage arg-0 arg-1 arg-2 e-8 e-9 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))) (else (vector 1 1)))))))))))))))))))
+(define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Package-Idris-case--19289-6094 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-not (Strings-Data-isSuffixOf ".ipkg" arg-4)))))
+(define Package-Idris-processOptions (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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (Package-Idris-case--17590-4505 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6))))))))))))
+(define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
+(define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22))))
+(define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
+(define PkgDesc-Package-Idris-postinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
+(define PkgDesc-Package-Idris-postclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-23 (vector-ref sc0 24))) e-23))))
+(define PkgDesc-Package-Idris-postbuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
+(define Package-Idris-parsePkgDesc (lambda (arg-0) (vector 7 0 (Package-Rule-Parser-exactProperty "package") (lambda () (lambda (_-3281) (vector 7 1 (Package-Rule-Parser-packageName) (lambda () (lambda (name) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Package-Idris-field arg-0)) (lambda (fields) (vector 0 (vector 0 name fields))))))))))))
+(define PkgDesc-Package-Idris-outputdir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
 (define PkgDesc-Package-Idris-options (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
 (define PkgDesc-Package-Idris-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define PkgDesc-Package-Idris-modules (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11))))
 (define PkgDesc-Package-Idris-mainmod (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))
-(define Package-Idris-installFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (let ((ttcfile (Path-Utils-joinPath (List-Data-reverse 'erased arg-4)))) (let ((ttcPath (Path-Utils-C-60C-47C-62 arg-2 (Path-Utils-C-60C-47C-62 "ttc" (Path-Utils-C-60C-46C-62 ttcfile "ttc"))))) (let ((destPath (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-joinPath (List-Data-reverse 'erased e-3))))) (let ((destFile (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-C-60C-46C-62 ttcfile "ttc")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (Path-Utils-joinPath (List-Data-reverse 'erased e-3))) 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 ((act-25 (let ((act-25 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath))) eta-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 (let ((act-26 (Package-Idris-copyFile ttcPath destFile eta-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 (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-0)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased e-3)))) eta-0))))))))))))))))))))
-(define Package-Idris-install (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-18 (vector-ref sc1 19))) e-18))) 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 ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-26 (let ((act-26 (Directory-System-currentDir 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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (let ((act-27 (let ((act-27 (Directory-System-changeDir installPrefix 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 ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-28 (let ((act-28 ((Directory-Core-mkdirAll (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (vector 1 act-28)))) (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) ((1) (let ((act-29 (let ((act-29 (Directory-System-changeDir (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)) ext-0))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 build) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)) toInstall) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (Directory-System-changeDir e-1 ext-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-19 (vector-ref sc12 20))) e-19))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
-(define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
+(define Package-Idris-installFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (let ((ttcfile (Path-Utils-joinPath (List-Data-reverse 'erased arg-4)))) (let ((ttcPath (Path-Utils-C-60C-47C-62 arg-2 (Path-Utils-C-60C-47C-62 "ttc" (Path-Utils-C-60C-46C-62 ttcfile "ttc"))))) (let ((destPath (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-joinPath (List-Data-reverse 'erased e-3))))) (let ((destFile (Path-Utils-C-60C-47C-62 arg-3 (Path-Utils-C-60C-46C-62 ttcfile "ttc")))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll (Path-Utils-joinPath (List-Data-reverse 'erased e-3))) 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 ((act-25 (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-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 (let ((act-26 (Package-Idris-copyFile ttcPath destFile eta-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 (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (vector 1 (vector 0 ))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't copy file " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath)))) eta-0)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directories " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (List-Data-reverse 'erased e-3)))) eta-0))))))))))))))))))))
+(define Package-Idris-install (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((toInstall (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((installPrefix (Path-Utils-C-60C-47C-62 (let ((sc4 (let ((sc5 (let ((sc6 e-5)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-0 (vector-ref sc5 1))) e-0)))) (let ((e-4 (vector-ref sc4 5))) e-4)) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version)))))) (let ((act-27 (let ((act-27 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) installPrefix) 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 ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-28 (let ((act-28 ((Directory-Core-mkdirAll (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (vector 1 act-28)))) (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) ((1) (let ((act-29 (let ((act-29 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-29 (arg-3664 eta-0))) ((arg-3665 act-29) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0))) ext-0))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-installFrom arg-0 (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)) (Path-Utils-C-60C-47C-62 e-1 build) (Path-Utils-C-60C-47C-62 installPrefix (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0)) toInstall) ext-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-31 (arg-3664 eta-0))) ((arg-3665 act-31) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-1) ext-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-21 (vector-ref sc12 22))) e-21))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
+(define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
 (define Package-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (vector 0 arg-0 (vector 0 0 0) (vector 0 0 0)))(else (REPLOpts-Idris-replFC))))))
-(define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-24 (ma 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))) ((Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (vector 1 arg-5))) arg-6))))))
-(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--17495-4945-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0)))
-(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (Directory-Core-findIpkgFile 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))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (Directory-System-changeDir e-7 ext-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 ((act-26 (Context-Core-setWorkingDir arg-0 e-7 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 ((act-27 (let ((act-27 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-6284) (vector 0 desc))))))) ext-0))) (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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((sc8 e-2)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-28 (Package-Idris-addFields arg-0 e-13 (Package-Idris-initPkgDesc e-14) 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-15 (vector-ref sc9 1))) (let ((act-29 (Context-Core-setSourceDir arg-0 (let ((sc10 e-15)) (let ((e-22 (vector-ref sc10 16))) e-22)) ext-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 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc11 e-15)) (let ((e-24 (vector-ref sc11 15))) e-24))) ext-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-n--18836-6176-loadDependencies arg-2 arg-1 arg-0 (let ((sc12 e-15)) (let ((e-29 (vector-ref sc12 11))) e-29))) ext-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((sc13 arg-2)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc13 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-32 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-1))) (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 ((act-34 (let ((act-34 (set-box! arg-1 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) (let ((e-25 (vector-ref sc16 2))) (let ((e-23 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-22 (vector-ref sc16 6))) (let ((e-21 (vector-ref sc16 7))) (vector 0 e-0 e-25 (vector 1 srcC-39) e-23 e-4 e-22 e-21))))))))))) (vector 1 act-34)))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-14) ext-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-13) e-13) ext-0))))))))))))))))))))))))))))) (else (vector 1 arg-2)))))))))))
-(define Package-Idris-filterPackageOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 (vector 1 (vector 0 e-4 e-5)) e-1 e-6)))) e-3)))) ((3) (let ((e-6 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 3 e-6) e-1) e-4))))) e-3))) ((9) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 9 ) e-1) e-4))))) e-3)) ((10) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 10 ) e-1) e-4))))) e-3)) ((25) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 25 ) e-1) e-4))))) e-3)) ((19) (let ((e-7 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 19 e-7) e-1) e-4))))) e-3))) ((20) (let ((e-8 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 20 e-8) e-1) e-4))))) e-3))) ((22) (let ((e-9 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 22 e-9) e-1) e-4))))) e-3))) ((26) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 26 ) e-1) e-4))))) e-3))(else (lambda (eta-0) (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 0))))))))))))))))
-(define Package-Idris-field (lambda (arg-0) (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (vector 9 0 0 (Package-Idris-n--14828-2406-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Package-Rule-Parser-exactProperty "depends") (lambda () (lambda (_-2638) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2649) (vector 7 1 (Package-Rule-Parser-sep 'erased (Package-Rule-Parser-packageName)) (lambda () (lambda (ds) (vector 0 (vector 9 ds))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Package-Rule-Parser-exactProperty "modules") (lambda () (lambda (_-2628) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2675) (vector 7 1 (Package-Rule-Parser-sep 'erased (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-moduleIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) m)))))))))) (lambda () (lambda (ms) (vector 0 (vector 10 ms))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Package-Rule-Parser-exactProperty "main") (lambda () (lambda (_-2618) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2745) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-namespacedIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (vector 7 0 (Package-Rule-Parser-exactProperty "executable") (lambda () (lambda (_-2608) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2799) (let ((sc0 (Prelude-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e)))))) (else (vector 7 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Package-Idris-foldlC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-6) (((((e-2 'erased) 'erased) (lambda (ma) (lambda (b) (lambda (eta-0) (let ((act-24 (ma 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))) ((Basics-Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (vector 1 arg-5))) arg-6))))))
+(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--18762-5579-go 'erased arg-2 'erased arg-4 arg-3 (vector 0 ) ext-1 ext-0)))
+(define Package-Idris-findIpkg (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (Directory-Core-findIpkgFile 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))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-7) ext-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 ((act-26 (Context-Core-setWorkingDir arg-0 e-7 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 ((act-27 (let ((act-27 (Package-Parser-parseFile 'erased e-9 (vector 7 0 (Package-Idris-parsePkgDesc e-9) (lambda () (lambda (desc) (vector 7 1 (Package-Rule-Parser-eoi) (lambda () (lambda (_-7133) (vector 0 desc))))))) ext-0))) (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-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((e-2 (vector-ref sc7 1))) (let ((sc8 e-2)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-28 (Package-Idris-addFields arg-0 e-13 (Package-Idris-initPkgDesc e-14) 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-15 (vector-ref sc9 1))) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setBuildDir arg-0 eta-0 eta-1)))) (let ((sc10 e-15)) (let ((e-16 (vector-ref sc10 17))) e-16))) ext-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 (Context-Core-setOutputDir arg-0 (let ((sc11 e-15)) (let ((e-17 (vector-ref sc11 18))) e-17)) ext-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-31 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc12 e-15)) (let ((e-27 (vector-ref sc12 15))) e-27))) ext-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-32 ((Package-Idris-n--20319-7014-loadDependencies arg-2 arg-1 arg-0 (let ((sc13 e-15)) (let ((e-32 (vector-ref sc13 11))) e-32))) ext-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((sc14 arg-2)) (case (vector-ref sc14 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-3 (vector-ref sc14 1))) (let ((srcC-39 (Path-Utils-C-60C-47C-62 e-10 e-3))) (let ((act-33 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc16 act-34)) (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-35 (let ((act-35 (set-box! arg-1 (let ((sc17 e-21)) (let ((e-0 (vector-ref sc17 1))) (let ((e-28 (vector-ref sc17 2))) (let ((e-26 (vector-ref sc17 4))) (let ((e-4 (vector-ref sc17 5))) (let ((e-25 (vector-ref sc17 6))) (let ((e-24 (vector-ref sc17 7))) (let ((e-23 (vector-ref sc17 8))) (let ((e-22 (vector-ref sc17 9))) (vector 0 e-0 e-28 (vector 1 srcC-39) e-26 e-4 e-25 e-24 e-23 e-22))))))))))))) (vector 1 act-35)))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 1 srcC-39)))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-13 (vector-ref sc7 1))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-9 e-14) ext-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x)))) (Package-Idris-getParseErrorLoc e-9 e-13) e-13) ext-0))))))))))))))))))))))))))))) (else (vector 1 arg-2)))))))))))
+(define Package-Idris-filterPackageOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-1 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 (vector 1 (vector 0 e-4 e-5)) e-1 e-6)))) e-3)))) ((12) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 12 ) e-1) e-4))))) e-3)) ((13) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 13 ) e-1) e-4))))) e-3)) ((28) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 28 ) e-1) e-4))))) e-3)) ((22) (let ((e-6 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 22 e-6) e-1) e-4))))) e-3))) ((23) (let ((e-7 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 23 e-7) e-1) e-4))))) e-3))) ((25) (let ((e-8 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 25 e-8) e-1) e-4))))) e-3))) ((29) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 29 ) e-1) e-4))))) e-3)) ((3) (let ((e-9 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 3 e-9) e-1) e-4))))) e-3))) ((6) (let ((e-10 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 6 e-10) e-1) e-4))))) e-3))) ((7) (let ((e-11 (vector-ref sc1 1))) (Package-Idris-filterPackageOpts (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 0 e-0 (vector 1 (vector 7 e-11) e-1) e-4))))) e-3)))(else (lambda (eta-0) (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 0))))))))))))))))
+(define Package-Idris-field (lambda (arg-0) (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "builddir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "outputdir") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "prebuild") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postbuild") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 21 eta-0 eta-1))) "preclean") (lambda () (vector 9 0 0 (Package-Idris-n--15880-2820-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 22 eta-0 eta-1))) "postclean") (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (vector 7 0 (Package-Rule-Parser-exactProperty "depends") (lambda () (lambda (_-3073) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3086) (vector 7 1 (Package-Rule-Parser-sep 'erased (Package-Rule-Parser-packageName)) (lambda () (lambda (ds) (vector 0 (vector 9 ds))))))))))) (lambda () (vector 9 0 (Prelude-C-38C-38 0 (lambda () 0)) (vector 7 0 (Package-Rule-Parser-exactProperty "modules") (lambda () (lambda (_-3062) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3114) (vector 7 1 (Package-Rule-Parser-sep 'erased (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-moduleIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) m)))))))))) (lambda () (lambda (ms) (vector 0 (vector 10 ms))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Package-Rule-Parser-exactProperty "main") (lambda () (lambda (_-3051) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3189) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (start) (vector 7 1 (Package-Rule-Parser-namespacedIdent) (lambda () (lambda (m) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (vector 7 0 (Package-Rule-Parser-exactProperty "executable") (lambda () (lambda (_-3040) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3247) (let ((sc0 (Prelude-C-38C-38 0 (lambda () 0)))) (cond ((equal? sc0 1) (vector 8 1 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e)))))) (else (vector 7 1 (vector 9 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName))) (lambda () (lambda (e) (vector 0 (vector 12 e))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 (define PkgDesc-Package-Idris-executable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))
-(define Package-Idris-errorMsg (lambda () (Strings-Data-unlines (vector 1 "Not all command line options can be used to override package options.\xa;" (vector 1 "Overridable options are:" (vector 1 "    --quiet" (vector 1 "    --verbose" (vector 1 "    --timing" (vector 1 "    --dumpcases <file>" (vector 1 "    --dumplifted <file>" (vector 1 "    --dumpvmcode <file>" (vector 1 "    --debug-elab-check" (vector 1 "    --codegen <cg>" (vector 0 ))))))))))))))
+(define Package-Idris-errorMsg (lambda () (Strings-Data-unlines (vector 1 "Not all command line options can be used to override package options.\xa;" (vector 1 "Overridable options are:" (vector 1 "    --quiet" (vector 1 "    --verbose" (vector 1 "    --timing" (vector 1 "    --dumpcases <file>" (vector 1 "    --dumplifted <file>" (vector 1 "    --dumpvmcode <file>" (vector 1 "    --debug-elab-check" (vector 1 "    --codegen <cg>" (vector 1 "    --build-dir <dir>" (vector 1 "    --output-dir <dir>" (vector 0 ))))))))))))))))
 (define PkgDesc-Package-Idris-depends (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
 (define Package-Idris-copyFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Binary-Utils-writeToFile arg-1 e-2 ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5))))))))
 (define Package-Idris-compileMain (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-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 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) 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 (REPL-Idris-loadMainFile arg-0 e-6 arg-1 e-5 arg-2 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 (REPL-Idris-compileExp arg-0 e-6 arg-1 e-5 arg-2 (vector 0 (REPLOpts-Idris-replFC) arg-3) 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 (vector 1 (vector 0 ))))))))))))))))))))))
-(define Package-Idris-clean (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 ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-25 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) 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 ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-26 (let ((act-26 (Directory-System-currentDir 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 ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 build "ttc")))) (let ((execdir (Path-Utils-C-60C-47C-62 e-1 exec))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-4) (vector 1 v arg-4))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-27 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--17612-5051-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc4 eta-2)) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3462 arg-3463))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-8))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--17612-5052-deleteBin arg-3 arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie 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 (Package-Idris-n--17612-5051-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir (vector 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 ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--17612-5050-delete arg-3 arg-2 arg-1 arg-0 (Path-Utils-C-60C-47C-62 execdir e) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))))
-(define Package-Idris-build (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 (Package-Idris-addDeps 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) 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 ((SetOptions-Idris-preOptions arg-0 arg-2 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 ((Package-Idris-runScript (let ((sc4 arg-3)) (let ((e-16 (vector-ref sc4 17))) 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))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12))))) (let ((act-29 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild 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 (let ((_-0 (vector 0 ))) ((Package-Idris-case--16525-4096 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 toBuild _-0 (let ((sc7 arg-3)) (let ((e-13 (vector-ref sc7 14))) e-13))) 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 ((Package-Idris-runScript (let ((sc8 arg-3)) (let ((e-17 (vector-ref sc8 18))) e-17))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))(else (vector 1 e-10)))))))))))))))))))))))))))))))))))))
+(define Package-Idris-clean (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 ((Package-Idris-runScript (let ((sc1 arg-2)) (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 ((pkgmods (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-fst 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc2 arg-2)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((sc2 arg-2)) (let ((e-12 (vector-ref sc2 13))) e-12))))) (let ((toClean (List-Data-mapMaybe 'erased 'erased (lambda (ks) (let ((sc2 ks)) (case (vector-ref sc2 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-3 e-2)))))))) pkgmods))) (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341)))) 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 ((d (let ((sc4 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 5))) e-4)))) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((builddir (Path-Utils-C-60C-47C-62 e-1 (Path-Utils-C-60C-47C-62 (let ((sc4 d)) (let ((e-2 (vector-ref sc4 3))) e-2)) "ttc")))) (let ((outputdir (Path-Utils-C-60C-47C-62 e-1 (Options-Core-outputDirWithDefault d)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-4) (vector 1 v arg-4))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-27 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--18883-5692-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir eta-0 eta-1))) (lambda (ks) (lambda (eta-0) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc4 eta-2)) (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 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3392 arg-3393))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-8))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--18883-5693-deleteBin arg-3 arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie 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 (Package-Idris-n--18883-5692-deleteFolder arg-3 arg-2 arg-1 arg-0 builddir (vector 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 ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--18883-5691-delete arg-3 arg-2 arg-1 arg-0 (Path-Utils-C-60C-47C-62 outputdir e) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-23 (vector-ref sc7 24))) e-23))) ext-0))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
+(define PkgDesc-Package-Idris-builddir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
+(define Package-Idris-build (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 (Package-Idris-addDeps 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 ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-processOptions arg-0 arg-2 (let ((sc2 arg-3)) (let ((e-14 (vector-ref sc2 15))) e-14))) 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 ((SetOptions-Idris-preOptions arg-0 arg-2 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 ((Package-Idris-runScript (let ((sc4 arg-3)) (let ((e-18 (vector-ref sc4 19))) e-18))) 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 ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))) (lambda () (lambda (m) (vector 1 (Builtin-snd 'erased 'erased m) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc5 arg-3)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((sc5 arg-3)) (let ((e-12 (vector-ref sc5 13))) e-12))))) (let ((act-29 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild 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 (let ((_-0 (vector 0 ))) ((Package-Idris-case--17771-4710 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 toBuild _-0 (let ((sc7 arg-3)) (let ((e-13 (vector-ref sc7 14))) e-13))) 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 ((Package-Idris-runScript (let ((sc8 arg-3)) (let ((e-19 (vector-ref sc8 20))) 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 (vector 1 (vector 0 )))))))))))(else (vector 1 e-10)))))))))))))))))))))))))))))))))))))
 (define Package-Idris-bitraverseC (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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (vector 1 (lambda (eta-2) (vector 0 eta-2)))) (arg-4 e-2) eta-0)))) ((1) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (vector 1 (lambda (eta-2) (vector 1 eta-2)))) (arg-5 e-5) eta-0)))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (vector 1 (lambda (eta-3) (lambda (eta-4) (vector 2 eta-3 eta-4))))) (arg-4 e-8) eta-1)) (arg-5 e-9) eta-0)))))))))
-(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (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 ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-n--16151-3703-go arg-2 arg-1 arg-0 e-5 e-6 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 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 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 ((e-9 (vector-ref sc4 1))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--16151-3702-toSource arg-2 arg-1 arg-0 eta-0)) e-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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--16151-3702-toSource arg-2 arg-1 arg-0 eta-0)) e-10) 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))) (vector 1 (let ((sc8 e-7)) (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-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
-(define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-23 (vector-ref sc1 1))) (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))) (vector 0 e-23 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))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-3 e-22 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))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 5))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-23 e-22 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))))))))))))))))))))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-5 (vector-ref sc1 6))) (let ((e-23 (vector-ref sc1 7))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-23 e-22 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))))))))))))))))))))))))))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-23 (vector-ref sc1 9))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-23 e-22 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-23 (vector-ref sc1 11))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-23 e-22 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 13))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-23 e-22 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 15))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-23 e-22 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-23 (vector-ref sc1 17))) (let ((e-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-23 e-22 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-22 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-22 e-19 e-20 e-21))))))))))))))))))))))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 e-19))) (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 (vector 1 arg-4)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 (vector 0 e-20 e-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 (vector 1 arg-4))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))))) ((15) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-27 e-28)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((16) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 0 e-29 e-30)) e-18 e-19 e-20 e-21)))))))))))))))))))))))))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21)))))))))))))))))))))))))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-33 e-34)) e-20 e-21)))))))))))))))))))))))))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-21 (vector-ref sc1 22))) (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 (vector 1 (vector 0 e-35 e-36)) e-21)))))))))))))))))))))))))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (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 e-20 (vector 1 (vector 0 e-37 e-38))))))))))))))))))))))))))))))))))
+(define Package-Idris-addFields (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (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 ((act-25 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (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 (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Package-Idris-n--17372-4280-go arg-2 arg-1 arg-0 e-5 e-6 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 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) 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 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 ((e-9 (vector-ref sc4 1))) (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--17372-4279-toSource arg-2 arg-1 arg-0 eta-0)) e-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 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--17372-4279-toSource arg-2 arg-1 arg-0 eta-0)) e-10) 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))) (vector 1 (let ((sc8 e-7)) (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-31 (vector-ref sc8 6))) (let ((e-30 (vector-ref sc8 7))) (let ((e-29 (vector-ref sc8 8))) (let ((e-28 (vector-ref sc8 9))) (let ((e-27 (vector-ref sc8 10))) (let ((e-26 (vector-ref sc8 11))) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-31 e-30 e-29 e-28 e-27 e-26 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))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
+(define Package-Idris-addField (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-25 (vector-ref sc1 1))) (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))) (vector 0 e-25 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))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-3 e-24 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))))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 5))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-25 e-24 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))))))))))))))))))))))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-5 (vector-ref sc1 6))) (let ((e-25 (vector-ref sc1 7))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-25 e-24 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))))))))))))))))))))))))))))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-25 (vector-ref sc1 9))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-25 e-24 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))))))))))))))))))))))))))))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-25 (vector-ref sc1 11))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-25 e-24 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 13))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-25 e-24 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 15))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-25 e-24 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 17))) (let ((e-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-25 e-24 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-24 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-24 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 e-19))) (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 (vector 1 arg-4)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-2 (vector 1 (vector 0 e-20 e-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 (vector 1 arg-4))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-24 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-24 e-23))))))))))))))))))))))))))))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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-25 (vector-ref sc1 24))) (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 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-25)))))))))))))))))))))))))))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((15) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 e-28) e-17 e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((16) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 e-30) e-18 e-19 e-20 e-21 e-22 e-23))))))))))))))))))))))))))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21 e-22 e-23)))))))))))))))))))))))))))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-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))) (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 (vector 1 (vector 0 e-33 e-34)) e-20 e-21 e-22 e-23)))))))))))))))))))))))))))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 (vector 1 (vector 0 e-35 e-36)) e-21 e-22 e-23)))))))))))))))))))))))))))))) ((20) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (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 e-20 (vector 1 (vector 0 e-37 e-38)) e-22 e-23)))))))))))))))))))))))))))))) ((21) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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-23 (vector-ref sc1 24))) (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 e-20 e-21 (vector 1 (vector 0 e-39 e-40)) e-23)))))))))))))))))))))))))))))) (else (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 arg-4)) (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))) (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 e-20 e-21 e-22 (vector 1 (vector 0 e-41 e-42))))))))))))))))))))))))))))))))))))
 (define Package-Idris-addDeps (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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (SetOptions-Idris-addPkgDir arg-0 eta-0 eta-1))) (let ((sc1 arg-1)) (let ((e-10 (vector-ref sc1 11))) e-10))) ext-0)))))))
-(define Package-Parser-case--2201-319 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Package-Parser-runParser 'erased e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
+(define Package-Parser-case--2284-333 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Package-Parser-runParser 'erased e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5)))))))))
 (define Package-Parser-runParser (lambda (arg-0 arg-1 arg-2) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Package-Lexer-Parser-lex arg-1)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased 0 arg-2 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))
-(define Package-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Package-Parser-runParser 'erased e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
-(define Package-Rule-Parser-case--2302-6053 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2269-6028 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
-(define Package-Rule-Parser-case--2263-6017 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2269-6028 arg-0 e-2 (Common-Lexer-Parser-case--1612-304 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2243-5999 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2223-5981 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2204-5964 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2157-5933 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0)) (else (vector 0 ))))))
-(define Package-Rule-Parser-case--2149-5916 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2157-5933 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String arg-0 e-2)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2131-5897 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-case--2113-5880 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 )))(else (vector 0 ))))))
-(define Package-Rule-Parser-stringLit (lambda () (vector 1 "Expected string" (lambda (x) (Package-Rule-Parser-case--2204-5964 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-sepC-39 (lambda () (vector 1 "Expected separator" (lambda (x) (Package-Rule-Parser-case--2302-6053 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
+(define Package-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Package-Parser-runParser 'erased e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5)))))))))
+(define Package-Rule-Parser-case--2379-6318 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2346-6291 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (vector 0 ))))))
+(define Package-Rule-Parser-case--2339-6280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2346-6291 arg-0 e-2 (Common-Lexer-Parser-case--1638-313 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2318-6260 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2297-6240 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (vector 1 (List-Data-reverse 'erased e-0))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2277-6221 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2230-6188 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0)) (else (vector 0 ))))))
+(define Package-Rule-Parser-case--2221-6171 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (Package-Rule-Parser-case--2230-6188 arg-0 arg-1 e-2 (Prelude-C-61C-61_Eq__String arg-0 e-2)))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2202-6150 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-case--2183-6131 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 1 (vector 0 )))(else (vector 0 ))))))
+(define Package-Rule-Parser-stringLit (lambda () (vector 1 "Expected string" (lambda (x) (Package-Rule-Parser-case--2277-6221 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-sepC-39 (lambda () (vector 1 "Expected separator" (lambda (x) (Package-Rule-Parser-case--2379-6318 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
 (define Package-Rule-Parser-sep (lambda (arg-0 arg-1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Package-Rule-Parser-sepC-39) arg-1)))
-(define Package-Rule-Parser-packageName (lambda () (vector 1 "Expected package name" (lambda (x) (Package-Rule-Parser-case--2263-6017 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced identifier" (lambda (x) (Package-Rule-Parser-case--2223-5981 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Package-Rule-Parser-case--2243-5999 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-exactProperty (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected property " arg-0) (lambda (x) (Package-Rule-Parser-case--2149-5916 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-equals (lambda () (vector 1 "Expected equals" (lambda (x) (Package-Rule-Parser-case--2113-5880 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Rule-Parser-eoi (lambda () (vector 1 "Expected end of input" (lambda (x) (Package-Rule-Parser-case--2131-5897 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
-(define Package-Lexer-Parser-case--2300-398 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Package-Lexer-Parser-n--2300-384-useful arg-0 (let ((sc4 eta-0)) (let ((e-4 (vector-ref sc4 3))) e-4)))) e-2) (vector 1 (vector 0 e-6 e-10 (vector 1 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Package-Lexer-Parser-n--2300-384-useful (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) ((5) 1)(else 0)))))
-(define Package-Lexer-Parser-n--2219-289-splitNamespace (lambda (ext-0) (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0)))
+(define Package-Rule-Parser-packageName (lambda () (vector 1 "Expected package name" (lambda (x) (Package-Rule-Parser-case--2339-6280 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced identifier" (lambda (x) (Package-Rule-Parser-case--2297-6240 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Package-Rule-Parser-case--2318-6260 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-exactProperty (lambda (arg-0) (vector 1 (Strings-Prelude-C-43C-43 "Expected property " arg-0) (lambda (x) (Package-Rule-Parser-case--2221-6171 arg-0 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-equals (lambda () (vector 1 "Expected equals" (lambda (x) (Package-Rule-Parser-case--2183-6131 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Rule-Parser-eoi (lambda () (vector 1 "Expected end of input" (lambda (x) (Package-Rule-Parser-case--2202-6150 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
+(define Package-Lexer-Parser-case--2363-410 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Package-Lexer-Parser-n--2363-396-useful arg-0 (let ((sc4 eta-0)) (let ((e-5 (vector-ref sc4 5))) e-5)))) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 1 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Package-Lexer-Parser-n--2363-396-useful (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) ((5) 1)(else 0)))))
+(define Package-Lexer-Parser-n--2281-300-splitNamespace (lambda (ext-0) (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 #\.)) ext-0)))
 (define Package-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Comment: " e-0))) ((1) "EndOfInput") ((2) "Equals") ((3) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DotSepIdentifier: " (String-Utils-dotSep e-1)))) ((4) "Separator") ((5) "Space") (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "StringLit: " e-2)))))))
 (define Package-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Package-Lexer-Parser-show_Show__Token arg-1)))
 (define Package-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Package-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Package-Lexer-Parser-showPrec_Show__Token d x))))))
 (define Package-Lexer-Parser-separator (lambda () (Lexer-Text-is #\,)))
-(define Package-Lexer-Parser-rawTokens (lambda () (vector 1 (vector 0 (Package-Lexer-Parser-equals) (lambda (eta-0) (vector 2 ))) (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 0 (Extra-String-Data-drop (+ 1 (+ 1 0)) eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (vector 3 (Package-Lexer-Parser-n--2219-289-splitNamespace eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (eta-0) (vector 3 (Prelude-pure_Applicative__List 'erased eta-0)))) (vector 1 (vector 0 (Package-Lexer-Parser-separator) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Common-Lexer-Parser-spacesOrNewlines) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (s) (vector 6 (String-Utils-stripQuotes s)))) (vector 0 ))))))))))
-(define Package-Lexer-Parser-lex (lambda (arg-0) (Package-Lexer-Parser-case--2300-398 arg-0 (Core-Lexer-Text-lexTo 'erased (lambda (eta-0) 1) (Package-Lexer-Parser-rawTokens) arg-0))))
+(define Package-Lexer-Parser-rawTokens (lambda () (vector 1 (vector 0 (Package-Lexer-Parser-equals) (lambda (eta-0) (vector 2 ))) (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 0 (Extra-String-Data-drop (+ 1 (+ 1 0)) eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (vector 3 (Package-Lexer-Parser-n--2281-300-splitNamespace eta-0)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (eta-0) (vector 3 (Prelude-pure_Applicative__List 'erased eta-0)))) (vector 1 (vector 0 (Package-Lexer-Parser-separator) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Common-Lexer-Parser-spacesOrNewlines) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (s) (vector 6 (String-Utils-stripQuotes s)))) (vector 0 ))))))))))
+(define Package-Lexer-Parser-lex (lambda (arg-0) (Package-Lexer-Parser-case--2363-410 arg-0 (Core-Lexer-Text-lexTo 'erased (lambda (eta-0) 1) (Package-Lexer-Parser-rawTokens) arg-0))))
 (define Package-Lexer-Parser-equals (lambda () (Lexer-Text-is #\=)))
 (define These-Data-these (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))) (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 These-Data-bifold (lambda (arg-0 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 (vector-ref sc1 1))) ((e-1 e-8) e-9))))))))))
-(define StringTrie-Data-n--1768-3165-rec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-maybe 'erased 'erased (lambda () (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-n--1768-3164-end 'erased arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (tm) (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-insertWith 'erased arg-2 arg-4 tm) arg-5))) (StringMap-Data-lookup 'erased arg-1 arg-5))))
-(define StringTrie-Data-n--1768-3164-end (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringTrie-Data-singleton 'erased arg-2 (arg-4 (vector 0 )))))
+(define StringTrie-Data-n--1795-3180-rec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-maybe 'erased 'erased (lambda () (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-n--1795-3179-end 'erased arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (tm) (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-insertWith 'erased arg-2 arg-4 tm) arg-5))) (StringMap-Data-lookup 'erased arg-1 arg-5))))
+(define StringTrie-Data-n--1795-3179-end (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringTrie-Data-singleton 'erased arg-2 (arg-4 (vector 0 )))))
 (define StringTrie-Data-singleton (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-singleton 'erased e-3 arg-2))))))))))
-(define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (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)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1768-3164-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1768-3165-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1768-3165-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3))))))))
+(define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (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)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1795-3179-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1795-3180-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1795-3180-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3))))))))
 (define StringTrie-Data-empty (lambda (arg-0) (vector 1 (StringMap-Data-empty 'erased))))
-(define REPL-IDEMode-Idris-case--18237-9123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))))
-(define REPL-IDEMode-Idris-case--18046-9014 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-n--17883-8816-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((act-25 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 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-8 (vector-ref sc3 1))) (let ((act-26 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))
-(define REPL-IDEMode-Idris-case--17989-8943 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--18046-9014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5))))))))
-(define REPL-IDEMode-Idris-case--17947-8896 (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) (vector 1 (vector 0 )))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--17989-8943 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9))))))))
-(define REPL-IDEMode-Idris-case--17883-8862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-getInput e-2 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 ((act-25 (let ((act-25 (File-System-fEOF e-2 eta-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 ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--17989-8943 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0)))))))))))))))))))))))))
-(define REPL-IDEMode-Idris-case--17894-8824 (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))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define REPL-IDEMode-Idris-case--17696-8705 (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 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 )))))))))
-(define REPL-IDEMode-Idris-case--17695-8657 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 ))))))))))))))
-(define REPL-IDEMode-Idris-case--17513-8596 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
-(define REPL-IDEMode-Idris-case--16911-7936 (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
-(define REPL-IDEMode-Idris-case--16843-7861 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pack act-24)))))))))
-(define REPL-IDEMode-Idris-case--16776-7793 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16717-7753 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16708-7727 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-24 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-25 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))))))
-(define REPL-IDEMode-Idris-case--16589-7668 (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))) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8)))))))))
-(define REPL-IDEMode-Idris-case--16539-7613 (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 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))))) (else (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-25 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0)))))))))))))))
-(define REPL-IDEMode-Idris-case--16487-7567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))))) (else (lambda (eta-0) (let ((act-24 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--16539-7613 arg-0 arg-1 arg-2 arg-3 arg-4 act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))
-(define REPL-IDEMode-Idris-case--16473-7517 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-25 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--16487-7567 arg-0 arg-1 e-5 osock act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))))
-(define REPL-IDEMode-Idris-case--16408-7469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 "Failed to fdopen socket file descriptor"))) (else (lambda (eta-0) (vector 1 arg-4)))))))
-(define REPL-IDEMode-Idris-n--17513-8653-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--17513-8651-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--17513-8652-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
-(define REPL-IDEMode-Idris-n--17883-8816-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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 ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (vector 1 (vector 0 ))))))))))))
-(define REPL-IDEMode-Idris-n--17513-8652-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--17696-8705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
-(define REPL-IDEMode-Idris-n--17513-8651-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--17695-8657 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))
-(define REPL-IDEMode-Idris-n--17513-8640-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0))))
+(define REPL-IDEMode-Idris-case--19170-9520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (Commands-IDEMode-Idris-version 2 0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))))
+(define REPL-IDEMode-Idris-case--18974-9406 (lambda (arg-0 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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-n--18804-9200-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((act-25 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 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-8 (vector-ref sc3 1))) (let ((act-26 ((REPL-IDEMode-Idris-handleIDEResult arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-6 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Unrecognised command: " (Commands-IDEMode-Idris-show_Show__SExp 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))
+(define REPL-IDEMode-Idris-case--18917-9334 (lambda (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) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-printIDEError arg-5 arg-7 (Strings-Prelude-C-43C-43 "Parse error: " (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) 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 (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-IDEMode-Idris-case--18974-9406 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Commands-IDEMode-Idris-getMsg e-5))))))))
+(define REPL-IDEMode-Idris-case--18870-9287 (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) (vector 1 (vector 0 )))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--18917-9334 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 end (Parser-IDEMode-Idris-parseSExp arg-9))))))))
+(define REPL-IDEMode-Idris-case--18804-9248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (REPLCommon-Idris-printError arg-0 "Running idemode but output isn't" eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-getInput e-2 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 ((act-25 (let ((act-25 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) eta-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 ((res (vector 0 e-1 e-2 e-3))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--18917-9334 arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-2 e-1 res e-5 end (Parser-IDEMode-Idris-parseSExp e-5)) eta-0)))))))))))))))))))))))))
+(define REPL-IDEMode-Idris-case--18815-9209 (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))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define REPL-IDEMode-Idris-case--18617-9089 (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 (vector 1 (vector 1 "") (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 1 e-2) (vector 0 )))))))))
+(define REPL-IDEMode-Idris-case--18616-9041 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Nat eta-0)) (vector 1 e-2 (vector 1 e-6 (vector 1 e-7 (vector 0 ))))))))))))))
+(define REPL-IDEMode-Idris-case--18434-8980 (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 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))))
+(define REPL-IDEMode-Idris-case--17805-8294 (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) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
+(define REPL-IDEMode-Idris-case--17734-8216 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pack act-24)))))))))
+(define REPL-IDEMode-Idris-case--17661-8143 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a line") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17592-8096 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) e-2))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17581-8063 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Alas the file is done, aborting") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-24 ((File-System-fGetChar 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0))))))))))))
+(define REPL-IDEMode-Idris-case--17457-8002 (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))) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 1))) (REPL-IDEMode-Idris-socketToFile e-8)))))))))
+(define REPL-IDEMode-Idris-case--17405-7941 (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 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))))) (else (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int arg-0)) eta-0))) (let ((act-25 ((Socket-Network-accept 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) ((REPL-IDEMode-Idris-socketToFile e-8) eta-0)))))))))))))))
+(define REPL-IDEMode-Idris-case--17344-7893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))))) (else (lambda (eta-0) (let ((act-24 ((Socket-Network-listen 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-2) eta-0))) ((REPL-IDEMode-Idris-case--17405-7941 arg-0 arg-1 arg-2 arg-3 arg-4 act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))
+(define REPL-IDEMode-Idris-case--17329-7834 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int e-2)) eta-0))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to open socket") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-26 (arg-3664 eta-1))) ((arg-3665 act-26) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Socket-Network-bind 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-24 (arg-3664 eta-1))) ((arg-3665 act-24) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5 (vector 1 (vector 2 arg-1)) arg-0) eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17344-7893 arg-0 arg-1 e-5 osock act-24 (Prelude-C-47C-61_Eq__Int act-24 0)) eta-0))))))))))
+(define REPL-IDEMode-Idris-case--17259-7776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 "Failed to fdopen socket file descriptor"))) (else (lambda (eta-0) (vector 1 arg-4)))))))
+(define REPL-IDEMode-Idris-n--18434-9037-versionSExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (vector 1 (REPL-IDEMode-Idris-n--18434-9035-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--18434-9036-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
+(define REPL-IDEMode-Idris-n--18804-9200-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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 ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (REPLOpts-Idris-setOutput arg-0 (vector 0 arg-5 e-1 e-2) ext-0))))(else (vector 1 (vector 0 ))))))))))))
+(define REPL-IDEMode-Idris-n--18434-9036-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18617-9089 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
+(define REPL-IDEMode-Idris-n--18434-9035-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18616-9041 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))
+(define REPL-IDEMode-Idris-n--18434-9024-optionsSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt eta-0)) arg-0))))
 (define REPL-IDEMode-Idris-toSExp_SExpable__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-implicits") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-0) (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-namespace") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-1) (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "show-types") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "eval") (vector 1 (REPL-IDEMode-Idris-toSExp_SExpable__REPLEval e-3) (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "editor") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-4) (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 1 (vector 4 "cg") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 0 ))))))))))
 (define REPL-IDEMode-Idris-toSExp_SExpable__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "typecheck")) ((1) (vector 4 "normalise")) (else (vector 4 "execute"))))))
 (define REPL-IDEMode-Idris-todoCmd (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-iputStrLn arg-0 (Strings-Prelude-C-43C-43 arg-1 ": command not yet implemented. Hopefully soon!") ext-0)))
-(define REPL-IDEMode-Idris-socketToFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Prelude-map_Functor__IO 'erased 'erased eta-3 eta-4 eta-5)))))) (lambda (eta-1) eta-1) (lambda (eta-1) (REPL-IDEMode-Idris-prim__fdopen e-0 "r+" eta-1))) eta-0))) (let ((act-25 (File-System-fileError act-24 eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (vector 0 "Failed to fdopen socket file descriptor")) (else (vector 1 act-24)))))))))))
+(define REPL-IDEMode-Idris-socketToFile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Prelude-map_Functor__IO 'erased 'erased eta-3 eta-4 eta-5)))))) (lambda (eta-1) eta-1) (lambda (eta-1) (REPL-IDEMode-Idris-prim__fdopen e-0 "r+" eta-1))) eta-0))) (let ((act-25 ((File-System-fileError 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-1)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-1) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-1) (let ((act-17 (arg-3503 eta-1))) (let ((act-16 (arg-3505 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-1) (let ((act-25 (arg-3664 eta-1))) ((arg-3665 act-25) eta-1))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-1) (let ((act-51 (arg-3667 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8341) arg-8341))) act-24) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (vector 0 "Failed to fdopen socket file descriptor")) (else (vector 1 act-24)))))))))))
 (define REPL-IDEMode-Idris-returnFromIDE (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "return") (vector 1 arg-2 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 ))))))))
 (define REPL-IDEMode-Idris-replWrap (lambda (arg-0 ext-0) (let ((act-24 (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 0 e-5)))))))))
 (define REPL-IDEMode-Idris-replIDE (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-3 (vector-ref sc1 3))) (let ((act-25 ((Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (Commands-IDEMode-Idris-version 2 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 (REPL-IDEMode-Idris-loop arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))))))))))))))))
-(define REPL-IDEMode-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 ((REPL-IDEMode-Idris-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 (Context-Core-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 (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 ((Error-Idris-perror arg-0 arg-2 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 0 (vector 1 e-13)))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
-(define REPL-IDEMode-Idris-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) (REPL-IDEMode-Idris-replWrap (REPL-Idris-interpret 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 (Package-Idris-findIpkg arg-0 arg-4 (vector 1 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))) (let ((fname (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) e-1) (else (let ((e-3 (vector-ref sc2 1))) e-3)))))) (REPL-IDEMode-Idris-replWrap (lambda (eta-1) (let ((act-25 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 5 fname)) 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 ((e-6 (vector-ref sc2 1))) (SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting arg-3 arg-4 fname e-6 eta-1))))))) eta-0)))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 (vector 0 (REPLOpts-Idris-replFC) (vector 1 e-3)))) eta-0))) (else (let ((e-39 (vector-ref sc1 1))) (let ((sc2 e-39)) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 0 e-42 e-43 (vector 1 e-3)))) eta-0)))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 1 1 e-5 e-6 (vector 1 e-7)))) eta-0)))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 2 1 e-8 (vector 1 e-9)))) eta-0))))) ((5) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "add-missing" 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 (vector 23 (vector 0 (vector 0 ))))))))))) ((6) (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))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 3 1 e-12 (vector 1 e-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-14) e-15))) eta-0))))))) ((7) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 4 1 e-16 (vector 1 e-17)))) eta-0))))) ((8) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 5 1 e-18 (vector 1 e-19)))) eta-0))))) ((9) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 6 1 e-20 (vector 1 e-21)))) eta-0))))) ((10) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 (vector 7 1 e-22 (vector 1 e-23)))) eta-0))))) ((11) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "docs-for" 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 (vector 5 (vector 0 )))))))))) ((12) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "apropros" 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 (vector 5 (vector 0 )))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "who-calls" 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 1 (vector 0 ))))))))) ((15) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "calls-who" 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 1 (vector 0 ))))))))) ((16) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "browse-namespace" 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 1 (vector 0 ))))))))) ((17) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "normalise-term" 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 2 e-30))))))))) ((18) (let ((e-31 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "show-term-implicits" 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 2 e-31))))))))) ((19) (let ((e-32 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "hide-term-implicits" 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 2 e-32))))))))) ((20) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "elaborate-term" 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 3 e-33))))))))) ((21) (let ((e-34 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "print-definition" 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 (vector 5 (vector 1 e-34 (vector 0 )))))))))))) ((22) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "repl-completions" 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 1 (vector 0 ))))))))) ((23) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 )) eta-0))) ((13) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 19 )) eta-0))) (else (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 13 )) eta-0)))))))
+(define REPL-IDEMode-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-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))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 ((REPL-IDEMode-Idris-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 (Context-Core-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 (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 ((Error-Idris-perror arg-0 arg-2 arg-4 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 0 (vector 1 e-13)))))))))))))))))))))))))) ext-0)))))))))))))))))))))))
+(define REPL-IDEMode-Idris-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) (REPL-IDEMode-Idris-replWrap (REPL-Idris-interpret 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 (Package-Idris-findIpkg arg-0 arg-4 (vector 1 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))) (let ((fname (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) e-1) (else (let ((e-3 (vector-ref sc2 1))) e-3)))))) (REPL-IDEMode-Idris-replWrap (lambda (eta-1) (let ((act-25 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 5 fname)) 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 ((e-6 (vector-ref sc2 1))) (SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting arg-3 arg-4 fname e-6 eta-1))))))) eta-0)))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 2 (vector 0 (REPLOpts-Idris-replFC) (vector 1 e-3)))) eta-0))) (else (let ((e-39 (vector-ref sc1 1))) (let ((sc2 e-39)) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 0 e-42 e-43 (vector 1 e-3)))) eta-0)))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 1 1 e-5 e-6 (vector 1 e-7)))) eta-0)))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 2 1 e-8 (vector 1 e-9)))) eta-0))))) ((5) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "add-missing" 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 (vector 25 (vector 0 (vector 0 ))))))))))) ((6) (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))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 3 1 e-12 (vector 1 e-13) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-14) e-15))) eta-0))))))) ((7) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 4 1 e-16 (vector 1 e-17)))) eta-0))))) ((8) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 5 1 e-18 (vector 1 e-19)))) eta-0))))) ((9) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 6 1 e-20 (vector 1 e-21)))) eta-0))))) ((10) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 21 (vector 7 1 e-22 (vector 1 e-23)))) eta-0))))) ((11) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "docs-for" 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 (vector 5 (vector 0 )))))))))) ((12) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "apropros" 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 (vector 5 (vector 0 )))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "who-calls" 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 1 (vector 0 ))))))))) ((15) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "calls-who" 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 1 (vector 0 ))))))))) ((16) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "browse-namespace" 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 1 (vector 0 ))))))))) ((17) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "normalise-term" 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 2 e-30))))))))) ((18) (let ((e-31 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "show-term-implicits" 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 2 e-31))))))))) ((19) (let ((e-32 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "hide-term-implicits" 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 2 e-32))))))))) ((20) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "elaborate-term" 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 3 e-33))))))))) ((21) (let ((e-34 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "print-definition" 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 (vector 5 (vector 1 e-34 (vector 0 )))))))))))) ((22) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-todoCmd arg-4 "repl-completions" 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 1 (vector 0 ))))))))) ((23) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 22 )) eta-0))) ((13) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 )) eta-0))) (else (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 14 )) eta-0)))))))
 (define REPL-IDEMode-Idris-printIDEResultWithHighlight (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))))
 (define REPL-IDEMode-Idris-printIDEResult (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2) (vector 0 )))))))
 (define REPL-IDEMode-Idris-printIDEError (lambda (arg-0 arg-1 arg-2) (REPL-IDEMode-Idris-returnFromIDE arg-0 arg-1 (vector 0 (vector 1 (vector 4 "error") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 0 )))))))
-(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-25 (let ((act-25 (REPL-IDEMode-Idris-getInput e-2 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 ((act-26 (let ((act-26 (File-System-fEOF e-2 ext-0))) (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 ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--17989-8943 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0)))))))))))))))))))))))))))))
-(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-26 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--16487-7567 arg-1 arg-0 e-5 osock act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0))))))))))
+(define REPL-IDEMode-Idris-loop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (REPLOpts-Idris-getOutput 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)) (case (vector-ref sc1 0) ((1) (REPLCommon-Idris-printError arg-4 "Running idemode but output isn't" ext-0)) (else (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((act-25 (let ((act-25 (REPL-IDEMode-Idris-getInput e-2 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 ((act-26 (let ((act-26 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-2) ext-0))) (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 ((e-7 (vector-ref sc3 1))) (let ((res (vector 0 e-1 e-2 e-3))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 ))) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--18917-9334 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 e-1 res e-6 end (Parser-IDEMode-Idris-parseSExp e-6)) ext-0)))))))))))))))))))))))))))))
+(define REPL-IDEMode-Idris-initIDESocketFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Socket-Network-socket 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 2 ) (vector 1 ) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (Prelude-show_Show__Int e-2)) ext-0))) (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to open socket") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Socket-Network-bind 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) e-5 (vector 1 (vector 2 arg-0)) arg-1) ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17344-7893 arg-1 arg-0 e-5 osock act-25 (Prelude-C-47C-61_Eq__Int act-25 0)) ext-0))))))))))
 (define REPL-IDEMode-Idris-idePutStrLn (lambda (arg-0 arg-1 arg-2) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) arg-0 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String arg-2) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-1) (vector 0 ))))))))
-(define REPL-IDEMode-Idris-handleIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((22) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))
+(define REPL-IDEMode-Idris-handleIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((24) (REPL-IDEMode-Idris-idePutStrLn arg-5 arg-6 "Bye for now!"))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))(else (REPL-IDEMode-Idris-displayIDEResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7))))))
 (define REPL-IDEMode-Idris-getNChars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 0 )))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (REPL-IDEMode-Idris-getChar arg-0 eta-0))) (let ((act-25 ((REPL-IDEMode-Idris-getNChars arg-0 e-0) eta-0))) (vector 1 act-24 act-25))))))))))
-(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--16843-7861 arg-0 act-24 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-24))) ext-0))))
-(define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-24 (File-System-fGetLine arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((act-25 (PrimIO-putStrLn "Failed to read a line" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))
-(define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-24 (File-System-fEOF arg-0 ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (let ((act-25 (PrimIO-putStrLn "Alas the file is done, aborting" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-25 (File-System-fGetChar arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-26 (PrimIO-putStrLn "Failed to read a character" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))))))
-(define REPL-IDEMode-Idris-displayIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpHole eta-0)) e-20))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--17513-8640-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--17513-8653-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((23) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-28))))) ((1) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-29))) ((2) (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))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-30 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-31) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-32) "\xa;")))) e-33))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
-(define Data-Socket-Network-case--1992-7296 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 ))))))
-(define Data-Socket-Network-n--1992-7272-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
-(define Data-Socket-Network-n--1992-7273-toInt (lambda (arg-0 arg-1) (Data-Socket-Network-n--1992-7272-toIntC-39 arg-0 arg-1)))
-(define Data-Socket-Network-n--1992-7274-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--1992-7273-toInt arg-0 eta-0)) (Strings-Data-split (lambda (c) (Prelude-C-61C-61_Eq__Char c #\.)) arg-0))))
+(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-24 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--17734-8216 arg-0 act-24 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-24))) ext-0))))
+(define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-24 ((File-System-fGetLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) (else (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a line") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))))))
+(define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-24 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-24 (arg-3664 eta-0))) ((arg-3665 act-24) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc0 act-24)) (cond ((equal? sc0 0) (let ((act-25 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Alas the file is done, aborting") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-25 ((File-System-fGetChar 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-25 (arg-3664 eta-0))) ((arg-3665 act-25) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) arg-0) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) e-2)) (else (let ((act-26 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-26 (arg-3664 eta-0))) ((arg-3665 act-26) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) "Failed to read a character") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3435) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3435 eta-0)))))) (lambda (a) (lambda (arg-3502) (lambda (eta-0) arg-3502))) (lambda (b) (lambda (a) (lambda (arg-3503) (lambda (arg-3505) (lambda (eta-0) (let ((act-17 (arg-3503 eta-0))) (let ((act-16 (arg-3505 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3664) (lambda (arg-3665) (lambda (eta-0) (let ((act-27 (arg-3664 eta-0))) ((arg-3665 act-27) eta-0))))))) (lambda (a) (lambda (arg-3667) (lambda (eta-0) (let ((act-51 (arg-3667 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8341) arg-8341))) (vector 1 1 (vector 0 ))) ext-0))))))))))))
+(define REPL-IDEMode-Idris-displayIDEResult (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((10) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((13) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((14) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((15) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((16) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((17) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((18) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((19) (let ((e-20 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Holes-IDEMode-Idris-sexpHole eta-0)) e-20))))) ((21) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((20) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--18434-9024-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--18434-9037-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((25) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-28 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-28))))) ((1) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-29))) ((2) (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))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-30 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-31) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-32) "\xa;")))) e-33))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__Name eta-0)) e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 e-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
+(define Data-Socket-Network-case--2088-7607 (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 ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-1 e-4 e-7 e-10)))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 ))))))
+(define Data-Socket-Network-n--2088-7582-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
+(define Data-Socket-Network-n--2088-7583-toInt (lambda (arg-0 arg-1) (Data-Socket-Network-n--2088-7582-toIntC-39 arg-0 arg-1)))
+(define Data-Socket-Network-n--2088-7584-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--2088-7583-toInt arg-0 eta-0)) (Strings-Data-split (lambda (c) (Prelude-C-61C-61_Eq__Char c #\.)) arg-0))))
 (define Data-Socket-Network-toCode_ToCode__SocketType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) (else 3)))))
 (define Data-Socket-Network-toCode_ToCode__SocketFamily (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 0) ((1) 1) ((2) 2) (else 10)))))
-(define Data-Socket-Network-show_Show__SocketAddress (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))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3462) (lambda (arg-3463) (Prelude-C-60C-43C-62_Semigroup__String arg-3462 arg-3463))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Int eta-0)) (vector 1 e-0 (vector 1 e-1 (vector 1 e-2 (vector 1 e-3 (vector 0 ))))))))))))) ((1) "NOT IMPLEMENTED YET") ((2) (let ((e-4 (vector-ref sc0 1))) e-4)) (else "Invalid")))))
+(define Data-Socket-Network-show_Show__SocketAddress (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))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3392) (lambda (arg-3393) (Prelude-C-60C-43C-62_Semigroup__String arg-3392 arg-3393))) (Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-show_Show__Int eta-0)) (vector 1 e-0 (vector 1 e-1 (vector 1 e-2 (vector 1 e-3 (vector 0 ))))))))))))) ((1) "NOT IMPLEMENTED YET") ((2) (let ((e-4 (vector-ref sc0 1))) e-4)) (else "Invalid")))))
 (define Socket-Data-Socket-Network-socketType (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
-(define Data-Socket-Network-parseIPv4 (lambda (arg-0) (Data-Socket-Network-case--1992-7296 arg-0 (Data-Socket-Network-n--1992-7274-splitted arg-0))))
-(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-648) (lambda (arg-649) (Prelude-C-61C-61_Eq__Int arg-648 arg-649))) (lambda (arg-650) (lambda (arg-651) (Prelude-C-47C-61_Eq__Int arg-650 arg-651)))) arg-0 (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 0 )) (vector 0 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 1 )) (vector 1 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 2 )) (vector 2 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 3 )) (vector 3 )) (vector 0 ))))))))
-(define Data-Socket-Network-getErrno (lambda (ext-0) (Data-Socket-Network-idrnet_errno ext-0)))
+(define Data-Socket-Network-parseIPv4 (lambda (arg-0) (Data-Socket-Network-case--2088-7607 arg-0 (Data-Socket-Network-n--2088-7584-splitted arg-0))))
+(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-428) (lambda (arg-429) (Prelude-C-61C-61_Eq__Int arg-428 arg-429))) (lambda (arg-430) (lambda (arg-431) (Prelude-C-47C-61_Eq__Int arg-430 arg-431)))) arg-0 (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 0 )) (vector 0 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 1 )) (vector 1 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 2 )) (vector 2 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 3 )) (vector 3 )) (vector 0 ))))))))
+(define Data-Socket-Network-getErrno (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Data-Socket-Network-idrnet_errno eta-0)))))))
 (define Socket-Data-Socket-Network-family (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
 (define Socket-Data-Socket-Network-descriptor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
 (define Data-Socket-Network-SocketError (lambda () (vector "Int" )))
 (define Data-Socket-Network-BACKLOG (lambda () 20))
-(define Socket-Network-case--2068-7703 (lambda (arg-0 arg-1 arg-2) (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))) (lambda (eta-0) (let ((act-24 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-25 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-24)))))))))))
-(define Socket-Network-case--2045-7679 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (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))) (lambda (eta-0) (let ((act-24 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-25 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-24))))))))))))))
-(define Socket-Network-case--2010-7639 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) 0))))))
-(define Socket-Network-case--1891-7548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) 0))))))
-(define Socket-Network-case--1809-7462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 arg-3 arg-2 arg-1 arg-0))))))))
-(define Socket-Network-n--1891-7515-saString (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))) (Data-Socket-Network-show_Show__SocketAddress e-1))) (else "")))))
-(define Socket-Network-socket (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (FFI-Network-idrnet_socket (Data-Socket-Network-toCode_ToCode__SocketFamily arg-0) (Data-Socket-Network-toCode_ToCode__SocketType arg-1) arg-2 ext-0))) ((Socket-Network-case--1809-7462 arg-2 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-listen (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-socket_listen (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-BACKLOG) ext-0))) ((Socket-Network-case--2010-7639 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-bind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (FFI-Network-idrnet_bind (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-toCode_ToCode__SocketFamily (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))) (Data-Socket-Network-toCode_ToCode__SocketType (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Socket-Network-n--1891-7515-saString arg-2 arg-1 arg-0 arg-1) arg-2 ext-0))) ((Socket-Network-case--1891-7548 arg-2 arg-1 arg-0 act-24 (Prelude-C-61C-61_Eq__Int act-24 (Prelude-negate_Neg__Int 1))) ext-0))))
-(define Socket-Network-accept (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-idrnet_create_sockaddr ext-0))) (let ((act-25 (FFI-Network-idrnet_accept (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) act-24 ext-0))) ((Socket-Network-case--2045-7679 arg-0 act-24 act-25 (Prelude-C-61C-61_Eq__Int act-25 (Prelude-negate_Neg__Int 1))) ext-0)))))
-(define Raw-Socket-Network-case--1489-7487 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (FFI-Network-idrnet_sockaddr_ipv4 arg-0 eta-0))) (Data-Socket-Network-parseIPv4 act-24)))) ((3) (lambda (eta-0) (vector 1 ))) ((0) (lambda (eta-0) (vector 3 )))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1489(7487) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1489(7487) at Network/Socket/Raw.idr:63:1--75:1"))))))
-(define Raw-Socket-Network-sockaddr_free (lambda (arg-0 ext-0) (FFI-Network-idrnet_free arg-0 ext-0)))
-(define Raw-Socket-Network-getSockAddr (lambda (arg-0 ext-0) (let ((act-24 (FFI-Network-idrnet_sockaddr_family arg-0 ext-0))) ((Raw-Socket-Network-case--1489-7487 arg-0 act-24 (Data-Socket-Network-getSocketFamily act-24)) ext-0))))
-(define SyntaxHighlight-IDEMode-Idris-case--6115-6660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-0)))
-(define SyntaxHighlight-IDEMode-Idris-case--5882-6455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 )))))))
-(define SyntaxHighlight-IDEMode-Idris-case--5796-6350 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
-(define SyntaxHighlight-IDEMode-Idris-n--5851-6390-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 ))))
+(define Socket-Network-case--2256-8186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (Raw-Socket-Network-getSockAddr 'erased arg-1 arg-3)) (lambda (sockaddr) (let ((sc2 (let ((sc3 arg-1)) (let ((e-8 (vector-ref sc3 1))) e-8)))) (let ((e-8 (vector-ref sc2 2))) ((((e-8 'erased) 'erased) (Raw-Socket-Network-sockaddr_free 'erased arg-1 arg-3)) (lambda (_-8213) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-12 (vector-ref sc4 1))) e-12)))) (let ((e-11 (vector-ref sc3 2))) ((e-11 'erased) (vector 1 (vector 0 (vector 0 arg-4 e-1 e-2 e-3) sockaddr)))))))))))))))))))
+(define Socket-Network-case--2220-8143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((((e-1 'erased) 'erased) (lambda (eta-0) (vector 0 eta-0))) (Data-Socket-Network-getErrno 'erased arg-1))))) (else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (Raw-Socket-Network-getSockAddr 'erased arg-1 arg-3)) (lambda (sockaddr) (let ((sc3 (let ((sc4 arg-1)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-8 (vector-ref sc3 2))) ((((e-8 'erased) 'erased) (Raw-Socket-Network-sockaddr_free 'erased arg-1 arg-3)) (lambda (_-8213) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-12 (vector-ref sc5 1))) e-12)))) (let ((e-11 (vector-ref sc4 2))) ((e-11 'erased) (vector 1 (vector 0 (vector 0 arg-4 e-1 e-2 e-3) sockaddr))))))))))))))))))))))
+(define Socket-Network-case--2159-8071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Data-Socket-Network-getErrno 'erased arg-1)) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) 0))))))))
+(define Socket-Network-case--1988-7924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Data-Socket-Network-getErrno 'erased arg-1)) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) 0))))))))
+(define Socket-Network-case--1855-7784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) ((((e-1 'erased) 'erased) (lambda (eta-0) (vector 0 eta-0))) (Data-Socket-Network-getErrno 'erased arg-1))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (vector 0 arg-5 arg-4 arg-3 arg-2))))))))))
+(define Socket-Network-n--1988-7887-saString (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))) (Data-Socket-Network-show_Show__SocketAddress e-1))) (else "")))))
+(define Socket-Network-socket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_socket (Data-Socket-Network-toCode_ToCode__SocketFamily arg-2) (Data-Socket-Network-toCode_ToCode__SocketType arg-3) arg-4 eta-0)))))) (lambda (socket_res) (Socket-Network-case--1855-7784 'erased arg-1 arg-4 arg-3 arg-2 socket_res (Prelude-C-61C-61_Eq__Int socket_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-listen (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-socket_listen (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (Data-Socket-Network-BACKLOG) eta-0)))))) (lambda (listen_res) (Socket-Network-case--2159-8071 'erased arg-1 arg-2 listen_res (Prelude-C-61C-61_Eq__Int listen_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-bind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_bind (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) (Data-Socket-Network-toCode_ToCode__SocketFamily (let ((sc2 arg-2)) (let ((e-8 (vector-ref sc2 2))) e-8))) (Data-Socket-Network-toCode_ToCode__SocketType (let ((sc2 arg-2)) (let ((e-7 (vector-ref sc2 3))) e-7))) (Socket-Network-n--1988-7887-saString 'erased arg-1 arg-4 arg-3 arg-2 arg-3) arg-4 eta-0)))))) (lambda (bind_res) (Socket-Network-case--1988-7924 'erased arg-1 arg-4 arg-3 arg-2 bind_res (Prelude-C-61C-61_Eq__Int bind_res (Prelude-negate_Neg__Int 1)))))))))
+(define Socket-Network-accept (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_create_sockaddr eta-0)))))) (lambda (sockaddr_ptr) (let ((sc1 (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (let ((sc2 arg-1)) (let ((e-7 (vector-ref sc2 2))) ((e-7 'erased) (lambda (eta-0) (FFI-Network-idrnet_accept (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) sockaddr_ptr eta-0)))))) (lambda (accept_res) (Socket-Network-case--2220-8143 'erased arg-1 arg-2 sockaddr_ptr accept_res (Prelude-C-61C-61_Eq__Int accept_res (Prelude-negate_Neg__Int 1)))))))))))))
+(define Raw-Socket-Network-case--1558-7869 (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 ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((sc2 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 1))) e-3)))) (let ((e-2 (vector-ref sc2 2))) ((((e-2 'erased) 'erased) (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 2))) ((e-5 'erased) (lambda (eta-0) (FFI-Network-idrnet_sockaddr_ipv4 arg-2 eta-0)))))) (lambda (ipv4_addr) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (Data-Socket-Network-parseIPv4 ipv4_addr))))))))) ((3) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 1))) e-3)))) (let ((e-4 (vector-ref sc3 1))) e-4)))) (let ((e-2 (vector-ref sc2 2))) ((e-2 'erased) (vector 1 ))))) ((0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 1))) e-3)))) (let ((e-4 (vector-ref sc3 1))) e-4)))) (let ((e-2 (vector-ref sc2 2))) ((e-2 'erased) (vector 3 )))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1558(7869) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1558(7869) at Network/Socket/Raw.idr:63:1--75:1"))))))
+(define Raw-Socket-Network-sockaddr_free (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (FFI-Network-idrnet_free arg-2 eta-0)))))))
+(define Raw-Socket-Network-getSockAddr (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (FFI-Network-idrnet_sockaddr_family arg-2 eta-0)))))) (lambda (addr_family_int) (Raw-Socket-Network-case--1558-7869 'erased arg-1 arg-2 addr_family_int (Data-Socket-Network-getSocketFamily addr_family_int))))))))
+(define SyntaxHighlight-IDEMode-Idris-case--6302-6915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-0)))
+(define SyntaxHighlight-IDEMode-Idris-case--6069-6708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 )))))))
+(define SyntaxHighlight-IDEMode-Idris-case--5982-6603 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Commands-IDEMode-Idris-send 'erased (lambda (eta-0) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-0)) e-3 (vector 0 (vector 1 (vector 4 "output") (vector 1 arg-0 (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))))))))))
+(define SyntaxHighlight-IDEMode-Idris-n--6038-6643-hlt (lambda (arg-0 arg-1) (vector 1 arg-0 (vector 0 ))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight (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))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC e-0) (vector 1 (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "name") (vector 1 (vector 1 (Name-Core-show_Show__Name e-1)) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "namespace") (vector 1 (vector 1 e-7) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "decor") (vector 1 (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration e-4) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "implicit") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Bool e-2) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "key") (vector 1 (vector 1 e-3) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "doc-overview") (vector 1 (vector 1 e-5) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "type") (vector 1 (vector 1 e-6) (vector 0 )))) (vector 0 ))))))))) (vector 0 )))))))))))))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__FC (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 ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (vector 0 (vector 1 (vector 0 (vector 1 (vector 4 "filename") (vector 1 (vector 1 e-0) (vector 0 )))) (vector 1 (vector 0 (vector 1 (vector 4 "start") (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-5) 1)) (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-6) 1)) (vector 0 ))))) (vector 1 (vector 0 (vector 1 (vector 4 "end") (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-9) 1)) (vector 1 (vector 3 (+ (Prelude-cast_Cast__Int_Integer e-10) 1)) (vector 0 ))))) (vector 0 ))))))))))))))) (else (vector 0 (vector 0 )))))))
 (define SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Decoration (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 4 "type")) ((1) (vector 4 "function")) ((2) (vector 4 "data")) ((3) (vector 4 "keyword")) (else (vector 4 "bound"))))))
 (define SyntaxHighlight-IDEMode-Idris-__Impl_SExpable_Highlight (lambda (ext-0) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight ext-0)))
-(define SyntaxHighlight-IDEMode-Idris-printOutput (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))) ((SyntaxHighlight-IDEMode-Idris-case--5796-6350 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
+(define SyntaxHighlight-IDEMode-Idris-printOutput (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))) ((SyntaxHighlight-IDEMode-Idris-case--5982-6603 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
 (define SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Prelude-map_Functor__IO 'erased 'erased (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 (List-Data-filter 'erased (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-inFile arg-2 eta-1)) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) (lambda (eta-0) (let ((act-24 (unbox arg-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 ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (SyntaxHighlight-IDEMode-Idris-outputNameSyntax arg-1 eta-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 (vector 1 arg-3))))))))))))
 (define SyntaxHighlight-IDEMode-Idris-outputNameSyntax (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-11 (vector-ref sc2 2))) (let ((dec (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 4 ))) ((1) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 4 ))) ((1) (vector 1 (vector 1 ))) ((2) (vector 1 (vector 2 ))) (else (vector 1 (vector 0 ))))))) ((2) (vector 1 (vector 4 ))) ((3) (vector 1 (vector 4 ))) ((4) (vector 1 (vector 4 ))) ((5) (vector 1 (vector 4 ))) ((6) (vector 0 )) ((7) (vector 0 )) ((8) (vector 0 )) ((9) (vector 1 (vector 0 ))) ((10) (vector 1 (vector 4 ))) (else (vector 1 (vector 0 ))))))) (let ((hilite (Prelude-map_Functor__Maybe 'erased 'erased (lambda (d) (vector 0 e-2 e-6 1 "" d "" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-11) "")) dec))) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (SyntaxHighlight-IDEMode-Idris-outputHighlight arg-0 eta-0 eta-1)))) hilite)))))))))))))
-(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-9039) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-9039)) (SyntaxHighlight-IDEMode-Idris-n--5851-6390-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0)))
+(define SyntaxHighlight-IDEMode-Idris-outputHighlight (lambda (arg-0 arg-1 ext-0) (SyntaxHighlight-IDEMode-Idris-printOutput arg-0 (vector 0 (vector 1 (vector 4 "ok") (vector 1 (vector 0 (vector 1 (vector 4 "highlight-source") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__C-40ListC-32C-36aC-41 'erased (lambda (arg-2897) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-2897)) (SyntaxHighlight-IDEMode-Idris-n--6038-6643-hlt arg-1 arg-0)) (vector 0 )))) (vector 0 )))) ext-0)))
 (define SyntaxHighlight-IDEMode-Idris-inFile (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-4 arg-0))) (else 1)))))))
-(define Parser-IDEMode-Idris-case--2989-353 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--2989-329-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
-(define Parser-IDEMode-Idris-case--2991-334 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
-(define Parser-IDEMode-Idris-n--2989-329-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--2991-334 arg-0 arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
+(define Parser-IDEMode-Idris-case--3125-362 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (List-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Parser-IDEMode-Idris-n--3125-338-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
+(define Parser-IDEMode-Idris-case--3127-343 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((9) 1)(else 0)))))
+(define Parser-IDEMode-Idris-n--3125-338-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--3127-343 arg-0 arg-1 (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))))
 (define Parser-IDEMode-Idris-symbols (lambda () (vector 1 "(" (vector 1 ":" (vector 1 ")" (vector 0 ))))))
-(define Parser-IDEMode-Idris-sexp (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-499) (vector 7 1 (Source-Rule-Parser-exactIdent "True") (lambda () (lambda (_-510) (vector 0 (vector 2 0)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-487) (vector 7 1 (Source-Rule-Parser-exactIdent "False") (lambda () (lambda (_-523) (vector 0 (vector 2 1)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (vector 3 i))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-strLit) (lambda () (lambda (str) (vector 0 (vector 1 str))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-455) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 0 (vector 4 x)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-431) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp)) (lambda (xs) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-555) (vector 0 (vector 0 xs))))))))))))))))))))))
-(define Parser-IDEMode-Idris-parseSExp (lambda (arg-0) (Parser-IDEMode-Idris-ideParser 'erased 0 arg-0 (vector 7 1 (Parser-IDEMode-Idris-sexp) (lambda () (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-622) (vector 0 c)))))))))
-(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--2989-353 arg-0 (Core-Lexer-Text-lex 'erased (Parser-IDEMode-Idris-ideTokens) arg-0))))
+(define Parser-IDEMode-Idris-sexp (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-515) (vector 7 1 (Source-Rule-Parser-exactIdent "True") (lambda () (lambda (_-527) (vector 0 (vector 2 0)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))))) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-502) (vector 7 1 (Source-Rule-Parser-exactIdent "False") (lambda () (lambda (_-541) (vector 0 (vector 2 1)))))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))))) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (vector 3 i))))) (lambda () (vector 9 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (vector 7 1 (Source-Rule-Parser-strLit) (lambda () (lambda (str) (vector 0 (vector 1 str))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-467) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 0 (vector 4 x)))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-441) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp)) (lambda (xs) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-576) (vector 0 (vector 0 xs))))))))))))))))))))))
+(define Parser-IDEMode-Idris-parseSExp (lambda (arg-0) (Parser-IDEMode-Idris-ideParser 'erased 0 arg-0 (vector 7 1 (Parser-IDEMode-Idris-sexp) (lambda () (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-646) (vector 0 c)))))))))
+(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--3125-362 arg-0 (Core-Lexer-Text-lex 'erased (Parser-IDEMode-Idris-ideTokens) arg-0))))
 (define Parser-IDEMode-Idris-ideTokens (lambda () (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Parser-IDEMode-Idris-symbols)) (vector 1 (vector 0 (Lexer-Text-digits) (lambda (x) (vector 2 (Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Common-Lexer-Parser-identAllowDashes) (lambda (x) (vector 5 x))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 0 ))))))))
 (define Parser-IDEMode-Idris-ideParser (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Parser-IDEMode-Idris-idelex arg-2)) (lambda (toks) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-3 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed))))))))
 (load-shared-object "libidris2_support.so")
 (collect-request-handler (lambda () (collect) (blodwen-run-finalisers)))
-(PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-main eta-0)))(collect 4)
+(PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-Idris-main eta-0)))(collect 4)
 (blodwen-run-finalisers))
diff --git a/libs/contrib/Control/Linear/LIO.idr b/libs/contrib/Control/Linear/LIO.idr
index 2ba0e4da8..f56a999f7 100644
--- a/libs/contrib/Control/Linear/LIO.idr
+++ b/libs/contrib/Control/Linear/LIO.idr
@@ -76,6 +76,7 @@ runK (Bind {u_act = Unrestricted} act next) k = runK act (\x => runK (next x) k)
 
 ||| Run a linear program exactly once, with unrestricted return value in the
 ||| underlying context
+export
 run : (Applicative io, LinearBind io) =>
       (1 _ : L io a) -> io a
 run prog = runK prog pure
diff --git a/libs/network/Control/Linear/Network.idr b/libs/network/Control/Linear/Network.idr
new file mode 100644
index 000000000..0b334d6c5
--- /dev/null
+++ b/libs/network/Control/Linear/Network.idr
@@ -0,0 +1,126 @@
+module Control.Linear.Network
+
+-- An experimental linear type based API to sockets
+
+import Control.Linear.LIO
+
+import public Network.Socket.Data
+import Network.Socket
+
+public export
+data SocketState = Ready | Bound | Listening | Open | Closed
+
+export
+data Socket : SocketState -> Type where
+     MkSocket : Socket.Data.Socket -> Socket st
+
+export
+newSocket : LinearIO io
+      => (fam  : SocketFamily)
+      -> (ty   : SocketType)
+      -> (pnum : ProtocolNumber)
+      -> (success : (1 _ : Socket Ready) -> L io ())
+      -> (fail : SocketError -> L io ())
+      -> L io ()
+newSocket fam ty pnum success fail
+    = do Right rawsock <- socket fam ty pnum
+               | Left err => fail err
+         success (MkSocket rawsock)
+
+export
+close : LinearIO io => (1 _ : Socket st) -> L io {use=1} (Socket Closed)
+close (MkSocket sock)
+    = do Socket.close sock
+         pure1 (MkSocket sock)
+
+export
+done : LinearIO io => (1 _ : Socket Closed) -> L io ()
+done (MkSocket sock) = pure ()
+
+export
+bind : LinearIO io =>
+       (1 _ : Socket Ready) ->
+       (addr : Maybe SocketAddress) ->
+       (port : Port) ->
+       L io {use=1} (Res Bool (\res => Socket (case res of
+                                                    False => Closed
+                                                    True => Bound)))
+bind (MkSocket sock) addr port
+    = do ok <- Socket.bind sock addr port
+         if ok == 0
+            then pure1 (True # MkSocket sock)
+            else pure1 (False # MkSocket sock)
+
+export
+connect : LinearIO io =>
+          (sock : Socket) ->
+          (addr : SocketAddress) ->
+          (port : Port) ->
+          L io {use=1} (Res Bool (\res => Socket (case res of
+                                                       False => Closed
+                                                       True => Open)))
+connect sock addr port
+    = do ok <- Socket.connect sock addr port
+         if ok == 0
+            then pure1 (True # MkSocket sock)
+            else pure1 (False # MkSocket sock)
+
+export
+listen : LinearIO io =>
+         (1 _ : Socket Bound) ->
+         L io {use=1} (Res Bool (\res => Socket (case res of
+                                                      False => Closed
+                                                      True => Listening)))
+listen (MkSocket sock)
+    = do ok <- Socket.listen sock
+         if ok == 0
+            then pure1 (True # MkSocket sock)
+            else pure1 (False # MkSocket sock)
+
+export
+accept : LinearIO io =>
+         (1 _ : Socket Listening) ->
+         L io {use=1} (Res Bool (\case
+                                    False => Socket Listening
+                                    True => (Socket Listening, Socket Open)))
+accept (MkSocket sock)
+    = do Right (sock', sockaddr) <- Socket.accept sock
+             | Left err => pure1 (False # MkSocket sock)
+         pure1 (True # (MkSocket sock, MkSocket sock'))
+
+export
+send : LinearIO io =>
+       (1 _ : Socket Open) ->
+       (msg : String) ->
+       L io {use=1} (Res Bool (\res => Socket (case res of
+                                                    False => Closed
+                                                    True => Open)))
+send (MkSocket sock) msg
+    = do Right c <- Socket.send sock msg
+             | Left err => pure1 (False # MkSocket sock)
+         pure1 (True # MkSocket sock)
+               
+export
+recv : LinearIO io =>
+       (1 _ : Socket Open) ->
+       (len : ByteLength) ->
+       L io {use=1} (Res (Maybe (String, ResultCode))
+                         (\res => Socket (case res of
+                                               Nothing => Closed
+                                               Just msg => Open)))
+recv (MkSocket sock) len
+    = do Right msg <- Socket.recv sock len
+             | Left err => pure1 (Nothing # MkSocket sock)
+         pure1 (Just msg # MkSocket sock)
+
+export
+recvAll : LinearIO io =>
+          (1 _ : Socket Open) ->
+          L io {use=1} (Res (Maybe String)
+                            (\res => Socket (case res of
+                                                  Nothing => Closed
+                                                  Just msg => Open)))
+recvAll (MkSocket sock)
+    = do Right msg <- Socket.recvAll sock
+             | Left err => pure1 (Nothing # MkSocket sock)
+         pure1 (Just msg # MkSocket sock)
diff --git a/libs/network/network.ipkg b/libs/network/network.ipkg
index 1481dcb02..1f9a894e9 100644
--- a/libs/network/network.ipkg
+++ b/libs/network/network.ipkg
@@ -1,6 +1,10 @@
 package network
 
-modules = Network.Socket,
+opts = "-p contrib"
+
+modules = Control.Linear.Network,
+
+          Network.Socket,
           Network.Socket.Data,
           Network.Socket.Raw,
           Network.FFI